|
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: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Error, seg_04899e
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Lexical_Analyzer;
package Error is
type Code is ( --***** SYNTAXIQUE *****
--non terminaux de la grammaire
Variable_Name_Expected, Id_Expected, Right_Bracket_Expected,
Left_Bracket_Expected, Facteur_Expected, Argument_Expected,
Left_Hook_Expected, Right_Hook_Expected,
-- declaration des sections
Decl_Famille_Expected, Decl_Champs_Expected,
Decl_Type_Simple_Expected,
Decl_Facteur_Expected, Decl_Action_Expected,
Decl_Variable_Expected, Decl_Mot_Voca_Expected,
Decl_Valeur_Expected, Decl_Vie_Expected,
-- mots cles
Avec_Expected, De_Expected, Devient_Expected,
Comme_Expected, Sont_Expected, Fsi_Expected,
Alors_Expected, Est_Expected, A_Expected,
Initialisation_False, Point_Expected, Type_Unknown,
-- ***** SEMANTIQUE *****
-- mot du vocabulaire
Is_Not_Declared_Voca_Word, Complement_Expected, Verb_Expected,
Complement_Was_Expected_Before, Verb_Was_Expected_Before,
Verb_Was_Expected_At_Beginning_Of_Expression,
Complement1_Should_Be_In_First_Place_After_Verb,
Complement2_Should_Be_In_Second_Place_After_Verb,
-- type illegal avec operateur
Unauthorized_Type_With_Previous_Unary_Operator,
Unauthorized_Type_With_Previous_Binary_Operator,
Unauthorized_Type_With_Previous_Argument_Of_Binary_Operator,
Unauthorized_Type_With_Previous_Ternary_Operator,
Unauthorized_Type_With_Previous_Argument_Of_Ternary_Operator,
No_Argument_On_Value,
-- action
Unauthorized_Type_For_Any_Affectation,
Unauthorized_Type_With_Source_Argument,
Unauthorized_Type_With_Target_Argument,
--Unauthorized_Type_For_Append,
Unauthorized_Type_For_Write,
--Unauthorized_Type_For_Remove,
--Unauthorized_Type_For_Clear,
--dictionnaire
This_Word_Is_Already_A_Verb,
This_Word_Is_Already_A_Complement,
-- Table des types et des variables
Boolean_Was_Expected, Integer_Was_Expected,
String_Was_Expected, Word_Was_Expected,
Set_Was_Expected, String_Or_Word_Was_Expected,
Field_Already_Exists, Recursive_Declaration,
Inherited_Type_Does_Not_Exist,
Duplicate_Identifier_In_Type_Table,
Duplicate_Identifier_In_Variable_Table,
Inexistant_Type_For_Declaration,
Inexistant_Field, Bad_Variable_Name,
Too_Many_Parameters_For_Initialization,
Variable_Expected_Instead_Of_Inherited_Field,
Inherited_Field_Expected_Instead_Of_Variable,
-- **** CONTROLE *****
Unexpected_Eof);
Excep_Syntaxe_Error : exception;
Excep_Syntaxe_Aborded : exception;
Excep_Semantic_Error : exception;
procedure Set_Type_Error (What_Type : Error.Code);
function Syntaxe_End_Correctly return Boolean;
procedure Treat;
generic
with function Is_Follow
(Un_Token : Lexical_Analyzer.Tokens) return Boolean;
procedure Resynchro;
procedure Make_Error_File (Source_Name : in String);
end Error;
nblk1=5
nid=5
hdr6=8
[0x00] rec0=17 rec1=00 rec2=01 rec3=06e
[0x01] rec0=14 rec1=00 rec2=03 rec3=050
[0x02] rec0=14 rec1=00 rec2=02 rec3=060
[0x03] rec0=20 rec1=00 rec2=04 rec3=000
[0x04] rec0=80 rec1=00 rec2=00 rec3=100
tail 0x21545e630865a46c35931 0x42a00088462060003
Free Block Chain:
0x5: 0000 00 00 02 af 80 10 49 6e 68 65 72 69 74 65 64 5f ┆ Inherited_┆