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

Diff for /OpenXM/src/kan96xx/Doc/httpd-rpc.sm1 between version 1.7 and 1.9

version 1.7, 2002/10/28 23:55:57 version 1.9, 2002/10/29 10:54:17
Line 1 
Line 1 
 %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.6 2002/10/28 08:57:28 takayama Exp $  %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.8 2002/10/29 00:19:56 takayama Exp $
 %% http server by sm1. Used for RPC.  Generic example.  %% http server by sm1. Used for RPC.  Generic example.
   
 [(parse) (httpd.sm1) pushfile] extension pop  [(parse) (httpd.sm1) pushfile] extension pop
Line 14  def
Line 14  def
   
 %%******* Put initialization codes for ox_asir here.  %%******* Put initialization codes for ox_asir here.
 /httpd.initialization  /httpd.initialization
  [   [(if(1){)
   (XM_debug=0; ctrl("debug_window",0); Xm_noX=1;)    (XM_debug=0; ctrl("debug_window",0); Xm_noX=1;)
   ("Asirweb version 0.80. "+    ("Asirweb version 0.80. "+
    " Risa/Asir oxasir version "+rtostr(version());)     " Risa/Asir oxasir version "+rtostr(version());)
     (};)
  ] cat   ] cat
 def  def
   
Line 217  oxNoX 
Line 218  oxNoX 
   } ifelse    } ifelse
    (<INPUT TYPE=submit VALUE="submit">) sendln     (<INPUT TYPE=submit VALUE="submit">) sendln
    [(<textarea name=) httpd.textarea.name     [(<textarea name=) httpd.textarea.name
     ( rows=10 cols="80" wrap="soft"></textarea>)] cat sendln      ( rows=7 cols="80" wrap="soft"></textarea>)] cat sendln
    (</FORM>) sendln     (</FORM>) sendln
   
   (Input example---factorization:<font color="blue"> fctr(x^3-1)</font>) sendln    (Input example---factorization:<font color="blue"> fctr(x^3-1)</font>) sendln
Line 236  oxNoX 
Line 237  oxNoX 
   [(You can also retrieve the result by GET /?) httpd.textarea.name (=) ( encoded_codes  HTTP/1.0)] cat    [(You can also retrieve the result by GET /?) httpd.textarea.name (=) ( encoded_codes  HTTP/1.0)] cat
   sendln    sendln
    (<br>) sendln     (<br>) sendln
    [$<a href="http://localhost:$ httpd.port toString     [$<a href="http://$ [(sm1.socket) (gethostname) []] extension
       $:$ httpd.port toString
     $/?msg=httpdAsirMeta+quit"> Shutdown the oxserver (and restart it). </a>$      $/?msg=httpdAsirMeta+quit"> Shutdown the oxserver (and restart it). </a>$
    ] cat sendln     ] cat sendln
    (<h3 align="right"><font color="gree">Powered by OpenXM and httpd on Kan/sm1 </font> </h3>_) sendln     (<h3 align="right"><font color="gree">Powered by OpenXM and httpd on Kan/sm1 </font> </h3>_) sendln
Line 347  oxNoX 
Line 349  oxNoX 
   arg1    arg1
 } def  } def
 /httpd.refusedCommands  /httpd.refusedCommands
    [(shell) (eval_str) (ox_) (sm1_) (m_)     [(shell) (eval_str) (ox_) (sm1_)
       (m_start) (m_N_) (m_Inverse) (m_TexForm) %(m_)
     (connect) (load)  (bload) (bsave)      (connect) (load)  (bload) (bsave)
     (end) (quit) (output) (bload27) (open)      (end) (quit) (output) (bload27) (open)
     (plot) (ctrl) (debug) (error) (port) (bind) (accept)      (plot) (ctrl) (debug) (error) (port) (bind) (accept)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.9
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>