--- 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!