home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_gwu / adaed / gwudemos / phil.ads < prev    next >
Encoding:
Text File  |  1996-01-30  |  395 b   |  17 lines
  1. --::::::::::
  2. --phil.ads
  3. --::::::::::
  4. PACKAGE Phil IS
  5.   
  6.   TASK TYPE Philosopher IS
  7.     
  8.     ENTRY Come_To_Life (My_ID :      Positive; 
  9.                         Chopstick1 : Positive;
  10.                         Chopstick2 : Positive);
  11.  
  12.   END Philosopher;
  13.  
  14.   TYPE States IS (Breathing, Thinking, Eating, Done_Eating,
  15.                     Got_One_Stick, Got_Other_Stick);
  16.  
  17. END Phil;