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

⟦656eb87da⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Game, seg_04925a, seg_0493c4

Derivation

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

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 Text_Io.Layout_Error =>
        Text_Io.Put (Ascii.Bel);
        Text_Io.Put_Line ("Erreur Fatale:Saisie effectuee hors du champ prevu");

    when others =>
        Text_Io.Put_Line
           ("!!! Erreur Fatale non traitee :L'arret de la compilation peut etre due:  ");
        Text_Io.Put_Line
           (" -soit a un caractere NON-ASCII dans le fichier scenario");
        Text_Io.Put_Line
           (" -soit a un identificateur trop long dans le fichier scenario ");
        Text_Io.Put_Line
           (" -soit a une chaine de caractere trop longue dans le fichier scenario");

end Game;

    nblk1=6
    nid=0
    hdr6=c
        [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=16 rec1=00 rec2=05 rec3=04c
        [0x05] rec0=06 rec1=00 rec2=06 rec3=001
    tail 0x2154681bc865b57b934e2 0x42a00088462060003