/* PRIMOS.CPL
/* CPL Macro to tangle, compile and load Crudetype for Primos
/* Jon Warbrick, 06/88

/*************************************************

/* You will have to change the next three lines
/* to give the correct commands to run TANGLE
/* and the Sheffield Pascal Compiler on your
/* system, and to give the name of the Pascal
/* library.

&s tangle_command := R TEX>CMDNC0>TANGLE
&s pascal_command := PASCAL
&s pascal_library := PASCAL

/*************************************************

&args program = PRIMOS

COMO CRUDETYPE.COMO
%tangle_command% CRUDETYPE.WEB %program%.CH
COMO -E

&if ^ [query 'OK to go on' TRUE] &then &stop

%pascal_command% %program% -BIG -EPF_ARGS

&data BIND
lo %program%
li %pascal_library%
li
file CRUDETYPE.RUN
&end

&return