[BACK]Return to ox-win.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc

Diff for /OpenXM/src/kan96xx/Doc/ox-win.sm1 between version 1.10 and 1.17

version 1.10, 2001/12/28 08:05:44 version 1.17, 2002/07/31 01:03:02
Line 1 
Line 1 
 %%%%%%%%%%%  $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.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 {
        sm1connectr_win
    }{
    [(getenv) (OSTYPE)] extension (cygwin) eq     [(getenv) (OSTYPE)] extension (cygwin) eq
    {     {
      sm1connectr_cygwin       sm1connectr_cygwin
    }{     }{
      sm1connectr_win       sm1connectr_win
    }ifelse     }ifelse
    } ifelse
 } def  } def
   
 %% For cygwin  %% For cygwin
Line 51  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 73  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
Line 97  OpenXM_HOME_WIN tag 0 eq { 
Line 149  OpenXM_HOME_WIN tag 0 eq { 
 } def  } def
   
 %% Test  %% Test
 /asirconnectr_win {  /asirconnectr_win_test {
  [/in-sm1connectr /pass /peer /data /control ] pushVariables   [/in-sm1connectr /pass /peer /data /control ] pushVariables
  [   [
  /pass [ ] cat def  %% Do not use one time password.   /pass [ ] cat def  %% Do not use one time password.
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.17
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>