|
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: 2681 (0xa79) Types: TextFile Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦5e4b03c10⟧ └─⟦this⟧
with Lex; use Lex; package Error3 is package visible is type Token_To_Boolean_Array is array (Token) of Boolean; type syn_Error is (Closing_Bracket, Equal, Identifier, Wrong_Sentence, De, En, Vers, Alors, Fin, Si, Dans, Anime, Passees, Suivante, Actions, Facteur, Objet, Symbole_Comparaison, Suite_Condition_Forte, Condition_Forte, Change, Quoi_Afficher,too_many_identifiers); type sem_error is (identifier_belong_list,message,enumere,subject_exist_in_group,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,value_not_a_number,value_not_a_sentence,value_not_an_enumerate, literal_exist,literal_not_belong,word_exist,group_is_complement,verb_exist,enumeration_exist,enumeration_not_exist,neither_an_entity_nor_an_animate,neither_a_subject_nor_a_group,neither_an_subject_or_a_group,neither_a_field_nor_a_group,number_of_repeat_null,expression_not_good_type,order_exist); 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' (Issues .. Itineraire | Enumere .. Fin | 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); end visible; use visible; procedure Syn (An_Error : in Error; Follow : Token_To_Boolean_Array); end Error