home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / gnusmalltalk / bytearray.st < prev    next >
Text File  |  1992-02-15  |  3KB  |  109 lines
  1. "======================================================================
  2. |
  3. |   ByteArray 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         14 Dec 91      Added asString -- generally useful functionality, but
  36. |              especially for STIX.
  37. |
  38. | sbb         28 Nov 91      Added growSize method -- 10 wasn't right, and we
  39. |              should probably base the grow size on the size of the
  40. |              object in question.
  41. |
  42. | sbb         28 Nov 91      Switched shallowCopy to use faster primitives.
  43. |
  44. | sbb         16 Mar 91      Class creation now separate statement.
  45. |
  46. | sbyrne     25 Apr 89      created.
  47. |
  48. "
  49.  
  50. ArrayedCollection variableByteSubclass: #ByteArray
  51.           instanceVariableNames: ''
  52.           classVariableNames: ''
  53.           poolDictionaries: ''
  54.           category: nil
  55. !
  56.  
  57. ByteArray comment: 
  58. 'My instances are similar to strings in that they are both represented as
  59. a sequence of bytes, but my individual elements are integers, where as
  60. a String''s elements are characters.' !
  61.  
  62. !ByteArray methodsFor: 'copying'!
  63.  
  64. shallowCopy
  65.     | newArray |
  66.     newArray _ self species new: self size.
  67.     newArray replaceFrom: 1 to: self size with: self.
  68.     " Off the top of my head, I can't think why we need to use the code below
  69.       instead of the faster code above
  70.       1 to: self size do:
  71.           [ :i | newArray at: i put: (self at: i) ].
  72.     "
  73.     ^newArray
  74. !
  75.  
  76. deepCopy
  77.     ^self shallowCopy
  78.  
  79. ! !
  80.  
  81.  
  82.  
  83. !ByteArray methodsFor: 'converting'!
  84.  
  85. asString
  86.     | string size |
  87.     size _ self size.
  88.     string _ String new: size.
  89.     string replaceFrom: 1 to: size withByteArray: self startingAt: 1.
  90.     ^string
  91. ! !
  92.  
  93.  
  94.  
  95. "!ByteArray methodsFor: 'replacing'!
  96.  
  97. replaceFrom: start to: stop with: replacementByteArray startingAt: repStart
  98.     ^self primReplaceFrom: start to: stop with: replacementByteArray
  99.       startingAt: repStart
  100. ! !
  101.  
  102. "
  103.  
  104. !ByteArray methodsFor: 'private'!
  105.  
  106. growSize
  107.     ^40
  108. ! !
  109.