|
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: 9216 (0x2400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Error, seg_046760
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Text_Io, Liste_Actions, Unbounded_String;
package body Error is
Error_Type : Code := None;
procedure Set_Type_Error (What_Type : Error.Code) is
begin
Error_Type := What_Type;
end Set_Type_Error;
function Syntaxe_End_Correctly return Boolean is
begin
return Error_Type = None;
end Syntaxe_End_Correctly;
procedure Treat is
package Unlimited_String is new Unbounded_String (10);
Tab_Error : constant array (Code) of Unlimited_String.Variable_String :=
(Unlimited_String.Value ("Un nom de variable est attendu"),
Unlimited_String.Value ("Un identificateur est attendu"),
Unlimited_String.Value ("Une parenthese fermante est attendue"),
Unlimited_String.Value ("Une parenthese ouvrante est attendue"),
Unlimited_String.Value ("Un facteur est attendu"),
Unlimited_String.Value ("Un argument est attendu"),
Unlimited_String.Value ("Un crochet ouvrant est attendu"),
Unlimited_String.Value ("Un crochet fermant est attendu"),
Unlimited_String.Value
("La declaration d'une famille est attendue"),
Unlimited_String.Value ("La declaration d'un champs est attendue"),
Unlimited_String.Value
("La declartation d'un type simple est attendue"),
Unlimited_String.Value ("La declaration d'un facteur est attendue"),
Unlimited_String.Value ("La declaration d'une action est attendue"),
Unlimited_String.Value
("La declaration d'une variable est attendue"),
Unlimited_String.Value
("La declaration d'un mot du Vocabulaire est attendue"),
Unlimited_String.Value ("La declaration d'une valeur est attendue"),
Unlimited_String.Value ("La Declaration de la Vie est attendue"),
Unlimited_String.Value ("Le mot cle 'avec' est attendu"),
Unlimited_String.Value ("Le mot cle 'de' est attendu"),
Unlimited_String.Value ("Le mot cle 'devient' est attendu"),
Unlimited_String.Value ("Le mot cle 'comme' est attendu"),
Unlimited_String.Value ("Le mot cle 'sont' est attendu"),
Unlimited_String.Value ("Le mot cle 'fsi' est attendu"),
Unlimited_String.Value ("Le mot cle 'alors' est attendu"),
Unlimited_String.Value ("Le mot cle 'est' est attendu"),
Unlimited_String.Value ("Le mot cle 'a' est attendu"),
Unlimited_String.Value ("Mauvaise initialisation"),
Unlimited_String.Value ("Un point est attendu"),
Unlimited_String.Value ("Type incunnu"),
Unlimited_String.Value ("Mot du vacabulaire non declare"),
Unlimited_String.Value ("Un complement est attendu"),
Unlimited_String.Value ("Un verbe est attendu"),
Unlimited_String.Value ("Un complement etait attendu"),
Unlimited_String.Value ("Un verbe etait attendu"),
Unlimited_String.Value
("Un verbe etait attendu au debut de l'expression"),
Unlimited_String.Value
("Complement1 devrait etre en premiere position apres un verbe"),
Unlimited_String.Value
("Complement2 devrait etre en seconde position apres un verbe"),
Unlimited_String.Value
("Type non autorise avec l'operateur unaire precedent"),
Unlimited_String.Value
("Type non autorise avec l'operateur unaire precedent"),
Unlimited_String.Value
("Type non autorise comme argument d'un operateur binaire"),
Unlimited_String.Value
("Type non autorise avec l'operateur ternaire precedant"),
Unlimited_String.Value
("Type non autorise comme argument d'un operateur ternaire"),
Unlimited_String.Value ("? No_Argument_On_Value"),
Unlimited_String.Value ("Expression booleenne attendue"),
Unlimited_String.Value ("Un entier etait attendu"),
Unlimited_String.Value ("Une chaine de caracteres etait attendue"),
Unlimited_String.Value ("Un mot du vocabulaire etait attendu"),
Unlimited_String.Value ("Un ensemble etait attendu"),
Unlimited_String.Value ("Type non autorise pour cette affectation"),
Unlimited_String.Value
("Type non autorise pour un ajout dans un ensemble"),
Unlimited_String.Value
("Type non autorise pour l'operation ecrire"),
Unlimited_String.Value
("Type non autorise pour un retrait dans un ensemble"),
Unlimited_String.Value
("Type non autorise pour l'operation vider un ensemble"),
Unlimited_String.Value ("Ce champs existe deja"),
Unlimited_String.Value ("Declaration recursive"),
Unlimited_String.Value ("Type inconnu pour l'heritage"),
Unlimited_String.Value ("Erreur inconnue"),
Unlimited_String.Value ("Fin de fichier non attendue"));
begin
Text_Io.Put ("erreur in line " &
Natural'Image (Lexical_Analyzer.Get_Line_In_File) & " ");
Text_Io.Put
("et in colonne " &
Natural'Image (Lexical_Analyzer.Get_Position_In_Line) & " : ");
Text_Io.Put_Line (Error.Code'Image (Error_Type));
--Text_Io.Put_Line (Unlimited_String.Image (Tab_Error (Error_Type)));
end Treat;
procedure Resynchro is
--passer en parametre l'objet sur lequel se resynchroniser
use Lexical_Analyzer;
begin
while (Lexical_Analyzer.Get_Token /= Terminator) loop
Lexical_Analyzer.Next;
end loop;
Lexical_Analyzer.Next;
while not (Is_Follow (Lexical_Analyzer.Get_Token)) loop
Lexical_Analyzer.Next;
end loop;
end Resynchro;
end Error;
nblk1=8
nid=7
hdr6=e
[0x00] rec0=1e rec1=00 rec2=01 rec3=00e
[0x01] rec0=0f rec1=00 rec2=03 rec3=05c
[0x02] rec0=0f rec1=00 rec2=08 rec3=03a
[0x03] rec0=11 rec1=00 rec2=04 rec3=098
[0x04] rec0=12 rec1=00 rec2=02 rec3=00a
[0x05] rec0=18 rec1=00 rec2=06 rec3=02e
[0x06] rec0=07 rec1=00 rec2=05 rec3=000
[0x07] rec0=08 rec1=5f rec2=f7 rec3=2d9
tail 0x21543362686515a469560 0x42a00088462060003
Free Block Chain:
0x7: 0000 00 00 00 1a 80 01 3b 01 00 00 00 00 00 00 00 0a ┆ ; ┆