Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
solaris has no setenv / unsetenv
authorClaus Gittinger <cg@exept.de>
Wed, 10 Jun 1998 19:07:37 +0200
changeset 3544 a654f7ac3a6e
parent 3543 acd4a449d96b
child 3545 5238e4d15d64
solaris has no setenv / unsetenv
UnixOS.st file | annotate | diff | comparison | revisions
UnixOperatingSystem.st file | annotate | diff | comparison | revisions 
--- a/UnixOS.st	Wed Jun 10 16:20:02 1998 +0200
+++ b/UnixOS.st	Wed Jun 10 19:07:37 1998 +0200
@@ -73,6 +73,8 @@
 #  define WANT_SYSTEM
 # endif
 # define WANT_SHM
+# define HAS_SETENV
+# define HAS_UNSETENV
 #endif
 
 #ifdef IRIX5
@@ -3079,6 +3081,7 @@
                     }
 
                     if ((envPairs != nil) && __isArray(envPairs)) {
+#if defined(HAS_SETENV) && defined(HAS_UNSETENV)
                         for (i=0; (i+1)<__arraySize(envPairs); i+=2) {
                             OBJ t;
                             char *var, *val;
@@ -3096,6 +3099,7 @@
                                 
                             }
                         }
+#endif /* HAS_SETENV && HAS_UNSETENV */
                     }
 
                     if (newPgrp == true) {
@@ -3126,6 +3130,7 @@
                  * no subprocess (i.e. transfer to another program)
                  */
                 if ((envPairs != nil) && __isArray(envPairs)) {
+#if defined(HAS_SETENV) && defined(HAS_UNSETENV)
                     for (i=0; (i+1)<__arraySize(envPairs); i+=2) {
                         OBJ t;
                         char *var, *val;
@@ -3143,6 +3148,7 @@
 
                         }
                     }
+#endif /* HAS_SETENV && HAS_UNSETENV */
                 }
 
                 execv(__stringVal(aCommandPath), argv);
@@ -8381,6 +8387,6 @@
 !UnixOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UnixOS.st,v 1.13 1998-06-10 14:20:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UnixOS.st,v 1.14 1998-06-10 17:07:37 cg Exp $'
 ! !
 UnixOperatingSystem initialize!
--- a/UnixOperatingSystem.st	Wed Jun 10 16:20:02 1998 +0200
+++ b/UnixOperatingSystem.st	Wed Jun 10 19:07:37 1998 +0200
@@ -73,6 +73,8 @@
 #  define WANT_SYSTEM
 # endif
 # define WANT_SHM
+# define HAS_SETENV
+# define HAS_UNSETENV
 #endif
 
 #ifdef IRIX5
@@ -3079,6 +3081,7 @@
                     }
 
                     if ((envPairs != nil) && __isArray(envPairs)) {
+#if defined(HAS_SETENV) && defined(HAS_UNSETENV)
                         for (i=0; (i+1)<__arraySize(envPairs); i+=2) {
                             OBJ t;
                             char *var, *val;
@@ -3096,6 +3099,7 @@
                                 
                             }
                         }
+#endif /* HAS_SETENV && HAS_UNSETENV */
                     }
 
                     if (newPgrp == true) {
@@ -3126,6 +3130,7 @@
                  * no subprocess (i.e. transfer to another program)
                  */
                 if ((envPairs != nil) && __isArray(envPairs)) {
+#if defined(HAS_SETENV) && defined(HAS_UNSETENV)
                     for (i=0; (i+1)<__arraySize(envPairs); i+=2) {
                         OBJ t;
                         char *var, *val;
@@ -3143,6 +3148,7 @@
 
                         }
                     }
+#endif /* HAS_SETENV && HAS_UNSETENV */
                 }
 
                 execv(__stringVal(aCommandPath), argv);
@@ -8381,6 +8387,6 @@
 !UnixOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.13 1998-06-10 14:20:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.14 1998-06-10 17:07:37 cg Exp $'
 ! !
 UnixOperatingSystem initialize!
hg/stx-libbasic