|
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: 1719 (0x6b7)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
package body Generator_Of_Discrete_Items is
procedure Generate_Vector (Vector : in out Vector_Type) is
Temp : Item_Type;
begin
for I in Vector'Range loop
Vector (I) := I;
end loop;
for I in reverse Vector'Range loop
if I mod 3 /= 0 then
Temp := Vector (Vector'First);
Vector (Vector'First) := Vector (I);
Vector (I) := Temp;
end if;
end loop;
end Generate_Vector;
procedure Generate_Vector2 (Vector : in out Vector_Type) is
Temp : Item_Type;
begin
for I in Vector'Range loop
Vector (I) := I + Vector'Last;
end loop;
for I in reverse Vector'Range loop
if I mod 3 /= 0 then
Temp := Vector (Vector'First);
Vector (Vector'First) := Vector (I);
Vector (I) := Temp;
end if;
end loop;
end Generate_Vector2;
procedure Generate_Ascending_Vector (Vector : in out Vector_Type) is
begin
for I in Vector'Range loop
Vector (I) := I;
end loop;
end Generate_Ascending_Vector;
procedure Generate_Descending_Vector (Vector : in out Vector_Type) is
begin
for I in Vector'Range loop
Vector (I) := Vector'Last - I + Vector'First;
end loop;
end Generate_Descending_Vector;
procedure Generate_Full_Vector (Vector : in out Vector_Type) is
begin
for I in 1 .. Max_Item loop
Vector (I) := I;
end loop;
exception
when Constraint_Error =>
raise Vector_Bound_Error;
end Generate_Full_Vector;
end Generator_Of_Discrete_Items;