PeekableStream.st
author Claus Gittinger <cg@exept.de>
Sat, 06 Jun 2015 14:42:18 +0200
changeset 18452 5724547da8de
parent 18273 7f1f1a4eef6b
child 18274 042d13555f1f
child 18479 edff93c290bb
permissions -rw-r--r--
class: UtcTimestamp comment/format in: #utcOffset
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
18213
c0d479ac5af6 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 17636
diff changeset
     1
"{ Encoding: utf8 }"
c0d479ac5af6 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 17636
diff changeset
     2
58
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
     3
"
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
     4
 COPYRIGHT (c) 1994 by Claus Gittinger
379
5b5a130ccd09 revision added
claus
parents: 369
diff changeset
     5
	      All Rights Reserved
58
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
     6
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
     7
 This software is furnished under a license and may be used
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
     8
 only in accordance with the terms of that license and with the
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
     9
 inclusion of the above copyright notice.   This software may not
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
    10
 be provided or otherwise made available to, or used by, any
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
    11
 other person.  No title to or ownership of the software is
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
    12
 hereby transferred.
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
    13
"
5394
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
    14
"{ Package: 'stx:libbasic' }"
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
    15
17560
7af6b7f75d05 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16883
diff changeset
    16
"{ NameSpace: Smalltalk }"
7af6b7f75d05 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16883
diff changeset
    17
58
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
    18
Stream subclass:#PeekableStream
1295
83f594f05c52 documentation
Claus Gittinger <cg@exept.de>
parents: 701
diff changeset
    19
	instanceVariableNames:''
10002
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
    20
	classVariableNames:'ErrorDuringFileInSignal CurrentFileInDirectoryQuerySignal
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
    21
		CurrentSourceContainerQuery'
1295
83f594f05c52 documentation
Claus Gittinger <cg@exept.de>
parents: 701
diff changeset
    22
	poolDictionaries:''
83f594f05c52 documentation
Claus Gittinger <cg@exept.de>
parents: 701
diff changeset
    23
	category:'Streams'
58
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
    24
!
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
    25
88
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    26
!PeekableStream class methodsFor:'documentation'!
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    27
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    28
copyright
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    29
"
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    30
 COPYRIGHT (c) 1994 by Claus Gittinger
379
5b5a130ccd09 revision added
claus
parents: 369
diff changeset
    31
	      All Rights Reserved
58
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
    32
88
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    33
 This software is furnished under a license and may be used
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    34
 only in accordance with the terms of that license and with the
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    35
 inclusion of the above copyright notice.   This software may not
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    36
 be provided or otherwise made available to, or used by, any
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    37
 other person.  No title to or ownership of the software is
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    38
 hereby transferred.
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    39
"
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    40
!
58
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
    41
88
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    42
documentation
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    43
"
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    44
    abstract superclass for all Stream which support read-ahead
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    45
    (i.e. peeking) of one element.
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    46
    Concrete subclasses must implement a peek method.
1295
83f594f05c52 documentation
Claus Gittinger <cg@exept.de>
parents: 701
diff changeset
    47
17560
7af6b7f75d05 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16883
diff changeset
    48
    [caveat:]
7af6b7f75d05 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16883
diff changeset
    49
        Basing capabilities like readability/writability/positionability/peekability on inheritance makes
7af6b7f75d05 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16883
diff changeset
    50
        the class hierarchy ugly and leads to strange and hard to teach redefinitions (aka. NonPositionableStream
7af6b7f75d05 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16883
diff changeset
    51
        below PositionableStream or ExternalReadStream under WriteStream)
7af6b7f75d05 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16883
diff changeset
    52
1295
83f594f05c52 documentation
Claus Gittinger <cg@exept.de>
parents: 701
diff changeset
    53
    [author:]
83f594f05c52 documentation
Claus Gittinger <cg@exept.de>
parents: 701
diff changeset
    54
        Claus Gittinger
88
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    55
"
81dacba7a63a *** empty log message ***
claus
parents: 77
diff changeset
    56
! !
58
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
    57
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    58
!PeekableStream class methodsFor:'initialization'!
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    59
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    60
initialize
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    61
    "setup the signal used to handle errors during fileIn"
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    62
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    63
    ErrorDuringFileInSignal isNil ifTrue:[
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    64
        ErrorDuringFileInSignal := Error newSignalMayProceed:true.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    65
        ErrorDuringFileInSignal nameClass:self message:#errorDuringFileInSignal.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    66
        ErrorDuringFileInSignal notifierString:'error during fileIn'.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    67
    ]
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    68
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    69
    "
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    70
     self initialize
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    71
    "
10120
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
    72
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
    73
    "Modified: / 23-10-2006 / 16:34:41 / cg"
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    74
! !
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    75
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    76
!PeekableStream class methodsFor:'Signal constants'!
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    77
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    78
currentFileInDirectoryQuerySignal
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    79
    "return the querySignal, which can be used to ask for the current directory
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    80
     during a fileIn (that is the directory where the filed-in file resides),
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    81
     and in a fileBrowsers doIt.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    82
     Using this, allows for the loaded code or doIts to ask for the fileBrowsers
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    83
     current directory, by asking this querySignal (which is nice sometimes)."
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    84
10120
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
    85
    CurrentFileInDirectoryQuerySignal isNil ifTrue:[
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
    86
        CurrentFileInDirectoryQuerySignal := QuerySignal new.
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
    87
        CurrentFileInDirectoryQuerySignal nameClass:self message:#currentFileInDirectoryQuerySignal.
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
    88
        CurrentFileInDirectoryQuerySignal notifierString:'query for current directory when filing in'.
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
    89
        CurrentFileInDirectoryQuerySignal handlerBlock:[:ex | ex proceedWith:Filename currentDirectory].
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
    90
    ].
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
    91
    ^ CurrentFileInDirectoryQuerySignal
