=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/ox.sm1,v retrieving revision 1.4 retrieving revision 1.7 diff -u -p -r1.4 -r1.7 --- OpenXM/src/kan96xx/Doc/ox.sm1 1999/11/04 12:08:43 1.4 +++ OpenXM/src/kan96xx/Doc/ox.sm1 2000/01/19 06:41:02 1.7 @@ -1,4 +1,4 @@ -%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.3 1999/11/03 00:45:43 takayama Exp $ +%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.6 1999/11/18 08:08:23 takayama Exp $ %%%%%%%%%%%% Configuration: Specify your server path %%%%% ox, ox_sm1, oxlog are contained in kxx.tgz %%%%% These should be under /usr/local/lib/sm1 or LOAD_SM1_PATH @@ -7,7 +7,8 @@ /oxpath.oxlog (bin/oxlog) def /oxpath.xterm (/usr/X11R6/bin/xterm -icon -e ) def /oxpath.null ( ) def -/oxpath.null00 ( >& /dev/null ) def %% cf oxNoX +/oxpath.null00 ( >& /dev/null ) def %%cf. oxNoX +/oxpath.null00-pure-sh ( 2>&1 >/dev/null) def %%TODO:It does not work in our case %%%%%%%%%%%%% The following is used only for sm1connectr-ssh. %%%%%%%%%%%%% Configure path for ox and ox_sm1 on your remote machine. /oxpath.oxlog.xterm-ssh (/home/taka/OpenXM/bin/oxlog /usr/X11R6/bin/xterm -icon -e ) def @@ -52,7 +53,7 @@ ox.version [(Version)] system_variable gt (Please get it from http://www.math.kobe-u.ac.jp/KAN) message error } { } ifelse -(ox.sm1, --- open sm1 protocol module 10/1,1999 (C) N.Takayama. oxhelp for help) message-quiet +(ox.sm1, --- open sm1 protocol module 11/11,1999 (C) N.Takayama. oxhelp for help) message-quiet /ox.ccc load isArray { } @@ -160,13 +161,13 @@ ox.verbose { oxhelp } { } ifelse /sm1connect2 { [oxpath.oxlog.xterm oxpath.ox ( -ox ) oxpath.oxsm1 oxpath.null - ( &)] cat system + ( &)] cat system-csh % (kterm -iconic -e /home/nobuki/kxx/ox -ox /home/nobuki/kxx/ox_sm1 &) system % For MSRI, or Eterm, %(xterm -icon -e /u/nobuki/tmp/kxx/ox -ox /u/nobuki/tmp/Ox/ox_sm1 &) system (If you start the server automatically, you may have a trouble to) message (oxreset. In order to avoid this trouble, start the server by hand.) message - (sleep 5) system + (sleep 5) system-csh [(localhost) 1300 1200] oxconnect /ox.ccc set (The server is binded to the variable ox.ccc) message ox.ccc.init @@ -176,13 +177,13 @@ ox.verbose { oxhelp } { } ifelse [oxpath.oxlog.xterm oxpath.ox ( -ox ) oxpath.oxsm1 ( -data 2300 -control 2200 ) oxpath.null - ( &)] cat system -% (kterm -iconic -e /home/nobuki/kxx/ox -ox /home/nobuki/kxx/ox_sm1 -data 2300 -control 2200 &) system + ( &)] cat system-csh +% (kterm -iconic -e /home/nobuki/kxx/ox -ox /home/nobuki/kxx/ox_sm1 -data 2300 -control 2200 &) system-csh % For MSRI -%(xterm -icon -e /u/nobuki/tmp/kxx/ox -ox /u/nobuki/tmp/Ox/ox_sm1 -data 2300 -control 2200&) system +%(xterm -icon -e /u/nobuki/tmp/kxx/ox -ox /u/nobuki/tmp/Ox/ox_sm1 -data 2300 -control 2200&) system-csh (If you start the server automatically, you may have a trouble to) message (oxreset. In order to avoid this trouble, start the server by hand.) message - (sleep 5) system + (sleep 5) system-csh [(localhost) 2300 2200] oxconnect /ox.ccc2 set (The server is binded to the variable ox.ccc2) message } def @@ -193,8 +194,8 @@ ox.verbose { oxhelp } { } ifelse [oxpath.oxlog.xterm oxpath.ox ( -ox ) oxpath.oxsm1 ( -portfile ) ox.ccc.portfile oxpath.null - ( &)] cat system - (sleep 5) system + ( &)] cat system-csh + (sleep 5) system-csh [(oxReadPortFile) ox.ccc.portfile] extension /ox.ccc.control set ox.ccc.control message [(localhost) ox.ccc.control 1200] /ox.ccc set @@ -484,7 +485,7 @@ def /exhausted 0 def % clear the busy flag. /busy [1 1 enginesN { pop 0 } for ] def - (date) system + (date) system-csh {{ exhausted 0 eq { 0 1 enginesN 1 sub { @@ -513,7 +514,7 @@ def } { } ifelse } for } loop } timer - (date) system + (date) system-csh (result is in result) message (Number of s-pairs checked is ) messagen result length message } def @@ -585,7 +586,7 @@ ox.verbose { [oxpath.oxlog.xterm oxpath.ox ( -reverse -ox ) oxpath.oxsm1 ( -data ) data ( -control ) control ( -pass ) pass oxpath.null - ( &)] cat system + ( &)] cat system-csh [(oxCreateClient2) peer 0 pass] extension /ox.ccc set %% 0 means connect from only localhost. (The server is binded to the variable ox.ccc) message @@ -617,7 +618,7 @@ ox.verbose { ] cat /comm set (Executing the command : ) messagen comm message message comm system - (sleep 5) system + (sleep 5) system-csh [(oxCreateClient2) peer 1 pass] extension /your-peer set /arg1 your-peer def ] pop @@ -695,6 +696,19 @@ ox.verbose { } { } ifelse } { } ifelse + %% Else first try to find it in OpenXM_HOME + [(getenv) (OpenXM_HOME)] extension /tname set + tname isString + { + tname addSlash /tname set + [tname (lib/sm1/)] cat /tname set + [(stat) [tname fname] cat] extension + 0 get isInteger %% The file was found. + { /fullname [tname fname] cat def + /getPathNameSm1.LLL goto + } { } ifelse + } { } ifelse + %% Else try to find it in /usr/local/lib/sm1 [(stat) [(/usr/local/lib/sm1/) fname] cat] extension 0 get isInteger %% The file was found. @@ -707,6 +721,9 @@ ox.verbose { ( could not be found ) (neigher in LOAD_SM1_PATH=) [(getenv) (LOAD_SM1_PATH)] extension + ( nor in OpenXM_HOME/lib/sm1=) + [(getenv) (OpenXM_HOME)] extension + (/lib/sm1) ( nor in /usr/local/lib/sm1) ] cat /getPathNameSm1.errorMessage set getPathNameSm1.errorMessage message @@ -721,8 +738,9 @@ ox.verbose { [(getPathNameSm1) [([fname] getPathNameSm1 fullname) (string fname, fullname) - (This command searches the fname in /usr/local/lib/sm1 and LOAD_SM1_PATH) - (and returns the fullname.) + (This command searches the fname in LOAD_SM1_PATH, ) + (OpenXM_HOME/lib/sm1, and /usr/local/lib/sm1) + (It returns the fullname.) ]] putUsages /getPathNameAsir { @@ -757,9 +775,11 @@ ox.verbose { } { } ifelse %% Otherwise error. - [ (getPathNameAsir: The file ) fname + [ (getPathNameAsir: The file ) + fname (ox_asir) eq + {(ox\_asir)} { fname }ifelse ( could not be found ) - (neigher in /usr/local/lib/asir nor in ASIR_LIBDIR. ) + (neigher in /usr/local/lib/asir nor in ASIR\_LIBDIR. ) ] cat /getPathNameAsir.errorMessage set getPathNameAsir.errorMessage message ] pop popVariables getPathNameAsir.errorMessage error @@ -821,7 +841,7 @@ ox.verbose { ] cat /comm set (Executing the command : ) messagen comm message message comm system - (sleep 5) system + (sleep 5) system-csh [(oxCreateClient2) peer 1 pass] extension /your-peer set /arg1 your-peer def ] pop @@ -847,7 +867,18 @@ ox.verbose { $ ] ox_launch_nox /@@@.oxmath set $ ]] putUsages - +/system-csh { + /arg1 set + [/in-system-csh /com /com2] pushVariables + [ + /com arg1 def + [(/bin/csh -c ") com (")] cat + /com2 set + %%com2 message + com2 system + ] pop + popVariables +} def initializePathNamesForOx %% This should be