[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.1 and 1.2

version 1.1, 2002/10/23 13:38:50 version 1.2, 2002/10/24 02:12:34
Line 1 
Line 1 
 %% $OpenXM$  %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.1 2002/10/23 13:38:50 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 9  def
Line 9  def
 /httpd.port 8090 def  /httpd.port 8090 def
 /httpd.serial 0 def  /httpd.serial 0 def
   
 /httpd.image.name (kobeuniv2.jpg) def  %%******* Put initialization codes for ox_asir here.
   /httpd.initialization
    [
     (XM_debug=0; ctrl("debug_window",0); Xm_noX=1;)
     ("Asirweb version 0.80. "+
      " Risa/Asir oxasir version "+rtostr(version());)
    ] cat
   def
   
   
 [(parse) (oxasir.sm1) pushfile] extension  [(parse) (oxasir.sm1) pushfile] extension
Line 20  oxNoX 
Line 27  oxNoX 
   [(x^2-1) (x)] fctr pop    [(x^2-1) (x)] fctr pop
   oxasir.ccc oxmathcap    oxasir.ccc oxmathcap
   oxasir.ccc oxsetmathcap    oxasir.ccc oxsetmathcap
     oxasir.ccc httpd.initialization oxexecutestring ;
     (Initialization returns ...: ) messagen
     oxasir.ccc oxpopcmo message ;
 } ifelse  } ifelse
   
 /webrpc  {  /webrpc  {
Line 60  oxNoX 
Line 70  oxNoX 
        [(sm1.socket) (select) [httpd.server.fd 0 get -1]] extension         [(sm1.socket) (select) [httpd.server.fd 0 get -1]] extension
        %%     wait for ever         %%     wait for ever
         [(sm1.socket) (readHTTP) [httpd.server.fd 0 get ]] extension /ff set          [(sm1.socket) (readHTTP) [httpd.server.fd 0 get ]] extension /ff set
         ff length 0 eq {          ff tag 0 eq {
            (connection is closed.) message             (connection is closed.) message exit
         }          }
         {          {
           (------------  start ----------------------) message            (------------  start ----------------------) message
Line 71  oxNoX 
Line 81  oxNoX 
              [(httpd.com=) httpd.com] cat message               [(httpd.com=) httpd.com] cat message
           (------------  end ----------------------) message            (------------  end ----------------------) message
           (   ) message            (   ) message
           httpd.serial 0 eq {  
             /httpd.com  httpd.initialization def  
           } { } ifelse  
           httpd.com metaCommand {            httpd.com metaCommand {
             httpd.textarea.valid {              httpd.textarea.valid {
   
Line 120  oxNoX 
Line 128  oxNoX 
             httpd.result message              httpd.result message
             (----------------------------------) message              (----------------------------------) message
             (  ) message              (  ) message
   
               (----------- error -------------) message
             err message              err message
               (-------------------------------) message
             err [ ] eq  {              err [ ] eq  {
             } {              } {
               oxasir.ccc cleanErrors                oxasir.ccc cleanErrors
Line 215  oxNoX 
Line 225  oxNoX 
   popVariables    popVariables
 } def  } def
   
 %%******* Put initialization codes for ox_asir here.  %% **** Overwrites the definition in httpd.sm1
 /httpd.initialization  /httpd_startserver {
  [     (httpd server accessible outside localhost.) message
   (XM_debug=0; ctrl("debug_window",0); Xm_noX=1;)     %%  get the hostname of this machine.
   ("Asirweb version 0.80. "+     [(sm1.socket) (open) [httpd.port
    " Risa/Asir oxasir version "+rtostr(version());)                           [(sm1.socket) (gethostname) [ ] ]extension ] ]
  ] cat      extension
 def     /httpd.server.fdAndPort set
      (sm1.socket.open returns  ) messagen httpd.server.fdAndPort message
      [(sm1.socket) (accept) [httpd.server.fdAndPort 0 get]] extension
      /httpd.server.fd set
      (connected.) message
      (sm1.socket.accept returns <httpd.server.fd> ) messagen
      httpd.server.fd message
   
   } def
   
 %% ******* sample of cooked command  %% ******* sample of cooked command
 /cookedCommand {  /cookedCommand {
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>