[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.12 and 1.15

version 1.12, 2001/08/23 00:16:55 version 1.15, 2001/08/29 11:18:57
Line 1 
Line 1 
 %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.11 2001/08/12 07:20:37 takayama Exp $  %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.14 2001/08/23 02:08:41 takayama Exp $
 %% http server by sm1  %% http server by sm1
   
 [(parse) (httpd.sm1) pushfile] extension pop  [(parse) (httpd.sm1) pushfile] extension pop
   
 /httpd.port 1200 def  /httpd.port 1200 def
 /httpd.image.name (kobeuniv2.jpg) def  /httpd.image.name (kobeuniv2.jpg) def
 /httpd.image.type (jpeg) def  
   
 /httpd.initialization  /httpd.initialization
 %% Put initialization codes here.  %% Put initialization codes here.
Line 46  def
Line 45  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 /err     /sss.engine /sss.web /err
      /oxserver.vname
   ] pushVariables    ] pushVariables
   [    [
   {    {
Line 79  def
Line 79  def
           } ifelse            } ifelse
           httpd.com metaCommand {            httpd.com metaCommand {
             httpd.textarea.valid {              httpd.textarea.valid {
                 /oxserver.vname
                    [Oxserver_history_variable httpd.serial toString] cat
                 def
               oxasir.ccc                oxasir.ccc
                [(if (1) {)  httpd.com  (; };)] cat                [(if (1) {)  httpd.com  (; };)] cat
               oxexecutestring ;                oxexecutestring ;
             }{              }{
               send-page-warning  exit                send-page-warning  exit
Line 88  def
Line 91  def
             [(oxReq) oxasir.ccc SM_dupErrors ] extension pop              [(oxReq) oxasir.ccc SM_dupErrors ] extension pop
   
             [(oxReq) oxasir.ccc SM_popCMO ] extension pop              [(oxReq) oxasir.ccc SM_popCMO ] extension pop
   
               [(oxReq) oxasir.ccc SM_setName oxserver.vname] extension pop
               oxasir.ccc [oxserver.vname (;)] cat oxexecutestring
   
             [(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 222  def
Line 229  def
   
 /metaCommand {  /metaCommand {
   /arg1 set    /arg1 set
   [/in-metaCommand /msg /result /msg2 /nn] pushVariables    [/in-metaCommand /msg /result /msg2 /nn
      /err /fn
     ] pushVariables
   [    [
     /msg arg1 def      /msg arg1 def
     /result 1 def      /result 1 def
Line 233  def
Line 242  def
       {        {
         msg2 2 get . (integer) dc /nn set          msg2 2 get . (integer) dc /nn set
   
         %%BUG: This part should be rewritten.  
         %% Reformat the "nn"-th result by tex and send it.          %% Reformat the "nn"-th result by tex and send it.
         httpd.result.history nn get message          %% BUG: index is out of bound. httpd.result.history nn get message
         httpd.image.name httpd.image.type send-image  
           oxasir.ccc
           [$print_$ httpd.image.type $_form(Oxserver_history_variable_$
            nn toString
            $);$
           ] cat
           (cmo)
           executeStringAndSelectInputFromBrowserAndOxserver
           dup 0 get /err set
               1 get /fn set
           err [ ] eq {
              fn 0 get httpd.image.type send-image
           } {
              [err preformatHTML] cat
              send-page-3
           } ifelse
         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%          %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   
         /result 0 def          /result 0 def
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.15
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>