|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T V
Length: 1220 (0x4c4)
Types: TextFile
Names: »V«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
----------------------------------------------------------------------
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;
----------------------------------------------------------------------