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

Diff for /OpenXM/src/kan96xx/Doc/oxasir-win.sm1 between version 1.7 and 1.14

version 1.7, 2001/12/28 08:45:30 version 1.14, 2002/08/03 06:02:35
Line 1 
Line 1 
 % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.6 2001/12/28 08:33:20 takayama Exp $  % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.13 2002/07/31 02:57:37 takayama Exp $
 % It is empty for now.  % It is empty for now.
 %  %
 /oxasir.sm1.loaded 1 def  /oxasir.sm1.loaded 1 def
 (oxasir-win.sm1 (C) N.Takayama, 12/28, 2001) message  (oxasir-win.sm1 (C) N.Takayama, 1/9, 2002) message
   
 %% Set constants for windows.  [(getenv) (OPENXMHOMEWIN)] extension
 /oxasirpath.oxasir  /OpenXM_HOME_WIN set
   [ [(getenv) (OpenXM_HOME)] extension  OpenXM_HOME_WIN tag 0 eq {
     (/bin/ox_asir) ] cat    [(getenv) (OpenXM_HOME)] extension
 % (\OpenXM-win\bin\ox_asir)    /OpenXM_HOME_WIN set
 def  } { } ifelse
 /oxasirpath.asirlib  OpenXM_HOME_WIN tag 0 eq {
   [ [(getenv) (OpenXM_HOME)] extension    %% Hard encoding:
     (/lib/sm1/oxasir.asir) ] cat    /OpenXM_HOME_WIN
 % (/OpenXM-win/lib/sm1/oxasir.asir)  %% asir understand only / notations.     (\OpenXM-win)
 def  %  (\cygwin\home\nobuki\OpenXM\misc\packages\Windows\OpenXM-win)
 /oxpath.ox    def
 %%  (\OpenXM-win\bin\ox.exe)  } { } ifelse
   (ox)  
 def  
   ox.ostype 1 get (cygwin) eq {
     /oxasirpath.oxasir
       [ (c:/cygwin) OpenXM_HOME_WIN
         (/bin/ox_asir) ] cat
     def
     /oxasirpath.asirlib
       [ [(getenv) (OpenXM_HOME)] extension
         (/lib/sm1/oxasir.asir) ] cat
     def
     /oxpath.ox
       (ox)
     def
   }{ } ifelse
   
   ox.ostype 1 get (xcygwin) eq {
     /oxasirpath.oxasir
       [ [(getenv) (OpenXM_HOME)] extension
         (/bin/ox_asir) ] cat
     def
     /oxasirpath.asirlib
       [ [(getenv) (OpenXM_HOME)] extension
         (/lib/sm1/oxasir.asir) ] cat
     def
     /oxpath.ox
       (ox)
     def
   }{ } ifelse
   
   ox.ostype 1 get (native) eq {
    /oxasirpath.oxasir
     [ OpenXM_HOME_WIN
       (\bin\ox_asir) ] cat
    def
    /oxasirpath.asirlib
     [ OpenXM_HOME_WIN
       (/lib/sm1/oxasir.asir)
     ] cat
    def
    /oxpath.ox
     [ OpenXM_HOME_WIN
       (\bin\ox.exe)
     ] cat
    def
   }{ } ifelse
 %% Override asirconnectr  %% Override asirconnectr
   
 /asirconnectr {  /asirconnectr {
  [(getenv) (OSTYPE)] extension tag 0 eq {    ox.ostype 1 get (cygwin) eq {
      asirconnectr_win      asirconnectr_cygwin
  }{    }{ } ifelse
    [(getenv) (OSTYPE)] extension (cygwin) eq    ox.ostype 1 get (xcygwin) eq {
    {      asirconnectr_xcygwin
      asirconnectr_cygwin    }{ } ifelse
    }{    ox.ostype 1 get (native) eq {
      asirconnectr_win      asirconnectr_win
    }ifelse    }{ } ifelse
  } ifelse  
 } def  } def
   
 /asirconnectr_cygwin {  /asirconnectr_cygwin {
  [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables   [/in-asirconnectr /pass /peer /data /control /oxasir /sss ] pushVariables
  [   [
  /pass [(oxGenPass)] extension def   /pass [(oxGenPass)] extension def
  /peer [(oxGetPort) (localhost)] extension def   /peer [(oxGetPort) (localhost)] extension def
  /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   [ox.win.start { ( ) } map cat ox_backslash_to_slash
     ( 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
  ] cat system   ] cat /sss set
    sss message sss system
  [(oxCreateClient2) peer 0 pass] extension /oxasir set   [(oxCreateClient2) peer 0 pass] extension /oxasir set
                      %% 0 means connect from only localhost.                       %% 0 means connect from only localhost.
  oxasir asirinit   oxasir asirinit
Line 55  def
Line 102  def
  arg1   arg1
 } def  } def
   
   /asirconnectr_xcygwin {
    [/in-asirconnectr /pass /peer /data /control /oxasir /sss ] pushVariables
    [
    /pass [(oxGenPass)] extension def
    /peer [(oxGetPort) (localhost)] extension def
    /data peer 1 get toString def
    /control peer 3 get toString def
    peer message
    [(oxlog /usr/X11R6/bin/xterm -iconic -e )
     ( ox ) ( -reverse -ox )
     oxasirpath.oxasir
     ( -data ) data ( -control ) control  ( -pass ) pass
     ( -wait 5 )
     oxpath.null
    ] cat /sss set
    sss message sss system
    [(oxCreateClient2) peer 0 pass] extension /oxasir set
                        %% 0 means connect from only localhost.
    oxasir asirinit
    /arg1 oxasir def
    ] pop
    popVariables
    arg1
   } def
   
 /asirconnectr_win {  /asirconnectr_win {
  [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables   [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables
  [   [
Line 64  def
Line 136  def
  /control peer 3 get toString def   /control peer 3 get toString def
  peer message   peer message
   
  /oxasirpath.asirlib  
    (/OpenXM-win/lib/sm1/oxasir.asir)  
  def  
   
  [(forkExec) [   [(forkExec) [
     (start)      ox.win.start   aload pop
     (\OpenXM-win\bin\ox.exe)      oxpath.ox
     (-reverse)      (-reverse)
     (-ox)      (-ox)
     (\OpenXM-win\bin\ox_asir)      oxasirpath.oxasir
     (-data)      (-data)
      data       data
      (-control)       (-control)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.14
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>