World Menu > Tools > Code Changes
click on any change, boom.
[ :error |
(OmFileStoreReadingError
readingError: error
on: self fileReference
position: readStream position) signal ] in [ :readStream |
[ ^ aBlockClosure value: readStream ]
on: Error
do: [ :error |
(OmFileStoreReadingError
readingError: error
on: self fileReference
position: readStream position) signal ] ] in
OmBlockFileStore(OmFileStore)>>readEntriesWith: in Block: [ :error | ...
BlockClosure>>cull:
Context>>evaluateSignal:
Context>>handleSignal:
Context>>handleSignal:
MessageNotUnderstood(Exception)>>signal
UndefinedObject(Object)>>doesNotUnderstand: #<
ZnUTF8Encoder>>nextCodePointFromStream:
ZnUTF8Encoder(ZnCharacterEncoder)>>nextFromStream:
ZnCharacterReadStream>>nextElement
[ :out |
| partialMatch pattern matched |
partialMatch := (self collectionSpecies new: aCollection size)
writeStream.
pattern := aCollection readStream.
matched := false.
[ matched or: [ self atEnd or: [ pattern atEnd ] ] ]
whileFalse: [ | ch |
(ch := self nextElement) = pattern next
ifTrue: [ pattern atEnd
ifTrue: [ matched := true ]
ifFalse: [ partialMatch nextPut: ch ] ]
ifFalse: [ pattern reset.
out nextPutAll: partialMatch contents.
partialMatch reset.
out nextPut: ch ] ].
matched
ifFalse: [ out nextPutAll: partialMatch contents ] ] in
ZnCharacterReadStream>>upToAll: in Block: [ :out | ...
String class(SequenceableCollection class)>>new:streamContents:
String class(SequenceableCollection class)>>streamContents:
ZnCharacterReadStream>>upToAll:
[ stream upToAll: token ] in
OmSTONEntryReader>>nextEntryPositionIfFound:ifNone: in Block: [ stream upToAll:
token ]
BlockClosure>>on:do:
OmSTONEntryReader>>nextEntryPositionIfFound:ifNone:
OmSTONEntryReader>>entryPositionsDo:
OmSTONEntryReader>>entryPositionsUpTo:
[ :readStream |
readStream position: startPosition.
^ self newEntryReader
stream: readStream;
entryPositionsUpTo: endPosition ] in
OmBlockFileStore>>entryPositionsStartingAt:upTo: in Block: [ :readStream | ...
[ ^ aBlockClosure value: readStream ] in [ :readStream |
[ ^ aBlockClosure value: readStream ]
on: Error
do: [ :error |
(OmFileStoreReadingError
readingError: error
on: self fileReference
position: readStream position) signal ] ] in
OmBlockFileStore(OmFileStore)>>readEntriesWith: in Block: [ ^ aBlockClosure
value: readStream ]
BlockClosure>>on:do:
[ :readStream |
[ ^ aBlockClosure value: readStream ]
on: Error
do: [ :error |
(OmFileStoreReadingError
readingError: error
on: self fileReference
position: readStream position) signal ] ] in
OmBlockFileStore(OmFileStore)>>readEntriesWith: in Block: [ :readStream | ...
[ aBlock value: stream ] in FileReference(AbstractFileReference)>>readStreamDo:
in Block: [ aBlock value: stream ]
BlockClosure>>ensure:
FileReference(AbstractFileReference)>>readStreamDo:
OmBlockFileStore(OmFileStore)>>readEntriesWith:
OmBlockFileStore>>entryPositionsStartingAt:upTo:
OmBlock>>refresh
OmBlock>>checkIfMustRefreshBlock
