|
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: 876 (0x36c)
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⟧
separate (Database_Interface.Get_Record)
function E_Decode (Line : Line_Type; Size : Natural)
return E_And_V_Criteria_List is
Actual : Schema.E_And_V_Criterion_Abbreviation_Type;
Column_Index : Column_Type := 1;
List : Schema.E_And_V_Criteria_List;
Last : Positive;
--
begin
-- E_DECODE
First (List);
loop
Get (Line (Column_Index .. Size), Actual, Last);
-- place each criterion into list.
Insert_After (List, Actual);
-- advance to next criterion on line
Column_Index := Last + 1;
end loop;
return List;
exception
when Text_Io.End_Error | Text_Io.Data_Error =>
return List;
when Constraint_Error =>
Put ("*** Error in Enumeration value:");
Put_Line (Line);
end E_Decode;
--**********************************************************************