p_token-operande.adb

with ADA.TEXT_IO; use Ada.Text_IO;

package body P_Token.Operande is


   function To_Token(Elem  : in  Integer) return T_Token_Operande is (T_TOKEN_OPERANDE'(L_OPERANDE => ELEM));

   function  Get_Elem (Token : in T_Token_Operande) return Integer is (TOKEN.L_OPERANDE);

   procedure Ecrire (Token : in T_Token_Operande) is
begin
    PUT(INTEGER'Image(TOKEN.L_OPERANDE));
end Ecrire;

end P_Token.Operande;