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

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: