OpenXM/src/kan96xx/Doc/oxasir-win.sm1 - diff

Return to oxasir-win.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

Diff for /OpenXM/src/kan96xx/Doc/oxasir-win.sm1 between version 1.2 and 1.3

-version 1.2, 2001/12/28 01:20:26
+version 1.3, 2001/12/28 03:33:21
 Line 1
 Line 1
 Line 1
- % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.1 2001/12/21 03:00:41 takayama Exp $
+ % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.2 2001/12/28 01:20:26 takayama Exp $
  % It is empty for now.
  %
  /oxasir.sm1.loaded 1 def
 Line 21  def
 Line 21  def
 Line 21  def
  def
  %% Override asirconnectr
  /asirconnectr {
+    [(getenv) (OSTYPE)] extension (cygwin) eq
+    {
+      asirconnectr_cygwin
+    }{
+      asirconnectr_win
+    }ifelse
+ } def
+ /asirconnectr_cygwin {
   [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables
   [
   /pass [(oxGenPass)] extension def
-Line 33  def
+Line 42  def
 Line 33  def
 Line 42  def
    ( -wait 5 )
    oxpath.null
   ] cat system
+  [(oxCreateClient2) peer 0 pass] extension /oxasir set
+                      %% 0 means connect from only localhost.
+  oxasir asirinit
+  /arg1 oxasir def
+  ] pop
+  popVariables
+  arg1
+ } def
+ /asirconnectr_win {
+  [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables
+  [
+  /pass [(oxGenPass)] extension def
+  /peer [(oxGetPort) (localhost)] extension def
+  /data peer 1 get toString def
+  /control peer 3 get toString def
+  peer message
+  /oxasirpath.asirlib
+    (\OpenXM-win\lib\sm1\oxasir.asir)
+  def
+  [(forkExec) [
+     (start)
+     (\OpenXM-win\bin\ox.exe)
+     (-reverse)
+     (-ox)
+     (\OpenXM-win\bin\ox_asir)
+     (-data)
+      data
+      (-control)
+      control
+      (-pass)
+      pass
+      (-wait)
+      (5)
+   ]
+   [  ] 3] extension
   [(oxCreateClient2) peer 0 pass] extension /oxasir set
                       %% 0 means connect from only localhost.
   oxasir asirinit

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>