| version 1.2, 2001/12/28 01:20:26 |
version 1.15, 2003/07/21 07:32:00 |
|
|
| % $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.1 2001/12/21 03:00:41 takayama Exp $ |
% $OpenXM: OpenXM/src/kan96xx/Doc/oxasir-win.sm1,v 1.14 2002/08/03 06:02:35 takayama Exp $ |
| % It is empty for now. |
[(parse) (ox.sm1) pushfile] extension |
| % |
|
| /oxasir.sm1.loaded 1 def |
|
| (oxasir-win.sm1 (C) N.Takayama, 12/17, 2001) message |
|
| |
|
| %% Set constants for windows. |
|
| /oxasirpath.oxasir |
|
| [ [(getenv) (OpenXM_HOME)] extension |
|
| (/bin/ox_asir) ] cat |
|
| % (\OpenXM-win\bin\ox_asir) |
|
| def |
|
| /oxasirpath.asirlib |
|
| [ [(getenv) (OpenXM_HOME)] extension |
|
| (/lib/sm1/oxasir.asir) ] cat |
|
| % (\OpenXM-win\lib\sm1\oxasir.asir) |
|
| def |
|
| /oxpath.ox |
|
| %% (\OpenXM-win\bin\ox.exe) |
|
| (ox) |
|
| def |
|
| %% Override asirconnectr |
|
| /asirconnectr { |
|
| [/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 |
|
| |
|
| %% |
|
| |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to oxasir-win.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Doc