p_token-parenthese.ads

package P_Token.Parenthese is

   type T_Parenthese is ('(',')');
   type T_Token_Parenthese is new T_Token with
      record
      La_Parenthese : T_Parenthese;
   end record;
   function To_Token (Elem : in T_Parenthese) return T_Token_Parenthese;
   function Get_Elem (Token : in T_Token_Parenthese) return T_Parenthese;
   procedure Ecrire (Token : in T_Token_Parenthese);

end P_Token.Parenthese;