home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / dictionary.p < prev    next >
Encoding:
Text File  |  1986-10-19  |  2.1 KB  |  70 lines
  1. temp <- <primitive 110 12 >
  2. <primitive 112 temp 1        " checkBucket: " \
  3.     #( #[ 16 33 241 97 177 241 98 161 247 2 93 243 242 18 166 \
  4.  243 245] \
  5.     #(  ) ) >
  6.  
  7. <primitive 112 temp 2        " currentKey " \
  8.     #( #[ 18 162 247 11 18 10 21 113 33 162 247 3 33 10 49 \
  9.  243 245] \
  10.     #(  ) ) >
  11.  
  12. <primitive 112 temp 3        " printString " \
  13.     #( #[ 32 32 164 169 48 11 17 226 1 17 33 32 171 169 11 \
  14.  17 49 11 17 34 169 11 17 50 11 17 243 215 51 11 \
  15.  17 243 245] \
  16.     #( ' ( ' ' @ ' ' ' ')'  ) ) >
  17.  
  18. <primitive 112 temp 4        " next " \
  19.     #( #[ 18 167 241 113 162 247 4 33 10 50 243 242 17 5 17 \
  20.  199 247 20 17 81 192 97 32 17 11 24 241 113 162 247 \
  21.  4 33 10 50 243 242 249 26 242 93 243 245] \
  22.     #(  ) ) >
  23.  
  24. <primitive 112 temp 5        " first " \
  25.     #( #[ 81 5 17 178 225 2 14 32 34 11 24 241 113 162 247 \
  26.  4 33 10 50 244 243 179 242 93 243 245] \
  27.     #(  ) ) >
  28.  
  29. <primitive 112 temp 6        " findAssociation:inList: " \
  30.     #( #[ 34 225 3 10 35 10 49 33 201 247 2 35 244 243 179 \
  31.  242 93 243 245] \
  32.     #(  ) ) >
  33.  
  34. <primitive 112 temp 7        " removeKey:ifAbsent: " \
  35.     #( #[ 32 33 11 28 115 32 33 35 222 116 36 161 247 3 34 \
  36.  165 243 242 35 36 224 3 34 165 244 216 10 50 243 245 \
  37. ] \
  38.     #(  ) ) >
  39.  
  40. <primitive 112 temp 8        " at:ifAbsent: " \
  41.     #( #[ 32 33 11 28 115 32 33 35 222 116 36 161 247 3 34 \
  42.  165 243 242 36 10 50 243 245] \
  43.     #(  ) ) >
  44.  
  45. <primitive 112 temp 9        " at:put: " \
  46.     #( #[ 32 33 11 28 115 32 33 35 222 116 36 161 247 15 5 \
  47.  53 160 33 11 50 34 11 51 116 35 36 189 248 5 242 \
  48.  36 34 11 51 242 34 243 245] \
  49.     #(  ) ) >
  50.  
  51. <primitive 112 temp 10        " getList: " \
  52.     #( #[ 32 33 11 29 115 16 35 177 114 34 161 247 8 5 48 \
  53.  160 114 16 35 34 208 242 34 243 245] \
  54.     #(  ) ) >
  55.  
  56. <primitive 112 temp 11        " hashNumber: " \
  57.     #( #[ 33 250 1 5 16 163 195 81 192 243 245] \
  58.     #(  ) ) >
  59.  
  60. <primitive 112 temp 12        " new " \
  61.     #( #[ 5 30 5 17 176 96 245] \
  62.     #(  ) ) >
  63.  
  64. <primitive 98 #Dictionary \
  65.     <primitive 97 #Dictionary #KeyedCollection #Smalltalk:prelude/dictionary.st \
  66.     #(  #hashTable #currentBucket #currentList ) \
  67.     #( #checkBucket: #currentKey #printString #next #first #findAssociation:inList: #removeKey:ifAbsent: #at:ifAbsent: #at:put: #getList: #hashNumber: #new  ) \
  68.     temp 5 6 > >
  69.  
  70.