===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd-sm1.sm1,v
retrieving revision 1.3
retrieving revision 1.5
diff -u -p -r1.3 -r1.5
--- OpenXM/src/kan96xx/Doc/httpd-sm1.sm1 2001/08/12 03:13:35 1.3
+++ OpenXM/src/kan96xx/Doc/httpd-sm1.sm1 2001/08/12 07:54:47 1.5
@@ -1,4 +1,4 @@
-%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-sm1.sm1,v 1.2 2001/08/10 08:33:03 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-sm1.sm1,v 1.4 2001/08/12 07:20:37 takayama Exp $
%% http server by sm1
%% Note to run on the Windows (TM).
%% (A) You need to set IE (internet explorer) as follows:
@@ -136,6 +136,7 @@ tag 0 eq {
/httpd {
/httpd.serial 0 def
/httpd.history [ ] def
+ /httpd.result.history [ 0 ] def
{
httpd_startserver ;
httpd_action ;
@@ -250,6 +251,7 @@ tag 0 eq {
(: )
( (in pretty format) ) %%test
httpd.result preformatHTML
+ httpd.result.history httpd.result append /httpd.result.history set
] cat
send-page-3 exit %% exit the loop LOOP-A
} { exit } ifelse %% metaCommand
@@ -350,13 +352,13 @@ tag 0 eq {
} def
/httpd.sm1man
- ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/asir2000/html-jp/man_toc.html")
+ ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/kan96xx/onlinehelp/index.html")
def
/httpd.sm1man.index
("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/asir2000/html-jp/man_262.html#SEC262")
def
/httpd.asir.intro
- ("http://www.math.sci.kobe-u.ac.jp/~taka/asir-book-html/main")
+ ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/kan96xx/ttt/index.html")
def
/send-menu-1 {
@@ -375,8 +377,6 @@ def
(HELP:) sendln
[(
Sm1manual (Ja) , )] cat sendln
- [(
- Index (Ja) , )] cat sendln
[(
Intro (Ja) , )] cat sendln
} def