home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / file.p < prev    next >
Text File  |  1986-10-19  |  1KB  |  60 lines
  1. temp <- <primitive 110 13 >
  2. <primitive 112 temp 1        " write: " \
  3.     #( #[ 32 33 250 2 132 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " size " \
  7.     #( #[ 32 250 1 134 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " read " \
  11.     #( #[ 32 250 1 131 243 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 112 temp 4        " open:for: " \
  15.     #( #[ 32 33 34 250 3 130 242 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " open: " \
  19.     #( #[ 32 33 48 250 3 130 242 245] \
  20.     #( 'r'  ) ) >
  21.  
  22. <primitive 112 temp 6        " next " \
  23.     #( #[ 32 10 36 243 245] \
  24.     #(  ) ) >
  25.  
  26. <primitive 112 temp 7        " first " \
  27.     #( #[ 32 80 177 243 245] \
  28.     #(  ) ) >
  29.  
  30. <primitive 112 temp 8        " currentKey " \
  31.     #( #[ 32 250 1 136 243 245] \
  32.     #(  ) ) >
  33.  
  34. <primitive 112 temp 9        " at:put: " \
  35.     #( #[ 32 33 250 2 135 242 32 34 11 49 243 245] \
  36.     #(  ) ) >
  37.  
  38. <primitive 112 temp 10        " at: " \
  39.     #( #[ 32 33 250 2 135 242 32 10 36 243 245] \
  40.     #(  ) ) >
  41.  
  42. <primitive 112 temp 11        " modeString " \
  43.     #( #[ 32 81 250 2 133 242 245] \
  44.     #(  ) ) >
  45.  
  46. <primitive 112 temp 12        " modeInteger " \
  47.     #( #[ 32 82 250 2 133 242 245] \
  48.     #(  ) ) >
  49.  
  50. <primitive 112 temp 13        " modeCharacter " \
  51.     #( #[ 32 80 250 2 133 242 245] \
  52.     #(  ) ) >
  53.  
  54. <primitive 98 #File \
  55.     <primitive 97 #File #SequenceableCollection #Smalltalk:prelude/file.st \
  56.     #(  ) \
  57.     #( #write: #size #read #open:for: #open: #next #first #currentKey #at:put: #at: #modeString #modeInteger #modeCharacter  ) \
  58.     temp 3 4 > >
  59.  
  60.