|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Init_Simple, seg_0480cc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Lexical, Token_List, Erreur, Nombre;
with Symbols, Dynamic_Object, Bounded_String, Models;
use Lexical, Token_List;
package body Init_Simple is
First_Init : Token_List.Object := Make (Id);
First_Avec : Token_List.Object := Make ((Id, Str, Moins, Nbr, Vrai, Faux));
Follow : Token_List.Object := Make ((Virgul, Parntf));
procedure Parse_Avec (Tds : in Symbols.Object;
Tdm : in Models.Object;
An_Object : in out Dynamic_Object.Dynamic_Object;
Attribute_Name : String) is
Int_Value : Integer;
begin
if Is_In (Lexical.Get_Token, First_Avec) then
if Is_In (Lexical.Get_Token, Nombre.First) then
Nombre.Parse (Int_Value);
Dynamic_Object.Store_Attribute
(An_Object, Attribute_Name, Int_Value);
else
case Lexical.Get_Token is
when Vrai =>
Dynamic_Object.Store_Attribute
(An_Object, Attribute_Name, True);
when Faux =>
Dynamic_Object.Store_Attribute
(An_Object, Attribute_Name, False);
when Str =>
Dynamic_Object.Store_Attribute
(An_Object, Attribute_Name, Lexical.Get_Value);
when Id =>
Int_Value := Symbols.Get_Symbol_Value
(Tds, Tdm, Lexical.Get_Value,
Lexical.Get_Value);
Dynamic_Object.Store_Attribute
(An_Object, Attribute_Name, Int_Value);
when others =>
Erreur.Symbole ("Initialisation Interdite");
end case;
Lexical.Next;
end if;
else Erreur.Syntaxe ("Initialisation Inconnue", Follow);
end if;
end Parse_Avec;
procedure Parse_Init (An_Object : in out Dynamic_Object.Dynamic_Object) is
begin
if Is_In (Lexical.Get_Token, First_Init) then
Dynamic_Object.Store_Attribute
(An_Object, "POINTEUR", Lexical.Get_Value);
Lexical.Next;
else
Erreur.Syntaxe ("Initialisation Inconnue", Follow);
end if;
end Parse_Init;
end Init_Simple;
nblk1=4
nid=4
hdr6=6
[0x00] rec0=1c rec1=00 rec2=01 rec3=038
[0x01] rec0=15 rec1=00 rec2=02 rec3=002
[0x02] rec0=16 rec1=00 rec2=03 rec3=001
[0x03] rec0=94 rec1=00 rec2=00 rec3=000
tail 0x2174c10bc86583ff2ce22 0x42a00088462060003
Free Block Chain:
0x4: 0000 00 00 02 22 80 36 20 20 20 20 45 72 72 65 75 72 ┆ " 6 Erreur┆