--- a/PipeStream.st Tue Sep 23 06:06:49 1997 +0200
+++ b/PipeStream.st Tue Sep 23 06:59:40 1997 +0200
@@ -221,41 +221,6 @@
]
! !
-!PipeStream class methodsFor:'helpers'!
-
-createCOMFileForVMSCommands:aCollectionOfCommandStrings
- "since DCL seems to not support multiple commands in one
- line, create a temporary COM file for them and let DCL
- execute that one.
- A kludge around a poor CLI design."
-
- |tmpComFile s|
-
- tmpComFile := Filename newTemporary withSuffix:'COM'.
- s := tmpComFile writeStream.
- aCollectionOfCommandStrings do:[:aCommand |
- (aCommand startsWith:$$) ifFalse:[
- s nextPutAll:'$'.
- ].
- s nextPutAll:aCommand.
- s nextPut:(Character nl).
- ].
- s close.
- ^ tmpComFile.
-!
-
-createCOMFileForVMSCommand:aCommandString in:aDirectory
- "since DCL seems to not support multiple commands in one
- line, create a temporary COM file for a set def, followed
- by the actual command string.
- A kludge around a poor CLI design."
-
- ^ self
- createCOMFileForVMSCommands:(Array
- with:('set def ' , aDirectory asFilename pathName asFilename osNameForDirectory)
- with:aCommandString).
-! !
-
!PipeStream class methodsFor:'instance creation'!
readingFrom:commandString
@@ -314,7 +279,7 @@
|cmd tmpComFile pipe|
(OperatingSystem platformName == #vms) ifTrue:[
- tmpComFile := self createCOMFileForVMSCommand:commandString in:aDirectory.
+ tmpComFile := OperatingSystem createCOMFileForVMSCommand:commandString in:aDirectory.
cmd := '@' , tmpComFile osName.
pipe := self readingFrom:cmd.
pipe notNil ifTrue:[
@@ -348,7 +313,7 @@
|cmd tmpComFile pipe|
(OperatingSystem platformName == #vms) ifTrue:[
- tmpComFile := self createCOMFileForVMSCommand:commandString in:aDirectory.
+ tmpComFile := OperatingSystem createCOMFileForVMSCommand:commandString in:aDirectory.
cmd := '@' , tmpComFile osName.
pipe := self writingTo:cmd.
pipe notNil ifTrue:[
@@ -653,6 +618,6 @@
!PipeStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.62 1997-09-22 20:25:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.63 1997-09-23 04:59:39 cg Exp $'
! !
PipeStream initialize!