home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 10 / int / source / error.c next >
Encoding:
C/C++ Source or Header  |  1990-06-19  |  753 b   |  44 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. /* fatal_error ()  Ein nicht korrigierbarer Fehler ist aufgetreten*/
  14. void
  15. fatal_error (FehlerMeldung)
  16. char     *FehlerMeldung;
  17. {
  18.     printf ("\n Schwerer Fehler: %s\n",FehlerMeldung);
  19.     IntError = TRUE;
  20. }
  21.  
  22. /* serror ()  Ein Syntaxfehler ist aufgetreten.  */
  23.  
  24. void
  25. serror (FehlerMeldung)
  26. char    *FehlerMeldung;
  27. {
  28.     printf ("\n Fehler: %s\n",FehlerMeldung);
  29.     IntError = TRUE;
  30. }
  31.  
  32.  
  33. /*    ResetError
  34.     Zurücksetzen der Fehlermeldung
  35. */
  36.  
  37. void
  38. ResetError ()
  39. {
  40. IntError = FALSE;
  41. }
  42.  
  43. /* Ende des Files error.c */
  44.