|
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: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Error, seg_04675f
└─⟦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 (
Variable_Name_Expected, Id_Expected, Right_Bracket_Expected,
Left_Bracket_Expected, Facteur_Expected, Argument_Expected,
Left_Hook_Expected, Right_Hook_Expected,
-- declaration
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
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_Sould_Be_In_First_Place_After_Verb,
Complement2_Sould_Be_In_Second_Place_After_Verb,
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,
Boolean_Was_Expected, Integer_Was_Expected,
String_Was_Expected, Word_Was_Expected, Set_Was_Expected,
Unauthorized_Type_For_This_Affectation,
Unauthorized_Type_For_Append, Unauthorized_Type_For_Write,
Unauthorized_Type_For_Remove, Unauthorized_Type_For_Clear,
Field_Already_Exists, Recursive_Declaration,
Inherited_Type_Does_Not_Exist,
-- controle
None, 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;
end Error;
nblk1=4
nid=4
hdr6=6
[0x00] rec0=19 rec1=00 rec2=01 rec3=04a
[0x01] rec0=10 rec1=00 rec2=03 rec3=08c
[0x02] rec0=1a rec1=00 rec2=02 rec3=000
[0x03] rec0=03 rec1=71 rec2=e0 rec3=142
tail 0x21543361a86515a43fbcd 0x42a00088462060003
Free Block Chain:
0x4: 0000 00 00 01 3d 80 24 20 20 4e 61 6d 65 5f 44 6f 65 ┆ = $ Name_Doe┆