16 lines
308 B
OCaml
16 lines
308 B
OCaml
|
MCSKIP "WITH" NL
|
||
|
|
"" Bitwise operations
|
||
|
|
"" assumes macros on input stream 1, terminal on stream 2
|
||
|
|
MCSKIP MT,<>
|
||
|
|
MCINS %.
|
||
|
|
MCDEF SL SPACES NL AS <MCSET T1=%A1.
|
||
|
|
MCSET T2=%A2.
|
||
|
|
a and b = %%T1.&%T2..
|
||
|
|
a or b = %%T1.|%T2..
|
||
|
|
The other operators are not supported.
|
||
|
|
MCSET S10=0
|
||
|
|
>
|
||
|
|
MCSKIP SL WITH *
|
||
|
|
MCSET S1=1
|
||
|
|
*MCSET S10=2
|