equal
deleted
inserted
replaced
467 However, other than methodsFor expressions are possible - you can |
467 However, other than methodsFor expressions are possible - you can |
468 (in theory) create readers for any syntax. |
468 (in theory) create readers for any syntax. |
469 " |
469 " |
470 |
470 |
471 |aString sawExcla rslt done| |
471 |aString sawExcla rslt done| |
472 |
|
473 Smalltalk::Compiler isNil ifTrue:[ |
|
474 self isFileStream ifTrue:[ |
|
475 Transcript show:('[' , self pathName , '] '). |
|
476 ]. |
|
477 Transcript showCR:'cannot fileIn (no compiler).'. |
|
478 ^ nil. |
|
479 ]. |
|
480 |
472 |
481 self skipSeparators. |
473 self skipSeparators. |
482 self atEnd ifFalse:[ |
474 self atEnd ifFalse:[ |
483 sawExcla := self peekFor:(self class chunkSeparator). |
475 sawExcla := self peekFor:(self class chunkSeparator). |
484 aString := self nextChunk. |
476 aString := self nextChunk. |
562 ] ifFalse:[ |
554 ] ifFalse:[ |
563 self error:'Invalid chunk start' |
555 self error:'Invalid chunk start' |
564 ] |
556 ] |
565 ]. |
557 ]. |
566 |
558 |
|
559 Smalltalk::Compiler isNil ifTrue:[ |
|
560 self isFileStream ifTrue:[ |
|
561 Transcript show:('[' , self pathName , '] '). |
|
562 ]. |
|
563 Transcript showCR:'cannot fileIn (no compiler).'. |
|
564 ^ nil. |
|
565 ]. |
|
566 |
567 "/ support for V'Age applications |
567 "/ support for V'Age applications |
568 defaultApplicationQuerySignal := Class defaultApplicationQuerySignal. |
568 defaultApplicationQuerySignal := Class defaultApplicationQuerySignal. |
569 changeDefaultApplicationNotificationSignal := Class changeDefaultApplicationNotificationSignal. |
569 changeDefaultApplicationNotificationSignal := Class changeDefaultApplicationNotificationSignal. |
570 |
570 |
571 "/ support for ST/X's namespaces & packages |
571 "/ support for ST/X's namespaces & packages |
1147 ! ! |
1147 ! ! |
1148 |
1148 |
1149 !PositionableStream class methodsFor:'documentation'! |
1149 !PositionableStream class methodsFor:'documentation'! |
1150 |
1150 |
1151 version |
1151 version |
1152 ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.118 2002-12-06 14:37:49 penk Exp $' |
1152 ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.119 2002-12-06 14:40:05 penk Exp $' |
1153 ! ! |
1153 ! ! |
1154 |
1154 |
1155 PositionableStream initialize! |
1155 PositionableStream initialize! |