----------------------------------------------------------------------

with Parsetables;  -- tables from parser generator

package Lex_Identifier_Token_Value is
    --| Classify identifiers and reserved words and determine which
    --| identifiers are in package STANDARD.

    ------------------------------------------------------------------
    -- Subprogram Bodies Global to
    -- Package Lex_Identifier_Token_Value
    ------------------------------------------------------------------

    procedure Find
                 (
                  --| returns token value and whether identifier is in package STANDARD.

                  In_Identifier : in String;
                  --| text of identifier to identify

                  Out_Token_Value : out Parsetables.Tokenrange);
    --| TokenValue of this identifier

    --| Effects
    --|
    --| This subprogram determines if the identifier is
    --| a reserved word or a plain identifier.
    --|
    --| The answer is indicated by returning the appropriate TokenValue.
    --|

    ------------------------------------------------------------------

end Lex_Identifier_Token_Value;

----------------------------------------------------------------------