p_token-operateur.ads

package P_Token.Operateur is
   type T_Operateur is ('*', '-', '+', '/');
   type T_Token_Operateur is new T_Token with
      record
     L_Operateur : T_Operateur;
      end record;
   function To_Token (Elem  : in  T_Operateur) return T_Token_Operateur;
   function  Get_Elem (Token : in T_Token_Operateur) return T_Operateur;
   procedure Ecrire (Token : in T_Token_Operateur);
end P_Token.Operateur;