Return to tigers.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

Annotation of OpenXM/src/kan96xx/Doc/tigers.sm1, Revision 1.1.1.1

1.1       maekawa     1: %% tigers.sm1
                      2: /tmp.tigers.out (tmp.tigers.out) def
                      3: /tigers.path [[(getenv) (OpenXM_HOME)] extension (/bin/tigers)] cat def
                      4: (tigers.path = ) messagen tigers.path message
                      5: /tigers {
                      6:   /arg1 set
                      7:   [/in-tigers /aa /n /m /inp] pushVariables
                      8:   [
                      9:      /aa arg1 def
                     10:      aa length  /m set
                     11:      aa 0 get length /n set
                     12:      [m toString ( ) n toString ( : ) ]
                     13:      aa { { toString ( ) } map } map flatten
                     14:      join cat /inp set
                     15:      [(/bin/rm -f ) tmp.tigers.out] cat system
                     16:      [tigers.path ( ) (") inp (") ( > ) tmp.tigers.out] cat system
                     17:      [(parse) tmp.tigers.out pushfile] extension pop
                     18:      /arg1 set
                     19:   ] pop
                     20:   popVariables
                     21:   arg1
                     22: } def
                     23:
                     24: