[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.30 and 1.31

version 1.30, 2010/02/08 01:08:39 version 1.31, 2014/08/28 11:27:34
Line 1 
Line 1 
 %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.29 2009/02/22 17:30:03 ohara Exp $  %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.30 2010/02/08 01:08:39 takayama Exp $
 %% http server by sm1  %% http server by sm1
   
 [(parse) (httpd.sm1) pushfile] extension pop  [(parse) (httpd.sm1) pushfile] extension pop
Line 332  def
Line 332  def
   ] pop    ] pop
   popVariables    popVariables
   arg1    arg1
   } def
   
   /webasir2 {
    [/rrr /cmd /mypid /lockname] pushVariables
    [
     %% This procedure to generate port number might fail.
     [(oxGenPass)] extension . (integer) dc  /rrr set
     rrr << rrr 20000 idiv 20000 mul >> sub /rrr set
     /httpd.port 1200 rrr add def
     httpd.port message
   
     [(getpid)] extension (dollar) dc /mypid set
     /httpd.textarea.name  randomName def
     [(/tmp/webasir-) mypid (.txt)] cat /lockname set
     [(outputObjectToFile) lockname
       [httpd.port nl httpd.textarea.name nl ] cat
     ] extension
     lockname message
     [(cat ) lockname] cat (system) nl message
     httpd ;
     [(rm -f ) lockname] cat system
    ] pop
    popVariables
 } def  } def

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>