|
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, function Compilateur, seg_047acb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Complements; with Rooms; with Le_Jeu; with Syntax_Error; with Text_Io; with Lexical; with File; function Compilateur (Nom_Fichier : String) return Boolean is The_File : Text_Io.File_Type; begin Text_Io.Open (The_File, Text_Io.In_File, Nom_Fichier); Lexical.Open (The_File); Lexical.Create_Error_Report; Le_Jeu.Parse; File.Close_Error_Report; Text_Io.Close (The_File); Complements.Go_First; while not Complements.At_End and not Complements."=" (Complements.Room, Complements.Get_Current_Kind) loop Complements.Go_Next; end loop; if Complements."=" (Complements.Room, Complements.Get_Current_Kind) then Rooms.Set_Current_Room (Complements.Get_Current); else Text_Io.Put_Line ("Il n'y a aucune piece dans ce scenario !!!!!!!"); end if; if Syntax_Error.Nb_Erreurs_Syntaxiques = 0 and Syntax_Error.Nb_Erreurs_Semantiques = 0 then return True; else Text_Io.Put_Line ("Erreurs syntaxiques survenues: " & Integer'Image (Syntax_Error.Nb_Erreurs_Syntaxiques)); Text_Io.Put_Line ("Erreurs semantiques survenues: " & Integer'Image (Syntax_Error.Nb_Erreurs_Semantiques)); Text_Io.Put_Line (""); Text_Io.Put_Line ("Voyez le fichier texte 'Error_Report' pour plus de details"); return False; end if; exception when Text_Io.Name_Error => Text_Io.Put_Line ("Ce scenario n'existe pas !!!"); return False; end Compilateur;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=22 rec1=00 rec2=01 rec3=03c [0x01] rec0=13 rec1=00 rec2=02 rec3=001 tail 0x2174b59a0865491a73f69 0x42a00088462060003