home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / gnat_2 / !gcc / gnat / examples / ads / chop next >
Encoding:
Text File  |  1995-11-29  |  351 b   |  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.