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

⟦f518d08e4⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Compiler, seg_048167

Derivation

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

with Text_Io, Lexical;
with Bounded_String;
with Nom_Jeu, Les_Actions, Les_Definitions, Les_Presentations;
with Les_Liaisons, L_Introduction, Les_Anims_Globales,
     Les_Anims_Generales, Les_Anims_Locales, Fin_Jeu, Erreur;
with Set_Of_Links, Set_Of_Connections;
with Liste_D_Instructions;

with Verbs_Dictionary, Comps_Dictionary;
with Models, Symbols;


use Text_Io;

package body Compiler is

    Nomf : Bounded_String.Variable_String (80);


    function Get_Game_Name return String is
        Handle : Text_Io.File_Type;
        The_Name : String (1 .. 80);
        The_Length : Natural;
        Valid_Entry : Boolean;
        Confirm : Character;
    begin
        loop
            Valid_Entry := True;
            Text_Io.Put ("Nom du Jeu : ");
            Text_Io.Get_Line (The_Name, The_Length);
            declare
            begin
                Text_Io.Open (File => Handle,
                              Mode => Text_Io.In_File,
                              Name => The_Name (1 .. The_Length));
            exception
                when others =>
                    Valid_Entry := False;
            end;
            if Valid_Entry then
                Text_Io.Close (File => Handle);
                return The_Name (1 .. The_Length);
            end if;
            Text_Io.Put
               ("Le fichier specifie est inexistant , continuer ? [o/n]");
            Text_Io.Get (Confirm);
            if (Confirm /= 'o' and Confirm /= 'O') then
                Text_Io.Put_Line ("Tant pis , A bientot");
                return "";
            end if;
            Text_Io.Skip_Line;
        end loop;
    end Get_Game_Name;


    procedure Compile_The_Game
                 (Dict : in out Verbs_Dictionary.Object;
                  Comp : in out Comps_Dictionary.Object;
                  Models_Table : in out Models.Object;
                  Symbols_Table : in out Symbols.Object;
                  Links : in out Set_Of_Links.Object;
                  Connect : in out Set_Of_Connections.Object;

                  Liste_Introduction : in out Liste_D_Instructions.Object;
                  Liste_Generale : in out Liste_D_Instructions.Object;
                  Liste_Globale : in out Liste_D_Instructions.Object;
                  Liste_Locale : in out Liste_D_Instructions.Object;
                  Parsed : in out Boolean) is


    begin
        Bounded_String.Copy (Nomf, Get_Game_Name);

        if (Bounded_String.Length (Nomf) > 0) then

            Lexical.Init (Bounded_String.Image (Nomf));
            Lexical.Next;

            Put ("Nom_Jeu ............... ");
            Nom_Jeu.Parse;
            Put_Line ("OK");

            Put ("Les_Actions ........... ");
            Les_Actions.Parse (Dict);
            Put_Line ("OK");

            Put ("Les_Definitions ....... ");
            Les_Definitions.Parse (Models_Table, Symbols_Table);
            Put_Line ("OK");

            Put ("Les_Presentations ..... ");
            Les_Presentations.Parse (Models_Table, Symbols_Table, Comp);
            Put_Line ("OK");

            Put ("Les_Liaisons .......... ");
            Les_Liaisons.Parse (Comp, Connect, Links);
            Put_Line ("OK");

            Put ("L_Introduction ........ ");
            L_Introduction.Parse (Liste_Introduction, Models_Table,
                                  Symbols_Table, Comp, Dict);
            Put_Line ("OK");

            Put ("Les_Anims_Generales ... ");
            Les_Anims_Generales.Parse (Liste_Generale, Models_Table,
                                       Symbols_Table, Comp, Dict);
            Put_Line ("OK");

            Put ("Les_Anims_Globales .... ");
            Les_Anims_Globales.Parse (Liste_Globale, Models_Table,
                                      Symbols_Table, Comp, Dict);
            Put_Line ("OK");

            Put ("Les_Anims_Locales ..... ");
            Les_Anims_Locales.Parse (Liste_Locale, Models_Table,
                                     Symbols_Table, Comp, Dict);
            Put_Line ("OK");

            Put ("Fin_Jeu ............... ");
            Fin_Jeu.Parse;
            Put_Line ("OK");
            Lexical.Close;
            Parsed := True;
        else
            Parsed := False;
        end if;
    end Compile_The_Game;




end Compiler;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=24 rec1=00 rec2=01 rec3=004
        [0x01] rec0=1a rec1=00 rec2=02 rec3=014
        [0x02] rec0=1b rec1=00 rec2=03 rec3=07e
        [0x03] rec0=1a rec1=00 rec2=04 rec3=034
        [0x04] rec0=13 rec1=00 rec2=05 rec3=001
    tail 0x2174c1ff286585b33c33d 0x42a00088462060003