|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Moteur, seg_0475cb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Error, Text_Io, Lexical_Analyzer, Scenario,
Action_List, Player_Commande_Syntaxe;
procedure Moteur is
List_Init, Liste_Vie_Du_Monde : Action_List.Object;
begin
-- demander nom du fichier a l'utilisateur
Lexical_Analyzer.Open ("Fichier_Jeu_morse");
begin
-- le fichier ne doit pas etre vide
Lexical_Analyzer.Next;
exception
when Lexical_Analyzer.Excep_Eof =>
Error.Set_Type_Error (Error.Decl_Vie_Expected);
-- ATTENTION cette erreur ne doit pas etre traitee avec no ligne et colonne
-- car 6548376583986948708054804897-98-
Error.Treat;
raise Error.Excep_Syntaxe_Aborded;
end;
Scenario.Parse (List_Init, Liste_Vie_Du_Monde);
Lexical_Analyzer.Close;
Text_Io.Put_Line ("parse fini");
Action_List.Evaluate (List_Init);
Action_List.Execute (List_Init);
if not (Action_List.Is_End (List_Init)) then
while not (Action_List.Is_End (Liste_Vie_Du_Monde)) loop
Player_Commande_Syntaxe.Parse;
Action_List.Evaluate (Liste_Vie_Du_Monde);
Action_List.Execute (Liste_Vie_Du_Monde);
end loop;
end if;
exception
when Error.Excep_Syntaxe_Aborded =>
Text_Io.Put_Line ("l'instanciation du scenario de jeu a echoue");
--consulter le fichier _erreur
--passer parametre pour fichier erreur
Error.Make_Error_File ("Fichier_Jeu_Morse");
when Lexical_Analyzer.File_Does_Not_Exist =>
Text_Io.Put_Line ("Le fichier specifie n'existe pas");
--si fichier deja ouvert
end Moteur;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1f rec1=00 rec2=01 rec3=014
[0x01] rec0=10 rec1=00 rec2=02 rec3=001
tail 0x2154462068654339f9397 0x42a00088462060003