10120
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
    92
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
    93
    "Modified: / 23-10-2006 / 16:34:37 / cg"
10002
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
    94
!
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
    95
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
    96
currentSourceContainerQuery
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
    97
    "return the querySignal, which can be used to ask for the current source container filename
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
    98
     during a fileIn 
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
    99
     Using this, allows for the loaded code to remember the classes file name."
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
   100
10120
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   101
    CurrentSourceContainerQuery isNil ifTrue:[
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   102
        CurrentSourceContainerQuery := QuerySignal new.
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   103
        CurrentSourceContainerQuery nameClass:self message:#currentClassFilenameQuery.
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   104
        CurrentSourceContainerQuery notifierString:'query for current sorce container name when filing in'.
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   105
        CurrentSourceContainerQuery handlerBlock:[:ex | ex proceedWith:nil].
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   106
    ].
10002
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
   107
    ^ CurrentSourceContainerQuery
10120
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   108
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   109
    "Modified: / 23-10-2006 / 16:32:49 / cg"
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   110
! !
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   111
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   112
!PeekableStream class methodsFor:'queries'!
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   113
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   114
currentFileInDirectory
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   115
    "during a fileIn (if a script), the script can ask for the current directory"
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   116
10120
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   117
    ^ self currentFileInDirectoryQuerySignal query
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   118
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   119
    "Modified: / 23-10-2006 / 16:34:47 / cg"
10002
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
   120
!
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
   121
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
   122
currentSourceContainer
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
   123
    "during a fileIn (if a script), the script can ask for the current filename"
3a70c4f5afe0 Set classes source container name on fileIn
Stefan Vogel <sv@exept.de>
parents: 9356
diff changeset
   124
10120
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   125
    ^ self currentSourceContainerQuery query
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   126
cc81848112f4 allow for currentFileInQueries to be used BEFORE the class is initialized
Claus Gittinger <cg@exept.de>
parents: 10002
diff changeset
   127
    "Modified: / 23-10-2006 / 16:33:40 / cg"
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   128
! !
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   129
5394
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   130
!PeekableStream methodsFor:'chunk input/output'!
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   131
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   132
nextChunk
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   133
    "return the next chunk, i.e. all characters up to the next
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   134
     exclamation mark. Within the chunk, exclamation marks have to be doubled,
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   135
     they are undoubled here.
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   136
     Except for primitive code, in which doubling is not needed (allowed).
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   137
     This exception was added to make it easier to edit primitive code with 
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   138
     external editors. However, this means, that other Smalltalks cannot always 
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   139
     read chunks containing primitive code 
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   140
     - but that doesn't really matter, since C-primitives are an ST/X feature anyway."
5394
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   141
18213
c0d479ac5af6 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 17636
diff changeset
   142
    |buffer theString chunkSeparator newString done thisChar nextChar 
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   143
     atBeginOfLine inPrimitive  hasCR hasLF
5394
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   144
     index    "{ Class:SmallInteger }"
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   145
     currSize "{ Class:SmallInteger }" |
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   146
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   147
    chunkSeparator := ChunkSeparator.
18213
c0d479ac5af6 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 17636
diff changeset
   148
    buffer := CharacterWriteStream on:(String new:100).
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   149
    self skipSeparators.
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   150
    thisChar := self nextOrNil.
5394
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   151
    done := false.
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   152
    atBeginOfLine := true.
5394
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   153
    inPrimitive := false.
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   154
    hasCR := hasLF := false.
5394
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   155
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   156
    [done not and:[thisChar notNil]] whileTrue:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   157
        "match primitive only at beginning of line 
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   158
         (ExternalStream>>#nextChunk did this, although stc allows primitive to start anywhere)"
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   159
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   160
        (atBeginOfLine and:[thisChar == $%]) ifTrue:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   161
            nextChar := self peekOrNil.
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   162
            (nextChar == ${ ) ifTrue:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   163
                inPrimitive := true.
18213
c0d479ac5af6 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 17636
diff changeset
   164
                buffer nextPut:thisChar.
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   165
                thisChar := self next
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   166
            ] ifFalse:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   167
                (nextChar == $} ) ifTrue:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   168
                    inPrimitive := false.
18213
c0d479ac5af6 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 17636
diff changeset
   169
                    buffer nextPut:thisChar.
8192
ade8d06d98eb *** empty log message ***
ca
parents: 7685
diff changeset
   170
                    thisChar := self next
ade8d06d98eb *** empty log message ***
ca
parents: 7685
diff changeset
   171
                ]
ade8d06d98eb *** empty log message ***
ca
parents: 7685
diff changeset
   172
            ]
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   173
        ] ifFalse:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   174
            "chunk can not end in primitive code"
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   175
            (inPrimitive not and:[thisChar == chunkSeparator]) ifTrue:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   176
                (self peekOrNil == chunkSeparator) ifTrue:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   177
                    "double chunkSeparator, make single"
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   178
                    self next.
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   179
                ] ifFalse:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   180
                    "single chunkSeparator: end of chunk"
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   181
                    done := true.
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   182
                ].
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   183
            ].
8192
ade8d06d98eb *** empty log message ***
ca
parents: 7685
diff changeset
   184
        ].
