[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.9 and 1.11

version 1.9, 2002/10/29 10:54:17 version 1.11, 2002/11/04 05:40:40
Line 1 
Line 1 
 %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.8 2002/10/29 00:19:56 takayama Exp $  %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.10 2002/11/03 12:43:03 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
   %% keyword for rpc
 /httpd.textarea.name (rpc) def  /httpd.textarea.name (rpc) def
 /httpd.textarea.name.aaa  /httpd.textarea.name.aaa
   [(GET /?) httpd.textarea.name] cat (array) dc    [(GET /?) httpd.textarea.name] cat (array) dc
 def  def
 /httpd.port 8090 def  
   [(getenv) (OXWEB_PORT)] extension tag 0 eq {
     (Default httpd port : ) messagen
     /httpd.port 8090 def
   } {
     /httpd.port [(getenv) (OXWEB_PORT)] extension .. (integer) dc def
   } ifelse
   (httpd.port = ) messagen httpd.port message
   
 /httpd.serial 0 def  /httpd.serial 0 def
   
 /httpd.oxasir.timer 1 def  %% 1 to use timer, but it accepts only one command  /httpd.oxasir.timer 1 def  %% 1 to use timer, but it accepts only one command
                            %% 0 not to use timer. It accepts programs.                             %% 0 not to use timer. It accepts programs.
   
   /httpd.title
     (<H1><font color="green">OpenXM/Risa/Asir Online</font></H2><br>)
   def
 %%******* Put initialization codes for ox_asir here.  %%******* Put initialization codes for ox_asir here.
 /httpd.initialization  /httpd.initialization
  [(if(1){)   [(if(1){)
Line 202  oxNoX 
Line 214  oxNoX 
   arg1    arg1
 } def  } def
   
    [
     (Input example---factorization:<font color="blue"> fctr(x^3-1)</font>)
     (<br>)
     [(<font color="blue">
       <a href=) httpd.asirman ( > AsirManual (En) </a> </font>, )] cat
     [(<font color="blue">
       <a href=) httpd.asirman.ja ( > AsirManual (Ja) </a> </font>)] cat
      httpd.oxasir.timer {
       (<br> It accepts only one command. The limit of CPU time is 30 seconds.
             <font color="red"> Do not put <font color="blue"> ; </font>
                                (semi-colon) after the command.
             </font>)
      }{ } ifelse
      (<br>)
     [(You can also retrieve the result by GET /?) httpd.textarea.name (=) ( encoded_codes  HTTP/1.0)]
      (<br>)
    ] cat /httpd.msg1 set
   
 /send-page-usage {  /send-page-usage {
   [/in-send-page-usage ] pushVariables    [/in-send-page-usage ] pushVariables
   [    [
Line 210  oxNoX 
Line 240  oxNoX 
    (Content-Type: text/html) sendln     (Content-Type: text/html) sendln
    0 sendln     0 sendln
   
   (<H1><font color="green">OpenXM/Risa/Asir Online</font></H2><br>) sendln    httpd.title sendln
   [(getenv) (OXWEB_POST)] extension tag 0 eq {    [(getenv) (OXWEB_POST)] extension tag 0 eq {
     (<FORM NAME="myFORM">) sendln  % use get      (<FORM NAME="myFORM">) sendln  % use get
   }{    }{
Line 221  oxNoX 
Line 251  oxNoX 
     ( rows=7 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     httpd.msg1 sendln
   (<br>) sendln  
   [(<font color="blue">  
     <a href=) httpd.asirman ( > AsirManual (En) </a> </font>, )] cat sendln  
   [(<font color="blue">  
     <a href=) httpd.asirman.ja ( > AsirManual (Ja) </a> </font>)] cat sendln  
    httpd.oxasir.timer {  
     (<br> It accepts only one command. The limit of CPU time is 30 seconds.  
           <font color="red"> Do not put <font color="blue"> ; </font>  
                              (semi-colon) after the command.  
           </font>) sendln  
    }{ } ifelse  
    (<br>) sendln  
   [(You can also retrieve the result by GET /?) httpd.textarea.name (=) ( encoded_codes  HTTP/1.0)] cat  
   sendln  
    (<br>) sendln  
    [$<a href="http://$ [(sm1.socket) (gethostname) []] extension     [$<a href="http://$ [(sm1.socket) (gethostname) []] extension
     $:$ httpd.port toString      $:$ httpd.port toString
     $/?msg=httpdAsirMeta+quit"> Shutdown the oxserver (and restart it). </a>$      $/?msg=httpdAsirMeta+quit"> Shutdown the oxserver (and restart it). </a>$
Line 258  oxNoX 
Line 274  oxNoX 
    (HTTP/0.9 200 OK) sendln     (HTTP/0.9 200 OK) sendln
    (Connection: close) sendln     (Connection: close) sendln
    [(Content-length: ) result length toString ] cat sendln     [(Content-length: ) result length toString ] cat sendln
    (Content-Type: text/plain) sendln     (Content-Type: text/html) sendln
      %(Content-Type: text/plain) sendln  % It does not work on some browsers.
    0 sendln     0 sendln
   
      (<html> <body> <pre>) sendln
    result sendln     result sendln
      (</pre> </body> </html>) sendln
    0 sendln     0 sendln
    [(flush)] extension     [(flush)] extension
   ] pop    ] pop
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>