2436 openError |
2436 openError |
2437 "report an error, that the open failed" |
2437 "report an error, that the open failed" |
2438 |
2438 |
2439 "{ Pragma: +optSpace }" |
2439 "{ Pragma: +optSpace }" |
2440 |
2440 |
2441 ^ OpenError newException |
2441 |exClass| |
|
2442 |
|
2443 exClass := (lastErrorNumber == (OperatingSystem errorNumberFor:#ERROR_FILE_NOT_FOUND)) |
|
2444 ifTrue:[ FileDoesNotExistException ] |
|
2445 ifFalse:[ OpenError ]. |
|
2446 |
|
2447 ^ exClass newException |
2442 errorCode:lastErrorNumber; |
2448 errorCode:lastErrorNumber; |
2443 errorString:(' : ' , (OperatingSystem errorTextForNumber:lastErrorNumber)); |
2449 errorString:(' : ' , (OperatingSystem errorTextForNumber:lastErrorNumber)); |
2444 parameter:self; |
2450 parameter:self; |
2445 raiseRequest |
2451 raiseRequest |
2446 |
2452 |
2447 "Modified: / 28.1.1998 / 14:37:42 / stefan" |
2453 "Modified: / 28-01-1998 / 14:37:42 / stefan" |
2448 "Modified: / 8.5.1999 / 20:12:12 / cg" |
2454 "Modified: / 09-09-2011 / 09:16:40 / cg" |
2449 ! |
2455 ! |
2450 |
2456 |
2451 openError:errorNumber |
2457 openError:errorNumber |
2452 "report an error, that the open failed" |
2458 "report an error, that the open failed" |
2453 |
2459 |
2454 "{ Pragma: +optSpace }" |
2460 "{ Pragma: +optSpace }" |
2455 |
2461 |
2456 ^ OpenError newException |
2462 |exClass| |
|
2463 |
|
2464 exClass := (errorNumber == OperatingSystem errorNumberFor:#ERROR_FILE_NOT_FOUND) |
|
2465 ifTrue:[ FileDoesNotExistException ] |
|
2466 ifFalse:[ OpenError ]. |
|
2467 |
|
2468 ^ exClass newException |
2457 errorCode:errorNumber; |
2469 errorCode:errorNumber; |
2458 errorString:(' : ' , (OperatingSystem errorTextForNumber:errorNumber)); |
2470 errorString:(' : ' , (OperatingSystem errorTextForNumber:errorNumber)); |
2459 parameter:self; |
2471 parameter:self; |
2460 raiseRequest |
2472 raiseRequest |
2461 "/ in:thisContext sender |
2473 "/ in:thisContext sender |
|
2474 |
|
2475 "Modified: / 09-09-2011 / 07:22:49 / cg" |
2462 ! |
2476 ! |
2463 |
2477 |
2464 readError |
2478 readError |
2465 "{ Pragma: +optSpace }" |
2479 "{ Pragma: +optSpace }" |
2466 |
2480 |
5690 ! ! |
5704 ! ! |
5691 |
5705 |
5692 !ExternalStream class methodsFor:'documentation'! |
5706 !ExternalStream class methodsFor:'documentation'! |
5693 |
5707 |
5694 version |
5708 version |
5695 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.342 2011-02-15 10:04:34 cg Exp $' |
5709 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.343 2011-09-09 07:17:43 cg Exp $' |
5696 ! |
5710 ! |
5697 |
5711 |
5698 version_CVS |
5712 version_CVS |
5699 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.342 2011-02-15 10:04:34 cg Exp $' |
5713 ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.343 2011-09-09 07:17:43 cg Exp $' |
5700 ! ! |
5714 ! ! |
5701 |
5715 |
5702 ExternalStream initialize! |
5716 ExternalStream initialize! |