ade8d06d98eb *** empty log message ***
ca
parents: 7685
diff changeset
   185
        done ifFalse:[
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   186
            "now map CR LF to LF (ExternalStream>>#nextChunk did this)"
10351
132061a1ad3f Fix %{ detection in #nextChunk
Stefan Vogel <sv@exept.de>
parents: 10347
diff changeset
   187
            atBeginOfLine := false.
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   188
            thisChar == Character return ifTrue:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   189
                self peekOrNil == Character lf ifTrue:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   190
                    self next.
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   191
                    thisChar := Character lf.
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   192
                    hasLF := true.
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   193
                ] ifFalse:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   194
                    "CR without LF"
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   195
                    hasCR := true.
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   196
                ].
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   197
                atBeginOfLine := true.
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   198
            ] ifFalse:[thisChar == Character lf ifTrue:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   199
                hasLF := true.
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   200
                atBeginOfLine := true.
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   201
            ]].
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   202
                
18213
c0d479ac5af6 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 17636
diff changeset
   203
            buffer nextPut:thisChar.
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   204
            thisChar := self nextOrNil.
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   205
        ].
5394
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   206
    ].
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   207
18213
c0d479ac5af6 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 17636
diff changeset
   208
    theString := buffer contents.
10347
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   209
    (hasCR and:[hasLF not]) ifTrue:[
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   210
        "map all CR in a CR only file to NL (ExternalStream>>#nextChunk did this)"
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   211
        theString replaceAll:Character cr with:Character nl.
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   212
    ].
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   213
0d5ca408160f #nextChunk - same behavior as in ExternalStream>>#nextChunk
Stefan Vogel <sv@exept.de>
parents: 10120
diff changeset
   214
    ^ theString
5394
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   215
! !
f877659e09f7 got nextChunk from subclass
Claus Gittinger <cg@exept.de>
parents: 4432
diff changeset
   216
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   217
!PeekableStream methodsFor:'fileIn'!
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   218
8867
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   219
fileIn
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   220
    "file in from the receiver, i.e. read chunks and evaluate them -
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   221
     return the value of the last chunk."
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   222
15965
8e5396a9141f class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 15120
diff changeset
   223
    |notifiedLoader lastValue|
8867
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   224
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   225
    SourceFileLoader notNil ifTrue:[
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   226
        notifiedLoader := SourceFileLoader on:self.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   227
    ].
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   228
12783
8dd61118e5f9 changed: #fileIn
Claus Gittinger <cg@exept.de>
parents: 11497
diff changeset
   229
    Class nameSpaceQuerySignal handle:[:ex |
12785
0198461e00c7 changed: #fileIn
Claus Gittinger <cg@exept.de>
parents: 12783
diff changeset
   230
        ex proceedWith:Smalltalk
12783
8dd61118e5f9 changed: #fileIn
Claus Gittinger <cg@exept.de>
parents: 11497
diff changeset
   231
    ] do:[
8dd61118e5f9 changed: #fileIn
Claus Gittinger <cg@exept.de>
parents: 11497
diff changeset
   232
        lastValue := self fileInNotifying:notifiedLoader passChunk:true.
8dd61118e5f9 changed: #fileIn
Claus Gittinger <cg@exept.de>
parents: 11497
diff changeset
   233
    ].
8dd61118e5f9 changed: #fileIn
Claus Gittinger <cg@exept.de>
parents: 11497
diff changeset
   234
    ^ lastValue.
8867
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   235
!
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   236
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   237
fileInBinary
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   238
    "file in from the receiver, i.e. read binary stored classes and/or objects.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   239
     Return the last object."
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   240
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   241
    |bos obj|
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   242
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   243
    bos := BinaryObjectStorage onOld:self.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   244
    Class nameSpaceQuerySignal 
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   245
	answer:Smalltalk
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   246
	do:[
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   247
	    [self atEnd] whileFalse:[
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   248
		obj := bos next.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   249
	    ]
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   250
	].
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   251
    bos close.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   252
    ^ obj
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   253
8867
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   254
    "Created: / 13.11.2001 / 10:12:30 / cg"
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   255
    "Modified: / 13.11.2001 / 10:14:04 / cg"
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   256
! !
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   257
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   258
!PeekableStream methodsFor:'positioning'!
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   259
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   260
skipAny:skipCollection
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   261
    "skip all characters included in the argument-set.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   262
     returns the next peeked element or nil, if the end-of-stream was reached."
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   263
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   264
    |nextOne|
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   265
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   266
    nextOne := self peekOrNil.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   267
    [nextOne notNil and:[skipCollection includes:nextOne]] whileTrue:[
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   268
        self next.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   269
        nextOne := self peekOrNil
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   270
    ].
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   271
    ^ nextOne
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   272
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   273
    "
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   274
     |s skipChars|
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   275
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   276
     s := ReadStream on:'some numbers1234with\in other99 stuff' withCRs.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   277
     skipChars := 'abcdefghijklmnopqrstuvwxyz\ ' withCRs.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   278
     s skipAny:skipChars.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   279
     Transcript showCR:(Integer readFrom:s).
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   280
     s skipAny:skipChars.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   281
     Transcript showCR:(Integer readFrom:s).
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   282
    "
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   283
!
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   284
8867
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   285
skipSeparators
16502
d80457997839 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
   286
    "skip all whitespace; 
d80457997839 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
   287
     return the next peeked element or nil, if the end-of-stream was reached.
d80457997839 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16376
diff changeset
   288
     The stream's elements should be characters.
