src/edif/edif-tokens.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package Edif.Tokens is
   pragma Pure (Tokens);

   type Token_Type is
     (
      Tok_Keyword,      --  '(' followed by a symbol (case insensitive).
      Tok_Right_Paren,  --  ')'

      Tok_Symbol,
      Tok_String,
      Tok_Number,

      Tok_Eof
     );
end Edif.Tokens;