package body Token_Definition is

    Special_Chars : constant String (1 .. 3) := "-'.";

    function Is_Special_Char (Ch : Character) return Boolean is
    begin
        for I in Special_Chars'First .. Special_Chars'Last loop
            if Ch = Special_Chars (I) then
                return True;
            end if;
        end loop;
        return False;
    end Is_Special_Char;

end Token_Definition;