8867
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   289
     Notice: compare this method to skipSpaces"
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   290
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   291
    |nextOne|
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   292
8867
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   293
    nextOne := self peekOrNil.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   294
    [nextOne notNil and:[nextOne isSeparator]] whileTrue:[
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   295
        self next.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   296
        nextOne := self peekOrNil
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   297
    ].
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   298
    ^ nextOne
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   299
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   300
    "
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   301
     |s|
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   302
8867
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   303
     s := ReadStream on:'one      two\three' withCRs.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   304
     s skipSeparators.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   305
     Transcript showCR:(s nextWord).
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   306
     s skipSeparators.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   307
     Transcript showCR:(s nextWord).
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   308
     s skipSeparators.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   309
     Transcript showCR:(s next displayString).
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   310
    "
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   311
!
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   312
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   313
skipSeparatorsExceptCR
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   314
    "skip all whitespace except carriage return; returns the 
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   315
     next peeked element or nil, if the end-of-stream was reached.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   316
     The streams elements should be characters.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   317
     Notice: compare this method to skipSpaces and skipSeparators"
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   318
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   319
    |nextOne|
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   320
8867
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   321
    nextOne := self peekOrNil.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   322
    [nextOne notNil 
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   323
     and:[nextOne isSeparator
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   324
     and:[nextOne ~~ Character cr]]] whileTrue:[
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   325
        self next.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   326
        nextOne := self peekOrNil
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   327
    ].
8867
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   328
    ^ nextOne
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   329
!
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   330
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   331
skipSpaces
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   332
    "skip all spaces; returns the next peeked element or
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   333
     nil, if the end-of-stream was reached.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   334
     The streams elements should be characters.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   335
     Notice: this one skips only spaces (i.e. no cr, tabs etc)
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   336
             usually, skipSeparators is what you want."
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   337
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   338
    |nextOne|
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   339
8867
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   340
    nextOne := self peekOrNil.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   341
    [nextOne notNil and:[nextOne == Character space]] whileTrue:[
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   342
        self next.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   343
        nextOne := self peekOrNil
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   344
    ].
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   345
    ^ nextOne
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   346
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   347
    "
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   348
     |s|
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   349
8867
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   350
     s := ReadStream on:'one      two\three' withCRs.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   351
     s skipSpaces.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   352
     Transcript showCR:(s nextWord).
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   353
     s skipSpaces.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   354
     Transcript showCR:(s nextWord).
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   355
     s skipSpaces.
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   356
     Transcript showCR:(s next displayString).
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   357
    "
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   358
! !
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   359
436f86af36df Do not pop up dialogs on PackageRedefinitions when doing a fileIn
Stefan Vogel <sv@exept.de>
parents: 8719
diff changeset
   360
!PeekableStream methodsFor:'private fileIn'!
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   361
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   362
basicFileInNotifying:someone passChunk:passChunk
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   363
    "central method to file in from the receiver, i.e. read chunks and evaluate them -
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   364
     return the value of the last chunk.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   365
     Someone (which is usually some codeView) is notified of errors."
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   366
15965
8e5396a9141f class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 15120
diff changeset
   367
     ^(EncodedStream decodedStreamFor:self) basicFileInNotifying:someone passChunk:passChunk
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   368
15965
8e5396a9141f class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 15120
diff changeset
   369
    "Modified: / 10-09-1999 / 16:54:01 / stefan"
8e5396a9141f class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 15120
diff changeset
   370
    "Modified: / 16-11-2001 / 16:21:28 / cg"
8e5396a9141f class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 15120
diff changeset
   371
    "Modified: / 25-03-2013 / 22:57:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   372
!
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   373
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   374
fileInNextChunkNotifying:someone
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   375
    "read next chunk, evaluate it and return the result;
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   376
     someone (which is usually some codeView) is notified of errors.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   377
     Filein is done as follows:
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   378
	read a chunk
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   379
	if it started with an excla, evaluate it, and let the resulting object
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   380
	fileIn more chunks.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   381
	This is a nice trick, since the methodsFor: expression evaluates to
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   382
	a ClassCategoryReader which reads and compiles chunks for its class.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   383
	However, other than methodsFor expressions are possible - you can
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   384
	(in theory) create readers for any syntax.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   385
    "
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   386
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   387
    ^ self fileInNextChunkNotifying:someone passChunk:false
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   388
!
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   389
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   390
fileInNextChunkNotifying:someone passChunk:passChunk
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   391
    "read next chunk, evaluate it and return the result;
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   392
     someone (which is usually some codeView) is notified of errors.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   393
     Filein is done as follows:
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   394
	read a chunk
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   395
	if it started with an excla, evaluate it, and let the resulting object
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   396
	fileIn more chunks.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   397
	This is a nice trick, since the methodsFor: expression evaluates to
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   398
	a ClassCategoryReader which reads and compiles chunks for its class.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   399
	However, other than methodsFor expressions are possible - you can
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   400
	(in theory) create readers for any syntax.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   401
    "
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   402
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   403
    ^ self fileInNextChunkNotifying:someone passChunk:passChunk silent:nil
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   404
!
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   405
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   406
fileInNextChunkNotifying:someone passChunk:passChunk silent:beSilent
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   407
    "read next chunk, evaluate it and return the result;
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   408
     someone (which is usually some codeView) is notified of errors.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   409
     Filein is done as follows:
