/*
        Frank Lyonnet 1993
        module Erreur
*/

#include <stdlib.h>
#include "RISC_OSLib:werr.h"
#include "Bool.h"       
#include <stdio.h>
#include "RISC_OSLib:msgs.h"

extern char TheMess[256];

void erreur(char *Message) {
   werr(FALSE, Message);
}

void erreur_fatal(char *Message) {                 
   sprintf(TheMess,"%s : %s ",msgs_lookup("FatalE"),Message);   
   werr(FALSE, TheMess);
   exit(0);
}

void erreur_nyi(char *Message) {
   sprintf(TheMess,"%s : %s ",msgs_lookup("NYIE"),Message);   
   werr(FALSE, TheMess);
   exit(0);
}

void erreur_interne(char *Message) {
   sprintf(TheMess,"%s : %s ",msgs_lookup("InternE"),Message);
   werr(FALSE, TheMess);
   exit(0);
}
