home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / gnusmalltalk / filestream.st < prev    next >
Text File  |  1992-02-15  |  5KB  |  234 lines
  1. "======================================================================
  2. |
  3. |   FileStream Method Definitions
  4. |
  5.  ======================================================================"
  6.  
  7.  
  8. "======================================================================
  9. |
  10. | Copyright (C) 1990, 1991, 1992 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. | sbb         22 Sep 91      Added #popen:dir:ifFail: and #open:mode:ifFail: so
  36. |              that open failures can be explicitly handled.  Thanks
  37. |              to Michael Richardson for the brilliant idea!
  38. |
  39. | sbb          5 Jul 91      Added fileIn:line:from:at: so that when Emacs sends
  40. |              out an expression or a method definition to Smalltalk
  41. |              the error messages accurately report the line number.
  42. |
  43. | sbb          6 Jun 91      Fixed open and popen to use self new instead of
  44. |              FileStream explicitly.
  45. |
  46. | sbb          4 Mar 91      Added verbose flag.
  47. |
  48. | sbyrne     19 May 90      Rewrite contents to take advantage of the new
  49. |              FileStream>>size method.
  50. |
  51. | sbyrne     19 Dec 89      added fileIn: and primitive file in.
  52. |
  53. | sbyrne     21 May 89      created.
  54. |
  55. "
  56.  
  57. ReadWriteStream subclass: #FileStream
  58.         instanceVariableNames: 'file name buffer'
  59.         classVariableNames: 'verbose'
  60.         poolDictionaries: ''
  61.         category: nil
  62. !
  63.  
  64. FileStream comment: 
  65. 'My instances are what conventional programmers think of as files.
  66. My instance creation methods accept the name of a disk file (or any named
  67. file object, such as /dev/rmt0 on UNIX or MTA0: on VMS).'
  68. !
  69.  
  70.  
  71. !FileStream class methodsFor: 'basic'!
  72.  
  73. open: fileName mode: fileMode
  74.     ^self open: fileName mode: fileMode 
  75.       ifFail: [ ^self error: 'Failed to open ''', fileName, '''' ]
  76. !
  77.  
  78. open: fileName mode: fileMode ifFail: aBlock
  79.     | file |
  80.     file _ self new.
  81.     "Does it make sense to have the block be invoked with the file name as 
  82.      an argument?"
  83.     (file fileOp: 0 with: fileName with: fileMode)
  84.     isNil ifTrue: [ ^aBlock value ].
  85.     ^file
  86. !
  87.  
  88. popen: commandName dir: direction
  89.     ^self popen: commandName dir: direction
  90.       ifFail: [ ^self error: 'popen failed for command ''',
  91.             commandName, '''' ]
  92. !
  93.  
  94. popen: commandName dir: direction ifFail: aBlock
  95.     | file |
  96.     file _ self new.
  97.     (file fileOp: 7 with: commandName with: direction)
  98.     isNil ifTrue: [ ^aBlock value ].
  99.     ^file
  100. !
  101.  
  102. fileIn: aFileName
  103.     | fileStream |
  104.     verbose ifTrue: [ stdout nextPutAll: 'Loading ';
  105.               nextPutAll: aFileName; nl ].
  106.     fileStream _ self open: aFileName mode: 'r'.
  107.     fileStream fileIn.
  108.     fileStream close.
  109. !
  110.  
  111. fileIn: aFileName line: lineInteger from: realFileName at: aCharPos
  112.     | fileStream |
  113.     verbose ifTrue: [ stdout nextPutAll: 'Loading ';
  114.               nextPutAll: aFileName; nl ].
  115.     fileStream _ self open: aFileName mode: 'r'.
  116.     fileStream fileInLine: lineInteger fileName: realFileName at: aCharPos.
  117.     fileStream close.
  118. !
  119.  
  120. verbose: verboseFlag
  121.     | oldVerbose |
  122.     oldVerbose _ verbose.
  123.     verbose _ verboseFlag.
  124.     ^oldVerbose
  125. !
  126.  
  127. require: aSymbol
  128.     "If there is a class defined with the name 'aSymbol', do nothing, otherwise
  129.      fileIn 'aSymbol'.st"
  130.     Smalltalk at: aSymbol
  131.           ifAbsent:
  132.           [ self fileIn: aSymbol , '.st' ]
  133. ! !
  134.  
  135.  
  136.  
  137. !FileStream class methodsFor: 'initialization'!
  138.  
  139. initialize
  140.     verbose _ false.
  141. ! !
  142.  
  143.  
  144.  
  145. !FileStream methodsFor: 'basic'!
  146.  
  147. close
  148.     self fileOp: 1
  149. !
  150.  
  151. next
  152.     | ch |
  153.     "Returns nil at eof"
  154.     buffer isNil
  155.     ifTrue: [ ^self fileOp: 2 ]
  156.     ifFalse: [ ch _ buffer.
  157.            buffer _ nil.
  158.            ^ch ]
  159. !
  160.  
  161. nextPut: aChar
  162.     self fileOp: 3 with: aChar
  163. !
  164.  
  165. peek
  166.     buffer
  167.     isNil ifTrue: [ buffer _ self next ].
  168.     ^buffer
  169. !
  170.  
  171. position: bytePosition
  172.     self fileOp: 4 with: bytePosition
  173. ! 
  174.  
  175. position
  176.     ^self fileOp: 5
  177. !
  178.  
  179. contents
  180.     ^self next: self size
  181. !
  182.  
  183. size
  184.     "Return the current size of the file, in bytes"
  185.     ^self fileOp: 8
  186.  
  187. !!
  188.  
  189.  
  190.  
  191. !FileStream methodsFor: 'overriding inherited methods'!
  192.  
  193. reset
  194.     self position: 0
  195. !
  196.  
  197. setToEnd
  198.     self position: self size
  199. !
  200.  
  201. skip: anInteger
  202.     | pos |
  203.     pos _ ((self position + anInteger) max: 0) min: self size - 1.
  204.     self position: pos
  205. !
  206.  
  207. reverseContents
  208.     ^(ReadStream on: self contents) reverseContents
  209. !
  210.  
  211. isEmpty
  212.     ^self size == 0
  213. !
  214.  
  215. nextPutAll: aString        "only works for strings (species String)"
  216.     ^self fileOp: 9 with: aString
  217. !
  218.  
  219. next: anInteger
  220.     "return the next 'anInteger' characters from the stream, as a String."
  221.     ^self fileOp: 10 with: anInteger
  222. !!
  223.  
  224.  
  225.  
  226. !FileStream methodsFor: 'testing'!
  227.  
  228. atEnd
  229.     ^self fileOp: 6
  230.  
  231. !!
  232.  
  233. FileStream initialize!
  234.