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     ! 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: