1987-01-26 16:35:04 +00:00
|
|
|
echo "% this part is generated from $1 at: " `date`
|
|
|
|
|
ed - $1 <<'EOI'
|
1987-01-06 13:42:33 +00:00
|
|
|
1,/^$/d
|
|
|
|
|
1,/^$/d
|
|
|
|
|
1,$s/^\(...\) \(.\).*/\1:\2/
|
1987-08-06 10:48:14 +00:00
|
|
|
g/:d/s/^\(...\):\(.\).*/C_\1 | arith:\2 | OP(op_\1); CST(\2); NL()/
|
1987-01-06 13:42:33 +00:00
|
|
|
g/:[cslnfzor]/s/^\(...\):\(.\).*/C_\1 | arith:\2 | OP(op_\1); CST(\2); NL()/
|
|
|
|
|
g/:w/s/^\(...\).*/C_\1 | arith:w | OP(op_\1); CST(w); NL()\
|
|
|
|
|
C_\1_narg | | OP(op_\1); CCEND(); NL()/
|
|
|
|
|
g/:g/s/^\(...\).*/C_\1 | arith:g | OP(op_\1); CST(g); NL()\
|
|
|
|
|
C_\1_dnam | char *:g arith:o | OP(op_\1); NOFF(g,o); NL()\
|
|
|
|
|
C_\1_dlb | label:g arith:o | OP(op_\1); DOFF(g,o); NL()/
|
|
|
|
|
g/:p/s/^\(...\).*/C_\1 | char *:p | OP(op_\1); PNAM(p); NL()/
|
|
|
|
|
g/:b/s/^\(...\).*/C_\1 | label:b | OP(op_\1); CILB(b); NL()/
|
|
|
|
|
g/:-/s/^\(...\).*/C_\1 | | OP(op_\1); NL()/
|
|
|
|
|
1,$p
|
|
|
|
|
EOI
|
