|
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: B T
Length: 2263 (0x8d7)
Types: TextFile
Names: »B«
└─⟦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⟧
separate (Find_Unit.Build_Ada_Compilation_Unit)
procedure Peek_Next_Significant_Token
(Significant_Token : out Token_Package.Token) is
--==============================================================
-- This procedure peeks at the next significant token for the =
-- user. A significant token includes all tokens except blank =
-- lines, new lines, and comments. If this procedure finds any =
-- of these nonsignificant tokens, then they are ignored. =
-- Token_Package will always return at least one significant =
-- token because the end of file token is considered to be =
-- significant. =
-- =
-- written by GER with help from b2 and JM =
-- May 1985 at EVB Software Engineering =
--==============================================================
Current_Token : Token_Package.Token;
-- Holds the current token
Found_Significant_Token : Boolean := False;
-- Set to true when a significant token is found
begin
-- Peek_Next_Significant_Token
Search_For_Significant:
loop
Token_Package.Peek (Next_Token => Current_Token);
-- If the class of the token from token_Package was
-- significant, then put time to get out of the loop
case Token_Package.Class_Of (Current_Token) is
when Token_Package.Identifier | Token_Package.Punctuation |
Token_Package.Keyword | Token_Package.Character_Literal |
Token_Package.Numeric_Literal |
Token_Package.Standard_String_Literal |
Token_Package.Alternate_String_Literal |
Token_Package.End_Of_File =>
Found_Significant_Token := True;
when others =>
-- Not a significant token
null; -- Just ignore this token
end case;
exit Search_For_Significant when Found_Significant_Token;
end loop Search_For_Significant;
Significant_Token := Current_Token;
end Peek_Next_Significant_Token;