| version 1.10, 2001/12/28 08:05:44 |
version 1.22, 2003/07/21 07:31:59 |
|
|
| %%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.9 2001/12/28 01:20:25 takayama Exp $
|
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.21 2002/10/01 13:00:33 takayama Exp $
|
|
|
|
| /ox-win.sm1.loaded 1 def
|
[(parse) (ox.sm1) pushfile] extension
|
| (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
|
|
|
|
|
| %%%%%%%%%%%% 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 {
|
|
| [(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 {
|
|
| [/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
|
|
|
|
|
| %% Test
|
|
| /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
|
|
|
|
|
| %% Skip it. initializePathNamesForOx
|
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ox-win.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Doc