OpenXM/src/kan96xx/Doc/httpd-asir.sm1 - diff

Return to httpd-asir.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

-version 1.30, 2010/02/08 01:08:39
+version 1.31, 2014/08/28 11:27:34
 Line 1
 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
  [(parse) (httpd.sm1) pushfile] extension pop
 Line 332  def
 Line 332  def
 Line 332  def
    ] pop
    popVariables
    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