|
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: 661 (0x295)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
package body Personnal_Array is
procedure Put (The_Tab : in out Object;
The_String : Personnal_String.Object) is
begin
The_Tab.Length := The_Tab.Length + 1;
The_Tab.Contains (The_Tab.Length) := The_String;
end Put;
procedure Raz (The_Tab : in out Object) is
begin
The_Tab.Length := 0;
end Raz;
function Value (The_Tab : Object; Index : Positive) return String is
begin
return Personnal_String.Value (The_Tab.Contains (Index));
end Value;
function Last (The_Tab : Object) return Natural is
begin
return The_Tab.Length;
end Last;
end Personnal_Array;