[BACK]Return to phc.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc

Diff for /OpenXM/src/kan96xx/Doc/phc.sm1 between version 1.1 and 1.2

version 1.1, 1999/10/08 02:12:02 version 1.2, 2002/04/24 00:31:58
Line 1 
Line 1 
   %% $OpenXM$
 %%  1999/sm1-prog/phc.sm1  %%  1999/sm1-prog/phc.sm1
   
 /tmp.phc.out (tmp.phc.out) def  /tmp.phc.out (tmp.phc.out) def
   
   [(ostype)] extension  0 get (windows) eq {
     [(getenv) (OPENXMHOMEWIN)] extension
     /@@@.phc.path set
     @@@.phc.path tag 0 eq {
       [(getenv) (OpenXM_HOME)] extension
       /@@@.phc.path set
     } { } ifelse
     @@@.phc.path tag 0 eq {
       [(getenv) (OPENXM_HOME)] extension
       /@@@.phc.path set
     } { } ifelse
     @@@.phc.path tag 0 eq {
       %% Hard encoding:
       /@@@.phc.path (\OpenXM-win) def
     }{ } ifelse
   }{
     [(getenv) (OpenXM_HOME)] extension /@@@.phc.path set
   } ifelse
   
   
 /phc {  /phc {
   /arg1 set    /arg1 set
   [/in-phc  /eqs /n /cstr /nl /phc.path] pushVariables    [/in-phc  /eqs /n /cstr /nl ] pushVariables
   [    [
     /eqs arg1 def      /eqs arg1 def
     /n eqs length def      /n eqs length def
     /nl 10 (string) dc def      /nl 10 (string) dc def
     %%/nl (\n) def      %%/nl (\n) def
     [(getenv) (OpenXM_HOME)] extension /phc.path set  
      [(/bin/rm -f ) tmp.phc.out] cat system       [(/bin/rm -f ) tmp.phc.out] cat system
      [(echo "Phc=" > ) tmp.phc.out] cat system       [(echo "Phc=" > ) tmp.phc.out] cat system
     [phc.path      [@@@.phc.path
      (/bin/phc6 -i )       (/bin/phc6 -i )
      (")       (")
      n toString   nl       n toString   nl
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>