|
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: 1567 (0x61f)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
package body Tad_Abstract is
function Create_New_Tree return Tad_Abstract.Pobject is
The_Object : Pobject := Pobject'(null);
begin
return The_Object;
end Create_New_Tree;
function Create_Leaf (Value : Pstring; The_Type : Token.Object)
return Tad_Abstract.Object is
Type_Node : Node_Name;
Ok : Boolean := False;
begin
case The_Type is
when Token.L_Id =>
Type_Node := Tad_Abstract.Feuille_Id;
Ok := True;
when Token.L_Time =>
Type_Node := Tad_Abstract.Feuille_Temp;
Ok := True;
when Token.L_Int =>
Type_Node := Tad_Abstract.Feuille_Entier;
Ok := True;
when others =>
Ok := False;
end case;
declare
The_Leaf : Tad_Abstract.Object (Type_Node);
begin
case Type_Node is
when Feuille_Temp =>
The_Leaf.Valeur := Natural'Value (Value.all);
when Feuille_Entier =>
The_Leaf.Valeur := Natural'Value (Value.all);
when Feuille_Id =>
The_Leaf.Nom.all := Value.all;
when others =>
null;
end case;
return The_Leaf;
end;
end Create_Leaf;
function Type_Of_Node (The_Node : Object) return Node_Name is
begin
return The_Node.The_Node_Name;
end Type_Of_Node;
end Tad_Abstract;