[BACK]Return to oxasir-win.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc

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

version 1.2, 2001/12/28 01:20:26 version 1.7, 2001/12/28 08:45:30
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.6 2001/12/28 08:33:20 takayama Exp $
 % It is empty for now.  % It is empty for now.
 %  %
 /oxasir.sm1.loaded 1 def  /oxasir.sm1.loaded 1 def
 (oxasir-win.sm1 (C) N.Takayama, 12/17, 2001) message  (oxasir-win.sm1 (C) N.Takayama, 12/28, 2001) message
   
 %% Set constants for windows.  %% Set constants for windows.
 /oxasirpath.oxasir  /oxasirpath.oxasir
Line 13  def
Line 13  def
 /oxasirpath.asirlib  /oxasirpath.asirlib
   [ [(getenv) (OpenXM_HOME)] extension    [ [(getenv) (OpenXM_HOME)] extension
     (/lib/sm1/oxasir.asir) ] cat      (/lib/sm1/oxasir.asir) ] cat
 % (\OpenXM-win\lib\sm1\oxasir.asir)  % (/OpenXM-win/lib/sm1/oxasir.asir)  %% asir understand only / notations.
 def  def
 /oxpath.ox  /oxpath.ox
 %%  (\OpenXM-win\bin\ox.exe)  %%  (\OpenXM-win\bin\ox.exe)
Line 21  def
Line 21  def
 def  def
 %% Override asirconnectr  %% Override asirconnectr
 /asirconnectr {  /asirconnectr {
    [(getenv) (OSTYPE)] extension tag 0 eq {
        asirconnectr_win
    }{
      [(getenv) (OSTYPE)] extension (cygwin) eq
      {
        asirconnectr_cygwin
      }{
        asirconnectr_win
      }ifelse
    } ifelse
   } def
   
   /asirconnectr_cygwin {
  [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables   [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables
  [   [
  /pass [(oxGenPass)] extension def   /pass [(oxGenPass)] extension def
Line 33  def
Line 46  def
   ( -wait 5 )    ( -wait 5 )
   oxpath.null    oxpath.null
  ] cat system   ] 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   [(oxCreateClient2) peer 0 pass] extension /oxasir set
                      %% 0 means connect from only localhost.                       %% 0 means connect from only localhost.
  oxasir asirinit   oxasir asirinit
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>