| version 1.12, 2001/12/28 08:18:23 |
version 1.17, 2002/07/31 01:03:02 |
|
|
| %%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.11 2001/12/28 08:09:38 takayama Exp $
|
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.16 2002/07/29 08:32:03 takayama Exp $
|
|
|
|
| |
(ox-win.start.noiconic) boundp {
|
| |
/ox-win.start.iconic 0 def
|
| |
}{
|
| |
/ox-win.start.iconic 1 def
|
| |
} ifelse
|
| |
|
| /ox-win.sm1.loaded 1 def
|
/ox-win.sm1.loaded 1 def
|
| (ox.sm1.loaded) boundp {
|
(ox.sm1.loaded) boundp {
|
| }{
|
}{
|
| [(parse) (ox.sm1) pushfile] extension pop
|
[(parse) (ox.sm1) pushfile] extension pop
|
| } ifelse
|
} 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 1/9, 2002 (C) N.Takayama.$ message-quiet
|
|
|
|
| %%%%%%%%%%%% Configuration: Specify your server path
|
%%%%%%%%%%%% Configuration: Specify your server path
|
| %%%%% ox, ox_sm1, oxlog are contained in kxx.tgz
|
%%%%% ox, ox_sm1, oxlog are contained in kxx.tgz
|
| Line 21 OpenXM_HOME_WIN tag 0 eq { |
|
| Line 27 OpenXM_HOME_WIN tag 0 eq { |
|
| [(getenv) (OpenXM_HOME)] extension
|
[(getenv) (OpenXM_HOME)] extension
|
| /OpenXM_HOME_WIN set
|
/OpenXM_HOME_WIN set
|
| } { } ifelse
|
} { } ifelse
|
| |
OpenXM_HOME_WIN tag 0 eq {
|
| |
%% Hard encoding:
|
| |
/OpenXM_HOME_WIN
|
| |
(\OpenXM-win)
|
| |
% (\cygwin\home\nobuki\OpenXM\misc\packages\Windows\OpenXM-win)
|
| |
def
|
| |
} { } ifelse
|
|
|
|
| |
/ox.win.set.start {
|
| |
[(stat) (c:\windows\system32\cmd.exe)] extension 0 get
|
| |
0 eq {
|
| |
/ox.win.start [(c:\windows\system32\cmd.exe) (/c) (start)
|
| |
ox-win.start.iconic { (/min) } { } ifelse ] def
|
| |
}{
|
| |
[(stat) (c:\winnt\system32\cmd.exe)] extension 0 get
|
| |
0 eq {
|
| |
/ox.win.start [(c:\winnt\system32\cmd.exe) (/c) (start)
|
| |
ox-win.start.iconic { (/min) } { } ifelse ] def
|
| |
}{
|
| |
/ox.win.start [ (start) ox-win.start.iconic { (/min) } { } ifelse ] def
|
| |
} ifelse
|
| |
} ifelse
|
| |
} def
|
| |
ox.win.set.start
|
| |
|
| %% 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
|
%% Set constants for windows.
|
| /oxpath.oxsm1 (bin/ox_sm1.exe) def
|
[(getenv) (OSTYPE)] extension tag 0 eq {
|
| /oxpath.oxlog (bin/oxlog.exe) def
|
/ox.ostype (native-windows) def
|
| /oxpath.xterm (start ) def
|
}{
|
| /oxpath.null ( ) def
|
[(getenv) (OSTYPE)] extension /ox.ostype set
|
| /oxpath.null00 ( >& /dev/null ) def %%cf. oxNoX
|
} ifelse
|
| /oxpath.null00-pure-sh ( 2>&1 >/dev/null) def %%TODO:It does not work in our case
|
|
|
|
|
| |
ox.ostype (cygwin) eq {
|
| |
/oxpath.ox (bin/ox.exe) def
|
| |
/oxpath.oxsm1 (bin/ox_sm1.exe) def
|
| |
/oxpath.oxlog (bin/oxlog.exe) def
|
| |
/oxpath.xterm ox.win.start { ( ) } map cat 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
|
| |
}{
|
| |
/oxpath.ox
|
| |
[ OpenXM_HOME_WIN
|
| |
(\bin\ox.exe)
|
| |
] cat
|
| |
def
|
| |
} ifelse
|
| |
|
| /sm1connectr {
|
/sm1connectr {
|
| [(getenv) (OSTYPE)] extension tag 0 eq {
|
[(getenv) (OSTYPE)] extension tag 0 eq {
|
| sm1connectr_win
|
sm1connectr_win
|
| Line 55 OpenXM_HOME_WIN tag 0 eq { |
|
| Line 100 OpenXM_HOME_WIN tag 0 eq { |
|
| /data peer 1 get toString def
|
/data peer 1 get toString def
|
| /control peer 3 get toString def
|
/control peer 3 get toString def
|
| peer message
|
peer message
|
| [(start ox ) ( -reverse -ox ) (/home/nobuki/OpenXM/src/kxx/ox_sm1.exe)
|
[ox.win.start aload pop
|
| |
( ox ) ( -reverse -ox ) (/home/nobuki/OpenXM/src/kxx/ox_sm1.exe)
|
| ( -data ) data ( -control ) control ( -pass ) pass
|
( -data ) data ( -control ) control ( -pass ) pass
|
| ( -wait 2 )
|
( -wait 2 )
|
| oxpath.null
|
oxpath.null
|
| Line 77 OpenXM_HOME_WIN tag 0 eq { |
|
| Line 123 OpenXM_HOME_WIN tag 0 eq { |
|
| /data peer 1 get toString def
|
/data peer 1 get toString def
|
| /control peer 3 get toString def
|
/control peer 3 get toString def
|
| peer message
|
peer message
|
| |
(Hello ) message
|
| [(forkExec) [
|
[(forkExec) [
|
| (c:/windows/command/start)
|
ox.win.start aload pop
|
| [OpenXM_HOME_WIN (\bin\ox)] cat
|
%%(c:\windows\system32\cmd.exe) (/c) (start)
|
| |
oxpath.ox
|
| (-reverse)
|
(-reverse)
|
| (-ox)
|
(-ox)
|
| [OpenXM_HOME_WIN (\bin\ox_sm1.exe)] cat
|
[OpenXM_HOME_WIN (\bin\ox_sm1.exe)] cat
|
![[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