|
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_044008
└─⟦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;
procedure Append 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
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, " est incorrect !");
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;
end Append;
procedure Image is
Tmp_String : I_String;
Iterator : String_Table.Int_String.Listiter;
begin
Text_Io.Put (Integer'Image (String_Table.Int_List.Length (Error_List)));
Text_Io.Put_Line (" erreur(s) detectees.");
Iterator := Makelistiter (Error_List);
while More (Iterator) loop
Next (Iterator, Tmp_String);
Text_Io.Put_Line (Bounded_String.Image (Tmp_String));
end loop;
end Image;
end Error;
------------------------------------------------------------------------
-- <UNIT> String_Table
------------------------------------------------------------------------
--
-- <DESCRIPTION> This package defines types and functions for verbs,
-- objects and direction tables.
--
-- <AUTHOR> Barthe Raphael, Beck Didier, Kempe Laurent
-- <VERSION> 1.0
-- <DATE> 10-jan-95
-- <MODIFY> 10-jan-95
--
-- <PKG USED> Lists, Bounded_String.
------------------------------------------------------------------------
nblk1=4
nid=0
hdr6=8
[0x00] rec0=15 rec1=00 rec2=01 rec3=06e
[0x01] rec0=01 rec1=00 rec2=04 rec3=028
[0x02] rec0=1c rec1=00 rec2=02 rec3=008
[0x03] rec0=05 rec1=00 rec2=03 rec3=000
tail 0x2153f92e6863c7dff266d 0x42a00088462060003