equal
deleted
inserted
replaced
396 closeFile |
396 closeFile |
397 "low level close |
397 "low level close |
398 This waits for the command to finish. |
398 This waits for the command to finish. |
399 Use shutDown for a fast (nonBlocking) close." |
399 Use shutDown for a fast (nonBlocking) close." |
400 |
400 |
401 |tpid| |
|
402 |
|
403 filePointer notNil ifTrue:[ |
401 filePointer notNil ifTrue:[ |
404 super closeFile. |
402 super closeFile. |
405 OperatingSystem isMSDOSlike ifTrue:[ |
403 OperatingSystem isMSDOSlike ifTrue:[ |
406 self terminatePipeCommand. |
404 self terminatePipeCommand. |
407 ]. |
405 ]. |
408 |
406 |
409 filePointer := nil. |
407 filePointer := nil. |
410 pid notNil ifTrue:[ |
408 pid notNil ifTrue:[ |
411 "/ wait for the pipe-command to terminate. |
409 "/ wait for the pipe-command to terminate. |
412 self waitForPipeCommandWithTimeout:nil. |
410 self waitForPipeCommandWithTimeout:nil. |
413 ]. |
411 ]. |
414 ]. |
412 ]. |
415 |
413 |
416 "Modified: / 12.9.1998 / 16:51:04 / cg" |
414 "Modified: / 12.9.1998 / 16:51:04 / cg" |
417 ! |
415 ! |
418 |
416 |
713 ! ! |
711 ! ! |
714 |
712 |
715 !PipeStream class methodsFor:'documentation'! |
713 !PipeStream class methodsFor:'documentation'! |
716 |
714 |
717 version |
715 version |
718 ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.92 2002-04-09 14:46:11 stefan Exp $' |
716 ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.93 2003-02-12 16:53:43 stefan Exp $' |
719 ! ! |
717 ! ! |
|
718 |
720 PipeStream initialize! |
719 PipeStream initialize! |