DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ B T

⟦73d83e373⟧ TextFile

    Length: 5417 (0x1529)
    Types: TextFile
    Names: »B«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 

TextFile

separate (Error)
package body Data is

    The_Error_Messages : constant array (1 .. 57) of Pstring :=
       (1 =>
           new String'
                  ("*** J'attendais une variable, un entier ou une heure ..."),
        2 => new String'("*** J'attendais un '+' ou un '-' ..."),
        3 => new String'("*** Il manque ')' dans l'expression ..."),
        4 => new String'("*** J'attendais '<', '>', '<=', '>=' ou '<>' ..."),
        5 =>
           new String'
                  ("*** Il manque ')' a la fin de la liste des parametres ..."),
        6 =>
           new String'
                  ("*** Il manque '(' au debut de la liste des parametres ..."),
        7 => new String'("*** J'attendais un nom de sous-programme ..."),
        8 => new String'("*** Il manque l'operateur d'affectation ':=' ..."),
        9 => new String'("*** J'attendais un nom de variable ..."),
        10 => new String'("*** J'attendais un nom d'element de theatre ..."),
        11 => null,
        12 => new String'("*** Il manque le mot cle 'A' ..."),
        13 => new String'("*** Il manque le mot cle 'EN' ..."),
        14 => null,
        15 =>
           new String'
                  ("*** J'attendais ACTIVER, DESACTIVER, FIXER ou EVOLUER ..."),
        16 =>
           new String'
                  ("*** Il manque '}' a la fin de la liste des primitives ..."),
        17 =>
           new String'
                  ("*** Il manque '{' au debut de la liste des primitives ..."),
        18 =>
           new
              String'("*** Il manque 'FAIRE' dans la structure 'au temps' ..."),
        19 => new String'("*** Il manque le mot cle 'TEMPS' ..."),
        20 => new String'("*** J'attendais ATTENDRE, POUR, PUIS ou AU ..."),
        21 => new String'("*** Il manque le mot cle 'QUE' ..."),
        22 => new String'("*** Il manque le mot cle 'TANT' ..."),
        23 => new String'("*** Il manque le mot cle 'FIN' ..."),
        24 =>
           new
              String'("*** Il manque 'FAIRE' dans la structure 'tant que' ..."),
        25 => new String'("*** Il manque le mot cle 'QUE' ..."),
        26 =>
           new String'("*** Il manque 'FAIRE' dans la structure 'selon' ..."),
        27 => new String'("*** Il manque le mot cle 'SELON' ..."),
        28 => new String'("*** Il manque le mot cle 'FIN' ..."),
        29 => new String'("*** Il manque 'EST' dans la structure 'selon' ..."),
        30 => new String'("*** J'attendais un identificateur ..."),
        31 => new String'("*** Il manque '}' ..."),
        32 => new String'("*** Il manque le mot cle 'SI' ..."),
        33 => new String'("*** Il manque le mot cle 'FIN' ..."),
        34 => new String'("*** Il manque 'ALORS' dans la structure 'si' ..."),
        35 => new String'("*** J'attendais une description de programme ..."),
        36 => new String'("*** J'attendais un identificateur ..."),
        37 => null,
        38 => new String'("*** J'attendais le mot cle 'UTILISE' ..."),
        39 =>
           new
              String'
                 ("*** Il manque 'EST' dans la definition de sous programme ..."),
        40 => new String'("*** J'attendais un identificateur ..."),
        41 => new String'("*** Il manque le mot cle 'EN' ..."),
        42 => new String'("*** J'attendais un identificateur ..."),
        43 =>
           new String'("*** Il manque 'EST' dans la definition du theatre ..."),
        44 =>
           new String'
                  ("*** J'attendais BINAIRE, FUGITIF, DISCRET ou TEMPOREL ..."),
        45 => new String'("*** Il manque ')' ..."),
        46 => new String'("*** Il manque '(' ..."),
        47 =>
           new String'
                  ("*** Il manque 'FAIRE' dans la declaration de materiel ..."),
        48 =>
           new String'
                  ("*** Il manque 'SAIT' dans la declaration de materiel ..."),
        49 => new String'("*** Il manque le mot cle 'MATERIEL' ..."),
        50 => new String'("*** Il manque le mot cle 'THEATRE' ..."),
        51 => new String'("*** Il manque le mot cle 'SPECTACLE' ..."),
        52 => new String'("*** J'attendais un nom d'acteur ..."),
        53 => new String'("*** Cette valeur n'a pas de sens ..."),
        54 => new String'("*** La base doit etre ecrite sur deux chiffres ..."),
        55 => new String'("*** J'attendais une valeur ou une '(' ..."),
        56 => new String'("*** Erreur dans la conversion de l'heure ..."),
        57 => new String'("*** Il manque le programme principal ..."));




    -- Follow1 : constant Lex.Tokens := ((Lex.Int, Lex.Identifier));
    -- Follow2 : constant Lex.Tokens := ((Lex.Begin_Bracket, Lex.Open_Bracket));
    --
    -- The_Follows_List : constant array (1 .. 2) of Lex.Tokens (1 .. 1) :=
    --    (1 => Follow1, 2 => Follow2);

-------------------------- Implementation des procedures ----------------------
-------------------------------------------------------------------------------


    function Image (Index : Natural) return String is
    begin
        return The_Error_Messages (Index).all;
    end Image;



    function Get_Token (Index : Natural) return Lex.Tokens is
    begin
        case Index is
            when 1 =>
                return ((Lex.Int, Lex.Identifier));
            when 2 =>
                return ((Lex.Int, Lex.Identifier));
            when others =>
                null;
        end case;
    end Get_Token;

end Data;