[BACK]Return to ox.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc

Diff for /OpenXM/src/kan96xx/Doc/ox.sm1 between version 1.54 and 1.56

version 1.54, 2006/03/03 00:43:02 version 1.56, 2006/12/21 05:29:49
Line 1 
Line 1 
 %%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.53 2006/02/25 09:11:10 takayama Exp $  %%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.55 2006/03/03 02:30:09 takayama Exp $
   
 /ox.sm1.myname (ox-new.sm1) def  /ox.sm1.myname (ox-new.sm1) def
   
Line 1712  oxasir.verbose {
Line 1712  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 1961  oxasir.verbose {
Line 2007  oxasir.verbose {
     cl oxgetsp /n set      cl oxgetsp /n set
     n tag 0 eq { /n 0 def } { } ifelse      n tag 0 eq { /n 0 def } { } ifelse
     n tag 15 eq { n (integer) dc /n set } { } ifelse      n tag 15 eq { n (integer) dc /n set } { } ifelse
     cl n oxpops pop      cl n oxpops
   ] pop    ] pop
   popVariables    popVariables
 } def  } def
Legend:
Removed from v.1.54  
changed lines
  Added in v.1.56
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>