version 1.55, 2006/03/03 02:30:09 |
version 1.59, 2015/08/03 21:12:54 |
|
|
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.54 2006/03/03 00:43:02 takayama Exp $ |
%%%%%%%%%%% $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.58 2013/09/19 10:15:11 takayama Exp $ |
|
|
/ox.sm1.myname (ox-new.sm1) def |
/ox.sm1.myname (ox-new.sm1) def |
|
|
Line 54 ox.version [(Version)] system_variable gt |
|
Line 54 ox.version [(Version)] system_variable gt |
|
/Xm_noX 1 def |
/Xm_noX 1 def |
} def |
} def |
|
|
|
(@@@.monitor) boundp { |
|
}{ |
|
/@@@.monitor ( ) def |
|
} ifelse |
|
|
|
/oxMonitor { |
|
/@@@.monitor ( -monitor ) def |
|
} def |
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%% basic functions for OX-RFC 100 |
%%% basic functions for OX-RFC 100 |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
Line 118 ox.version [(Version)] system_variable gt |
|
Line 126 ox.version [(Version)] system_variable gt |
|
$ ex 2. (ox.sm1) run oxNoX (x^2-1). fctr pmat ; $ |
$ ex 2. (ox.sm1) run oxNoX (x^2-1). fctr pmat ; $ |
$ $ |
$ $ |
$cf. extension-oxLog $ |
$cf. extension-oxLog $ |
|
(oxMonitor : ox_sm1 server outputs packet dumps.) |
|
$ ex 1. (ox.sm1) run oxMonitor sm1connectr $ |
] |
] |
] putUsages |
] putUsages |
|
|
Line 687 ox.verbose { oxhelp } { } ifelse |
|
Line 697 ox.verbose { oxhelp } { } ifelse |
|
@@@.quiet { ( -quiet ) } { } ifelse |
@@@.quiet { ( -quiet ) } { } ifelse |
Xm_noX { ( -nox ) } { } ifelse |
Xm_noX { ( -nox ) } { } ifelse |
Xm_engineLogToStdout { ( -nox -engineLogToStdout ) } { } ifelse %bug.onlyForsm1 |
Xm_engineLogToStdout { ( -nox -engineLogToStdout ) } { } ifelse %bug.onlyForsm1 |
( -oxserver bin/ox_sm1 -e ) ( -reverse ) |
( -oxserver bin/ox_sm1 -e ) ( -reverse ) @@@.monitor |
( -data ) data ( -control ) control pass [1 2] get |
( -data ) data ( -control ) control pass [1 2] get |
( )] cat execve |
( )] cat execve |
[(oxCreateClient2) peer 0 pass 0 get] extension /oxsm1.ccc set |
[(oxCreateClient2) peer 0 pass 0 get] extension /oxsm1.ccc set |
Line 743 ox.verbose { oxhelp } { } ifelse |
|
Line 753 ox.verbose { oxhelp } { } ifelse |
|
[(sm1connectr-ssh) |
[(sm1connectr-ssh) |
[([hostname login-name] sm1connectr-ssh client) |
[([hostname login-name] sm1connectr-ssh client) |
(Starting oxpath.oxsm1-ssh by the launcher oxpath.ox-ssh on the "hostname".) |
(Starting oxpath.oxsm1-ssh by the launcher oxpath.ox-ssh on the "hostname".) |
(cf. oxNoX ) |
(cf. oxNoX ox ) |
(Set the following varialbes to appropriate values:) |
(Set the following varialbes to appropriate values:) |
(oxpath.oxlog.xterm-ssh oxpath.oxsm1-ssh oxpath.ox-ssh myhostname-ssh ) |
(oxpath.oxlog.xterm-ssh oxpath.oxsm1-ssh oxpath.ox-ssh myhostname-ssh ) |
$Example 1: $ |
$Example 1: $ |
Line 796 ox.verbose { oxhelp } { } ifelse |
|
Line 806 ox.verbose { oxhelp } { } ifelse |
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%% Aux functions for ox_asir |
%%% Aux functions for ox_asir |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
/ox_asirConnectMethod { asirconnectr /oxasir.ccc set } def |
/ox_asirConnectMethod { |
|
asirconnectr /oxasir.ccc set |
|
[(getenv) (OX_ASIR_LOAD_FILE)] extension tag 0 eq { 0 } |
|
{ /oxasir.loadfile [$load("$[(getenv) (OX_ASIR_LOAD_FILE)] extension $");$] |
|
cat def |
|
oxasir.ccc oxasir.loadfile oxsubmit |
|
oxasir.ccc oxpopcmo } ifelse |
|
} def |
/oxasir.loadmethod 1 def %% "..." oxsendcmo (load) ox... |
/oxasir.loadmethod 1 def %% "..." oxsendcmo (load) ox... |
/oxasir.verbose 0 def |
/oxasir.verbose 0 def |
/oxasir.ccc load isArray |
/oxasir.ccc load isArray |
Line 1712 oxasir.verbose { |
|
Line 1729 oxasir.verbose { |
|
$ [1 2 ] ] asir.wgr $ |
$ [1 2 ] ] asir.wgr $ |
]] putUsages |
]] putUsages |
|
|
|
/print_tex_form.aux { |
|
/arg1 set |
|
[/f /ans] pushVariables |
|
[ |
|
arg1 /f set |
|
[(UseDsmall)] system_variable /vv set |
|
[(UseDsmall) 1] system_variable |
|
f isArray { |
|
f { print_tex_form.aux } map /ans set |
|
}{ |
|
[$quote($, f toString, $) $] cat /ans set |
|
} ifelse |
|
[(UseDsmall) vv] system_variable |
|
ans /arg1 set |
|
] pop |
|
popVariables |
|
arg1 |
|
} def |
|
|
|
/print_tex_form { |
|
/arg1 set |
|
[/f /comm /vv] pushVariables |
|
[(CurrentRingp)] pushEnv |
|
[ |
|
/f arg1 def |
|
oxasir.ccc [ ] eq { |
|
(Starting ox_asir server.) message |
|
ox_asirConnectMethod |
|
} { } ifelse |
|
|
|
oxasir.ccc ( quotetotex_env("conv_rule",7); ) oxsubmit |
|
oxasir.ccc oxpopcmo ; |
|
|
|
f print_tex_form.aux /f set |
|
[$ print_tex_form($, f $); $] cat /comm set |
|
oxasir.ccc comm oxsubmit |
|
oxasir.ccc oxpopcmo /arg1 set |
|
] pop |
|
popEnv |
|
popVariables |
|
arg1 |
|
} def |
|
|
|
[(print_tex_form) |
|
[ (obj print_tex_form str) |
|
]] putUsages |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%% functions to start ox_asir |
%%% functions to start ox_asir |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |
Line 1849 oxasir.verbose { |
|
Line 1912 oxasir.verbose { |
|
[(where),[(shell), (length)]], |
[(where),[(shell), (length)]], |
[(reason_of_error), (invalid argument)], |
[(reason_of_error), (invalid argument)], |
[(asir_where),[[(toplevel),10],[(string),(foo),3],[(string),(hoge),-1]] |
[(asir_where),[[(toplevel),10],[(string),(foo),3],[(string),(hoge),-1]] |
] |
]] |
/i1 set |
/i1 set |
%% /translateErrorForCfep.sampleInput set |
%% /translateErrorForCfep.sampleInput set |
|
|