DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦d209d4cfa⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Init_Simple, seg_04648e, seg_0464fd

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 
└─⟦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));

    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");
        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");
        end if;

    end Parse_Init;

end Init_Simple;

    nblk1=4
    nid=3
    hdr6=6
        [0x00] rec0=1c rec1=00 rec2=01 rec3=06c
        [0x01] rec0=15 rec1=00 rec2=04 rec3=00e
        [0x02] rec0=15 rec1=00 rec2=02 rec3=001
        [0x03] rec0=94 rec1=00 rec2=00 rec3=000
    tail 0x21748b19c865044670e93 0x42a00088462060003
Free Block Chain:
  0x3: 0000  00 00 00 04 80 01 28 01 65 5f 49 6e 69 74 20 28  ┆      ( e_Init (┆