|
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: 672 (0x2a0)
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 A_Decode (Ch : Character) return Architecture_Category_Type is
begin
case Ch is
when 'P' =>
return Normative_Performance;
when 'C' =>
return Normative_Capacity;
when 'F' =>
return Optional_Feature;
when 'A' =>
return Optional_Algorithm;
when others =>
return Normative_Capacity;
Put ("*** Error in Architecture_Category: ");
Put (Ch);
New_Line;
raise Consistency_Error;
end case;
end A_Decode;
--**********************************************************************