|
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: 962 (0x3c2)
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 (Compilation_Unit)
function Peek (From : in Ada_Compilation_Unit; Offset : in Integer := 1)
return Token_Package.Token is
--=================================================================
-- Peek allows a user to peek forward or backward from current ==
-- position (values of Offset determines direction of Peek). If ==
-- a user tries to peek to a non-existent token, exception ==
-- SYNTAX_ERROR will be raised. ==
-- Peek will return the Nth significant token in front of/behind ==
-- the current token location denoted by Origin (N = Offset) ==
--=================================================================
begin
-- Peek
return New_List.Content_Of (New_List.List
(Seek (Origin => From, Offset => Offset)));
-- SYNTAX_ERROR is raised in Seek if trying to peek
-- at non-existent token.
end Peek;