11497
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   410
        read a chunk
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   411
        if it started with an excla, evaluate it, and let the resulting object
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   412
        fileIn more chunks.
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   413
        This is a nice trick, since the methodsFor: expression evaluates to
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   414
        a ClassCategoryReader which reads and compiles chunks for its class.
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   415
        However, other than methodsFor expressions are possible - you can
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   416
        (in theory) create readers for any syntax.
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   417
    "
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   418
13282
9b8542c8439e changed: #fileInNextChunkNotifying:passChunk:silent:
Claus Gittinger <cg@exept.de>
parents: 12785
diff changeset
   419
    |aString sawExcla rslt done compiler|
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   420
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   421
    self skipSeparators.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   422
    self atEnd ifFalse:[
11497
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   423
        sawExcla := self peekFor:(self class chunkSeparator).
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   424
        aString := self nextChunk.
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   425
        "/
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   426
        "/ handle empty chunks;
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   427
        "/ this allows for Squeak code to be filedIn
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   428
        "/
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   429
        [aString size == 0
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   430
        and:[self atEnd not]] whileTrue:[
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   431
            aString := self nextChunk.
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   432
        ].
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   433
        aString size ~~ 0 ifTrue:[
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   434
            passChunk ifTrue:[
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   435
                someone notNil ifTrue:[someone source:aString]
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   436
            ].
17636
b1f2d32a9931 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 17560
diff changeset
   437
            someone perform:#reader: with:(SourceFileLoader::SourceFileReader new) ifNotUnderstood:[].
13282
9b8542c8439e changed: #fileInNextChunkNotifying:passChunk:silent:
Claus Gittinger <cg@exept.de>
parents: 12785
diff changeset
   438
            compiler := Smalltalk::Compiler new.
9b8542c8439e changed: #fileInNextChunkNotifying:passChunk:silent:
Claus Gittinger <cg@exept.de>
parents: 12785
diff changeset
   439
            compiler allowUndeclaredVariables:false.
9b8542c8439e changed: #fileInNextChunkNotifying:passChunk:silent:
Claus Gittinger <cg@exept.de>
parents: 12785
diff changeset
   440
11497
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   441
            sawExcla ifFalse:[
13282
9b8542c8439e changed: #fileInNextChunkNotifying:passChunk:silent:
Claus Gittinger <cg@exept.de>
parents: 12785
diff changeset
   442
                "/ class definition chunks, etc., which are simply evaluated
17636
b1f2d32a9931 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 17560
diff changeset
   443
                rslt := compiler evaluate:aString receiver:someone notifying:someone compile:false.
11497
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   444
            ] ifTrue:[
13282
9b8542c8439e changed: #fileInNextChunkNotifying:passChunk:silent:
Claus Gittinger <cg@exept.de>
parents: 12785
diff changeset
   445
                "/ methodsFor chunks, etc., which generate a reader
11497
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   446
                Smalltalk::Compiler emptySourceNotificationSignal handle:[:ex |
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   447
                    ^ nil
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   448
                ] do:[
13282
9b8542c8439e changed: #fileInNextChunkNotifying:passChunk:silent:
Claus Gittinger <cg@exept.de>
parents: 12785
diff changeset
   449
                    rslt := compiler 
9b8542c8439e changed: #fileInNextChunkNotifying:passChunk:silent:
Claus Gittinger <cg@exept.de>
parents: 12785
diff changeset
   450
                                evaluate:aString 
9b8542c8439e changed: #fileInNextChunkNotifying:passChunk:silent:
Claus Gittinger <cg@exept.de>
parents: 12785
diff changeset
   451
                                notifying:someone 
9b8542c8439e changed: #fileInNextChunkNotifying:passChunk:silent:
Claus Gittinger <cg@exept.de>
parents: 12785
diff changeset
   452
                                compile:false.
11497
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   453
                ].
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   454
11497
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   455
                "
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   456
                 usually, the above chunk consists of some methodsFor:-expression
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   457
                 in this case, the returned value is a ClassCategoryReader,
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   458
                 which is used to load & compile the methods ...
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   459
                "
13282
9b8542c8439e changed: #fileInNextChunkNotifying:passChunk:silent:
Claus Gittinger <cg@exept.de>
parents: 12785
diff changeset
   460
                (rslt isNil or:[rslt == #Error]) ifTrue:[
11497
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   461
                    "
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   462
                     however, if that was nil (i.e. some error), we skip chunks
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   463
                     up to the next empty chunk.
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   464
                    "
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   465
                    Transcript showCR:'skipping chunks ...'.
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   466
                    done := false.
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   467
                    [done] whileFalse:[
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   468
                        aString := self nextChunk.
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   469
                        done := (aString size == 0).
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   470
                    ]
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   471
                ] ifFalse:[
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   472
                    rslt := rslt 
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   473
                                fileInFrom:self 
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   474
                                notifying:someone 
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   475
                                passChunk:passChunk
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   476
                                single:false
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   477
                                silent:beSilent
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   478
                ]
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   479
            ]
ac8024ede0ff changed #fileInNextChunkNotifying:passChunk:silent:
Stefan Vogel <sv@exept.de>
parents: 11139
diff changeset
   480
        ]
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   481
    ].
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   482
    ^ rslt
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   483
13282
9b8542c8439e changed: #fileInNextChunkNotifying:passChunk:silent:
Claus Gittinger <cg@exept.de>
parents: 12785
diff changeset
   484
    "Modified: / 05-02-2011 / 10:06:57 / cg"
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   485
!
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   486
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   487
fileInNotifying:notifiedLoader passChunk:passChunk
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   488
    "central method to file in from the receiver, i.e. read chunks and evaluate them -
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   489
     return the value of the last chunk.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   490
     Someone (which is usually some codeView) is notified of errors."
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   491
10394
485f6c2d8db0 Do not refer to non-existant aspect
Stefan Vogel <sv@exept.de>
parents: 10356
diff changeset
   492
    ^ self basicFileInNotifying:notifiedLoader passChunk:passChunk.
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   493
!
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   494
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   495
fileInXMLNotifying:someone passChunk:passChunk
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   496
    "filein an XML source file (format as in campSmalltalk DTD)"
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   497
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   498
    | builder parser|
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   499
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   500
    (XML isNil or:[XML::SourceNodeBuilder isNil or:[XML::XMLParser isNil]]) ifTrue:[
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   501
	Smalltalk loadPackage:'stx:goodies/xml/vw'.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   502
	(XML isNil or:[XML::SourceNodeBuilder isNil or:[XML::XMLParser isNil]]) ifTrue:[
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   503
	    self error:'Could not load XML package(s) from ''stx:goodies/xml/vw'''.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   504
	]
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   505
    ].
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   506
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   507
    builder := XML::SourceNodeBuilder new.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   508
    parser := XML::XMLParser on:self.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   509
    parser builder:builder.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   510
    parser validate:false.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   511
    parser scanDocument.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   512
    "/ self halt.
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   513
! !
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   514
4404
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   515
!PeekableStream methodsFor:'reading'!
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   516
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   517
nextDecimalInteger
16883
3a1d9376ec32 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16609
diff changeset
   518
    "read the next integer in radix 10. 
3a1d9376ec32 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16609
diff changeset
   519
     Does NOT skip initial whitespace.
4404
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   520
     The streams elements should be characters.
16883
3a1d9376ec32 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16609
diff changeset
   521
3a1d9376ec32 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16609
diff changeset
   522
     Be careful - this method returns 0 if not positioned on a digit intitially
4432
5267a659f8d9 avoid raising pastEnd exceptions in skip-methods
Claus Gittinger <cg@exept.de>
parents: 4404
diff changeset
   523
     or if the end of the stream is encountered."
4404
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   524
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   525
    |nextOne value|
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   526
4432
5267a659f8d9 avoid raising pastEnd exceptions in skip-methods
Claus Gittinger <cg@exept.de>
parents: 4404
diff changeset
   527
    nextOne := self peekOrNil.
4404
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   528
    value := 0.
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   529
    [nextOne notNil and:[nextOne isDigitRadix:10]] whileTrue:[
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   530
        value := (value * 10) + nextOne digitValue.
4432
5267a659f8d9 avoid raising pastEnd exceptions in skip-methods
Claus Gittinger <cg@exept.de>
parents: 4404
diff changeset
   531
        self next.
5267a659f8d9 avoid raising pastEnd exceptions in skip-methods
Claus Gittinger <cg@exept.de>
parents: 4404
diff changeset
   532
        nextOne := self peekOrNil
4404
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   533
    ].
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   534
    ^ value
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   535
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   536
    "
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   537
     |s|
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   538
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   539
     s := '1234 5678' readStream.
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   540
     s nextDecimalInteger. 
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   541
    "
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   542
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   543
    "
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   544
     |s|
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   545
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   546
     s := '1234 5678' readStream.
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   547
     s nextDecimalInteger.
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   548
     s skipSpaces.
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   549
     s nextDecimalInteger. 
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   550
    "
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   551
!
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   552
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   553
nextDelimited:terminator
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   554
    "return the contents of the receiver, up to the next terminator character. 
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   555
     Doubled terminators indicate an embedded terminator character.  
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   556
     For example: 'this '' was a quote'. 
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   557
     Start postioned before the initial terminator."
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   558
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   559
    | out ch |
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   560
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   561
    self atEnd ifTrue: [^ ''].
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   562
    self next == terminator ifFalse: [self skip: -1].       "absorb initial terminator"
18273
7f1f1a4eef6b class: PeekableStream
Stefan Vogel <sv@exept.de>
parents: 18213
diff changeset
   563
    out := WriteStream on:(self contentsSpecies new).
4404
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   564
    [(ch := self next) == nil] whileFalse: [
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   565
        (ch == terminator) ifTrue: [
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   566
            self peek == terminator ifFalse: [
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   567
                ^ out contents  "terminator is not doubled; we're done!!"
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   568
            ].
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   569
            self next.  "skip doubled terminator"
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   570
        ].
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   571
        out nextPut: ch.
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   572
    ].
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   573
    ^ out contents
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   574
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   575
    "
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   576
     ('*foo bar baz* more foo' readStream nextDelimited:$*) 
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   577
     ('*foo bar **baz***' readStream nextDelimited:$*)   
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   578
    "
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   579
!
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   580
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   581
nextPeek
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   582
    "advance to next element and return the peeked element"
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   583
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   584
    self next.
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   585
    ^ self peek
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   586
!
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   587
9356
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   588
nextUpTo:anObject
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   589
    "read a collection of all objects up-to anObject and return these
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   590
     elements, but excluding anObject. 
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   591
     The next read operation will return anObject.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   592
     If anObject is not encountered, all elements up to the end are read
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   593
     and returned, and the stream is positioned at the end.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   594
     Compare this with #upTo: which positions behind anObject"
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   595
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   596
    |answerStream element|
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   597
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   598
    answerStream := WriteStream on:(self contentsSpecies new).
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   599
    [self atEnd] whileFalse:[
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   600
	element := self peek.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   601
	(element = anObject) ifTrue: [
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   602
	    ^ answerStream contents
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   603
	].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   604
	answerStream nextPut:element.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   605
	self next.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   606
    ].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   607
    ^ answerStream contents
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   608
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   609
    "
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   610
     |s|
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   611
     s := ReadStream on:#(1 2 3 4 5 6 7 8).
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   612
     Transcript showCR:(s nextUpTo:4).  
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   613
     Transcript showCR:s next
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   614
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   615
     |s|
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   616
     s := ReadStream on:#(1 2 3 4 5 6 7 8).
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   617
     Transcript showCR:(s upTo:4).  
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   618
     Transcript showCR:s next
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   619
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   620
     |s|
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   621
     s := ReadStream on:#(1 2 3 4 5 6 7 8).
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   622
     Transcript showCR:(s nextUpTo:9).  
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   623
     Transcript showCR:s next
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   624
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   625
     |s|
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   626
     s := ReadStream on:#(1 2 3 4 5 6 7 8).
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   627
     Transcript showCR:(s upTo:9).  
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   628
     Transcript showCR:s next
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   629
    "
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   630
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   631
    "Created: 24.1.1997 / 14:08:35 / cg"
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   632
    "Modified: 24.1.1997 / 14:09:49 / cg"
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   633
!
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   634
4404
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   635
peek 
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   636
    "return the next element of the stream without advancing (i.e.
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   637
     the following send of next will return this element again.)
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   638
     - we do not know here how to do it, it must be redefined in subclass"
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   639
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   640
    ^ self subclassResponsibility
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   641
!
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   642
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   643
peekFor:anObject 
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   644
    "if the next-to-be-read object is equal to the argument, anObject, read it
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   645
     and return true. Otherwise, leave the receiver unaffected and return false."
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   646
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   647
    self peek = anObject ifTrue:[
10356
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   648
        self nextOrNil.
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   649
        ^ true
4404
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   650
    ].
