|
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 - metrics - download
Length: 9216 (0x2400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Error, seg_044e17
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Lex;
package Error is
use Lex.Visible;
package Visible is
type Token_To_Boolean_Array is array (Token) of Boolean;
type Error is (Closing_Bracket, Equal, Colon, Number, Id,
Wrong_Sentence, De, En, Erreur, Normal, Special, A, Par,
Vers, Alors, Fin, Si, Dans, Existe, Vaut, Anime, Passees,
Suivante, Actions, Quand, Ordre, Substract,
Facteur, Objet, Type_Base, Type_Structure, Valeur,
Chaine, Sentence, Tests, Suite_Condition_Forte,
Condition_Forte, Change, Quoi_Afficher, Jeu_Aventure);
type Error_Sem is (Liste_Id, Message, Enumere, Groupe);
Follow_Type_Base : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Colon | End_Of_Text => True, others => False);
Follow_Type_Structure : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Colon | Attributs | Structure .. Scenario | End_Of_Text => True,
others => False);
Follow_Chaine : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(En .. Scenario | End_Of_Text => True, others => False);
Follow_Valeur : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(En .. Itineraire | Structure .. Scenario | End_Of_Text => True,
others => False);
Follow_Objet : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Et .. Alors | En | Scenario .. Less_Equal | End_Of_Text => True,
others => False);
Follow_Liste_Identificateurs : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Itineraire | Enumere .. Fin | End_Of_Text => True,
others => False);
Follow_Liste_Messages_Erreur : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Message .. Scenario | End_Of_Text => True, others => False);
Follow_Liste_Enumeres : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Enumere .. Scenario | End_Of_Text => True, others => False);
Follow_Attribut : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(En | Structure .. Scenario | End_Of_Text => True,
others => False);
Follow_Liste_Structures : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Structure .. Scenario | End_Of_Text => True, others => False);
Follow_Champs : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Itineraire | Cree .. Scenario | End_Of_Text => True,
others => False);
Follow_Mouvement : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Comma | Cree .. Scenario | End_Of_Text => True, others => False);
Follow_Issues : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Itineraire | Cree .. Scenario | End_Of_Text => True,
others => False);
Follow_Liste_Objets : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Cree .. Scenario | End_Of_Text => True, others => False);
Follow_Etats_Liens : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Lie .. Scenario | End_Of_Text => True, others => False);
Follow_Lier_Lieux : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Lie .. Scenario | End_Of_Text => True, others => False);
Follow_Liste_Groupes : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Groupe .. Scenario | End_Of_Text => True, others => False);
Follow_Liste_Verbes : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Introduction .. Scenario | End_Of_Text => True, others => False);
Follow_Facteur : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Et .. Alors | Scenario .. Divide | End_Of_Text => True,
others => False);
--Follow_Symbole_Comparaison : constant Token_To_Boolean_Array :=
--Token_To_Boolean_Array'
--(Number | Id | Opening_Bracket | End_Of_Text => True,
--others => False);
Follow_Suite_Condition_Forte : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Et .. Alors | End_Of_Text => True, others => False);
Follow_Condition_Forte : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Et .. Alors | End_Of_Text => True, others => False);
Follow_Instruction_Simple : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Scenario .. Substract | End_Of_Text => True, others => False);
Follow_Quoi_Afficher : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Scenario .. Substract | End_Of_Text => True, others => False);
Follow_Ordre : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'(Substract => True, others => False);
Follow_Quand_Ordre : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Si .. Va | End_Of_Text => True, others => False);
Follow_Jeu_Aventure : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Message .. Scenario | End_Of_Text => True, others => False);
end Visible;
use Visible;
procedure Syn (An_Error : in Visible.Error;
Follow : Token_To_Boolean_Array);
use Visible;
procedure Sem (An_Error : in Visible.Error_Sem; False_Part : in String);
end Error;
nblk1=8
nid=0
hdr6=10
[0x00] rec0=19 rec1=00 rec2=01 rec3=026
[0x01] rec0=01 rec1=00 rec2=08 rec3=052
[0x02] rec0=19 rec1=00 rec2=02 rec3=03a
[0x03] rec0=18 rec1=00 rec2=03 rec3=046
[0x04] rec0=17 rec1=00 rec2=04 rec3=044
[0x05] rec0=17 rec1=00 rec2=05 rec3=08c
[0x06] rec0=1c rec1=00 rec2=07 rec3=050
[0x07] rec0=04 rec1=00 rec2=06 rec3=001
tail 0x215410614864656ed5d6c 0x42a00088462060003