home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / prelude / file < prev    next >
Encoding:
Text File  |  1987-12-30  |  779 b   |  44 lines
  1. Class File :SequenceableCollection
  2. [
  3.      modeCharacter
  4.           <FileSetMode self 0>
  5. |
  6.      modeInteger
  7.           <FileSetMode self 2>
  8. |
  9.      modeString
  10.           <FileSetMode self 1>
  11. |
  12.      at: aPosition
  13.           <FileSetPosition self aPosition>.
  14.           ^ self read
  15. |
  16.      at: aPosition put: anObject
  17.           <FileSetPosition self aPosition>.
  18.           ^ self write: anObject
  19. |
  20.      currentKey
  21.           ^ <FileFindPosition self>
  22. |
  23.      first
  24.           ^ self at: 0
  25. |
  26.      next
  27.           ^ self read
  28. |
  29.      open: aName
  30.           <FileOpen self aName 'r' >
  31. |
  32.      open: aName for: opType
  33.           <FileOpen self aName opType >
  34. |
  35.      read
  36.           ^ <FileRead self>
  37. |
  38.      size
  39.           ^ <FileSize self>
  40. |
  41.      write: anObject
  42.           ^ <FileWrite self anObject>
  43. ]
  44.