|
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: 1193 (0x4a9)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─ ⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─ ⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Object;
package body Argument is
function Get (L : Argument.List) return Object.Reference is
Obj : Object.Reference;
begin
Obj := Arg_List.Value (L.Iter);
return (Obj);
end Get;
function How_Many (L : Argument.List) return Natural is
begin
return (Arg_List.Length (L => L.List));
end How_Many;
procedure Next (L : in out Argument.List; Obj : in out Object.Reference) is
begin
if not Arg_List.Done (L.Iter) then
Arg_List.Next (L.Iter);
if not Arg_List.Done (L.Iter) then
Obj := Arg_List.Value (L.Iter);
else
Obj := Object.Void_Reference;
end if;
else
Obj := Object.Void_Reference;
end if;
end Next;
function Put (L : Argument.List; Obj : Object.Reference)
return Argument.List is
L1 : Argument.List;
begin
L1.List := Arg_List.Make (X => Obj, L => L.List);
Arg_List.Init (L1.Iter, L1.List);
return (L1);
end Put;
procedure Init (L : in out Argument.List) is
begin
Arg_List.Free (L.List);
end Init;
end Argument;