[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.3 and 1.12

version 1.3, 2001/12/28 03:33:21 version 1.12, 2002/07/29 05:02:58
Line 1 
Line 1 
 % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.2 2001/12/28 01:20:26 takayama Exp $  % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.11 2002/01/13 06:55:30 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/17, 2001) 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.  %% Set constants for windows.
   [(getenv) (OSTYPE)] extension tag 0 eq {
     /oxasir.ostype (native-windows) def
   }{
     [(getenv) (OSTYPE)] extension /oxasir.ostype set
   } ifelse
   
   oxasir.ostype (cygwin) eq {
 /oxasirpath.oxasir  /oxasirpath.oxasir
   [ [(getenv) (OpenXM_HOME)] extension    [ [(getenv) (OpenXM_HOME)] extension
     (/bin/ox_asir) ] cat      (/bin/ox_asir) ] cat
 % (\OpenXM-win\bin\ox_asir)  
 def  def
 /oxasirpath.asirlib  /oxasirpath.asirlib
   [ [(getenv) (OpenXM_HOME)] extension    [ [(getenv) (OpenXM_HOME)] extension
     (/lib/sm1/oxasir.asir) ] cat      (/lib/sm1/oxasir.asir) ] cat
 % (\OpenXM-win\lib\sm1\oxasir.asir)  
 def  def
 /oxpath.ox  /oxpath.ox
 %%  (\OpenXM-win\bin\ox.exe)  
   (ox)    (ox)
 def  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  %% Override asirconnectr
 /asirconnectr {  /asirconnectr {
    [(getenv) (OSTYPE)] extension tag 0 eq {
        asirconnectr_win
    }{
    [(getenv) (OSTYPE)] extension (cygwin) eq     [(getenv) (OSTYPE)] extension (cygwin) eq
    {     {
      asirconnectr_cygwin       asirconnectr_cygwin
    }{     }{
      asirconnectr_win       asirconnectr_win
    }ifelse     }ifelse
    } ifelse
 } def  } def
   
 /asirconnectr_cygwin {  /asirconnectr_cygwin {
Line 37  def
Line 76  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   aload pop
     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
Line 60  def
Line 100  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.3  
changed lines
  Added in v.1.12
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>