===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v
retrieving revision 1.12
retrieving revision 1.16
diff -u -p -r1.12 -r1.16
--- OpenXM/src/kan96xx/Doc/httpd-rpc.sm1	2002/11/10 07:00:03	1.12
+++ OpenXM/src/kan96xx/Doc/httpd-rpc.sm1	2012/12/23 02:33:16	1.16
@@ -1,4 +1,4 @@
-%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.11 2002/11/04 05:40:40 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v 1.15 2010/02/08 01:08:39 takayama Exp $
 %% http server by sm1. Used for RPC.  Generic example.
 
 [(parse) (httpd.sm1) pushfile] extension pop
@@ -43,10 +43,10 @@ def
 def
 
 /httpd.asirman
- ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.2.1/doc/asir2000/html-eg/man_toc.html")
+ ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.2.1/doc/asir2000/html-en/man_toc.html")
 def
 /httpd.asirman.ja
- ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.2.1/doc/asir2000/html-jp/man_toc.html")
+ ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.2.1/doc/asir2000/html-ja/man_toc.html")
 def
 
 [(parse) (oxasir.sm1) pushfile] extension 
@@ -81,7 +81,10 @@ oxNoX 
       3] extension
    }{
       %% On unix.
-      [(sleep 3 ; netscape http://) 
+      [(ostype)] extension 1 get (mac) eq {
+        /webrpc.browser (open) def
+      } { /webrpc.browser (firefox) def } ifelse
+      [(sleep 3 ; ) webrpc.browser ( http://) 
                  [(sm1.socket) (gethostname) []] extension 
                 (:) httpd.port toString ( & ) ] cat
       system
@@ -507,5 +510,6 @@ oxNoX 
     (end) (quit) (output) (bload27) (open)
     (plot) (ctrl) (debug) (error) (port) (bind) (accept)
     (draw)  (peek) (poke)
+    (write_string_to_a_file) (_filter)
    ]
 def