Re: [Pharo-project] A little quizzzzzzz : find the problem :)

March 28, 2010


      http://code.google.com/p/pharo/issues/detail?id=2228
of course!
Stef

On Mar 28, 2010, at 9:18 PM, StÃ©phane Ducasse wrote:
...
fileStream 
  "Answer the file stream with position set at the beginning of my string.
  Answer a read only copy to avoid syntax errors when accessed via
  multiple processes."
| theFile |
  (sourceFileNumber == nil or: [(SourceFiles at: sourceFileNumber) == nil]) ifTrue: [^ nil].
  theFile := (SourceFiles at: sourceFileNumber) readOnlyCopy.
  theFile position: filePositionHi.
  ^ theFile
string 
  "Answer the receiver's string if remote files are enabled.
  Use a read only copy to avoid syntax errors when accessed via
  multiple processes."
| theFile |
  (sourceFileNumber == nil or: [(SourceFiles at: sourceFileNumber) == nil]) ifTrue: [^''].
  theFile := (SourceFiles at: sourceFileNumber) readOnlyCopy.
  ^[theFile position: filePositionHi.
  theFile nextChunk] ensure: [theFile close]
text 
  "Answer the receiver's string asText if remote files are enabled.
  Use a read only copy to avoid syntax errors when accessed via
  multiple processes."
| theFile |
  (sourceFileNumber == nil or: [(SourceFiles at: sourceFileNumber) == nil]) ifTrue: [^ nil].
  theFile := (SourceFiles at: sourceFileNumber) readOnlyCopy.
  ^[theFile position: filePositionHi.
  theFile position > theFile size ifTrue: [
      self error: 'RemoteString past end of file' ].
  theFile nextChunkText] ensure: [theFile close]
I imagine a good soul could fix that and nicely published in the inbox :)
Stef Did I say something negative about the past :)
_______________________________________________
Pharo-project mailing list
Pharo-project@lists.gforge.inria.fr
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project