![]() ![]() | ![]() |
version 1.10, 2002/01/09 11:19:25 | version 1.13, 2002/07/31 02:57:37 | ||
---|---|---|---|
|
|
||
% $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.9 2002/01/09 11:08:02 takayama Exp $ | % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.12 2002/07/29 05:02:58 takayama Exp $ | ||
% It is empty for now. | % It is empty for now. | ||
% | % | ||
/oxasir.sm1.loaded 1 def | /oxasir.sm1.loaded 1 def | ||
|
|
||
%% Set constants for windows. | %% Set constants for windows. | ||
[(getenv) (OSTYPE)] extension tag 0 eq { | [(getenv) (OSTYPE)] extension tag 0 eq { | ||
/oxasirpath.ostype (native-windows) def | /oxasir.ostype (native-windows) def | ||
}{ | }{ | ||
[(getenv) (OSTYPE)] extension /oxasirpath.ostype set | [(getenv) (OSTYPE)] extension /oxasir.ostype set | ||
} ifelse | } ifelse | ||
oxasirpath.ostype (cygwin) eq { | oxasir.ostype (cygwin) eq { | ||
/oxasirpath.oxasir | /oxasirpath.oxasir | ||
[ [(getenv) (OpenXM_HOME)] extension | [ [(getenv) (OpenXM_HOME)] extension | ||
(/bin/ox_asir) ] cat | (/bin/ox_asir) ] cat | ||
|
|
||
/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 ) oxpath.ox ( -reverse -ox ) oxasirpath.oxasir | [oxpath.xterm | ||
oxpath.ox ( -reverse -ox ) oxasirpath.oxasir | |||
( -data ) data ( -control ) control ( -pass ) pass | ( -data ) data ( -control ) control ( -pass ) pass | ||
( -wait 5 ) | ( -wait 5 ) | ||
oxpath.null | oxpath.null | ||
|
|
||
[(forkExec) [ | [(forkExec) [ | ||
(start) | ox.win.start aload pop | ||
oxpath.ox | oxpath.ox | ||
(-reverse) | (-reverse) | ||
(-ox) | (-ox) |