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

Diff for /OpenXM/src/kan96xx/Doc/ox-win.sm1 between version 1.7 and 1.9

version 1.7, 2001/08/22 02:36:34 version 1.9, 2001/12/28 01:20:25
Line 1 
Line 1 
 %%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.6 2001/08/12 03:13:35 takayama Exp $  %%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.8 2001/08/22 03:23:25 takayama Exp $
   
 [(parse) (ox.sm1) pushfile] extension pop  /ox-win.sm1.loaded 1 def
   /ox.sm1.loaded boundp {
   }{
     [(parse) (ox.sm1) pushfile] extension pop
   } ifelse
   
 $ox-win.sm1, ---OpenXM protocol module for Microsoft Windows 08/22, 2001  (C) N.Takayama.$ message-quiet  $ox-win.sm1, ---OpenXM protocol module for Microsoft Windows 08/22, 2001  (C) N.Takayama.$ message-quiet
   
Line 21  OpenXM_HOME_WIN tag 0 eq { 
Line 25  OpenXM_HOME_WIN tag 0 eq { 
 %% This is used in asirconnectr_win  %% This is used in asirconnectr_win
 /OX_LAUNCH (c:\home\asir\bin\ox_launch.exe) def  /OX_LAUNCH (c:\home\asir\bin\ox_launch.exe) def
 %%%%%%%%%%%%%%% end configuration  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  %%%%%%%%%%%%%%% end configuration  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   
 /oxpath.ox (bin/ox.exe) def  /oxpath.ox (bin/ox.exe) def
 /oxpath.oxsm1 (bin/ox_sm1.exe) def  /oxpath.oxsm1 (bin/ox_sm1.exe) def
 /oxpath.oxlog (bin/oxlog.exe) def  /oxpath.oxlog (bin/oxlog.exe) def
Line 30  OpenXM_HOME_WIN tag 0 eq { 
Line 33  OpenXM_HOME_WIN tag 0 eq { 
 /oxpath.null00  ( >& /dev/null ) def  %%cf. oxNoX  /oxpath.null00  ( >& /dev/null ) def  %%cf. oxNoX
 /oxpath.null00-pure-sh ( 2>&1 >/dev/null) def %%TODO:It does not work in our case  /oxpath.null00-pure-sh ( 2>&1 >/dev/null) def %%TODO:It does not work in our case
   
   /sm1connectr {
      [(getenv) (OSTYPE)] extension (cygwin) eq
      {
        sm1connectr_cygwin
      }{
        sm1connectr_win
      }ifelse
   } def
   
   %% For cygwin
   /sm1connectr_cygwin {
    [/in-sm1connectr /pass /peer /data /control ] pushVariables
    [
    /pass [(oxGenPass)] extension def
    /peer [(oxGetPort) (localhost)] extension def
    /data peer 1 get toString def
    /control peer 3 get toString def
    peer message
    [(start ox ) ( -reverse -ox ) (/home/nobuki/OpenXM/src/kxx/ox_sm1.exe)
     ( -data ) data ( -control ) control  ( -pass ) pass
     ( -wait 2 )
     oxpath.null
     ( )] cat system
    [(oxCreateClient2) peer 0 pass] extension /ox.ccc set
                        %% 0 means connect from only localhost.
    (The server is binded to the variable ox.ccc) message
     ox.ccc.init
    ] pop
    popVariables
   } def
   
   %% For Native windows system
 /sm1connectr_win {  /sm1connectr_win {
  [/in-sm1connectr /pass /peer /data /control ] pushVariables   [/in-sm1connectr /pass /peer /data /control ] pushVariables
  [   [
Line 40  OpenXM_HOME_WIN tag 0 eq { 
Line 75  OpenXM_HOME_WIN tag 0 eq { 
  peer message   peer message
  [(forkExec) [   [(forkExec) [
     (c:/windows/command/start)      (c:/windows/command/start)
     [OpenXM_HOME_WIN  (/bin/ox)] cat      [OpenXM_HOME_WIN  (\bin\ox)] cat
     (-reverse)      (-reverse)
     (-ox)      (-ox)
     [OpenXM_HOME_WIN (/bin/ox_sm1.exe)] cat      [OpenXM_HOME_WIN (\bin\ox_sm1.exe)] cat
     (-data)      (-data)
      data       data
      (-control)       (-control)
Line 61  OpenXM_HOME_WIN tag 0 eq { 
Line 96  OpenXM_HOME_WIN tag 0 eq { 
  popVariables   popVariables
 } def  } def
   
   %% Test
 /asirconnectr_win {  /asirconnectr_win {
  [/in-sm1connectr /pass /peer /data /control ] pushVariables   [/in-sm1connectr /pass /peer /data /control ] pushVariables
  [   [
Line 91  OpenXM_HOME_WIN tag 0 eq { 
Line 127  OpenXM_HOME_WIN tag 0 eq { 
  popVariables   popVariables
 } def  } def
   
 initializePathNamesForOx  %% This should be  %% Skip it. initializePathNamesForOx  
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>