DataMuseum.dk

top - metrics - download

    Length: 2470 (0x9a6)
    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« 
        └─⟦78bc26e5b⟧ 
            └─⟦this⟧ 

TextFile

with Lex;
use Lex;
package Error 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);
type sem_error is {identifier_belong_list,message,enumere,subject_exist_in_group,complement_exist,complement_not_exist,complement_not_a_place,complement_not_an_animate,complement_not_an_entity,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_complement_or_group,number_of_repeat_null);
    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