|
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 - downloadIndex: ┃ B T ┃
Length: 1253 (0x4e5)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
package body Parameters is
procedure Free (What : in out List) is
begin
Arguments.Free (What.List);
end Free;
procedure Insert (Obj : Object.Reference; In_List : in out List) is
A_List : Arguments.List;
begin
A_List := Arguments.Make (Obj, In_List.List);
In_List.List := A_List;
end Insert;
function Nil return List is
A_List : List;
begin
A_List.List := Arguments.Nil;
return A_List;
end Nil;
function Is_Empty (What : List) return Boolean is
begin
return Arguments.Is_Empty (What.List);
end Is_Empty;
function Arg_Number (What : List) return Natural is
begin
return Arguments.Length (What.List);
end Arg_Number;
procedure Init (A_List : in out List) is
begin
Arguments.Init (A_List.Iter, A_List.List);
end Init;
procedure Next (A_List : in out List) is
begin
Arguments.Next (A_List.Iter);
end Next;
function Value (A_List : List) return Object.Reference is
begin
return Arguments.Value (A_List.Iter);
end Value;
function Done (A_List : List) return Boolean is
begin
return Arguments.Done (A_List.Iter);
end Done;
end Parameters;