===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v
retrieving revision 1.9
retrieving revision 1.12
diff -u -p -r1.9 -r1.12
--- OpenXM/src/kan96xx/Doc/oxasir-win.sm1	2002/01/09 11:08:02	1.9
+++ OpenXM/src/kan96xx/Doc/oxasir-win.sm1	2002/07/29 05:02:58	1.12
@@ -1,4 +1,4 @@
-% $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.8 2002/01/09 10:52:42 takayama Exp $
+% $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.11 2002/01/13 06:55:30 takayama Exp $
 % It is empty for now.
 %
 /oxasir.sm1.loaded 1 def
@@ -10,16 +10,23 @@ OpenXM_HOME_WIN tag 0 eq {
   [(getenv) (OpenXM_HOME)] extension
   /OpenXM_HOME_WIN set
 } { } ifelse
+OpenXM_HOME_WIN tag 0 eq {
+  %% Hard encoding:
+  /OpenXM_HOME_WIN
+   (\OpenXM-win)
+%  (\cygwin\home\nobuki\OpenXM\misc\packages\Windows\OpenXM-win)    
+  def
+} { } ifelse
 
 
 %% Set constants for windows.
 [(getenv) (OSTYPE)] extension tag 0 eq {
-  /oxasirpath.ostype (native-windows) def
+  /oxasir.ostype (native-windows) def
 }{
-  [(getenv) (OSTYPE)] extension /oxasirpath.ostype set
+  [(getenv) (OSTYPE)] extension /oxasir.ostype set
 } ifelse
 
-oxasirpath.ostype (cygwin) eq {
+oxasir.ostype (cygwin) eq {
 /oxasirpath.oxasir  
   [ [(getenv) (OpenXM_HOME)] extension
     (/bin/ox_asir) ] cat
@@ -69,7 +76,8 @@ def
  /data peer 1 get toString def
  /control peer 3 get toString def
  peer message
- [(start ) oxpath.ox ( -reverse -ox ) oxasirpath.oxasir
+ [ox.win.start   aload pop 
+  oxpath.ox ( -reverse -ox ) oxasirpath.oxasir
   ( -data ) data ( -control ) control  ( -pass ) pass 
   ( -wait 5 )
   oxpath.null
@@ -94,7 +102,7 @@ def
 
 
  [(forkExec) [
-    (start)
+    ox.win.start   aload pop 
     oxpath.ox
     (-reverse)
     (-ox)