home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / kcollection.p < prev    next >
Text File  |  1986-10-19  |  3KB  |  90 lines
  1. temp <- <primitive 110 18 >
  2. <primitive 112 temp 1        " values " \
  3.     #( #[ 5 32 160 113 32 225 2 4 33 34 189 243 179 242 33 \
  4.  243 245] \
  5.     #(  ) ) >
  6.  
  7. <primitive 112 temp 2        " select: " \
  8.     #( #[ 32 32 5 40 160 226 2 13 33 35 180 247 5 34 32 \
  9.  171 35 208 242 34 243 215 191 243 245] \
  10.     #(  ) ) >
  11.  
  12. <primitive 112 temp 3        " removeKey:ifAbsent: " \
  13.     #( #[ 32 48 188 243 245] \
  14.     #( 'subclass should implement RemoveKey:ifAbsent:'  ) ) >
  15.  
  16. <primitive 112 temp 4        " removeKey: " \
  17.     #( #[ 32 33 224 6 32 48 188 242 33 244 217 243 245] \
  18.     #( 'no element associated with key'  ) ) >
  19.  
  20. <primitive 112 temp 5        " remove: " \
  21.     #( #[ 32 48 188 243 245] \
  22.     #( 'object must be removed with explicit key'  ) ) >
  23.  
  24. <primitive 112 temp 6        " keysSelect: " \
  25.     #( #[ 32 32 5 40 160 226 2 14 33 35 171 180 247 5 34 \
  26.  32 171 35 208 242 34 243 215 191 243 245] \
  27.     #(  ) ) >
  28.  
  29. <primitive 112 temp 7        " keysDo: " \
  30.     #( #[ 32 225 2 5 33 32 171 180 243 179 243 245] \
  31.     #(  ) ) >
  32.  
  33. <primitive 112 temp 8        " keys " \
  34.     #( #[ 5 57 160 113 32 225 2 4 33 34 189 243 11 32 242 \
  35.  33 243 245] \
  36.     #(  ) ) >
  37.  
  38. <primitive 112 temp 9        " indexOf:ifAbsent: " \
  39.     #( #[ 32 225 3 9 35 33 201 247 3 32 171 244 243 179 242 \
  40.  34 165 243 245] \
  41.     #(  ) ) >
  42.  
  43. <primitive 112 temp 10        " indexOf: " \
  44.     #( #[ 32 33 224 4 32 48 188 243 214 243 245] \
  45.     #( 'indexOf element not found'  ) ) >
  46.  
  47. <primitive 112 temp 11        " includesKey: " \
  48.     #( #[ 32 33 224 2 92 244 213 242 91 243 245] \
  49.     #(  ) ) >
  50.  
  51. <primitive 112 temp 12        " collect: " \
  52.     #( #[ 32 32 5 40 160 226 2 10 34 32 171 33 35 180 208 \
  53.  242 34 243 215 191 243 245] \
  54.     #(  ) ) >
  55.  
  56. <primitive 112 temp 13        " binaryDo: " \
  57.     #( #[ 32 225 3 6 33 32 171 35 211 243 179 242 93 243 245 \
  58. ] \
  59.     #(  ) ) >
  60.  
  61. <primitive 112 temp 14        " atAll:put: " \
  62.     #( #[ 33 225 3 5 32 35 34 208 243 179 242 245] \
  63.     #(  ) ) >
  64.  
  65. <primitive 112 temp 15        " at: " \
  66.     #( #[ 32 33 224 10 32 33 169 48 11 17 188 242 33 244 213 \
  67.  243 245] \
  68.     #( ': association not found'  ) ) >
  69.  
  70. <primitive 112 temp 16        " asDictionary " \
  71.     #( #[ 5 40 160 113 32 226 2 5 33 34 35 208 243 11 23 \
  72.  242 33 243 245] \
  73.     #(  ) ) >
  74.  
  75. <primitive 112 temp 17        " addAll: " \
  76.     #( #[ 33 226 2 5 32 34 35 208 243 11 23 242 33 243 245 \
  77. ] \
  78.     #(  ) ) >
  79.  
  80. <primitive 112 temp 18        " add: " \
  81.     #( #[ 32 48 188 243 245] \
  82.     #( 'Must add with explicit key'  ) ) >
  83.  
  84. <primitive 98 #KeyedCollection \
  85.     <primitive 97 #KeyedCollection #Collection #Smalltalk:prelude/kcollection.st \
  86.     #(  ) \
  87.     #( #values #select: #removeKey:ifAbsent: #removeKey: #remove: #keysSelect: #keysDo: #keys #indexOf:ifAbsent: #indexOf: #includesKey: #collect: #binaryDo: #atAll:put: #at: #asDictionary #addAll: #add:  ) \
  88.     temp 4 9 > >
  89.  
  90.