[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.14 and 1.16

version 1.14, 2001/08/23 02:08:41 version 1.16, 2001/09/20 05:57:40
Line 1 
Line 1 
 %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.13 2001/08/23 00:49:00 takayama Exp $  %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.15 2001/08/29 11:18:57 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 241  def
Line 240  def
       msg2 0 get (httpdAsirMeta) eq        msg2 0 get (httpdAsirMeta) eq
       msg2 1 get (Pretty) eq and        msg2 1 get (Pretty) eq and
       {        {
           httpd.image.type null eq {
             send-page-warning-image
             /skip-image goto
           } {  } ifelse
   
   
         msg2 2 get . (integer) dc /nn set          msg2 2 get . (integer) dc /nn set
   
         %% Reformat the "nn"-th result by tex and send it.          %% Reformat the "nn"-th result by tex and send it.
         %% BUG: index is out of bound. httpd.result.history nn get message          %% BUG: index is out of bound. httpd.result.history nn get message
   
         oxasir.ccc          oxasir.ccc
         [$print_gif_form(Oxserver_history_variable_$          [$print_$ httpd.image.type $_form(Oxserver_history_variable_$
          nn toString           nn toString
          $);$           $);$
         ] cat          ] cat
Line 256  def
Line 261  def
         dup 0 get /err set          dup 0 get /err set
             1 get /fn set              1 get /fn set
         err [ ] eq {          err [ ] eq {
            fn 0 get (gif) send-image             fn 0 get httpd.image.type send-image
         } {          } {
            [err preformatHTML] cat             [err preformatHTML] cat
            send-page-3             send-page-3
         } ifelse          } ifelse
         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%          %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   
           /skip-image
         /result 0 def          /result 0 def
       } { } ifelse        } { } ifelse
     }{ } ifelse      }{ } ifelse
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.16
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>