home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / prelude / List.p < prev    next >
Encoding:
Text File  |  2001-02-28  |  2.5 KB  |  74 lines
  1. pTempVar <- <primitive 110 14 >
  2. <primitive 112 pTempVar 1  " select: " \
  3.   #( #[ 16r05 16r30 16rA0 16r72 16r20 16rE1 16r03 16r09 16r21 16r23 16rB5 \
  4.         16rF7 16r03 16r22 16r23 16rBE 16rF3 16r0B 16r2B 16rF2 16r22 \
  5.         16rF3 16rF5] \
  6.     #(  )) >
  7.  
  8. <primitive 112 pTempVar 2  " reverseDo: " \
  9.   #( #[ 16r10 16rA2 16rF7 16r04 16r10 16r21 16r0B 16r2B 16rF3 16rF5] \
  10.     #(  )) >
  11.  
  12. <primitive 112 pTempVar 3  " do: " \
  13.   #( #[ 16r10 16rA2 16rF7 16r03 16r10 16r21 16rB3 16rF3 16rF5] \
  14.     #(  )) >
  15.  
  16. <primitive 112 pTempVar 4  " remove:ifAbsent: " \
  17.   #( #[ 16r10 16rA1 16rF7 16r04 16r22 16rA5 16rF8 16r05 16rF2 16r10 16r21 \
  18.         16r22 16rD8 16rF2 16rF5] \
  19.     #(  )) >
  20.  
  21. <primitive 112 pTempVar 5  " reverse " \
  22.   #( #[ 16r05 16r30 16rA0 16r71 16r20 16rE1 16r02 16r04 16r21 16r22 16rBE \
  23.         16rF3 16rB3 16rF2 16r21 16rF3 16rF5] \
  24.     #(  )) >
  25.  
  26. <primitive 112 pTempVar 6  " remove: " \
  27.   #( #[ 16r20 16r21 16rE0 16r04 16r20 16r30 16rBD 16rF3 16rD8 16rF2 16rF5 \
  28.        ] \
  29.     #( 'removing element not in collection'  )) >
  30.  
  31. <primitive 112 pTempVar 7  " removeFirst " \
  32.   #( #[ 16r10 16rA1 16rF7 16r05 16r20 16r30 16rBD 16rF8 16r05 16rF2 16r10 \
  33.         16rA7 16rF1 16r60 16rF2 16rF5] \
  34.     #( 'removing first element from empty list'  )) >
  35.  
  36. <primitive 112 pTempVar 8  " isEmpty " \
  37.   #( #[ 16r10 16rA1 16rF3 16rF5] \
  38.     #(  )) >
  39.  
  40. <primitive 112 pTempVar 9  " first " \
  41.   #( #[ 16r10 16rA2 16rF7 16r04 16r10 16rA5 16rF8 16r04 16rF2 16r20 16r30 \
  42.         16rBD 16rF3 16rF5] \
  43.     #( 'trying to remove from an empty list '  )) >
  44.  
  45. <primitive 112 pTempVar 10  " copy " \
  46.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  47.     #( #asList  )) >
  48.  
  49. <primitive 112 pTempVar 11  " addAll: " \
  50.   #( #[ 16r21 16rE1 16r02 16r05 16r20 16r22 16r0B 16r17 16rF3 16rB3 16rF2 \
  51.         16rF5] \
  52.     #(  )) >
  53.  
  54. <primitive 112 pTempVar 12  " addLast: " \
  55.   #( #[ 16r10 16rA1 16rF7 16r05 16r20 16r21 16rBE 16rF8 16r05 16rF2 16r10 \
  56.         16r21 16r0B 16r17 16rF2 16r21 16rF3 16rF5] \
  57.     #(  )) >
  58.  
  59. <primitive 112 pTempVar 13  " add: " \
  60.   #( #[ 16r40 16r21 16r10 16r82 16r01 16r60 16r21 16rF3 16rF5] \
  61.     #( #Link #value:next:  )) >
  62.  
  63. <primitive 112 pTempVar 14  " with: " \
  64.   #( #[ 16r20 16rA0 16r72 16r22 16r21 16rBE 16rF2 16r22 16rF3 16rF5] \
  65.     #(  )) >
  66.  
  67. <primitive 98 #List \
  68.   <primitive 97 #List #Collection #AmigaTalk:General/List.st \
  69.    #(  #elements ) \
  70.    #( #select: #reverseDo: #do: #remove:ifAbsent: #reverse #remove:  \
  71.        #removeFirst #isEmpty #first #copy #addAll: #addLast: #add: #with:  ) \
  72.   pTempVar 4 6 >>
  73.  
  74.