[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.1 and 1.10

version 1.1, 2001/12/21 03:00:41 version 1.10, 2002/01/09 11:19:25
Line 1 
Line 1 
 % $OpenXM$  % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.9 2002/01/09 11:08:02 takayama Exp $
 % It is empty for now.  % It is empty for now.
 %  %
 /oxasir.sm1.loaded 10 def  /oxasir.sm1.loaded 1 def
 (oxasir-win.sm1 is loaded.  It is an empty module for now.) message  (oxasir-win.sm1 (C) N.Takayama, 1/9, 2002) message
   
   [(getenv) (OPENXMHOMEWIN)] extension
   /OpenXM_HOME_WIN set
   OpenXM_HOME_WIN tag 0 eq {
     [(getenv) (OpenXM_HOME)] extension
     /OpenXM_HOME_WIN set
   } { } 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.
   [(getenv) (OSTYPE)] extension tag 0 eq {
     /oxasirpath.ostype (native-windows) def
   }{
     [(getenv) (OSTYPE)] extension /oxasirpath.ostype set
   } ifelse
   
   oxasirpath.ostype (cygwin) 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
   }{
    /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
   /asirconnectr {
    [(getenv) (OSTYPE)] extension tag 0 eq {
        asirconnectr_win
    }{
      [(getenv) (OSTYPE)] extension (cygwin) eq
      {
        asirconnectr_cygwin
      }{
        asirconnectr_win
      }ifelse
    } ifelse
   } def
   
   /asirconnectr_cygwin {
    [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables
    [
    /pass [(oxGenPass)] extension def
    /peer [(oxGetPort) (localhost)] extension def
    /data peer 1 get toString def
    /control peer 3 get toString def
    peer message
    [(start ) oxpath.ox ( -reverse -ox ) oxasirpath.oxasir
     ( -data ) data ( -control ) control  ( -pass ) pass
     ( -wait 5 )
     oxpath.null
    ] cat 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 {
    [/in-asirconnectr /pass /peer /data /control /oxasir] pushVariables
    [
    /pass [(oxGenPass)] extension def
    /peer [(oxGetPort) (localhost)] extension def
    /data peer 1 get toString def
    /control peer 3 get toString def
    peer message
   
   
    [(forkExec) [
       (start)
       oxpath.ox
       (-reverse)
       (-ox)
       oxasirpath.oxasir
       (-data)
        data
        (-control)
        control
        (-pass)
        pass
        (-wait)
        (5)
     ]
     [  ] 3] extension
   
    [(oxCreateClient2) peer 0 pass] extension /oxasir set
                        %% 0 means connect from only localhost.
    oxasir asirinit
    /arg1 oxasir def
    ] pop
    popVariables
    arg1
   } def
   
   %%
   

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.10

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>