daily pastebin goal
4%
SHARE
TWEET

p_token-parenthese.adb

evanescente-ondine Feb 13th, 2018 63 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. with ADA.TEXT_IO; use Ada.Text_io;
  3.  
  4. package body P_Token.Parenthese is
  5.  
  6. function To_Token( Elem : in T_Parenthese) return T_Token_Parenthese is (T_Token_Parenthese'(La_Parenthese => Elem));
  7. function Get_Elem (Token : in T_Token_Parenthese) return T_Parenthese is (TOKEN.LA_PARENTHESE);
  8. procedure Ecrire (Token : in T_Token_Parenthese) is
  9. begin
  10.     PUT(T_PARENTHESE'Image( TOKEN.LA_PARENTHESE));
  11. end;
  12.  
  13. end P_Token.Parenthese;
RAW Paste Data
Top