|
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 Error, seg_049a2c, seg_049a90, seg_049c0b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧ └─⟦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 Syn_Error is (Closing_Bracket, Equal, Diese, 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, Wrong_Compare_Symbol); 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); 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); 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 Error;
nblk1=a nid=a hdr6=12 [0x00] rec0=16 rec1=00 rec2=01 rec3=05a [0x01] rec0=10 rec1=00 rec2=02 rec3=006 [0x02] rec0=14 rec1=00 rec2=08 rec3=034 [0x03] rec0=13 rec1=00 rec2=09 rec3=048 [0x04] rec0=18 rec1=00 rec2=03 rec3=02e [0x05] rec0=18 rec1=00 rec2=04 rec3=026 [0x06] rec0=17 rec1=00 rec2=05 rec3=010 [0x07] rec0=18 rec1=00 rec2=07 rec3=040 [0x08] rec0=04 rec1=00 rec2=06 rec3=000 [0x09] rec0=c9 rec1=0b rec2=f8 rec3=6d3 tail 0x21547177886607d5161cf 0x42a00088462060003 Free Block Chain: 0xa: 0000 00 00 00 09 80 06 6f 75 70 2c 20 53 06 00 00 00 ┆ oup, S ┆