[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.32 and 1.33

version 1.32, 2014/08/29 11:58:05 version 1.33, 2014/08/30 11:29:12
Line 1 
Line 1 
 %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.31 2014/08/28 11:27:34 takayama Exp $  %% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.32 2014/08/29 11:58:05 takayama Exp $
 %% http server by sm1  %% http server by sm1
   
 [(parse) (httpd.sm1) pushfile] extension pop  [(parse) (httpd.sm1) pushfile] extension pop
Line 334  def
Line 334  def
   arg1    arg1
 } def  } 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  
   [(/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  

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

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