PipeStream.st
changeset 12548 6a2abe88a7a2
parent 12395 1db7ea277c93
child 12712 c1b3b5846541
equal deleted inserted replaced
12547:30fda24cebb5 12548:6a2abe88a7a2
   723 		super open:mbxName withMode:rwMode.
   723 		super open:mbxName withMode:rwMode.
   724 		exitAction := [tmpComFile delete].
   724 		exitAction := [tmpComFile delete].
   725 	    ].
   725 	    ].
   726 	] ifFalse:[
   726 	] ifFalse:[
   727 	    self setFileDescriptor:myFd mode:rwMode.
   727 	    self setFileDescriptor:myFd mode:rwMode.
       
   728 	    handleType := #pipeFilePointer.
   728 	]
   729 	]
   729     ] ifFalse:[
   730     ] ifFalse:[
   730 	"creation of subprocesss failed"
   731 	"creation of subprocesss failed"
   731 	lastErrorNumber := OperatingSystem currentErrorNumber.
   732 	lastErrorNumber := OperatingSystem currentErrorNumber.
   732 	OperatingSystem isVMSlike ifTrue:[
   733 	OperatingSystem isVMSlike ifTrue:[
   793 ! !
   794 ! !
   794 
   795 
   795 !PipeStream class methodsFor:'documentation'!
   796 !PipeStream class methodsFor:'documentation'!
   796 
   797 
   797 version
   798 version
   798     ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.109 2009-10-28 20:58:57 cg Exp $'
   799     ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.110 2009-11-17 10:35:48 cg Exp $'
   799 ! !
   800 ! !
   800 
   801 
   801 PipeStream initialize!
   802 PipeStream initialize!