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

⟦14f50f374⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Game, seg_0491b3

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧

E3 Source Code



with Text_Io, Lexical, Erreur;
with Verbs_Dictionary, Comps_Dictionary;
with Models, Symbols;
with Set_Of_Links, Set_Of_Connections;
with Abstract_Tree, Liste_D_Instructions;
with Compiler, Moteur;
use Text_Io;

-- =================================================================
procedure Game is
-- =================================================================

    Dict : Verbs_Dictionary.Object;
    Comp : Comps_Dictionary.Object;
    Models_Table : Models.Object;
    Symbols_Table : Symbols.Object;
    Links : Set_Of_Links.Object;
    Connect : Set_Of_Connections.Object;
    Liste_Introduction : Liste_D_Instructions.Object;
    Liste_Generale : Liste_D_Instructions.Object;
    Liste_Globale : Liste_D_Instructions.Object;
    Liste_Locale : Liste_D_Instructions.Object;
    Parsed : Boolean;


begin

-- =================================================================
--           CREATION DES STRUCTURES DE DONNEES
-- =================================================================

    Verbs_Dictionary.Create (Dict);
    Comps_Dictionary.Create (Comp);
    Models.Create (Models_Table);
    Symbols.Create (Symbols_Table);
    Set_Of_Links.Create (Links);
    Set_Of_Connections.Create (Connect);
    Liste_Introduction := Liste_D_Instructions.Creation;
    Liste_Generale := Liste_D_Instructions.Creation;
    Liste_Globale := Liste_D_Instructions.Creation;
    Liste_Locale := Liste_D_Instructions.Creation;

-- =================================================================
--                       COMPILATION
-- =================================================================

    Compiler.Compile_The_Game (Dict, Comp, Models_Table, Symbols_Table, Links,
                               Connect, Liste_Introduction, Liste_Generale,
                               Liste_Globale, Liste_Locale, Parsed);

    if (not Erreur.Probleme_De_Compilation) and Parsed then
        Text_Io.Put_Line ("Source Ok.");
        Text_Io.New_Line;

-- =================================================================
--                       EXECUTION
-- =================================================================

        Moteur.Execute_The_Game (Dict, Comp, Models_Table, Symbols_Table,
                                 Links, Connect, Liste_Introduction,
                                 Liste_Generale, Liste_Globale, Liste_Locale);
-- =================================================================
--                       FIN DU JEU
-- =================================================================
    else
        Put_Line ("Erreurs de compilation !!!");
    end if;
    Text_Io.Put_Line ("See you ...");

-- =================================================================
--           DESTRUCTION DES STRUCTURES DE DONNEES
-- =================================================================
    Liste_D_Instructions.Detruire (Liste_Introduction);
    Liste_D_Instructions.Detruire (Liste_Generale);
    Liste_D_Instructions.Detruire (Liste_Globale);
    Liste_D_Instructions.Detruire (Liste_Locale);
    Verbs_Dictionary.Destroy (Dict);
    Comps_Dictionary.Destroy (Comp);
    Models.Dispose_Object (Models_Table);
    Symbols.Dispose_Object (Symbols_Table);
    Set_Of_Links.Destroy (Links);
    Set_Of_Connections.Destroy (Connect);

-- =================================================================
--           TRAITEMENT DES DISFONCTIONNEMENTS
-- =================================================================

exception
    when Erreur.Erreur_Syntaxe =>
        Text_Io.Put_Line ("!!! Erreur fatale de syntaxe !!!");
    when Erreur.Erreur_Symbole =>
        Text_Io.Put_Line
           ("!!! Erreur fatale: Probleme dans la table des symboles !!!");
    when Erreur.Erreur_Modele =>
        Text_Io.Put_Line
           ("!!! Erreur fatale: Probleme dans la table des modeles !!!");
    when Erreur.Erreur_Execution =>
        Text_Io.Put_Line ("!!! Erreur fatale: Problemes d'execution !!!");
    when Verbs_Dictionary.Duplicate_Value =>
        Text_Io.Put_Line
           ("!!! Erreur fatale: Verbe duplique dans le dictionaire !!!");
    when Comps_Dictionary.Duplicate_Value =>
        Text_Io.Put_Line
           ("!!! Erreur fatale: Complement duplique dans le dictionaire !!!");
    when Abstract_Tree.Bad_Type =>
        Text_Io.Put_Line
           ("!!! Erreur fatale: Tentative d'evaluer un noeud d'arbre retournant un mauvais type !!!");
    when others =>
        Text_Io.Put_Line ("Erreur inconnue");

end Game;

E3 Meta Data

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=1f rec1=00 rec2=01 rec3=02c
        [0x01] rec0=16 rec1=00 rec2=02 rec3=044
        [0x02] rec0=16 rec1=00 rec2=03 rec3=01e
        [0x03] rec0=17 rec1=00 rec2=04 rec3=046
        [0x04] rec0=10 rec1=00 rec2=05 rec3=001
    tail 0x21546771c865b465c646a 0x42a00088462060003