home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / process.p < prev    next >
Encoding:
Text File  |  1986-10-19  |  1.4 KB  |  47 lines
  1. temp <- <primitive 110 8 >
  2. <primitive 112 temp 1        " yield " \
  3.     #( #[ 93 243 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " unblock " \
  7.     #( #[ 32 10 45 48 181 247 7 32 49 11 47 242 93 243 242 \
  8.  32 83 250 2 145 242 32 10 45 243 245] \
  9.     #( #TERMINATED 'unblock'  ) ) >
  10.  
  11. <primitive 112 temp 3        " termErr: " \
  12.     #( #[ 48 33 11 17 49 11 17 168 242 245] \
  13.     #( 'Cannot ' ' a terminated process.'  ) ) >
  14.  
  15. <primitive 112 temp 4        " terminate " \
  16.     #( #[ 32 250 1 142 242 32 10 45 243 245] \
  17.     #(  ) ) >
  18.  
  19. <primitive 112 temp 5        " state " \
  20.     #( #[ 32 250 1 146 113 33 80 201 247 4 48 113 33 243 242 \
  21.  33 81 201 247 4 49 113 33 243 242 33 82 201 247 4 \
  22.  50 113 33 243 242 33 83 201 247 4 50 113 33 243 242 \
  23.  33 84 203 247 4 51 113 33 243 242 245] \
  24.     #( #READY #SUSPENDED #BLOCKED #TERMINATED  ) ) >
  25.  
  26. <primitive 112 temp 6        " suspend " \
  27.     #( #[ 32 10 45 48 181 247 7 32 49 11 47 242 93 243 242 \
  28.  32 81 250 2 145 242 32 10 45 243 245] \
  29.     #( #TERMINATED 'suspend'  ) ) >
  30.  
  31. <primitive 112 temp 7        " resume " \
  32.     #( #[ 32 10 45 48 181 247 7 32 49 11 47 242 93 243 242 \
  33.  32 80 250 2 145 242 32 10 45 243 245] \
  34.     #( #TERMINATED 'resume'  ) ) >
  35.  
  36. <primitive 112 temp 8        " block " \
  37.     #( #[ 32 10 45 48 181 247 7 32 49 11 47 242 93 243 242 \
  38.  32 82 250 2 145 242 32 10 45 243 245] \
  39.     #( #TERMINATED 'block'  ) ) >
  40.  
  41. <primitive 98 #Process \
  42.     <primitive 97 #Process #Object #Smalltalk:prelude/process.st \
  43.     #(  ) \
  44.     #( #yield #unblock #termErr: #terminate #state #suspend #resume #block  ) \
  45.     temp 2 4 > >
  46.  
  47.