ExternalStream.st
changeset 24383 fb67cbcafd72
parent 24045 031200ccf630
child 24507 446e2dcc1a3b
equal deleted inserted replaced
24382:b6d7add521a9 24383:fb67cbcafd72
  2513     "{ Pragma: +optSpace }"
  2513     "{ Pragma: +optSpace }"
  2514 
  2514 
  2515     "report an error, that the stream is in binary mode"
  2515     "report an error, that the stream is in binary mode"
  2516 
  2516 
  2517     ^ InvalidModeError
  2517     ^ InvalidModeError
  2518 	raiseRequestWith:self
  2518         raiseRequestWith:self
  2519 	errorString:(self class name , ' is in binary mode')
  2519         errorString:(self className , ' is in binary mode')
  2520 	"/ in:thisContext sender
  2520         "/ in:thisContext sender
  2521 
  2521 
  2522     "Modified: / 8.5.1999 / 20:12:43 / cg"
  2522     "Modified: / 08-05-1999 / 20:12:43 / cg"
       
  2523     "Modified: / 28-06-2019 / 08:43:06 / Claus Gittinger"
  2523 !
  2524 !
  2524 
  2525 
  2525 errorNotBinary
  2526 errorNotBinary
  2526     "{ Pragma: +optSpace }"
  2527     "{ Pragma: +optSpace }"
  2527 
  2528 
  2528     "report an error, that the stream is not in binary mode"
  2529     "report an error, that the stream is not in binary mode"
  2529 
  2530 
  2530     ^ InvalidModeError
  2531     ^ InvalidModeError
  2531 	raiseRequestWith:self
  2532         raiseRequestWith:self
  2532 	errorString:(self class name , ' is not in binary mode')
  2533         errorString:(self className , ' is not in binary mode')
  2533 	"/ in:thisContext sender
  2534         "/ in:thisContext sender
  2534 
  2535 
  2535     "Modified: / 8.5.1999 / 20:12:40 / cg"
  2536     "Modified: / 08-05-1999 / 20:12:40 / cg"
       
  2537     "Modified: / 28-06-2019 / 08:43:11 / Claus Gittinger"
  2536 !
  2538 !
  2537 
  2539 
  2538 errorNotBuffered
  2540 errorNotBuffered
  2539     "{ Pragma: +optSpace }"
  2541     "{ Pragma: +optSpace }"
  2540 
  2542 
  2541     "report an error, that the stream is not in buffered mode"
  2543     "report an error, that the stream is not in buffered mode"
  2542 
  2544 
  2543     ^ StreamError
  2545     ^ StreamError
  2544 	raiseRequestWith:self
  2546         raiseRequestWith:self
  2545 	errorString:(self class name , ' is unbuffered - operation not allowed')
  2547         errorString:(self className , ' is unbuffered - operation not allowed')
  2546 	"/ in:thisContext sender
  2548         "/ in:thisContext sender
  2547 
  2549 
  2548     "Modified: / 8.5.1999 / 20:12:36 / cg"
  2550     "Modified: / 08-05-1999 / 20:12:36 / cg"
       
  2551     "Modified: / 28-06-2019 / 08:43:14 / Claus Gittinger"
  2549 !
  2552 !
  2550 
  2553 
  2551 errorReadOnly
  2554 errorReadOnly
  2552     "{ Pragma: +optSpace }"
  2555     "{ Pragma: +optSpace }"
  2553 
  2556 
  5227 reOpen
  5230 reOpen
  5228     "USERS WILL NEVER INVOKE THIS METHOD
  5231     "USERS WILL NEVER INVOKE THIS METHOD
  5229      sent after snapin to reopen streams.
  5232      sent after snapin to reopen streams.
  5230      cannot reopen here since I am abstract and have no device knowledge"
  5233      cannot reopen here since I am abstract and have no device knowledge"
  5231 
  5234 
  5232     self class name errorPrint. ' [warning]: automatic reOpen not supported - stream closed' errorPrintCR.
  5235     self className errorPrint. ' [warning]: automatic reOpen not supported - stream closed' errorPrintCR.
  5233     handle := nil.
  5236     handle := nil.
  5234     self unregisterForFinalization.
  5237     self unregisterForFinalization.
  5235 
  5238 
  5236     "Modified: 10.1.1997 / 17:50:44 / cg"
  5239     "Modified: / 10-01-1997 / 17:50:44 / cg"
       
  5240     "Modified: / 28-06-2019 / 08:43:21 / Claus Gittinger"
  5237 !
  5241 !
  5238 
  5242 
  5239 setAccessor:what to:something
  5243 setAccessor:what to:something
  5240     "set the filePointer/fileHandle to the given one;
  5244     "set the filePointer/fileHandle to the given one;
  5241      low level private & friend interface; may also be used to connect to some
  5245      low level private & friend interface; may also be used to connect to some