[BACK]Return to phc.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc
File: [local] / OpenXM / src / kan96xx / Doc / phc.sm1 (download)

Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:02 1999 UTC (24 years, 8 months ago) by maekawa
Branch: OpenXM
CVS Tags: maekawa-ipv6, RELEASE_20000124, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, ALPHA
Changes since 1.1: +0 -0 lines 

o import OpenXM sources

%%  1999/sm1-prog/phc.sm1

/tmp.phc.out (tmp.phc.out) def

/phc {
  /arg1 set
  [/in-phc  /eqs /n /cstr /nl /phc.path] pushVariables
  [
    /eqs arg1 def
    /n eqs length def
    /nl 10 (string) dc def
    %%/nl (\n) def
    [(getenv) (OpenXM_HOME)] extension /phc.path set
     [(/bin/rm -f ) tmp.phc.out] cat system
     [(echo "Phc=" > ) tmp.phc.out] cat system
    [phc.path
     (/bin/phc6 -i )
     (")
     n toString   nl
     eqs { toString ( ; ) nl } map
     (")
     ( >> ) tmp.phc.out
    ] flatten cat /cstr set
    cstr message
    cstr system
    [(echo "$ end$" >> ) tmp.phc.out] cat system
    %%[(parse) (tmp.phc.out) pushfile] extension pop
    tmp.phc.out pushfile
    /arg1 set
  ] pop
  popVariables
  arg1
} def