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