417e6668f732 added #nextDelimited:
Claus Gittinger <cg@exept.de>
parents: 2421
diff changeset
   651
    ^ false
10356
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   652
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   653
    "
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   654
      #() readStream peekFor:nil
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   655
      #() readStream signalAtEnd:true; peekFor:nil
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   656
      #(nil) readStream peekFor:nil
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   657
    "
68
59faa75185ba *** empty log message ***
claus
parents: 58
diff changeset
   658
!
59faa75185ba *** empty log message ***
claus
parents: 58
diff changeset
   659
9356
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   660
peekOrNil
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   661
    "like #peek, this returns the next readAhead element, if available.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   662
     However, unlike #peek, this does not raise an atEnd-query signal - even
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   663
     if handled. Instead, nil is returned immediately."
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   664
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   665
    self atEnd ifTrue:[^ nil].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   666
    ^ self peek
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   667
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   668
    "Created: / 5.3.1998 / 02:56:49 / cg"
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   669
    "Modified: / 5.3.1998 / 13:45:07 / cg"
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   670
!
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   671
11139
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   672
throughAnyForWhich:checkBlock
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   673
    "read & return a collection of all objects up-to and including 
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   674
     the elements for which checkBlock returns true.
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   675
     (i.e. read until checkBlock returns false on an element)
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   676
     If no such element is encountered, all elements up to the end are read
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   677
     and returned."
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   678
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   679
    |answerStream element|
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   680
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   681
    answerStream := WriteStream on:(self contentsSpecies new).
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   682
    [self atEnd] whileFalse:[
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   683
        element := self peek.
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   684
        (checkBlock value:element) ifFalse:[
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   685
            ^ answerStream contents
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   686
        ].
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   687
        answerStream nextPut:element.
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   688
        self next.
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   689
    ].
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   690
    ^ answerStream contents
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   691
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   692
    "
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   693
     |s|
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   694
     s := ReadStream on:#(1 2 3 4 5 6 7 8).
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   695
     Transcript showCR:(s throughAny:#(3 4 5)).  
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   696
     Transcript showCR:s next
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   697
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   698
     |s|
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   699
     s := ReadStream on:'hello world, this is some text'.
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   700
     Transcript showCR:(s throughAnyForWhich:[:ch | ch isSeparator not]).  
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   701
     Transcript showCR:(s throughAnyForWhich:[:ch | ch isSeparator not]).  
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   702
     Transcript showCR:s upToEnd.
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   703
    "
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   704
91f0a0b1b70a + #throughAnyForWhich:
Claus Gittinger <cg@exept.de>
parents: 10394
diff changeset
   705
    "Modified: / 11.1.1998 / 15:28:04 / cg"
611
80bb0f1a7bab checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   706
! !
58
b5453a2ff4aa Initial revision
claus
parents:
diff changeset
   707
9356
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   708
!PeekableStream methodsFor:'reading-strings'!
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   709
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   710
nextAlphaNumericWord
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   711
    "read the next word (i.e. up to non letter-or-digit).
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   712
     Return a string containing those characters.
18273
7f1f1a4eef6b class: PeekableStream
Stefan Vogel <sv@exept.de>
parents: 18213
diff changeset
   713
     Any leading non-alphaNumeric chars are skipped.
7f1f1a4eef6b class: PeekableStream
Stefan Vogel <sv@exept.de>
parents: 18213
diff changeset
   714
7f1f1a4eef6b class: PeekableStream
Stefan Vogel <sv@exept.de>
parents: 18213
diff changeset
   715
     National letters or digits in unicode are not treated as letters."
9356
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   716
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   717
    |s c|
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   718
10356
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   719
    "first: skip white space and other garbage, leave first character in c"
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   720
    [
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   721
        c := self nextOrNil.
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   722
        c isNil ifTrue:[
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   723
            "end of stream"
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   724
            ^ nil.
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   725
        ].
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   726
        c isLetterOrDigit
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   727
    ] whileFalse.
9356
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   728
10356
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   729
    "second: get the alphanumeric word"
18273
7f1f1a4eef6b class: PeekableStream
Stefan Vogel <sv@exept.de>
parents: 18213
diff changeset
   730
    s := WriteStream on:(self contentsSpecies new:100).
9356
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   731
10356
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   732
    [
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   733
        s nextPut:c.
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   734
        c := self peekOrNil.
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   735
        (c notNil and:[c isLetterOrDigit]) ifTrue:[
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   736
            self next.
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   737
            true.
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   738
        ] ifFalse:[
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   739
            false.
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   740
        ]
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   741
    ] whileTrue.
9356
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   742
10356
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   743
    ^ s contents.
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   744
18273
7f1f1a4eef6b class: PeekableStream
Stefan Vogel <sv@exept.de>
parents: 18213
diff changeset
   745
    "Use UnicodeString in the examples, to avoid the optimization in ReadStream for Strings"
9356
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   746
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   747
    "
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   748
     |s|
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   749
10356
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   750
     s := 'hello world 1234 foo1 foo2' asUnicodeString readStream.
9356
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   751
     [s atEnd] whileFalse:[
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   752
        Transcript showCR:(s nextAlphaNumericWord).
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   753
     ].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   754
    "
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   755
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   756
    "
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   757
     |s|
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   758
10356
6f32850bdc81 speed up #nextAlphaNumericWord
Stefan Vogel <sv@exept.de>
parents: 10351
diff changeset
   759
     s := 'hello +++ #world ###123###abc### 1234 foo1 foo2++++' asUnicodeString readStream.
9356
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   760
     [s atEnd] whileFalse:[
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   761
        Transcript showCR:(s nextAlphaNumericWord).
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   762
     ].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   763
    "
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   764
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   765
    "Modified: 15.5.1996 / 17:51:42 / cg"
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   766
!
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   767
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   768
nextMatching:matchBlock1 thenMatching:matchBlock2
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   769
    "read the next word. The first character must match matchBlock1,
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   770
     remaining characters must match matchBlock2.
16376
f96538a5ea67 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16375
diff changeset
   771
     Return a string containing those characters.
f96538a5ea67 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16375
diff changeset
   772
     Useful to read identifiers, where the first char is from a different
f96538a5ea67 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 16375
diff changeset
   773
     set than the remaining (letter vs. letterOrDigit)"
9356
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   774
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   775
    |s c|
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   776
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   777
    self atEnd ifTrue:[^ nil].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   778
    (matchBlock1 value:self peek) ifFalse:[^ nil].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   779
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   780
    s := self next asString.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   781
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   782
    [self atEnd not
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   783
     and:[matchBlock2 value:(c := self peek)]] whileTrue:[ 
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   784
        s := s copyWith:c. 
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   785
        self next 
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   786
    ].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   787
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   788
    s size == 0 ifTrue:[^ nil].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   789
    ^ s.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   790
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   791
    "
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   792
     |s|
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   793
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   794
     s := 'hello_world_1234 foo1 foo2' readStream.
16375
340f80bcd892 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 15965
diff changeset
   795
     s nextMatching:[:c | c isLetter] 
340f80bcd892 class: PeekableStream
Claus Gittinger <cg@exept.de>
parents: 15965
diff changeset
   796
       thenMatching:[:c | c isLetterOrDigit or:[c == $_]].
9356
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   797
    "
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   798
!
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   799
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   800
nextSymbol
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   801
    "read the next selector-symbol (i.e. up to non letter-or-digit).
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   802
     Return a string containing those characters.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   803
     Any leading non-alphaNumeric chars are skipped."
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   804
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   805
    |symbol c symbolStream|
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   806
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   807
    [self atEnd
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   808
     or:[(c := self peek) isLetterOrDigit]] whileFalse:[
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   809
        self next 
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   810
    ].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   811
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   812
    self atEnd ifTrue:[^ nil].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   813
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   814
    symbolStream := '' writeStream.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   815
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   816
    [self atEnd not
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   817
     and:[(c := self peek) isLetterOrDigit or:[c == $:]]] whileTrue:[
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   818
        symbolStream nextPut:c.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   819
        self next 
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   820
    ].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   821
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   822
    symbol := symbolStream contents.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   823
    symbol size == 0 ifTrue:[^ nil].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   824
    ^ symbol.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   825
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   826
    "
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   827
     |s|
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   828
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   829
     s := 'hello: world 1234 foo1 foo2:' readStream.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   830
     [s atEnd] whileFalse:[
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   831
        Transcript showCR:(s nextSymbol).
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   832
     ].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   833
    "
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   834
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   835
    "
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   836
     |s|
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   837
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   838
     s := 'hello +++ #world ###123###abc### 1234 foo1 foo2' readStream.
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   839
     [s atEnd] whileFalse:[
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   840
        Transcript showCR:(s nextAlphaNumericWord).
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   841
     ].
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   842
    "
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   843
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   844
    "Modified: 15.5.1996 / 17:51:42 / cg"
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   845
! !
dfc36db0f470 Move 'peeking' methods to PeekableStream
Stefan Vogel <sv@exept.de>
parents: 8867
diff changeset
   846
701
a309e3ef7faf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 611
diff changeset
   847
!PeekableStream class methodsFor:'documentation'!
a309e3ef7faf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 611
diff changeset
   848
a309e3ef7faf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 611
diff changeset
   849
version
18273
7f1f1a4eef6b class: PeekableStream
Stefan Vogel <sv@exept.de>
parents: 18213
diff changeset
   850
    ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.55 2015-04-22 18:01:58 stefan Exp $'
12783
8dd61118e5f9 changed: #fileIn
Claus Gittinger <cg@exept.de>
parents: 11497
diff changeset
   851
!
8dd61118e5f9 changed: #fileIn
Claus Gittinger <cg@exept.de>
parents: 11497
diff changeset
   852
8dd61118e5f9 changed: #fileIn
Claus Gittinger <cg@exept.de>
parents: 11497
diff changeset
   853
version_CVS
18273
7f1f1a4eef6b class: PeekableStream
Stefan Vogel <sv@exept.de>
parents: 18213
diff changeset
   854
    ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.55 2015-04-22 18:01:58 stefan Exp $'
701
a309e3ef7faf checkin from browser
Claus Gittinger <cg@exept.de>
parents: 611
diff changeset
   855
! !
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   856
14900
4279d13fca9b class: PeekableStream
Stefan Vogel <sv@exept.de>
parents: 14517
diff changeset
   857
8443
7bc4348c059e fileIn stuff moved to peekableStream
Claus Gittinger <cg@exept.de>
parents: 8192
diff changeset
   858
PeekableStream initialize!