`ox_reset',`ox_intr',`register_handler'
---------------------------------------

ox_reset(NUMBER)
     :: $B%W%m%;%9$N%j%;%C%H(B

ox_intr(NUMBER)
     :: $B%W%m%;%9$N$K(B `SIGINT' $BAwIU(B

register_handler(FUNC)
     :: $B%W%m%;%9$N%j%;%C%H$N$?$a$N4X?tEPO?(B

RETURN
     1

NUMBER
     $B?t(B ($B%W%m%;%9<1JL;R(B)

FUNC
     $B4X?t;R$^$?$O(B 0

   * `ox_reset()' $B$O(B, $B<1JL;R(B NUMBER $B$N%W%m%;%9$r%j%;%C%H$7(B, $B%3%^%s(B
     $B%I<u$1IU$1>uBV$K$9$k(B.

   * $B$=$N%W%m%;%9$,4{$K=q$-=P$7$?(B,
     $B$"$k$$$O8=:_=q$-=P$7Cf$N%G!<%?$,$"$k>l9g(B, $B$=$l$rA4ItFI$_=P$7(B,
     $B=PNO%P%C%U%!$r6u$K$7$?;~E@$GLa$k(B.

   * $B;R%W%m%;%9$,(B RUN $B>uBV$N>l9g$G$b(B,
     $B3d$j9~$_$K$h$j6/@)E*$K7W;;$r=*N;$5$;$k(B.

   * $BJ,;67W;;$r9T$&H!?t$N@hF,$G(B, $B;HMQ$9$k%W%m%;%9$KBP$7$F<B9T$9$k(B.
     $B$"$k$$$O(B $B7W;;ESCf$G$N6/@)CfCG$KMQ$$$k(B.

   * `ox_intr()' $B$O(B, $B<1JL;R(B NUMBER $B$N%W%m%;%9$r$KBP$7$F(B `SIGINT'
     $B$rAwIU$9$k(B. `SIGINT' $B$KBP$9$k%W%m%;%9$NF0:n$O(B $B5,Dj$5$l$F$$$J$$$,(B,
     `ox_asir' $B$N>l9g(B, $B$?$@$A$K(B debug mode $B$K(B $BF~$k(B. X
     $B>e$GF0:n$7$F$$$k>l9g(B, $B%G%P%C%0%3%^%s%IF~NOMQ$N%&%#%s%I%&$,(B
     $B%]%C%W%"%C%W$9$k(B.

   * `register_handler()' $B$O(B, `C-c' $B$J$I$K$h$k3d$j9~$_$N:]$K(B, `u'
     $B$r;XDj$9$k$3$H$G(B, $BL50z?t%f!<%6Dj5A4X?t(B FUNC() $B$,8F$S=P$5$l$k(B
     $B$h$&$K@_Dj$9$k(B. $B$3$N4X?t$K(B, `ox_reset()' $B$r8F$S=P$5$;$k$3$H$G(B,
     $B3d$j9~$_$N:]$K<+F0E*$K(B OpenXM server $B$N%j%;%C%H$r9T$&$3$H$,$G$-$k(B.

   * FUNC $B$K(B 0 $B$r;XDj$9$k$3$H$G(B, $B@_Dj$r2r=|$G$-$k(B.


     [10] ox_launch();
     0
     [11] ox_rpc(0,"fctr",x^100-y^100);
     0
     [12] ox_reset(0); /* xterm $B$N%&%#%s%I%&$K$O(B                             */
     1                 /* usr1 : return to toplevel by SIGUSR1 $B$,I=<($5$l$k(B. */

     [340] Procs=[ox_launch(),ox_launch()];
     [0,1]
     [341] def reset() { extern Procs; map(ox_reset,Procs);}
     [342] map(ox_rpc,Procs,"fctr",x^100-y^100);
     [0,0]
     [343] register_handler(reset);
     1
     [344] interrupt ?(q/t/c/d/u/w/?) u
     Abort this computation? (y or n) y
     Calling the registered exception handler...done.
     return to toplevel

$B;2>H(B
     *Note `ox_rpc ox_cmo_rpc ox_execute_string': ox_rpc ox_cmo_rpc
     ox_execute_string

