[BACK]Return to tigers.sm1 CVS log [TXT][DIR] 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, 7 months ago) by maekawa
Branch: OpenXM, MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_20000124, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9, ALPHA
Changes since 1.1: +0 -0 lines 

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