[BACK]Return to httpd-sm1.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc

Diff for /OpenXM/src/kan96xx/Doc/httpd-sm1.sm1 between version 1.3 and 1.7

version 1.3, 2001/08/12 03:13:35 version 1.7, 2001/08/21 14:21:29
Line 1 
Line 1 
 %% $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.6 2001/08/21 14:12:45 takayama Exp $
 %% http server by sm1  %% http server by sm1
 %% Note to run on the Windows (TM).  %% Note to run on the Windows (TM).
 %% (A) You need to set IE (internet explorer) as follows:  %% (A) You need to set IE (internet explorer) as follows:
Line 23 
Line 23 
  ] cat   ] cat
 def  def
   
 [(getenv) (OSTYPE)] extension  [(ostype)] extension 0 get
 tag 0 eq {  (windows) eq {
     %% Native windows environment or cygwin.
   [(parse) (ox-win.sm1) pushfile] extension    [(parse) (ox-win.sm1) pushfile] extension
 }{  }{
   [(getenv) (OSTYPE)] extension    [(parse) (ox.sm1) pushfile] extension
   (cygwin) eq {  
     [(parse) (ox-win.sm1) pushfile] extension  
   }{  
     [(parse) (ox.sm1) pushfile] extension  
   } ifelse  
 } ifelse  } ifelse
   
 (ox_sm1.started) boundp {  (ox_sm1.started) boundp {
 } {  } {
   %% Initialize ox_sm1    %% Initialize ox_sm1
   [(getenv) (OSTYPE)] extension    [(ostype)] extension 0 get
   tag 0 eq {    (windows) eq {
      sm1connectr_win  %% Assume that it is native Windows.      [(getenv) (OSTYPE)] extension
       (cygwin) eq {
         sm1connectr      %% Cygwin
       }{
         sm1connectr_win  %% Native Windows.
       } ifelse
   }{    }{
      sm1connectr      %% cygwin or unix.       sm1connectr      %% Unix
   } ifelse    } ifelse
   ox.ccc oxmathcap    ox.ccc oxmathcap
   ox.ccc oxsetmathcap    ox.ccc oxsetmathcap
Line 60  tag 0 eq {
Line 61  tag 0 eq {
 %  [(sleep 3; start iexplore http://localhost:)  %  [(sleep 3; start iexplore http://localhost:)
 %    httpd.port toString  %    httpd.port toString
 %   ( &)] cat system  %   ( &)] cat system
    [(forkExec)     [(ostype)] extension 0 get
     [     (windows) eq {
       (c:/windows/command/start)       %% On windows.
       (iexplore)   %% Starting internet explorer (TM).        [(forkExec)
       [(http://localhost:) httpd.port toString] cat         [
     ]           (c:/windows/command/start)
     [  ]           (iexplore)   %% Starting internet explorer (TM).
    3] extension           [(http://localhost:) httpd.port toString] cat
          ]
          [  ]
         3] extension
      }{
         %% On unix.
         [(sleep 3 ; netscape http://localhost:) httpd.port toString ( & ) ] cat
         system
      } ifelse
    httpd ;     httpd ;
   ] pop    ] pop
   popVariables    popVariables
Line 136  tag 0 eq {
Line 145  tag 0 eq {
 /httpd {  /httpd {
   /httpd.serial 0 def    /httpd.serial 0 def
   /httpd.history [ ] def    /httpd.history [ ] def
     /httpd.result.history [ 0 ] def
   {    {
     httpd_startserver ;      httpd_startserver ;
     httpd_action ;      httpd_action ;
Line 250  tag 0 eq {
Line 260  tag 0 eq {
              (: </font> )               (: </font> )
              (<a href=") httpd.image.name ("> (in pretty format) </a>) %%test               (<a href=") httpd.image.name ("> (in pretty format) </a>) %%test
               httpd.result preformatHTML                httpd.result preformatHTML
                 httpd.result.history httpd.result append /httpd.result.history set
             ] cat              ] cat
             send-page-3  exit  %% exit the loop LOOP-A              send-page-3  exit  %% exit the loop LOOP-A
           } { exit } ifelse  %% metaCommand            } { exit } ifelse  %% metaCommand
Line 350  tag 0 eq {
Line 361  tag 0 eq {
 } def  } def
   
 /httpd.sm1man  /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  def
 /httpd.sm1man.index  /httpd.sm1man.index
   ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/asir2000/html-jp/man_262.html#SEC262")    ("http://www.math.sci.kobe-u.ac.jp/OpenXM/1.1.3/doc/asir2000/html-jp/man_262.html#SEC262")
 def  def
 /httpd.asir.intro  /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  def
 /send-menu-1 {  /send-menu-1 {
   
Line 375  def
Line 386  def
   (HELP:) sendln    (HELP:) sendln
   [(<font color="red">    [(<font color="red">
     <a href=) httpd.sm1man ( > Sm1manual (Ja) </a> </font>, )] cat sendln      <a href=) httpd.sm1man ( > Sm1manual (Ja) </a> </font>, )] cat sendln
   [(<font color="purple">  
     <a href=) httpd.sm1man.index ( > Index (Ja) </a> </font>, )] cat sendln  
   [(<font color="blue">    [(<font color="blue">
     <a href=) httpd.asir.intro ( > Intro (Ja) </a> </font>, )] cat sendln      <a href=) httpd.asir.intro ( > Intro (Ja) </a> </font>, )] cat sendln
 } def  } def
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>