home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 1 / RISC_DISC_1.iso / pd_share / code / smalltalk / !GNUst / st / FileStream < prev    next >
Encoding:
Text File  |  1991-09-13  |  3.1 KB  |  150 lines
  1. "======================================================================
  2. |
  3. |   FileStream Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991 Free Software Foundation, Inc.
  11. | Written by Steve Byrne.
  12. |
  13. | This file is part of GNU Smalltalk.
  14. |
  15. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  16. | under the terms of the GNU General Public License as published by the Free
  17. | Software Foundation; either version 1, or (at your option) any later version.
  18. | 
  19. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  20. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  21. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  22. | details.
  23. | 
  24. | You should have received a copy of the GNU General Public License along with
  25. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  26. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  27. |
  28.  ======================================================================"
  29.  
  30.  
  31. "
  32. |     Change Log
  33. | ============================================================================
  34. | Author       Date       Change 
  35. | sbyrne     19 May 90      Rewrite contents to take advantage of the new
  36. |              FileStream>>size method.
  37. |
  38. | sbyrne     19 Dec 89      added fileIn: and primitive file in.
  39. |
  40. | sbyrne     21 May 89      created.
  41. |
  42. "
  43.  
  44. ReadWriteStream subclass: #FileStream
  45.         instanceVariableNames: 'file name'
  46.         classVariableNames: ''
  47.         poolDictionaries: ''
  48.         category: nil.
  49.  
  50. FileStream comment: 
  51. 'My instances are what conventional programmers think of as files.
  52. My instance creation methods accept the name of a disk file (or any named
  53. file object, such as /dev/rmt0 on UNIX or MTA0: on VMS).' !
  54.  
  55.  
  56. !FileStream class methodsFor: 'basic'!
  57.  
  58. open: fileName mode: fileMode
  59.     | file |
  60.     file _ FileStream new.
  61.     file fileOp: 0 with: fileName with: fileMode.
  62.     ^file
  63. !
  64.  
  65. popen: commandName dir: direction
  66.     | file |
  67.     file _ FileStream new.
  68.     file fileOp: 7 with: commandName with: direction.
  69.     ^file
  70. !
  71.  
  72. fileIn: aFileName
  73.     | fileStream |
  74.     fileStream _ self open: aFileName mode: 'r'.
  75.     fileStream fileIn.
  76.     fileStream close
  77. !!
  78.  
  79. !FileStream methodsFor: 'basic'!
  80.  
  81. close
  82.     self fileOp: 1
  83. !
  84.  
  85. next
  86.     ^self fileOp: 2
  87. !
  88.  
  89. nextPut: aChar
  90.     self fileOp: 3 with: aChar
  91. !
  92.  
  93. position: bytePosition
  94.     self fileOp: 4 with: bytePosition
  95. ! 
  96.  
  97. position
  98.     ^self fileOp: 5
  99. !
  100.  
  101. contents
  102.     | str size |            "this is a ### HACK"
  103.     size _ self size.
  104.     str _ String new: size.
  105.     1 to: size do:
  106.     [ :i | str at: i put: (self next) ].
  107.     ^str
  108. !
  109.  
  110. size
  111.     "Return the current size of the file, in bytes"
  112.     ^self fileOp: 8
  113.  
  114. !!
  115.  
  116.  
  117.  
  118. !FileStream methodsFor: 'overriding inherited methods'!
  119.  
  120. reset
  121.     self position: 0
  122. !
  123.  
  124. setToEnd
  125.     self position: self size
  126. !
  127.  
  128. skip: anInteger
  129.     | pos |
  130.     pos _ ((self position + anInteger) max: 0) min: self size - 1.
  131.     self position: pos
  132. !
  133.  
  134. reverseContents
  135.     ^(ReadStream on: self contents) reverseContents
  136. !
  137.  
  138. isEmpty
  139.     ^self size == 0
  140. !!
  141.  
  142.  
  143. !FileStream methodsFor: 'testing'!
  144.  
  145. atEnd
  146.     ^self fileOp: 6
  147.  
  148.  
  149. !!
  150.