Return to tigers.sm1 CVS log | Up to [local] / OpenXM / src / kan96xx / Doc |
File: [local] / OpenXM / src / kan96xx / Doc / tigers.sm1 (download)
Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:02 1999 UTC (24 years, 11 months ago) by maekawa
o import OpenXM sources |
%% tigers.sm1 /tmp.tigers.out (tmp.tigers.out) def /tigers.path [[(getenv) (OpenXM_HOME)] extension (/bin/tigers)] cat def (tigers.path = ) messagen tigers.path message /tigers { /arg1 set [/in-tigers /aa /n /m /inp] pushVariables [ /aa arg1 def aa length /m set aa 0 get length /n set [m toString ( ) n toString ( : ) ] aa { { toString ( ) } map } map flatten join cat /inp set [(/bin/rm -f ) tmp.tigers.out] cat system [tigers.path ( ) (") inp (") ( > ) tmp.tigers.out] cat system [(parse) tmp.tigers.out pushfile] extension pop /arg1 set ] pop popVariables arg1 } def