=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/phc.sm1,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -u -p -r1.1.1.1 -r1.2 --- OpenXM/src/kan96xx/Doc/phc.sm1 1999/10/08 02:12:02 1.1.1.1 +++ OpenXM/src/kan96xx/Doc/phc.sm1 2002/04/24 00:31:58 1.2 @@ -1,19 +1,39 @@ +%% $OpenXM$ %% 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 /phc.path] pushVariables + [/in-phc /eqs /n /cstr /nl ] 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 + [@@@.phc.path (/bin/phc6 -i ) (") n toString nl