equal
deleted
inserted
replaced
2454 openError:errorNumber |
2454 openError:errorNumber |
2455 "report an error, that the open failed" |
2455 "report an error, that the open failed" |
2456 |
2456 |
2457 "{ Pragma: +optSpace }" |
2457 "{ Pragma: +optSpace }" |
2458 |
2458 |
2459 |exClass| |
2459 |exClass errorSymbol| |
2460 |
2460 |
2461 exClass := ((OperatingSystem errorSymbolForNumber:errorNumber) == #ERROR_FILE_NOT_FOUND) |
2461 errorSymbol := OperatingSystem errorSymbolForNumber:errorNumber. |
|
2462 exClass := (errorSymbol == #ERROR_FILE_NOT_FOUND or:[errorSymbol == #ENOENT]) |
2462 ifTrue:[ FileDoesNotExistException ] |
2463 ifTrue:[ FileDoesNotExistException ] |
2463 ifFalse:[ OpenError ]. |
2464 ifFalse:[ OpenError ]. |
2464 |
2465 |
2465 ^ exClass newException |
2466 ^ exClass newException |
2466 errorCode:errorNumber; |
2467 errorCode:errorNumber; |
5759 ! ! |
5760 ! ! |
5760 |
5761 |
5761 !ExternalStream class methodsFor:'documentation'! |
5762 !ExternalStream class methodsFor:'documentation'! |
5762 |
5763 |
5763 version |
5764 version |
5764 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.369 2013-07-08 22:17:30 stefan Exp $' |
5765 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.370 2013-07-08 22:33:56 stefan Exp $' |
5765 ! |
5766 ! |
5766 |
5767 |
5767 version_CVS |
5768 version_CVS |
5768 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.369 2013-07-08 22:17:30 stefan Exp $' |
5769 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.370 2013-07-08 22:33:56 stefan Exp $' |
5769 ! ! |
5770 ! ! |
5770 |
5771 |
5771 |
5772 |
5772 ExternalStream initialize! |
5773 ExternalStream initialize! |