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 - download

⟦1c2140196⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Displays, seg_0491d5, seg_049387

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⟧

E3 Source Code


with Bounded_String, Lists;
with Symbols, Models, Comps_Dictionary;

--  GESTION DES AFFICHAGES POUR L EXECUTION DU JEU
--  * Creation de liste d element a afficher

--      (instanciation et utilisation d une liste generique)

package Displays is

    type Object is private;

    Error_Display_Store : exception;
    Error_Display_Empty : exception;
    Error_Display_Index : exception;

--Creation d une liste d affichage
    procedure Create (D : in out Object);

--Ordre d affichage des element d une liste
    procedure Write (D : in Object;
                     S : Symbols.Object;
                     M : Models.Object;
                     C : Comps_Dictionary.Object);

--Ajout dans une liste d une entite de type chaine de car. constante
    procedure Store (D : in out Object; A_String : String);

--Ajout dans une liste d une entite de type variable
-- (Nom de la variable + Nom du champs)
    procedure Store (D : in out Object;
                     Symbol_Name : String;
                     Attribute_Name : String);

--Destruction d une liste
    procedure Dispose (D : in out Object);


private

    Max_String_Display : constant Natural := 255;

    type Kind_Of_Display is (Str, Var);

    type Display is
        record
            Display_Value : Bounded_String.Variable_String (Max_String_Display);
            Display_Attribute : Bounded_String.Variable_String
                                   (Max_String_Display);
            Display_Type : Kind_Of_Display;
        end record;
    function Isequal (X, Y : in Display) return Boolean;
    package Displays_List is new Lists (Itemtype => Display, Equal => Isequal);

    type Object is
        record
            Node : Displays_List.List;
        end record;

end Displays;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=21 rec1=00 rec2=01 rec3=010
        [0x01] rec0=1d rec1=00 rec2=02 rec3=001
    tail 0x2174d6df4865b4838bb35 0x42a00088462060003