*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 22 Sep 1997 22:25:04 +0200
changeset 2973 c0c37395988a
parent 2972 0c50c90e6557
child 2974 7e7c19f4d6d2
*** empty log message ***
PipeStr.st
PipeStream.st
Unix.st
--- a/PipeStr.st	Mon Sep 22 22:03:42 1997 +0200
+++ b/PipeStr.st	Mon Sep 22 22:25:04 1997 +0200
@@ -508,7 +508,7 @@
 	    ^ self openError
 	].
 	mbxName := OperatingSystem mailBoxNameOf:mbx.
-'mailBox is ' print. mbx print. ' name is ' print. mbxName printCR.
+	"/ 'mailBox is ' print. mbx print. ' name is ' print. mbxName printCR.
 	shellPath := ''.
 	shellArgs := aCommandString.
 
@@ -653,6 +653,6 @@
 !PipeStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.61 1997-09-22 20:01:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.62 1997-09-22 20:25:01 cg Exp $'
 ! !
 PipeStream initialize!
--- a/PipeStream.st	Mon Sep 22 22:03:42 1997 +0200
+++ b/PipeStream.st	Mon Sep 22 22:25:04 1997 +0200
@@ -508,7 +508,7 @@
 	    ^ self openError
 	].
 	mbxName := OperatingSystem mailBoxNameOf:mbx.
-'mailBox is ' print. mbx print. ' name is ' print. mbxName printCR.
+	"/ 'mailBox is ' print. mbx print. ' name is ' print. mbxName printCR.
 	shellPath := ''.
 	shellArgs := aCommandString.
 
@@ -653,6 +653,6 @@
 !PipeStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.61 1997-09-22 20:01:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.62 1997-09-22 20:25:01 cg Exp $'
 ! !
 PipeStream initialize!
--- a/Unix.st	Mon Sep 22 22:03:42 1997 +0200
+++ b/Unix.st	Mon Sep 22 22:25:04 1997 +0200
@@ -1076,8 +1076,8 @@
 }
 # define access(__path__, __mode__)	__vms_access__(__path__, __mode__)
 
-#define WAITDEBUG
-#define PROCESSDEBUG
+/* #define WAITDEBUG /* */
+/* #define PROCESSDEBUG /* */
 
 void
 __vms_ASTChildWithInfo(pInfo) 
@@ -4596,7 +4596,9 @@
         if (status != SS$_NORMAL && !(iosb.status & STS$M_SUCCESS)) {
             vaxc$errno = iosb.status;
             errno = EVMSERR;
-            fprintf(stderr, "OperatingSystem: $GETDVIW for mailBox name failed mbx=%d\n",channel);
+#if 0
+            fprintf(stderr, "OperatingSystem [info]: $GETDVIW for mailBox name failed mbx=%d\n",channel);
+#endif
             RETURN ( nil );
         }
 	mbxname.body[mbxname.length] = 0;
@@ -10355,6 +10357,6 @@
 !OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.257 1997-09-22 20:03:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.258 1997-09-22 20:25:04 cg Exp $'
 ! !
 OperatingSystem initialize!