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

Diff for /OpenXM/src/kan96xx/Doc/httpd-asir.sm1 between version 1.5 and 1.6

version 1.5, 2001/04/21 13:54:29 version 1.6, 2001/04/22 00:34:01
Line 1 
Line 1 
 %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.4 2001/04/21 11:16:30 takayama Exp $  %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.5 2001/04/21 13:54:29 takayama Exp $
 %% http server by sm1  %% http server by sm1
   
 /httpd.port 1200 def  /httpd.port 1200 def
Line 12  def
Line 12  def
 [(parse) (oxasir.sm1) pushfile] extension  [(parse) (oxasir.sm1) pushfile] extension
 (oxasir.started) boundp {  (oxasir.started) boundp {
 } {  } {
     %% Initialize oxasir.
   [(x^2-1) (x)] fctr pop    [(x^2-1) (x)] fctr pop
   oxasir.ccc oxmathcap    oxasir.ccc oxmathcap
   oxasir.ccc oxsetmathcap    oxasir.ccc oxsetmathcap
 } ifelse  } ifelse
   
 /asirweb {  /asirweb {
   (sleep 3; netscape -geometry 800x500 http://localhost:1200 &) system    [(sleep 3; netscape -geometry 800x500 http://localhost:)
       httpd.port toString
      ( &)] cat system
    httpd ;     httpd ;
 } def  } def
   
Line 69  def
Line 72  def
   
 /httpd_action {  /httpd_action {
   [/in-httpd /ff /httpd.com /httpd.result /sss    [/in-httpd /ff /httpd.com /httpd.result /sss
    /sss.engine /sss.web     /sss.engine /sss.web /err
   ] pushVariables    ] pushVariables
   [    [
   {    {
Line 91  def
Line 94  def
             /httpd.com  httpd.initialization def              /httpd.com  httpd.initialization def
           } { } ifelse            } { } ifelse
           httpd.com metaCommand {            httpd.com metaCommand {
             /httpd.history  
                 httpd.history  
                 [10 (string) dc  
                  (/**** ) httpd.serial toString ( ****/)  
                  10 (string) dc  
                   httpd.com  
                  ] cat  
                 append  
             def  
             oxasir.ccc              oxasir.ccc
              [(if (1) {)  httpd.com  (};)] cat               [(if (1) {)  httpd.com  (};)] cat
             oxexecutestring ;              oxexecutestring ;
               [(oxReq) oxasir.ccc SM_dupErrors ] extension pop
   
               [(oxReq) oxasir.ccc SM_popCMO ] extension pop
             [(oxReq) oxasir.ccc SM_popString ] extension pop              [(oxReq) oxasir.ccc SM_popString ] extension pop
             [(flush)] extension pop              [(flush)] extension pop
             %% Select inputs for interruption.              %% Select inputs for interruption.
Line 121  def
Line 117  def
             sss message              sss message
   
             sss 0 get {              sss 0 get {
                   [(oxGet) oxasir.ccc] extension  /err          set
                 [(oxGet) oxasir.ccc] extension  /httpd.result set                  [(oxGet) oxasir.ccc] extension  /httpd.result set
                 %% oxasir.ccc oxpopstring /httpd.result set                  %% oxasir.ccc oxpopstring /httpd.result set
             } {              } {
Line 134  def
Line 131  def
             httpd.result message              httpd.result message
             (----------------------------------) message              (----------------------------------) message
             (  ) message              (  ) message
   
               err message
               err [ ] eq  {
                 /httpd.history
                   httpd.history
                   [10 (string) dc
                    (/**** ) httpd.serial toString ( ****/)
                    10 (string) dc
                     httpd.com
                    ] cat
                   append
                 def
               } {
                 oxasir.ccc cleanErrors
                 [httpd.result 10 (string) dc err toString] cat
                 /httpd.result set
               } ifelse
   
             [httpd.serial 0 eq { } {              [httpd.serial 0 eq { } {
                 (<title> asirweb </title> )                  (<title> asirweb </title> )
                 (<font color="blue"> Input-) httpd.serial toString                  (<font color="blue"> Input-) httpd.serial toString
Line 248  def
Line 263  def
    (Content-Type: text/html) sendln     (Content-Type: text/html) sendln
    0 sendln     0 sendln
    (<html> <body>) sendln     (<html> <body>) sendln
    (/* Save the following to  sm1out.txt */<br>) sendln     (/* Saved the following to sm1out.txt */<br>) sendln
      (/* Save the following by your browser as a text file. */<br>) sendln
   
    (<pre>) sendln     (<pre>) sendln
    0 1 httpd.history length 1 sub {     0 1 httpd.history length 1 sub {
Line 269  def
Line 285  def
   
 /stopclient {  /stopclient {
   [(sm1.socket) (close) [client.fdAndPort 0 get] ] extension message    [(sm1.socket) (close) [client.fdAndPort 0 get] ] extension message
   } def
   
   
   /cleanErrors {
     /arg1 set
     [/in-cleanErrors /clientt /spp] pushVariables
     [
       /clientt arg1 def
       clientt oxgetsp (integer) dc /spp set
       clientt spp oxpops
     ] pop
     popVariables
 } def  } def
   
   
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>