|
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, package body Error, seg_04797d
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
package body Error is
Error_List : String_Table.Int_List.List;
Last_Error_Line : Positive := 32000;
procedure Append (Chaine : String := " : Mot Incorrect !") is
Tmp_String : String_Table.I_String;
Synchro : Set_Of_Token.Object :=
Set_Of_Token.Make ((T_Directions, T_Objets, T_Pieces, T_Liens,
T_Pnjs, T_Hero, T_Actions, T_Scenario,
T_Generales, T_Locales, T_Pseudo_Generales));
begin
if Lex.Getline /= Last_Error_Line then
Bounded_String.Copy (Tmp_String, "** ERREUR ** Ligne : ");
Bounded_String.Append (Tmp_String, Positive'Image (Lex.Getline));
Bounded_String.Append (Tmp_String, " - Colonne : ");
Bounded_String.Append (Tmp_String, Positive'Image (Lex.Getcolumn));
Bounded_String.Append (Tmp_String, " => ");
Bounded_String.Append (Tmp_String, Lex.Image);
Bounded_String.Append (Tmp_String, Chaine);
String_Table.Int_List.Attach (Tmp_String, Error_List);
while not (Set_Of_Token.Is_Member (Lex.Gettoken, Synchro) or
Lex.Currenttoken_Is (T_Eof)) loop
Lex.Next;
end loop;
Last_Error_Line := Lex.Getline;
end if;
end Append;
procedure Image is
Tmp_String : String_Table.I_String;
Iterator : String_Table.Int_List.Listiter;
begin
Text_Io.Put (Integer'Image (String_Table.Int_List.Length (Error_List)));
Text_Io.Put_Line (" erreur(s) detectees.");
Iterator := String_Table.Int_List.Makelistiter (Error_List);
while String_Table.Int_List.More (Iterator) loop
String_Table.Int_List.Next (Iterator, Tmp_String);
Text_Io.Put_Line (Bounded_String.Image (Tmp_String));
end loop;
end Image;
end Error;
nblk1=4
nid=2
hdr6=4
[0x00] rec0=15 rec1=00 rec2=01 rec3=034
[0x01] rec0=17 rec1=00 rec2=04 rec3=000
[0x02] rec0=09 rec1=00 rec2=02 rec3=000
[0x03] rec0=05 rec1=00 rec2=03 rec3=000
tail 0x21544a50686547776aecf 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 03 01 27 80 0e 65 63 74 69 6f 6e 20 74 61 62 ┆ ' ection tab┆
0x3: 0000 00 00 00 b6 80 17 44 41 54 45 3e 20 20 20 20 20 ┆ DATE> ┆