===================================================================
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