===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/httpd-rpc.sm1,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -p -r1.15 -r1.16
--- OpenXM/src/kan96xx/Doc/httpd-rpc.sm1	2010/02/08 01:08:39	1.15
+++ 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.14 2009/02/22 17:30:03 ohara 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
@@ -81,7 +81,10 @@ oxNoX 
       3] extension
    }{
       %% On unix.
-      [(sleep 3 ; firefox 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