File r34/util/mkslfile artifact 277754e84f part of check-in d58ccc1261
#!/bin/csh -f # mkslfile --- Build Standard LISP form of REDUCE or RLISP file. # Usage: $reduce/util/mkslfile infile_name [reduce-root_dir] # Output file is infile_name.sl # Input taken from src/infile_name.red # Reduce_root_dir is optional, and will be prepended to the infile src # directory if supplied. $reduce/reduce << EOF linelength 71; !*force := t; % To expand all macros flag('(de df dm),'noexpand); % except these off msg; on defn; out "$1.sl"; in "$2src/$1.red"\$ bye; EOF