home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / list.p < prev    next >
Text File  |  1986-10-19  |  2KB  |  84 lines
  1. temp <- <primitive 110 17 >
  2. <primitive 112 temp 1        " isEmpty " \
  3.     #( #[ 16 93 181 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " last " \
  7.     #( #[ 16 161 247 2 93 243 242 32 10 24 10 49 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " current " \
  11.     #( #[ 17 10 49 243 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 112 temp 4        " next " \
  15.     #( #[ 17 10 50 241 97 162 247 3 17 10 49 243 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " first " \
  19.     #( #[ 16 241 97 162 247 3 17 10 49 243 245] \
  20.     #(  ) ) >
  21.  
  22. <primitive 112 temp 6        " removeLast " \
  23.     #( #[ 16 161 247 4 32 10 37 243 242 32 32 10 30 224 4 \
  24.  32 10 37 243 216 243 245] \
  25.     #(  ) ) >
  26.  
  27. <primitive 112 temp 7        " removeFirst " \
  28.     #( #[ 16 161 247 4 32 10 37 243 242 16 113 16 10 50 96 \
  29.  33 10 49 243 245] \
  30.     #(  ) ) >
  31.  
  32. <primitive 112 temp 8        " removeError " \
  33.     #( #[ 32 48 188 243 245] \
  34.     #( 'cannot remove from an empty list'  ) ) >
  35.  
  36. <primitive 112 temp 9        " remove:ifAbsent: " \
  37.     #( #[ 16 161 247 3 34 165 243 242 32 93 226 3 31 17 10 \
  38.  49 33 181 247 21 35 161 247 7 17 10 50 241 96 248 \
  39.  7 242 35 17 10 50 11 51 242 33 244 242 17 243 215 \
  40.  242 34 165 243 245] \
  41.     #(  ) ) >
  42.  
  43. <primitive 112 temp 10        " remove: " \
  44.     #( #[ 32 33 224 4 32 48 188 243 216 243 245] \
  45.     #( 'cant find item'  ) ) >
  46.  
  47. <primitive 112 temp 11        " findLast " \
  48.     #( #[ 16 241 113 161 247 2 93 243 242 33 10 50 162 247 8 \
  49.  33 10 50 241 113 242 249 14 242 33 243 245] \
  50.     #(  ) ) >
  51.  
  52. <primitive 112 temp 12        " coerce: " \
  53.     #( #[ 5 48 160 114 33 225 3 5 34 35 11 22 243 179 242 \
  54.  34 243 245] \
  55.     #(  ) ) >
  56.  
  57. <primitive 112 temp 13        " addAllLast: " \
  58.     #( #[ 33 225 2 5 32 34 11 22 243 179 242 245] \
  59.     #(  ) ) >
  60.  
  61. <primitive 112 temp 14        " addAllFirst: " \
  62.     #( #[ 33 225 2 5 32 34 11 21 243 179 242 245] \
  63.     #(  ) ) >
  64.  
  65. <primitive 112 temp 15        " addLast: " \
  66.     #( #[ 16 161 247 5 32 33 11 21 243 242 32 10 24 5 53 \
  67.  160 33 11 50 93 11 51 11 51 242 33 243 245] \
  68.     #(  ) ) >
  69.  
  70. <primitive 112 temp 16        " addFirst: " \
  71.     #( #[ 5 53 160 33 11 50 16 11 51 96 33 243 245] \
  72.     #(  ) ) >
  73.  
  74. <primitive 112 temp 17        " add: " \
  75.     #( #[ 5 53 160 33 11 50 16 11 51 96 33 243 245] \
  76.     #(  ) ) >
  77.  
  78. <primitive 98 #List \
  79.     <primitive 97 #List #SequenceableCollection #Smalltalk:prelude/list.st \
  80.     #(  #first #current ) \
  81.     #( #isEmpty #last #current #next #first #removeLast #removeFirst #removeError #remove:ifAbsent: #remove: #findLast #coerce: #addAllLast: #addAllFirst: #addLast: #addFirst: #add:  ) \
  82.     temp 5 8 > >
  83.  
  84.