version 1.8, 2001/08/22 03:23:25 |
version 1.10, 2001/12/28 08:05:44 |
|
|
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.7 2001/08/22 02:36:34 takayama Exp $
|
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox-win.sm1,v 1.9 2001/12/28 01:20:25 takayama Exp $
|
|
|
[(parse) (ox.sm1) pushfile] extension pop
|
/ox-win.sm1.loaded 1 def
|
|
(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
|
$ox-win.sm1, ---OpenXM protocol module for Microsoft Windows 08/22, 2001 (C) N.Takayama.$ message-quiet
|
|
|
Line 30 OpenXM_HOME_WIN tag 0 eq { |
|
Line 34 OpenXM_HOME_WIN tag 0 eq { |
|
/oxpath.null00-pure-sh ( 2>&1 >/dev/null) def %%TODO:It does not work in our case
|
/oxpath.null00-pure-sh ( 2>&1 >/dev/null) def %%TODO:It does not work in our case
|
|
|
/sm1connectr {
|
/sm1connectr {
|
|
[(getenv) (OSTYPE)] extension (cygwin) eq
|
|
{
|
|
sm1connectr_cygwin
|
|
}{
|
|
sm1connectr_win
|
|
}ifelse
|
|
} def
|
|
|
|
%% For cygwin
|
|
/sm1connectr_cygwin {
|
[/in-sm1connectr /pass /peer /data /control ] pushVariables
|
[/in-sm1connectr /pass /peer /data /control ] pushVariables
|
[
|
[
|
/pass [(oxGenPass)] extension def
|
/pass [(oxGenPass)] extension def
|
Line 39 OpenXM_HOME_WIN tag 0 eq { |
|
Line 53 OpenXM_HOME_WIN tag 0 eq { |
|
peer message
|
peer message
|
[(start ox ) ( -reverse -ox ) (/home/nobuki/OpenXM/src/kxx/ox_sm1.exe)
|
[(start 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 )
|
oxpath.null
|
oxpath.null
|
( )] cat system
|
( )] cat system
|
[(oxCreateClient2) peer 0 pass] extension /ox.ccc set
|
[(oxCreateClient2) peer 0 pass] extension /ox.ccc set
|
Line 49 OpenXM_HOME_WIN tag 0 eq { |
|
Line 64 OpenXM_HOME_WIN tag 0 eq { |
|
popVariables
|
popVariables
|
} def
|
} def
|
|
|
|
%% For Native windows system
|
/sm1connectr_win {
|
/sm1connectr_win {
|
[/in-sm1connectr /pass /peer /data /control ] pushVariables
|
[/in-sm1connectr /pass /peer /data /control ] pushVariables
|
[
|
[
|
Line 80 OpenXM_HOME_WIN tag 0 eq { |
|
Line 96 OpenXM_HOME_WIN tag 0 eq { |
|
popVariables
|
popVariables
|
} def
|
} def
|
|
|
|
%% Test
|
/asirconnectr_win {
|
/asirconnectr_win {
|
[/in-sm1connectr /pass /peer /data /control ] pushVariables
|
[/in-sm1connectr /pass /peer /data /control ] pushVariables
|
[
|
[
|