|
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┆