Return to phc.sm1 CVS log

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

Annotation of OpenXM/src/kan96xx/Doc/phc.sm1, Revision 1.1

1.1     ! maekawa     1: %%  1999/sm1-prog/phc.sm1
        !             2:
        !             3: /tmp.phc.out (tmp.phc.out) def
        !             4:
        !             5: /phc {
        !             6:   /arg1 set
        !             7:   [/in-phc  /eqs /n /cstr /nl /phc.path] pushVariables
        !             8:   [
        !             9:     /eqs arg1 def
        !            10:     /n eqs length def
        !            11:     /nl 10 (string) dc def
        !            12:     %%/nl (\n) def
        !            13:     [(getenv) (OpenXM_HOME)] extension /phc.path set
        !            14:      [(/bin/rm -f ) tmp.phc.out] cat system
        !            15:      [(echo "Phc=" > ) tmp.phc.out] cat system
        !            16:     [phc.path
        !            17:      (/bin/phc6 -i )
        !            18:      (")
        !            19:      n toString   nl
        !            20:      eqs { toString ( ; ) nl } map
        !            21:      (")
        !            22:      ( >> ) tmp.phc.out
        !            23:     ] flatten cat /cstr set
        !            24:     cstr message
        !            25:     cstr system
        !            26:     [(echo "$ end$" >> ) tmp.phc.out] cat system
        !            27:     %%[(parse) (tmp.phc.out) pushfile] extension pop
        !            28:     tmp.phc.out pushfile
        !            29:     /arg1 set
        !            30:   ] pop
        !            31:   popVariables
        !            32:   arg1
        !            33: } def
        !            34:
        !            35:
        !            36:
        !            37: