1985-02-06 21:25:27 +00:00
|
|
|
1i\
|
|
|
|
|
/* ops is converted into a test program for longs \
|
|
|
|
|
*/
|
|
|
|
|
/ISTART/d
|
|
|
|
|
s/FN/main/
|
|
|
|
|
/LSTART/c\
|
|
|
|
|
long x=100234 , y= -301 ;
|
|
|
|
|
/[XYZS]/s/.*/& ; printf("%s#","&"@) ;/
|
1988-07-07 14:19:16 +00:00
|
|
|
/Z1/s/#/ %ld&/
|
1985-02-06 21:25:27 +00:00
|
|
|
/Z1/s/@/, Z1&/
|
1988-07-07 14:19:16 +00:00
|
|
|
/Z2/s/#/ %ld&/
|
1985-02-06 21:25:27 +00:00
|
|
|
/Z2/s/@/, Z2&/
|
|
|
|
|
/Z1/s/^/Z1 = 10 ; /
|
|
|
|
|
/Z2/s/^/Z2 = 0100 ; /
|
|
|
|
|
/[XYZS]/s/^/ /
|
|
|
|
|
s/X/40000/g
|
|
|
|
|
s/Y/30000/g
|
|
|
|
|
s/S/9/g
|
|
|
|
|
s/Z1/x/g
|
|
|
|
|
s/Z2/y/g
|
|
|
|
|
s/#/\\n/
|
|
|
|
|
s/@//
|
