ncurses 5.6 - patch 20080607
[ncurses.git] / ncurses / tinfo / comp_error.c
index 3767063da0a6d51664571587798c8b4c521904c5..56c362a4f7ddb05dde234aad27213d0280a235c4 100644 (file)
@@ -1,5 +1,5 @@
 /****************************************************************************
- * Copyright (c) 1998,1999 Free Software Foundation, Inc.                   *
+ * Copyright (c) 1998-2005,2007 Free Software Foundation, Inc.              *
  *                                                                          *
  * Permission is hereby granted, free of charge, to any person obtaining a  *
  * copy of this software and associated documentation files (the            *
@@ -29,9 +29,9 @@
 /****************************************************************************
  *  Author: Zeyd M. Ben-Halim <zmbenhal@netcom.com> 1992,1995               *
  *     and: Eric S. Raymond <esr@snark.thyrsus.com>                         *
+ *     and: Thomas E. Dickey                        1996-on                 *
  ****************************************************************************/
 
-
 /*
  *     comp_error.c -- Error message routines
  *
 
 #include <tic.h>
 
-MODULE_ID("$Id: comp_error.c,v 1.17 1999/10/30 23:00:16 tom Exp $")
+MODULE_ID("$Id: comp_error.c,v 1.31 2007/04/21 23:38:32 tom Exp $")
+
+NCURSES_EXPORT_VAR(bool) _nc_suppress_warnings = FALSE;
+NCURSES_EXPORT_VAR(int) _nc_curr_line = 0; /* current line # in input */
+NCURSES_EXPORT_VAR(int) _nc_curr_col = 0; /* current column # in input */
 
-bool   _nc_suppress_warnings = FALSE;
-int    _nc_curr_line = 0;      /* current line # in input */
-int    _nc_curr_col = 0;       /* current column # in input */
+#define SourceName     _nc_globals.comp_sourcename
+#define TermType       _nc_globals.comp_termtype
 
-static const char *sourcename;
-static char termtype[MAX_NAME_SIZE+1];
+NCURSES_EXPORT(const char *)
+_nc_get_source(void)
+{
+    return SourceName;
+}
 
-void _nc_set_source(const char *const name)
+NCURSES_EXPORT(void)
+_nc_set_source(const char *const name)
 {
-       sourcename = name;
+    SourceName = name;
 }
 
-void _nc_set_type(const char *const name)
+NCURSES_EXPORT(void)
+_nc_set_type(const char *const name)
 {
+    if (TermType == 0)
+       TermType = typeMalloc(char, MAX_NAME_SIZE + 1);
+    if (TermType != 0) {
+       TermType[0] = '\0';
        if (name)
-               strncpy( termtype, name, MAX_NAME_SIZE );
-       else
-               termtype[0] = '\0';
+           strncat(TermType, name, MAX_NAME_SIZE);
+    }
 }
 
-void _nc_get_type(char *name)
+NCURSES_EXPORT(void)
+_nc_get_type(char *name)
 {
-       strcpy( name, termtype );
+#if NO_LEAKS
+    if (name == 0 && TermType != 0) {
+       FreeAndNull(TermType);
+       return;
+    }
+#endif
+    if (name != 0)
+       strcpy(name, TermType != 0 ? TermType : "");
 }
 
-static inline void where_is_problem(void)
+static NCURSES_INLINE void
+where_is_problem(void)
 {
-       fprintf (stderr, "\"%s\"", sourcename);
-       if (_nc_curr_line >= 0)
-               fprintf (stderr, ", line %d", _nc_curr_line);
-       if (_nc_curr_col >= 0)
-               fprintf (stderr, ", col %d", _nc_curr_col);
-       if (termtype[0])
-               fprintf (stderr, ", terminal '%s'", termtype);
-       fputc(':', stderr);
-       fputc(' ', stderr);
+    fprintf(stderr, "\"%s\"", SourceName ? SourceName : "?");
+    if (_nc_curr_line >= 0)
+       fprintf(stderr, ", line %d", _nc_curr_line);
+    if (_nc_curr_col >= 0)
+       fprintf(stderr, ", col %d", _nc_curr_col);
+    if (TermType != 0 && TermType[0] != '\0')
+       fprintf(stderr, ", terminal '%s'", TermType);
+    fputc(':', stderr);
+    fputc(' ', stderr);
 }
 
-void _nc_warning(const char *const fmt, ...)
+NCURSES_EXPORT(void)
+_nc_warning(const char *const fmt,...)
 {
-va_list argp;
+    va_list argp;
 
-       if (_nc_suppress_warnings)
-           return;
+    if (_nc_suppress_warnings)
+       return;
 
-       where_is_problem();
-       va_start(argp,fmt);
-       vfprintf (stderr, fmt, argp);
-       fprintf (stderr, "\n");
-       va_end(argp);
+    where_is_problem();
+    va_start(argp, fmt);
+    vfprintf(stderr, fmt, argp);
+    fprintf(stderr, "\n");
+    va_end(argp);
 }
 
-
-void _nc_err_abort(const char *const fmt, ...)
+NCURSES_EXPORT(void)
+_nc_err_abort(const char *const fmt,...)
 {
-va_list argp;
-
-       where_is_problem();
-       va_start(argp,fmt);
-       vfprintf (stderr, fmt, argp);
-       fprintf (stderr, "\n");
-       va_end(argp);
-       exit(EXIT_FAILURE);
+    va_list argp;
+
+    where_is_problem();
+    va_start(argp, fmt);
+    vfprintf(stderr, fmt, argp);
+    fprintf(stderr, "\n");
+    va_end(argp);
+    exit(EXIT_FAILURE);
 }
 
-
-void _nc_syserr_abort(const char *const fmt, ...)
+NCURSES_EXPORT(void)
+_nc_syserr_abort(const char *const fmt,...)
 {
-va_list argp;
+    va_list argp;
 
-       where_is_problem();
-       va_start(argp,fmt);
-       vfprintf (stderr, fmt, argp);
-       fprintf (stderr, "\n");
-       va_end(argp);
+    where_is_problem();
+    va_start(argp, fmt);
+    vfprintf(stderr, fmt, argp);
+    fprintf(stderr, "\n");
+    va_end(argp);
 
-       /* If we're debugging, try to show where the problem occurred - this
-        * will dump core.
-        */
+    /* If we're debugging, try to show where the problem occurred - this
+     * will dump core.
+     */
 #if defined(TRACE) || !defined(NDEBUG)
-       abort();
+    abort();
 #else
-       /* Dumping core in production code is not a good idea.
-        */
-       exit(EXIT_FAILURE);
+    /* Dumping core in production code is not a good idea.
+     */
+    exit(EXIT_FAILURE);
 #endif
 }