version 1.8, 2001/04/22 04:35:46 |
version 1.10, 2001/04/23 13:34:00 |
|
|
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.7 2001/04/22 01:02:27 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-asir.sm1,v 1.9 2001/04/22 04:55:07 takayama Exp $ |
%% http server by sm1 |
%% http server by sm1 |
|
|
/httpd.port 1200 def |
/httpd.port 1200 def |
|
|
}{ |
}{ |
10 (string) dc /mmm set |
10 (string) dc /mmm set |
} ifelse |
} ifelse |
[(sm1.socket) (write) [httpd.server.fd 0 get mmm]] extension message |
[(sm1.socket) (select) [httpd.server.fd 0 get 0]] extension { |
|
(Warning: your peer closed the connection. Do not send the data.) message |
|
} { |
|
[(sm1.socket) (write) [httpd.server.fd 0 get mmm]] extension message |
|
} ifelse |
] pop |
] pop |
popVariables |
popVariables |
} def |
} def |
|
|
(<title> asirweb </title> ) |
(<title> asirweb </title> ) |
(<font color="blue"> Input-) httpd.serial toString |
(<font color="blue"> Input-) httpd.serial toString |
(: </font> ) |
(: </font> ) |
(<pre> ) httpd.com (</pre>) (<br>) |
httpd.com preformatHTML (<br>) |
} ifelse |
} ifelse |
(<font color="green"> Output-) httpd.serial toString |
(<font color="green"> Output-) httpd.serial toString |
(: </font> ) |
(: </font> ) |
(<pre>) httpd.result (</pre>) |
httpd.result preformatHTML |
] cat |
] cat |
send-page-3 exit |
send-page-3 exit |
} { exit } ifelse %% metaCommand |
} { exit } ifelse %% metaCommand |
|
|
} loop |
} loop |
s j carN /s set |
s j carN /s set |
s { (string) dc } map cat /arg1 set |
s { (string) dc } map cat /arg1 set |
|
] pop |
|
popVariables |
|
arg1 |
|
} def |
|
|
|
/preformatHTML { |
|
/arg1 set |
|
[/in-preformatHTML /sss /c] pushVariables |
|
[ |
|
/sss arg1 def |
|
sss (array) dc /sss set |
|
sss { |
|
/c set |
|
[ |
|
c 60 eq { |
|
/c (<) def |
|
} { } ifelse |
|
c 62 eq { |
|
/c (>) def |
|
} { } ifelse |
|
c 38 eq { |
|
/c (&) def |
|
} { } ifelse |
|
] pop |
|
c (string) dc |
|
} map cat /sss set |
|
[(<pre> ) sss ( </pre> )] cat /arg1 set |
] pop |
] pop |
popVariables |
popVariables |
arg1 |
arg1 |