home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / prelude / Collection.p < prev    next >
Encoding:
Text File  |  2001-02-28  |  4.4 KB  |  126 lines
  1. pTempVar <- <primitive 110 23 >
  2. <primitive 112 pTempVar 1  " size " \
  3.   #( #[ 16r50 16r71 16r20 16rE1 16r02 16r06 16r21 16r51 16rC0 16rF1 16r71 \
  4.         16rF3 16rB3 16rF2 16r21 16rF3 16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " shallowCopy " \
  8.   #( #[ 16r05 16r30 16rA0 16r71 16r20 16rE1 16r02 16r05 16r21 16r22 16r0B \
  9.         16r17 16rF3 16rB3 16rF2 16r20 16r21 16r0B 16r10 16rF3 16rF5 \
  10.        ] \
  11.     #(  )) >
  12.  
  13. <primitive 112 pTempVar 3  " select: " \
  14.   #( #[ 16r20 16r20 16rA4 16rA0 16rE2 16r02 16r0B 16r21 16r23 16rB5 16rF7 \
  15.         16r03 16r22 16r23 16rBE 16rF2 16r22 16rF3 16rD7 16rF3 16rF5 \
  16.        ] \
  17.     #(  )) >
  18.  
  19. <primitive 112 pTempVar 4  " remove:ifAbsent: " \
  20.   #( #[ 16r20 16r21 16r0B 16r1F 16rF7 16r06 16r20 16r21 16r0B 16r28 16rF8 \
  21.         16r03 16rF2 16r22 16rA5 16rF3 16rF5] \
  22.     #(  )) >
  23.  
  24. <primitive 112 pTempVar 5  " remove: " \
  25.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBD 16rF4 16rD8 16rF2 16r21 \
  26.         16rF3 16rF5] \
  27.     #( 'attempt to remove object not found in collection'  )) >
  28.  
  29. <primitive 112 pTempVar 6  " reject: " \
  30.   #( #[ 16r20 16rE1 16r02 16r05 16r21 16r22 16rB5 16rAC 16rF3 16r0B 16r2D \
  31.         16rF3 16rF5] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 7  " printString " \
  35.   #( #[ 16r20 16r20 16rA4 16rA9 16r30 16r0B 16r12 16rE2 16r01 16r09 16r21 \
  36.         16r31 16r0B 16r12 16r22 16rA9 16r0B 16r12 16rF3 16rD7 16r32 \
  37.         16r0B 16r12 16rF3 16rF5] \
  38.     #( ' (' ' ' ' )'  )) >
  39.  
  40. <primitive 112 pTempVar 8  " occurrencesOf: " \
  41.   #( #[ 16r20 16r50 16rE2 16r02 16r0D 16r23 16r21 16rC9 16rF7 16r05 16r22 \
  42.         16r51 16rC0 16rF8 16r02 16rF2 16r22 16rF3 16rD7 16rF3 16rF5 \
  43.        ] \
  44.     #(  )) >
  45.  
  46. <primitive 112 pTempVar 9  " isEmpty " \
  47.   #( #[ 16r20 16rA3 16r50 16rC9 16rF3 16rF5] \
  48.     #(  )) >
  49.  
  50. <primitive 112 pTempVar 10  " inject:into: " \
  51.   #( #[ 16r21 16r73 16r20 16rE1 16r04 16r07 16r22 16r23 16r24 16rD3 16rF1 \
  52.         16r73 16rF3 16rB3 16rF2 16r23 16rF3 16rF5] \
  53.     #(  )) >
  54.  
  55. <primitive 112 pTempVar 11  " includes: " \
  56.   #( #[ 16r20 16rE1 16r02 16r08 16r22 16r21 16rC9 16rF7 16r02 16r5B 16rF4 \
  57.         16rF3 16rB3 16rF2 16r5C 16rF3 16rF5] \
  58.     #(  )) >
  59.  
  60. <primitive 112 pTempVar 12  " first " \
  61.   #( #[ 16r20 16r30 16rBD 16rF3 16rF5] \
  62.     #( 'subclass should implement first'  )) >
  63.  
  64. <primitive 112 pTempVar 13  " detect:ifAbsent: " \
  65.   #( #[ 16r20 16rE1 16r03 16r08 16r21 16r23 16rB5 16rF7 16r02 16r23 16rF4 \
  66.         16rF3 16rB3 16rF2 16r22 16rA5 16rF3 16rF5] \
  67.     #(  )) >
  68.  
  69. <primitive 112 pTempVar 14  " detect: " \
  70.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBD 16rF3 16rDF 16rF3 16rF5 \
  71.        ] \
  72.     #( 'no object found matching detect'  )) >
  73.  
  74. <primitive 112 pTempVar 15  " deepCopy " \
  75.   #( #[ 16r05 16r30 16rA0 16r71 16r20 16rE1 16r02 16r07 16r21 16r22 16r0A \
  76.         16r15 16r0B 16r17 16rF3 16rB3 16rF2 16r20 16r21 16r0B 16r10 \
  77.         16rF3 16rF5] \
  78.     #(  )) >
  79.  
  80. <primitive 112 pTempVar 16  " collect: " \
  81.   #( #[ 16r20 16r20 16rA4 16rA0 16rE2 16r02 16r08 16r22 16r21 16r23 16rB5 \
  82.         16rBE 16rF2 16r22 16rF3 16rD7 16rF3 16rF5] \
  83.     #(  )) >
  84.  
  85. <primitive 112 pTempVar 17  " coerce: " \
  86.   #( #[ 16r20 16rA0 16r72 16r21 16rE1 16r03 16r04 16r22 16r23 16rBE 16rF3 \
  87.         16rB3 16rF2 16r22 16rF3 16rF5] \
  88.     #(  )) >
  89.  
  90. <primitive 112 pTempVar 18  " asString " \
  91.   #( #[ 16r05 16r3A 16r20 16rA3 16rB0 16rF1 16r51 16r20 16rA3 16r20 16r83 \
  92.         16r00 16rF2 16rF3 16rF5] \
  93.     #( #replaceFrom:to:with:  )) >
  94.  
  95. <primitive 112 pTempVar 19  " asList " \
  96.   #( #[ 16r05 16r30 16rA0 16r20 16r0B 16r15 16rF3 16rF5] \
  97.     #(  )) >
  98.  
  99. <primitive 112 pTempVar 20  " asSet " \
  100.   #( #[ 16r05 16r39 16rA0 16r20 16r0B 16r14 16rF3 16rF5] \
  101.     #(  )) >
  102.  
  103. <primitive 112 pTempVar 21  " asBag " \
  104.   #( #[ 16r05 16r20 16rA0 16r20 16r0B 16r14 16rF3 16rF5] \
  105.     #(  )) >
  106.  
  107. <primitive 112 pTempVar 22  " asArray " \
  108.   #( #[ 16r05 16r1E 16r20 16rA3 16rB0 16rF1 16r51 16r20 16rA3 16r20 16r83 \
  109.         16r00 16rF2 16rF3 16rF5] \
  110.     #( #replaceFrom:to:with:  )) >
  111.  
  112. <primitive 112 pTempVar 23  " addAll: " \
  113.   #( #[ 16r21 16rE1 16r02 16r04 16r20 16r22 16rBE 16rF3 16rB3 16rF2 16rF5 \
  114.        ] \
  115.     #(  )) >
  116.  
  117. <primitive 98 #Collection \
  118.   <primitive 97 #Collection #Object #AmigaTalk:General/Collection.st \
  119.    #(  ) \
  120.    #( #size #shallowCopy #select: #remove:ifAbsent: #remove: #reject:  \
  121.        #printString #occurrencesOf: #isEmpty #inject:into: #includes: #first  \
  122.        #detect:ifAbsent: #detect: #deepCopy #collect: #coerce: #asString #asList #asSet #asBag  \
  123.        #asArray #addAll:  ) \
  124.   pTempVar 5 7 >>
  125.  
  126.