|
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: 11264 (0x2c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Error4, seg_0485cc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Lex;
use Lex;
package Error4 is
use Lex.Visible;
package Visible is
type Token_To_Boolean_Array is array (Token) of Boolean;
type Syn_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, Global, Substract, Facteur, Single_Objet,
Type_Base, Type_Structure, Valeur, Chaine, Sentence,
Tests, Suite_Condition_Forte, Condition_Forte,
Change, Quoi_Afficher, Too_Many_Complements,
Identifier_Place, Instruction, Jeu_Aventure);
type Sem_Error is (Identifier_Belong_List, Message,
Enumere, Special_In_Normal,
Subject_Exist_In_Group, Structure_Not_Exist,
Complement_Exist, Complement_Not_Exist,
Complement_Not_A_Word, Complement_Not_A_Place,
Complement_Not_An_Animate, Complement_Not_An_Entity,
Complement_Not_Entity_Or_Animate,
Field_Exist, Field_Not_Exist,
Field_Not_Belong, Field_Not_A_Number,
Field_Not_A_Sentence, Field_Not_An_Enumerate,
Literal_Exist, Literal_Not_Exist,
Word_Exist, Group_Is_Complement,
Verb_Exist, Enumeration_Exist,
Enumeration_Not_Exist, Group_Exist,
Neither_A_Subject_Nor_A_Group,
Neither_A_Complement_Nor_A_Group,
Neither_An_Entity_Nor_An_Animate,
Neither_A_Place_Nor_A_Group,
Neither_A_Field_Nor_A_Group,
Number_Of_Repeat_Null, An_Exit, Field_Belong,
Expression_Not_Same_Type, Number_Of_Actions_Null,
Order_Exist, Order_List_Group_Failure,
Complement_Has_A_Group, Animate_Has_A_Trip,
Attribute_And_Expression_Not_Same_Type,
Wrong_Compare_Kind);
Follow_Type_Base : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Equal | Structure .. Scenario | End_Of_Text => True,
others => False);
Follow_Type_Structure : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'(Colon => 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 | Structure .. Scenario | End_Of_Text => True,
others => False);
-- verifier follow precedent
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'
(Enumere .. Fin | End_Of_Text => True, others => False);
--Issues .. Itineraire supprimes dans la liste de follow precedente
Follow_Aide : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Message .. Scenario | 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_Lien_Normal : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Lien .. Scenario | End_Of_Text => True, others => False);
Follow_Lien_Special : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Verbes .. Scenario | End_Of_Text => True, others => False);
Follow_Liste_Verbes : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Mots .. Scenario | End_Of_Text => True, others => False);
Follow_Attribut : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Substract | 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'
(Id | 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_Lier_Lieux : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Lie .. Scenario | End_Of_Text => True, others => False);
Follow_Mouvement : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Comma | Itineraire .. Scenario | End_Of_Text => True,
others => False);
Follow_Liste_Itineraires : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'
(Itineraire .. 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_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_Ordre : constant Token_To_Boolean_Array :=
Token_To_Boolean_Array'(Substract | Fin => 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'
(Aide .. Scenario | 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);
end Visible;
use Visible;
procedure Syn (An_Error : in Syn_Error; Follow : Token_To_Boolean_Array);
procedure Sem (An_Error : in Sem_Error; False_Part : in String);
end Error4;
nblk1=a
nid=8
hdr6=12
[0x00] rec0=17 rec1=00 rec2=01 rec3=050
[0x01] rec0=0f rec1=00 rec2=06 rec3=06e
[0x02] rec0=15 rec1=00 rec2=05 rec3=022
[0x03] rec0=0b rec1=00 rec2=07 rec3=016
[0x04] rec0=15 rec1=00 rec2=04 rec3=02c
[0x05] rec0=19 rec1=00 rec2=09 rec3=01a
[0x06] rec0=16 rec1=00 rec2=0a rec3=062
[0x07] rec0=17 rec1=00 rec2=03 rec3=044
[0x08] rec0=13 rec1=00 rec2=02 rec3=000
[0x09] rec0=13 rec1=00 rec2=02 rec3=000
tail 0x21545971a86596d8af1b5 0x42a00088462060003
Free Block Chain:
0x8: 0000 00 00 00 0b 80 08 5f 49 6e 5f 47 72 6f 75 08 75 ┆ _In_Grou u┆