2024-03-06 22:25:12 -08:00
|
|
|
FileLocator home / aFilename readStreamDo: [ :stream |
|
2026-04-30 12:34:36 -04:00
|
|
|
[ stream atEnd ] whileFalse: [
|
|
|
|
|
| line |
|
|
|
|
|
((line := stream nextLine) beginsWith: '>')
|
|
|
|
|
ifTrue: [
|
|
|
|
|
Transcript
|
|
|
|
|
cr;
|
|
|
|
|
show: (line copyFrom: 2 to: line size);
|
|
|
|
|
show: ': ' ]
|
|
|
|
|
ifFalse: [ Transcript show: line ] ] ]
|
