version 1.9, 2002/01/09 11:08:02 |
version 1.13, 2002/07/31 02:57:37 |
|
|
% $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.8 2002/01/09 10:52:42 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 |
Line 10 OpenXM_HOME_WIN tag 0 eq { |
|
Line 10 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 |
|
|
|
|
%% 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) |