[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.22

version 1.7, 2001/08/22 02:36:34 version 1.22, 2003/07/21 07:31:59
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.21 2002/10/01 13:00:33 takayama Exp $
   
 [(parse) (ox.sm1) pushfile] extension pop  [(parse) (ox.sm1) pushfile] extension
   
 $ox-win.sm1, ---OpenXM protocol module for Microsoft Windows 08/22, 2001  (C) N.Takayama.$ message-quiet  
   
 %%%%%%%%%%%% Configuration: Specify your server path  
 %%%%% ox, ox_sm1, oxlog are contained in kxx.tgz  
 %%%%% These should be under /usr/local/lib/sm1 or LOAD_SM1_PATH  
   
 %% This variable is used in sm1connectr_win  
 %% It should be set, for example, to c:/cygwin/home/nobuki/OpenXM  
 %% See  kan96xx/win/websm1.bat  
 [(getenv) (OPENXMHOMEWIN)] extension  
 /OpenXM_HOME_WIN set  
 OpenXM_HOME_WIN tag 0 eq {  
   [(getenv) (OpenXM_HOME)] extension  
   /OpenXM_HOME_WIN set  
 } { } ifelse  
   
 %% This is used in asirconnectr_win  
 /OX_LAUNCH (c:\home\asir\bin\ox_launch.exe) def  
 %%%%%%%%%%%%%%% end configuration  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%  
   
 /oxpath.ox (bin/ox.exe) def  
 /oxpath.oxsm1 (bin/ox_sm1.exe) def  
 /oxpath.oxlog (bin/oxlog.exe) def  
 /oxpath.xterm (start ) def  
 /oxpath.null  (  ) def  
 /oxpath.null00  ( >& /dev/null ) def  %%cf. oxNoX  
 /oxpath.null00-pure-sh ( 2>&1 >/dev/null) def %%TODO:It does not work in our case  
   
 /sm1connectr_win {  
  [/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  
  [(forkExec) [  
     (c:/windows/command/start)  
     [OpenXM_HOME_WIN  (/bin/ox)] cat  
     (-reverse)  
     (-ox)  
     [OpenXM_HOME_WIN (/bin/ox_sm1.exe)] cat  
     (-data)  
      data  
      (-control)  
      control  
      (-pass)  
      pass  
   ]  
   [  ] 3] extension  
   
  [(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  
   
 /asirconnectr_win {  
  [/in-sm1connectr /pass /peer /data /control ] pushVariables  
  [  
  /pass [ ] cat def  %% Do not use one time password.  
  /peer [(oxGetPort) (localhost)] extension def  
  /data peer 1 get toString def  
  /control peer 3 get toString def  
  peer message  
  [control data] message  
  [(forkExec)  
   [OX_LAUNCH  
    (ox_launch)  
    (localhost)  
    (0)  
    control toString  
    data toString  
    (ox_asir)  
    (1)  
   ]  
   [ ]  
   7 %% 1 1 1  
  ] extension ;  
  [(oxCreateClient2) peer 0 pass] extension /oxasir.ccc set  
                      %% 0 means connect from only localhost.  
  (The server is binded to the variable oxasir.ccc) message  
   %% Initialization code for asir.  
  ] pop  
  popVariables  
 } def  
   
 initializePathNamesForOx  %% This should be  
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.22
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>