|
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: 785 (0x311)
Types: TextFile
Names: »V«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
with List_Generic;
with Scanner;
package Message is
type Selector is private;
procedure Free (What : in out Selector);
procedure Insert (Element : Scanner.Lexeme; In_List : in out Selector);
function Nil return Selector;
function Is_Empty (What : Selector) return Boolean;
function Arg_Number (What : Selector) return Natural;
procedure Init (A_List : in out Selector);
procedure Next (A_List : in out Selector);
function Value (A_List : Selector) return Scanner.Lexeme;
function Done (A_List : Selector) return Boolean;
private
package Keywords is new List_Generic (Element => Scanner.Lexeme);
type Selector is
record
Iter : Keywords.Iterator;
Keyw : Keywords.List;
end record;
end Message;