|
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 - metrics - download
Length: 12288 (0x3000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Interpreter, seg_038fcb, seg_039409, seg_039551
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Custom;
with Object;
with Errors;
package body Interpreter is
procedure Go (The_Root : Statements.Node; Terminal : String) is
Result_Object : Object.Reference := Object.Void_Reference;
begin
Result_Object := Statements.Interpret (The_Root);
exception
when Errors.Affectation_To_Predefined_Id =>
Errors.Interpret_Log
("Il est impossible de modifier la valeur d'un identificateur predefini !",
Terminal);
when Errors.Block_Argument_Required_For_Boolean =>
Errors.Interpret_Log
("Un objet Bloc est requis en argument d'un message envoye a un objet Booleen !",
Terminal);
when Errors.Block_Argument_Required_For_Integer =>
Errors.Interpret_Log
("Un objet Bloc est requis en argument d'un message envoye a un objet Entier !",
Terminal);
when Errors.Block_Argument_Required_For_Tantque_Msg =>
Errors.Interpret_Log
("Un objet Bloc est requis en argument du message 'Tant_Que_Vrai' or 'Tant_Que_Faux' !",
Terminal);
when Errors.Bloc_Msg_With_Not_Enough_Arguments =>
Errors.Interpret_Log
("Un message est envoye a un Bloc avec un nombre insuffisant d'arguments !",
Terminal);
when Errors.Bloc_Msg_With_Too_Many_Arguments =>
Errors.Interpret_Log
("Un message est envoye a un Bloc avec un trop grand nombre d'arguments !",
Terminal);
when Errors.Boolean_Object_Required_As_Argument =>
Errors.Interpret_Log
("Un objet Booleen est requis en argument d'un message !",
Terminal);
when Errors.Division_By_Zero =>
Errors.Interpret_Log
("Tentative de division par Zero !!!", Terminal);
when Errors.Get_Value_Of_Undefined_Identifier =>
Errors.Interpret_Log
("Utilisation d'un identificateur incorrect (non declare) !",
Terminal);
when Errors.Inconsistent_Msg_Selector_For_Block =>
Errors.Interpret_Log
("Message incoherent envoye a un objet Bloc ! (verifiez le nom des arguments...)",
Terminal);
when Errors.Integer_Object_Required_As_Argument =>
Errors.Interpret_Log
("Un objet Entier est requis en argument d'un message !",
Terminal);
when Errors.Integer_Required_As_Argument_For_Pen =>
Errors.Interpret_Log
("Un objet Entier est requis en argument d'un message envoye a un objet Stylo !",
Terminal);
when Errors.Integer_Required_As_Argument_For_Turtle =>
Errors.Interpret_Log
("Un objet Entier est requis en argument d'un message envoye a un objet Tortue !",
Terminal);
when Errors.Max_Block_Number_Exceeded =>
Errors.Interpret_Log
("Le nombre maximum de blocs (" &
Natural'Image (Custom.Block_Max_Number) &
" ) a ete atteint ! Impossible de creer un nouvel objet Bloc...",
Terminal);
when Errors.Max_Pen_Number_Exceeded =>
Errors.Interpret_Log
("Le nombre maximum de stylos (" &
Natural'Image (Custom.Pen_Max_Number) &
" ) a ete atteint ! Impossible de creer un nouvel objet Stylo...",
Terminal);
when Errors.Max_String_Number_Exceeded =>
Errors.Interpret_Log
("Le nombre maximum de chaines (" &
Natural'Image (Custom.String_Max_Number) &
" ) a ete atteint ! Impossible de creer un nouvel objet Chaine...",
Terminal);
when Errors.Max_Turtle_Number_Exceeded =>
Errors.Interpret_Log
("Le nombre maximum de Tortues (" &
Natural'Image (Custom.Turtle_Max_Number) &
" ) a ete atteint ! Impossible de creer un nouvel objet Tortue...",
Terminal);
when Errors.Message_Sent_To_Empty_Object =>
Errors.Interpret_Log
("Un message a ete envoye a l'objet Vide !", Terminal);
when Errors.Multiply_Defined_Argument =>
Errors.Interpret_Log
("Dans la liste des arguments d'un bloc, un argument a ete specifie plusieurs fois...",
Terminal);
when Errors.Set_Value_To_Undefined_Identifier =>
Errors.Interpret_Log
("Tentative d'affectation d'un identificateur inconnu !",
Terminal);
when Errors.Several_Arguments_With_Same_Name =>
Errors.Interpret_Log
("Dans la liste des arguments d'un bloc, plusieurs arguments ont le meme nom...",
Terminal);
when Errors.String_Object_Required_As_Argument =>
Errors.Interpret_Log
("Un objet Chaine est requis en argument d'un message !",
Terminal);
when Errors.String_Required_As_Argument_For_Pen =>
Errors.Interpret_Log
("Un objet Chaine est requis en argument d'un message envoye a un objet Stylo !",
Terminal);
when Errors.Tantque_Msg_To_Non_Boolean_Block =>
Errors.Interpret_Log
("Les messages 'Tant_Que_Vrai' et 'Tant_Que_Faux' ne peuvent etre envoyes qu'a un objet Bloc !",
Terminal);
when Errors.Target_String_Is_Too_Long =>
Errors.Interpret_Log
("Concatenation impossible de 2 chaines : la chaine resultante serait trop longue ! ( Max =" &
Natural'Image (Custom.String_Max_Length) & ")",
Terminal);
when Errors.Unary_Message_To_Block_With_Arguments =>
Errors.Interpret_Log
("Envoi d'un message unaire, a un bloc avec argument(s) !",
Terminal);
when Errors.Undefined_Message_For_Block =>
Errors.Interpret_Log
("Les objets Bloc ne comprennent aucun message binaire !",
Terminal);
when Errors.Undefined_Message_For_Pen =>
Errors.Interpret_Log
("Les objets Stylo ne comprennent aucun message binaire !",
Terminal);
when Errors.Undefined_Message_For_String =>
Errors.Interpret_Log
("Les objets Chaine ne comprennent aucun message a mots cle !",
Terminal);
when Errors.Undefined_Message_For_Turtle =>
Errors.Interpret_Log
("Les objets Tortue ne comprennent aucun message binaire !",
Terminal);
when Errors.Unknown_Message_For_Block =>
Errors.Interpret_Log
("Envoi d'un message inconnu a un objet Bloc !", Terminal);
when Errors.Unknown_Message_For_Boolean =>
Errors.Interpret_Log
("Envoi d'un message inconnu a un objet Booleen !", Terminal);
when Errors.Unknown_Message_For_Integer =>
Errors.Interpret_Log
("Envoi d'un message inconnu a un objet Entier !", Terminal);
when Errors.Unknown_Message_For_Pen =>
Errors.Interpret_Log
("Envoi d'un message inconnu a un objet Stylo !", Terminal);
when Errors.Unknown_Message_For_String =>
Errors.Interpret_Log
("Envoi d'un message inconnu a un objet Chaine !", Terminal);
when Errors.Unknown_Message_For_Turtle =>
Errors.Interpret_Log
("Envoi d'un message inconnu a un objet Tortue !", Terminal);
end Go;
end Interpreter;
nblk1=b
nid=3
hdr6=12
[0x00] rec0=1e rec1=00 rec2=01 rec3=042
[0x01] rec0=18 rec1=00 rec2=09 rec3=02a
[0x02] rec0=16 rec1=00 rec2=07 rec3=092
[0x03] rec0=18 rec1=00 rec2=05 rec3=01e
[0x04] rec0=17 rec1=00 rec2=04 rec3=03e
[0x05] rec0=15 rec1=00 rec2=08 rec3=064
[0x06] rec0=1a rec1=00 rec2=06 rec3=004
[0x07] rec0=18 rec1=00 rec2=02 rec3=076
[0x08] rec0=08 rec1=00 rec2=0b rec3=000
[0x09] rec0=16 rec1=00 rec2=07 rec3=044
[0x0a] rec0=0d rec1=00 rec2=05 rec3=000
tail 0x215320ccc84e95ebe20c4 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 0a 00 5b 80 43 69 6e 65 64 20 77 69 74 68 20 ┆ [ Cined with ┆
0xa: 0000 00 00 00 05 80 02 6d 69 02 6e 74 71 75 65 5f 4d ┆ mi ntque_M┆