[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.2, Wed Apr 24 00:31:58 2002 UTC (22 years, 1 month ago) by takayama
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9
Changes since 1.1: +23 -3 lines 

A change to get the value of environmental variables properly on windows.

%% $OpenXM: OpenXM/src/kan96xx/Doc/phc.sm1,v 1.2 2002/04/24 00:31:58 takayama Exp $
%%  1999/sm1-prog/phc.sm1

/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 {
  /arg1 set
  [/in-phc  /eqs /n /cstr /nl ] pushVariables
  [
    /eqs arg1 def
    /n eqs length def
    /nl 10 (string) dc def
    %%/nl (\n) def
     [(/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