version 1.8, 2001/04/22 04:35:46 |
version 1.9, 2001/04/22 04:55:07 |
|
|
%% $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.8 2001/04/22 04:35:46 takayama Exp $ |
%% http server by sm1 |
%% http server by sm1 |
|
|
/httpd.port 1200 def |
/httpd.port 1200 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 |