home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / gnusmalltalk / unixstream.st < prev    next >
Text File  |  1992-03-01  |  8KB  |  408 lines
  1. "======================================================================
  2. |
  3. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  4. | Written by Steve Byrne.
  5. |
  6. | This file is part of GNU Smalltalk.
  7. |
  8. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  9. | under the terms of the GNU General Public License as published by the Free
  10. | Software Foundation; either version 1, or (at your option) any later version.
  11. | 
  12. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  13. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  14. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  15. | details.
  16. | 
  17. | You should have received a copy of the GNU General Public License along with
  18. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  19. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  20. |
  21.  ======================================================================"
  22.  
  23. "
  24. |     Change Log
  25. | ============================================================================
  26. | Author       Date       Change 
  27. | sbb         23 Feb 92      Also added readShort and friends.
  28. |
  29. | sbb         23 Feb 92      Added direction constants
  30. |
  31. | sbb         17 Nov 90      added read:numBytes:
  32. |
  33. | sbb         17 Nov 90      Added skip: method.
  34. |
  35. | sbb         17 Nov 90      Installed as a built-in class.
  36. |
  37. "
  38.  
  39. PositionableStream subclass: #UnixStream
  40.            instanceVariableNames: 'fd'
  41.            classVariableNames: ''
  42.            poolDictionaries: ''
  43.            category: 'Unix integration'
  44. !
  45.     
  46. UnixStream comment:
  47. 'I provide an interface to Unix file descriptors, so that Smalltalk methods
  48. may perform most of the I/O operations that C programs can.  I am quite proud
  49. of my contribution to the GNU Smalltalk project, and look forward to serving
  50. the project better in the future.'
  51. !
  52.  
  53.  
  54. Behavior defineCFunc: 'open'
  55.          withSelectorArgs: 'open: aFileName flags: flagsInteger 
  56.                 mode: anInteger'
  57.      forClass: UnixStream
  58.      returning: #int
  59.      args: #(string int int)
  60. !
  61.  
  62. Behavior defineCFunc: 'close'
  63.      withSelectorArgs: 'close: fileDescriptor'
  64.      forClass: UnixStream
  65.      returning: #int
  66.      args: #(int)
  67. !
  68.  
  69. Behavior defineCFunc: 'read'
  70.      withSelectorArgs: 'read: fileDescriptor into: buf bytes: anInteger'
  71.      forClass: UnixStream
  72.      returning: #int
  73.      args: #(int byteArrayOut int)
  74. !
  75.  
  76. Behavior defineCFunc: 'read'
  77.      withSelectorArgs: 'read: fileDescriptor into: buf chars: anInteger'
  78.      forClass: UnixStream
  79.      returning: #int
  80.      args: #(int stringOut int)
  81. !
  82.  
  83. Behavior defineCFunc: 'write'
  84.      withSelectorArgs: 'write: fileDescriptor from: buf bytes: anInteger'
  85.      forClass: UnixStream
  86.      returning: #int
  87.      args: #(int byteArray int)
  88. !
  89.  
  90. Behavior defineCFunc: 'ioctl'
  91.      withSelectorArgs: 'ioctl: fileDescriptor request: anInteger 
  92.                 arg: cObject'
  93.      forClass: UnixStream
  94.      returning: #int
  95.      args: #(int cObject unknown)
  96. !
  97.  
  98. Behavior defineCFunc: 'lseek'
  99.      withSelectorArgs: 'lseek: fileDescriptor offset: anInteger 
  100.                 whence: cObject'
  101.      forClass: UnixStream
  102.      returning: #int
  103.      args: #(int int int)
  104. !
  105.  
  106. Behavior defineCFunc: 'tell'
  107.      withSelectorArgs: 'tell: fileDescriptor'
  108.      forClass: UnixStream
  109.      returning: #int
  110.      args: #(int)
  111. !
  112.  
  113. "======================================================================
  114. |
  115. |   Type specific I/O routines
  116. |
  117.  ======================================================================"
  118.  
  119. Behavior defineCFunc: 'readChar'
  120.      withSelectorArgs: 'readChar: fileDescriptor'
  121.      forClass: UnixStream
  122.      returning: #smalltalk
  123.      args: #(int)
  124. !
  125.  
  126. Behavior defineCFunc: 'readUChar'
  127.      withSelectorArgs: 'readUChar: fileDescriptor'
  128.      forClass: UnixStream
  129.      returning: #smalltalk
  130.      args: #(int)
  131. !
  132.  
  133. Behavior defineCFunc: 'readShort'
  134.      withSelectorArgs: 'readShort: fileDescriptor'
  135.      forClass: UnixStream
  136.      returning: #smalltalk
  137.      args: #(int)
  138. !
  139.  
  140. Behavior defineCFunc: 'readUShort'
  141.      withSelectorArgs: 'readUShort: fileDescriptor'
  142.      forClass: UnixStream
  143.      returning: #smalltalk
  144.      args: #(int)
  145. !
  146.  
  147. Behavior defineCFunc: 'readLong'
  148.      withSelectorArgs: 'readLong: fileDescriptor'
  149.      forClass: UnixStream
  150.      returning: #smalltalk
  151.      args: #(int)
  152. !
  153.  
  154. Behavior defineCFunc: 'readULong'
  155.      withSelectorArgs: 'readULong: fileDescriptor'
  156.      forClass: UnixStream
  157.      returning: #smalltalk
  158.      args: #(int)
  159. !
  160.  
  161. Behavior defineCFunc: 'readFloat'
  162.      withSelectorArgs: 'readFloat: fileDescriptor'
  163.      forClass: UnixStream
  164.      returning: #smalltalk
  165.      args: #(int)
  166. !
  167.  
  168. Behavior defineCFunc: 'readDouble'
  169.      withSelectorArgs: 'readDouble: fileDescriptor'
  170.      forClass: UnixStream
  171.      returning: #smalltalk
  172.      args: #(int)
  173. !
  174.  
  175.  
  176. Behavior defineCFunc: 'writeChar: aChar'
  177.      withSelectorArgs: 'write: fileDescriptor char: aChar'
  178.      forClass: UnixStream
  179.      returning: #void
  180.      args: #(int char)
  181. !
  182.  
  183. Behavior defineCFunc: 'writeShort: aShort'
  184.      withSelectorArgs: 'write: fileDescriptor short: aShort'
  185.      forClass: UnixStream
  186.      returning: #void
  187.      args: #(int int)
  188. !
  189.  
  190. Behavior defineCFunc: 'writeLong: aLong'
  191.      withSelectorArgs: 'write: fileDescriptor long: aLong'
  192.      forClass: UnixStream
  193.      returning: #void
  194.      args: #(int long)
  195. !
  196.  
  197. Behavior defineCFunc: 'writeFloat: aFloat'
  198.      withSelectorArgs: 'write: fileDescriptor float: aFloat'
  199.      forClass: UnixStream
  200.      returning: #void
  201.      args: #(int double)
  202. !
  203.  
  204. Behavior defineCFunc: 'writeDouble: aDouble'
  205.      withSelectorArgs: 'write: fileDescriptor double: aDouble'
  206.      forClass: UnixStream
  207.      returning: #void
  208.      args: #(int double)
  209. !
  210.  
  211.  
  212.  
  213.  
  214.  
  215. !UnixStream class methodsFor: 'instance creation'!
  216.  
  217. open: fileName dir: anInteger
  218.     ^self open: fileName dir: anInteger mode: 0
  219. !
  220.  
  221. open: fileName dir: anInteger mode: intMode
  222.     ^self new init: fileName dir: anInteger mode: intMode
  223. !
  224.  
  225. on: fd
  226.     ^self new initFd: fd
  227. !!
  228.  
  229.  
  230.  
  231. !UnixStream class methodsFor: 'constants'!
  232.  
  233. readOnly
  234.     ^0
  235. !
  236.  
  237. writeOnly
  238.     ^1
  239. !
  240.  
  241. readWrite
  242.     ^2
  243. !
  244.  
  245. "Other modifiers (like O_APPEND) may be added in the future as needs warrant"
  246. !
  247.  
  248.  
  249.  
  250. !UnixStream methodsFor: 'basic accessing'!
  251.  
  252. close
  253.     ^self close: fd
  254. !
  255.  
  256. read: byteArray
  257.     | val |
  258.     ^self read: fd into: byteArray bytes: byteArray size
  259. !
  260.  
  261. read: byteArray numBytes: anInteger
  262.     | val |
  263.     ^self read: fd into: byteArray bytes: anInteger
  264. !
  265.  
  266. read: string numChars: anInteger
  267.     ^self read: fd into: string chars: anInteger
  268. !
  269.  
  270. write: byteArray
  271.     ^self write: byteArray numBytes: byteArray size
  272. !
  273.  
  274. write: byteArray numBytes: anInteger
  275.     ^self write: fd from: byteArray bytes: anInteger
  276. !
  277.  
  278. tell
  279.     ^self tell: fd
  280. !
  281.  
  282. position: anInteger
  283.     ^self lseek: fd offset: anInteger whence: 0 "Set"
  284. !
  285.  
  286. ioctl: number arg: randomArg
  287.     ^self ioctl: fd request: number arg: randomArg
  288. !
  289.  
  290. readChar
  291.     ^self readChar: fd
  292. !
  293.  
  294. readUChar
  295.     ^self readUChar: fd
  296. !
  297.  
  298. readShort
  299.     ^self readShort: fd
  300. !
  301.  
  302. readUShort
  303.     ^self readUShort: fd
  304. !
  305.  
  306. readLong
  307.     ^self readLong: fd
  308. !
  309.  
  310. readULong
  311.     ^self readULong: fd
  312. !
  313.  
  314. readFloat
  315.     ^self readFloat: fd
  316. !
  317.  
  318. readDouble
  319.     ^self readDouble: fd
  320. !
  321.  
  322. writeChar: aChar
  323.     ^self write: fd char: aChar
  324. !
  325.  
  326. writeShort: aShort        "really an integer"
  327.     ^self write: fd short: aShort
  328. !
  329.  
  330. writeLong: aLong
  331.     ^self write: fd long: aLong
  332. !
  333.  
  334. writeFloat: aFloat
  335.     ^self write: fd float: aFloat
  336. !
  337.  
  338. writeDouble: aDouble
  339.     ^self write: fd double: aDouble
  340. ! !
  341.  
  342.  
  343.  
  344. !UnixStream methodsFor: 'accessing'!
  345.  
  346. readString: numChars
  347.     | byteArray numRead str |
  348.     byteArray _ ByteArray new: numChars.
  349.     (numRead _ self read: byteArray) <= 0 "failed for some reason"
  350.     ifTrue: [ ^nil ].
  351.     str _ String new: numRead.
  352.     1 to: numRead do:
  353.     [ :i | str at: i
  354.            put: (Character value: (byteArray at: i)) ].
  355.     ^str
  356. !
  357.  
  358. next
  359.     self notYetImplemented
  360. !
  361.  
  362. next: anInteger
  363.     self self notYetImplemented
  364. !
  365.  
  366.  
  367. nextPut: aValue
  368.     self notYetImplemented
  369. !
  370.  
  371. contents
  372.     self notYetImplemented
  373. !
  374.  
  375. atEnd
  376.     self notYetImplemented
  377. !
  378.  
  379. size
  380.     "Poor man's size function"
  381.     | curPos size |
  382.     curPos _ self tell.
  383.     self lseek: fd offset: 0 whence: 2. "To end"
  384.     size _ self tell.
  385.     self position: curPos.
  386.     ^size
  387. !
  388.  
  389. skip: anInteger
  390.     "Skip n bytes on the file.  N can be positive or negative"
  391.     ^self lseek: fd offset: anInteger whence: 1 "Cur"
  392. !!
  393.  
  394.  
  395.  
  396. !UnixStream methodsFor: 'private'!
  397.  
  398. init: fileName dir: anInteger mode: intMode
  399.     fd _ self open: fileName flags: anInteger mode: intMode.
  400.     fd < 0
  401.     ifTrue: [ ^nil ]
  402. !
  403.  
  404. initFd: anFd
  405.     fd _ anFd
  406. !!
  407.  
  408.