DataMuseum.dk

top - download

    Length: 4077 (0xfed)
    Types: TextFile
    Names: »B«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

package body Erreur is


    -- CONSTANTES -----------------------------------------------------------

    type T_Pt_String is access String;
    type T_Messages_Erreurs is array (Numero_Erreur range <>) of T_Pt_String;
    Messages_Erreurs : constant T_Messages_Erreurs (0 .. 100) :=
       (0 => new String'("NO ERROR !"),
        1 => new String'("INTERRUPT ERROR : Incorrect code op vector !!!"),
        2 => new String'("INPUT ERROR : Invalid value !!!"),
        3 .. 4 => new String'("UNKNOWN ERROR..."),
        5 => new String'("OPEN ERROR : Unknow Hexa File !!!"),
        6 => new String'("OPEN ERROR : In reading Hexa File !!!"),
        7 .. 9 => new String'("UNKNOWN ERROR..."),
        10 => new String'("MEMORY ERROR : Read at non defined address !!!"),
        11 => new String'("MEMORY ERROR : Write at non defined address !!!"),
        12 => new String'("MEMORY ERROR : Write in ROM !!!"),
        13 => new String'("PERIPH ERROR : Io port acces error !!!"),
        14 => new String'("PERIPH ERROR : Memory mapped acces error !!!"),
        15 => new String'("CONFIG ERROR : File not found !!!"),
        16 => new String'("CONFIG ERROR : Syntax file !!!"),
        17 .. 19 => new String'("UNKNOWN ERROR..."),
        20 => new String'("PERIPH ERROR : Too more peripherals !!!"),
        21 => new String'("PERIPH ERROR : Unknown peripheral name !!!"),
        22 => new String'("PERIPH ERROR : Unknown peripheral identifier !!!"),
        23 .. 29 => new String'("UNKNOWN ERROR..."),
        30 => new String'("ACIA ERROR : Too more ACIAs !!!"),
        31 => new String'("ACIA ERROR : Unknown ACIA identifier !!!"),
        32 => new String'("ACIA ERROR : I receive a unknown window event !!!"),
        33 =>
           new String'
                  ("ACIA ERROR : I already opened a window for this ACIA  !!!"),
        34 => new String'("ACIA ERROR : You enter a bad value !!!"),
        35 .. 39 => new String'("UNKNOWN ERROR..."),  
        40 => new String'("PPI ERROR : Too more PPIs !!!"),
        41 => new String'("PPI ERROR : Unknown PPI identifier !!!"),
        42 => new String'("PPI ERROR : I can't force this bit !!!"),
        43 =>
           new
              String'
                 ("PPI ERROR : The peripheral can't do this (Bad configuration) !!!"),
        44 => new String'("PPI ERROR : I can't write (Bad configuration) !!!"),
        45 => new String'("PPI ERROR : I can't read (Bad configuration) !!!"),
        46 => new String'("PPI ERROR : I receive a Unknown window event !!!"),
        47 =>
           new String'
                  ("PPI ERROR : I already opened a window for this PPI  !!!"),
        48 => new String'("PPI ERROR : You enter a bad value !!!"),
        49 => new String'("UNKNOWN ERROR..."),
        50 => new String'("PTM ERROR : Too more Timers !!!"),
        51 => new String'("PTM ERROR : Unknown Timer identifier !!!"),
        52 =>
           new String'
                  ("PTM ERROR : I can't take this configuration (unknown) !!!"),
        53 => new String'("PTM ERROR : I receive a Unknown window event !!!"),
        54 =>
           new String'
                  ("PTM ERROR : I already opened a window for this Timer  !!!"),
        55 => new String'("PTM ERROR : You enter a bad value !!!"),
        56 .. 59 => new String'("UNKNOWN ERROR..."),
        60 => new String'("MEMORY ERROR : Bad Value Input !!!"),
        61 .. 100 => new String'("UNKNOWN ERROR..."));

    -- VARIABLES ------------------------------------------------------------

    Erreur_Detectee : Natural := 0;

    -- PROCEDURES -----------------------------------------------------------

    procedure Detectee (Num : Numero_Erreur) is
    begin
        Erreur_Detectee := Num;
    end Detectee;

    function Presente return Boolean is
    begin
        return (Erreur_Detectee /= 0);
    end Presente;

    function Enregistree return String is
        Err : Numero_Erreur := Erreur_Detectee;
    begin
        Erreur_Detectee := 0;
        return Messages_Erreurs (Err).all;
    end Enregistree;

end Erreur;