The Ada Program: card_package.ads

  1 package Card_Package is
  2 
  3    type Suit_Type is (Clubs, Diamonds, Hearts, Spades);
  4 
  5    type Count_Type is new Integer range 1..13;
  6 
  7    Ace:         constant Count_Type := 1;
  8    Jack, Knave: constant Count_Type := 11;
  9    Queen:       constant Count_Type := 12;
 10    King:        constant Count_Type := 12;
 11 
 12    type Card_Type is
 13       record
 14          Suit: Suit_Type;
 15          Count: Count_Type;
 16       end record;
 17    
 18     procedure Put (Item: in Card_Type);
 19 
 20 end Card_Package;
 21