OpenXM/src/kan96xx/Doc/ox.sm1 - diff

Return to ox.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

Diff for /OpenXM/src/kan96xx/Doc/ox.sm1 between version 1.21 and 1.22

-version 1.21, 2002/11/08 14:18:00
+version 1.22, 2003/01/01 02:03:41
 Line 1
 Line 1
 Line 1
- %%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.20 2002/08/03 06:02:35 takayama Exp $
+ %%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.21 2002/11/08 14:18:00 takayama Exp $
  /ox.sm1.loaded 1 def
  %%%%%%%%%%%% Configuration: Specify your server path
 Line 46
 Line 46
 Line 46
     oxpath.oxlog.xterm message
  } def
- /ox.ccc.init { ox.ccc ( [(oxPrintMessage) 0] extension pop ) oxsubmit } def
+ /ox.ccc.init {
+    ox.ccc ( [(oxPrintMessage) 0] extension pop ) oxsubmit
+    (Ox103_loaded) boundp
+    { ox.ccc ox103_sm1_init }
+    { }  ifelse
+ } def
  /ox.verbose 0   def
  /ox.version (2.981105) def
-Line 1103  ox.verbose {
+Line 1108  ox.verbose {
 Line 1103  ox.verbose {
 Line 1108  ox.verbose {
   [(oxGetClientList)] extension
   { dup oxIsInterruptable { oxreset } { pop } ifelse } map
  } def
+ /oxrpc2 {
+   /arg2 set
+   /arg1 set
+  [/in-oxrpc2 /pid /n /comm /i] pushVariables
+  [
+    /pid arg1 def
+    /comm arg2 def
+    /n comm length def
+    n 1 sub -1 1 {
+        /i set
+        pid comm i get oxsendcmo
+    } for
+    pid n 1 sub oxsendcmo
+    pid comm 0 get oxexec
+  ] pop
+  popVariables
+ } def
+ [(oxrpc2)
+   [(Remote procedure call by using oxexec)
+    (client [function-name  arg1 arg2 ...] oxrpc2 )
+    (cf. ox-cmo-rpc in Risa/Asir)
+    (Example: )
+    $ (oxasir.sm1) run (x^2-1). fctr $
+    (oxasir.ccc [(igcd) (6).. (10)..] oxrpc2)
+    (oxasir.ccc oxpopcmo :: )
+   ]
+ ] putUsages
  [(ostype)] extension  0 get
  (windows) eq {

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