Return to phc.sm1 CVS log

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

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

1.2     ! takayama    1: %% $OpenXM$
1.1       maekawa     2: %%  1999/sm1-prog/phc.sm1
                      3:
                      4: /tmp.phc.out (tmp.phc.out) def
                      5:
1.2     ! takayama    6: [(ostype)] extension  0 get (windows) eq {
        !             7:   [(getenv) (OPENXMHOMEWIN)] extension
        !             8:   /@@@.phc.path set
        !             9:   @@@.phc.path tag 0 eq {
        !            10:     [(getenv) (OpenXM_HOME)] extension
        !            11:     /@@@.phc.path set
        !            12:   } { } ifelse
        !            13:   @@@.phc.path tag 0 eq {
        !            14:     [(getenv) (OPENXM_HOME)] extension
        !            15:     /@@@.phc.path set
        !            16:   } { } ifelse
        !            17:   @@@.phc.path tag 0 eq {
        !            18:     %% Hard encoding:
        !            19:     /@@@.phc.path (\OpenXM-win) def
        !            20:   }{ } ifelse
        !            21: }{
        !            22:   [(getenv) (OpenXM_HOME)] extension /@@@.phc.path set
        !            23: } ifelse
        !            24:
        !            25:
1.1       maekawa    26: /phc {
                     27:   /arg1 set
1.2     ! takayama   28:   [/in-phc  /eqs /n /cstr /nl ] pushVariables
1.1       maekawa    29:   [
                     30:     /eqs arg1 def
                     31:     /n eqs length def
                     32:     /nl 10 (string) dc def
                     33:     %%/nl (\n) def
                     34:      [(/bin/rm -f ) tmp.phc.out] cat system
                     35:      [(echo "Phc=" > ) tmp.phc.out] cat system
1.2     ! takayama   36:     [@@@.phc.path
1.1       maekawa    37:      (/bin/phc6 -i )
                     38:      (")
                     39:      n toString   nl
                     40:      eqs { toString ( ; ) nl } map
                     41:      (")
                     42:      ( >> ) tmp.phc.out
                     43:     ] flatten cat /cstr set
                     44:     cstr message
                     45:     cstr system
                     46:     [(echo "$ end$" >> ) tmp.phc.out] cat system
                     47:     %%[(parse) (tmp.phc.out) pushfile] extension pop
                     48:     tmp.phc.out pushfile
                     49:     /arg1 set
                     50:   ] pop
                     51:   popVariables
                     52:   arg1
                     53: } def
                     54:
                     55:
                     56:
                     57: