|
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 Error, seg_041366
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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, Identifier,
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, Symbole_Comparaison, Suite_Condition_Forte,
Condition_Forte, Change, Quoi_Afficher, Jeu_Aventure);
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 | Identifier | 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);
end Error;
nblk1=8
nid=8
hdr6=e
[0x00] rec0=18 rec1=00 rec2=01 rec3=03a
[0x01] rec0=00 rec1=00 rec2=06 rec3=018
[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=06e
[0x06] rec0=1d rec1=00 rec2=07 rec3=000
[0x07] rec0=0b rec1=00 rec2=02 rec3=001
tail 0x2153bbe26861272a77e4a 0x42a00088462060003
Free Block Chain:
0x8: 0000 00 00 00 2b 80 04 73 65 29 3b 04 00 00 00 00 1e ┆ + se); ┆