mirror of
https://github.com/reactos/reactos.git
synced 2024-11-06 06:33:08 +00:00
59 lines
1.1 KiB
C
59 lines
1.1 KiB
C
/* error handling common to all routines. */
|
|
/* Copyright (c) 1992, 1995 John E. Davis
|
|
* All rights reserved.
|
|
*
|
|
* You may distribute under the terms of either the GNU General Public
|
|
* License or the Perl Artistic License.
|
|
*/
|
|
|
|
|
|
#include "config.h"
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <stdarg.h>
|
|
|
|
#ifdef HAVE_STDLIB_H
|
|
# include <stdlib.h>
|
|
#endif
|
|
|
|
#include "slang.h"
|
|
#include "_slang.h"
|
|
|
|
void (*SLang_Error_Routine)(char *);
|
|
void (*SLang_Exit_Error_Hook)(char *);
|
|
volatile int SLang_Error = 0;
|
|
char *SLang_Error_Message;
|
|
volatile int SLKeyBoard_Quit = 0;
|
|
|
|
void SLang_doerror (char *error)
|
|
{
|
|
char err [1024];
|
|
char *str = NULL;
|
|
|
|
*err = 0;
|
|
|
|
str = "Slang/Midnight Commander unknown error";
|
|
|
|
sprintf(err, "S-Lang Error: %s", str);
|
|
|
|
if (SLang_Error_Routine == NULL)
|
|
{
|
|
fputs (err, stderr);
|
|
fputs("\r\n", stderr);
|
|
}
|
|
else
|
|
(*SLang_Error_Routine)(err);
|
|
}
|
|
|
|
|
|
|
|
void SLang_exit_error (char *s)
|
|
{
|
|
if (SLang_Exit_Error_Hook != NULL)
|
|
{
|
|
(*SLang_Exit_Error_Hook) (s);
|
|
}
|
|
if (s != NULL) fprintf (stderr, "%s\n", s);
|
|
exit (-1);
|
|
}
|