home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 20 / st_txl / error.c next >
Encoding:
C/C++ Source or Header  |  1985-07-18  |  755 b   |  45 lines
  1. /*    error.c    
  2.     In diesem File sind die Fehlerbehandlungsroutinen für den
  3. TXL-Interpreter zu finden.
  4.     (c) 1990 Michael Beising & TOOLBOX
  5. */
  6.  
  7. #include <stdio.h>
  8. #include <stdlib.h>
  9. #include <interp.h>
  10.  
  11. extern    int        IntError;
  12.  
  13.  
  14. /* fatal_error ()  Ein nicht korrigierbarer Fehler ist aufgetreten*/
  15. void
  16. fatal_error (FehlerMeldung)
  17. char     *FehlerMeldung;
  18. {
  19.     printf ("\n Schwerer Fehler: %s\n",FehlerMeldung);
  20.     IntError = TRUE;
  21. }
  22.  
  23. /* serror ()  Ein Syntaxfehler ist aufgetreten.  */
  24.  
  25. void
  26. serror (FehlerMeldung)
  27. char    *FehlerMeldung;
  28. {
  29.     printf ("\n Fehler: %s\n",FehlerMeldung);
  30.     IntError = TRUE;
  31. }
  32.  
  33.  
  34. /*    ResetError
  35.     Zurücksetzen der Fehlermeldung
  36. */
  37.  
  38. void
  39. ResetError ()
  40. {
  41. IntError = FALSE;
  42. }
  43.  
  44. /* Ende des Files error.c */
  45.