OpenXM/src/kan96xx/Doc/ox.sm1 - diff

Return to ox.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

Diff for /OpenXM/src/kan96xx/Doc/ox.sm1 between version 1.19 and 1.20

-version 1.19, 2001/12/28 08:05:44
+version 1.20, 2002/08/03 06:02:35
 Line 1
 Line 1
 Line 1
- %%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.18 2001/12/28 01:20:25 takayama Exp $
+ %%%%%%%%%%%  $OpenXM: OpenXM/src/kan96xx/Doc/ox.sm1,v 1.19 2001/12/28 08:05:44 takayama Exp $
  /ox.sm1.loaded 1 def
  %%%%%%%%%%%% Configuration: Specify your server path
 Line 1018  ox.verbose {
 Line 1018  ox.verbose {
 Line 1018  ox.verbose {
    (cf. oxWorkDir)
   ]
  ] putUsages
+ /ox_get_os {
+   [/in-ox_get_ox /os1 /os2] pushVariables
+   [
+     /os1 [(ostype)] extension 0 get def
+     os1 (windows) eq {
+       [(getenv) (WINDOWID)] extension tag 0 eq not {
+          %% expect cygwin X
+          /os2 (xcygwin) def
+       }{
+          [(getenv) (OSTYPE)] extension tag 0 eq not
+          [(getenv) (MACHTYPE)] extension tag 0 eq not  or
+          [(getenv) (PWD)] extension tag 0 eq not  or
+          {
+            %% expect cygwin environment
+            /os2 (cygwin) def
+          }{
+            %% expect the native windows environment
+            /os2 (native) def
+          } ifelse
+       } ifelse
+     }{
+       /os2 null def
+     } ifelse
+     /arg1 [os1 os2] def
+   ] pop
+   popVariables
+   arg1
+ } def
+ /ox.ostype ox_get_os def
+ /ox_backslash_to_slash {
+   /arg1 set
+   [/in-ox_backslash_to_slash /sss ] pushVariables
+   [
+     /sss arg1 def
+     sss (array) dc /sss set
+     sss { dup 92 eq { pop 47 } {  } ifelse } map
+     { (string) dc } map cat /arg1 set
+   ] pop
+   popVariables
+   arg1
+ } def
+ /ox_slash_to_backslash {
+   /arg1 set
+   [/in-ox_slash_to_backslash /sss ] pushVariables
+   [
+     /sss arg1 def
+     sss (array) dc /sss set
+     sss { dup 47 eq { pop 92 } {  } ifelse } map
+     { (string) dc } map cat /arg1 set
+   ] pop
+   popVariables
+   arg1
+ } def
  [(ostype)] extension  0 get
  (windows) eq {

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>