home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adav313.zip / gnat-3_13p-os2-bin-20010916.zip / emx / gnat / examples / chop.ads < prev    next >
Text File  |  2000-07-19  |  351b  |  19 lines
  1. --::::::::::
  2. --chop.ads
  3. --::::::::::
  4. package Chop is
  5.  
  6.   -- Dining Philosophers - Ada 95 edition
  7.   -- Chopstick is an Ada 95 protected type
  8.   -- Michael B. Feldman, The George Washington University,
  9.   -- July, 1995.
  10.  
  11.   protected type Stick is
  12.     entry Pick_Up;
  13.     procedure Put_Down;
  14.   private
  15.     In_Use: Boolean := False;
  16.   end Stick;
  17.  
  18. end Chop;
  19.