aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--include/error.h151
-rw-r--r--src/error.c188
2 files changed, 339 insertions, 0 deletions
diff --git a/include/error.h b/include/error.h
new file mode 100644
index 0000000..4f8a4d7
--- /dev/null
+++ b/include/error.h
@@ -0,0 +1,151 @@
+/**
+ * slibc — Yet another C library
+ * Copyright © 2015 Mattias Andrée (maandree@member.fsf.org)
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ */
+#ifndef _ERROR_H
+#define _ERROR_H
+#fifndef _PORTABLE_SOURCE
+#include <slibc/version.h>
+
+#ifndef _SLIBC_SUPPRESS_WARNINGS
+# warning "Please consider not using <error.h>."
+#endif
+
+
+#include <slibc/features.h>
+#include <stdarg.h>
+
+
+
+/**
+ * Print an error message with a detailed description, and optionally exit.
+ *
+ * This is a GNU extension.
+ *
+ * @param status The process will exit, with the function returning, with this
+ * exit status, unless it is zero. If zero, the process shall not exit.
+ * @param errnum The value of `errno` when the error occurred, zero if the a textual
+ * description of the error, further than that of `format`, shall not
+ * be printed.
+ * @param format Formatting-string for a detailed description of what happend.
+ * @param args Formatting-arguments for `format`.
+ */
+void error(int status, int errnum, const char* format, ...)
+ __GCC_ONLY(__attribute__((format(printf, 3, 4))));
+
+/**
+ * Variant of `error` that uses `va_list` instead of variadic arguments.
+ *
+ * This is a slibc extension to the GNU extension `error`.
+ *
+ * @param status The process will exit, with the function returning, with this
+ * exit status, unless it is zero. If zero, the process shall not exit.
+ * @param errnum The value of `errno` when the error occurred, zero if the a textual
+ * description of the error, further than that of `format`, shall not
+ * be printed.
+ * @param format Formatting-string for a detailed description of what happend.
+ * @param args Formatting-arguments for `format`.
+ */
+#if defined(_SLIBC_SOURCE)
+void verror(int status, int errnum, const char* format, va_list args);
+#endif
+
+
+/**
+ * Variant of `error` that prints the filename and the line
+ * number whence the error occurred.
+ *
+ * This is a GNU extension.
+ *
+ * @param status The process will exit, with the function returning, with this
+ * exit status, unless it is zero. If zero, the process shall not exit.
+ * @param errnum The value of `errno` when the error occurred, zero if the a textual
+ * description of the error, further than that of `format`, shall not
+ * be printed.
+ * @param filename The filename of the source code file where the error occurred.
+ * @param linenum The line number of in the source code file where the error occurred.
+ * @param format Formatting-string for a detailed description of what happend.
+ * @param args Formatting-arguments for `format`.
+ */
+void error_at_line(int status, int errnum, const char* filename,
+ unsigned int linenum, const char* format, ...)
+ __GCC_ONLY(__attribute__((format(printf, 5, 6))));
+
+/**
+ * Variant of `verror` that prints the filename and the line
+ * number whence the error occurred.
+ *
+ * This is a slibc extension to the GNU extension `error_at_line`.
+ *
+ * @param status The process will exit, with the function returning, with this
+ * exit status, unless it is zero. If zero, the process shall not exit.
+ * @param errnum The value of `errno` when the error occurred, zero if the a textual
+ * description of the error, further than that of `format`, shall not
+ * be printed.
+ * @param filename The filename of the source code file where the error occurred.
+ * @param linenum The line number of in the source code file where the error occurred.
+ * @param format Formatting-string for a detailed description of what happend.
+ * @param args Formatting-arguments for `format`.
+ */
+#if defined(_SLIBC_SOURCE)
+void verror_at_line(int status, int errnum, const char* filename,
+ unsigned int linenum, const char* format, va_list args);
+#endif
+
+
+/**
+ * Counts the number of times `error` ( verror`) and
+ * `error_at_line` (`verror_at_line`) has returned.
+ * This variable is global and shared by all threads.
+ *
+ * This is a GNU extension.
+ */
+extern volatile unsigned int error_message_count;
+
+/**
+ * If set to non-zero (the default), `error_at_line`
+ * and `verror_at_line` restrict themself to only
+ * print an error the first time it appears. This
+ * is determined by the uniqueness of the combination
+ * of the values on `filename` and `linenum`. However
+ * it will forget the line the next time the function
+ * is called from a different line. This variable is
+ * global and shared by all threads. Has a slibc
+ * modification, `errnum` is also remembered, meaning
+ * if the error code is different (zero is considered
+ * an error code), the error is printed even if it
+ * occurred on the same line as the last time.
+ *
+ * This is a GNU extension.
+ */
+extern volatile int error_one_per_line;
+
+/**
+ * If not `NULL`, this function is used instead of
+ * flushing stdout and printing the process name to
+ * stderr, by `error` (`verror`) and `verror_at_line`
+ * (`verror_at_line`). This variable is global and
+ * shared by all threads.
+ *
+ * This is a GNU extension.
+ */
+extern volatile void (*error_print_progname)(void);
+
+
+
+#endif
+#endif
+
diff --git a/src/error.c b/src/error.c
new file mode 100644
index 0000000..ee39ccf
--- /dev/null
+++ b/src/error.c
@@ -0,0 +1,188 @@
+/**
+ * slibc — Yet another C library
+ * Copyright © 2015 Mattias Andrée (maandree@member.fsf.org)
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ */
+#include <error.h>
+#include <unistd.h>
+#include <stdio.h>
+#include <errno.h>
+
+
+
+/**
+ * Print an error message with a detailed description, and optionally exit.
+ *
+ * This is a GNU extension.
+ *
+ * @param status The process will exit, with the function returning, with this
+ * exit status, unless it is zero. If zero, the process shall not exit.
+ * @param errnum The value of `errno` when the error occurred, zero if the a textual
+ * description of the error, further than that of `format`, shall not
+ * be printed.
+ * @param format Formatting-string for a detailed description of what happend.
+ * @param args Formatting-arguments for `format`.
+ */
+void error(int status, int errnum, const char* format, ...)
+{
+ va_list args;
+ va_start(args, format);
+ verror_at_line(status, errnum, NULL, 0, format, args);
+ va_end(args);
+}
+
+
+/**
+ * Variant of `error` that uses `va_list` instead of variadic arguments.
+ *
+ * This is a slibc extension to the GNU extension `error`.
+ *
+ * @param status The process will exit, with the function returning, with this
+ * exit status, unless it is zero. If zero, the process shall not exit.
+ * @param errnum The value of `errno` when the error occurred, zero if the a textual
+ * description of the error, further than that of `format`, shall not
+ * be printed.
+ * @param format Formatting-string for a detailed description of what happend.
+ * @param args Formatting-arguments for `format`.
+ */
+void verror(int status, int errnum, const char* format, va_list args)
+{
+ verror_at_line(status, errnum, NULL, 0, format, args);
+}
+
+
+/**
+ * Variant of `error` that prints the filename and the line
+ * number whence the error occurred.
+ *
+ * This is a GNU extension.
+ *
+ * @param status The process will exit, with the function returning, with this
+ * exit status, unless it is zero. If zero, the process shall not exit.
+ * @param errnum The value of `errno` when the error occurred, zero if the a textual
+ * description of the error, further than that of `format`, shall not
+ * be printed.
+ * @param filename The filename of the source code file where the error occurred.
+ * @param linenum The line number of in the source code file where the error occurred.
+ * @param format Formatting-string for a detailed description of what happend.
+ * @param args Formatting-arguments for `format`.
+ */
+void error_at_line(int status, int errnum, const char* filename,
+ unsigned int linenum, const char* format, ...)
+{
+ va_list args;
+ va_start(args, format);
+ verror_at_line(status, errnu, filename, linenum, format, args);
+ va_end(args);
+}
+
+
+/**
+ * Variant of `verror` that prints the filename and the line
+ * number whence the error occurred.
+ *
+ * This is a slibc extension to the GNU extension `error_at_line`.
+ *
+ * @param status The process will exit, with the function returning, with this
+ * exit status, unless it is zero. If zero, the process shall not exit.
+ * @param errnum The value of `errno` when the error occurred, zero if the a textual
+ * description of the error, further than that of `format`, shall not
+ * be printed.
+ * @param filename The filename of the source code file where the error occurred.
+ * @param linenum The line number of in the source code file where the error occurred.
+ * @param format Formatting-string for a detailed description of what happend.
+ * @param args Formatting-arguments for `format`.
+ */
+void verror_at_line(int status, int errnum, const char* filename,
+ unsigned int linenum, const char* format, va_list args)
+{
+ int tty = isatty(STDERR_FILENO);
+ void (*pname)(void) = error_print_progname;
+
+ static const char* last_filename = NULL;
+ static unsigned int last_linenum = 0;
+ static int last_errnum = 0;
+
+ if (error_one_per_line)
+ if ((last_filename == filename) && (last_linenum == linenum) && (last_errnum == errnum))
+ goto skip_print;
+
+ if (pname != NULL)
+ pname();
+ else
+ {
+ fflush(stdout);
+ fprintf(stderr, "%(\033[0;1;31m)%s%(\033[0m)",
+ tty, program_invocation_name, tty);
+ }
+
+ fprintf(stderr, "%(: %(\033[35m%)%s%(\033[0m%): %(\033[32m%)%u%(\033[0m%)%)%(: %s%)%(: %)",
+ filename != NULL, tty, filename, tty, tty, filenum, tty,
+ errnum != 0, strerror(errnum) /* TODO strerror is not MT-Safe */, format != NULL);
+
+ if (filename != NULL)
+ last_filename = filename, last_linenum = linenum, last_errnum = errnum;
+
+ vfprintf(stderr, format, args);
+ fprintf(stderr, "\n", program_invocation_name);
+ fflush(stderr);
+
+ skip_print:
+ error_message_count++; /* TODO lock around this */
+ if (status)
+ exit(status);
+}
+
+
+/**
+ * Counts the number of times `error` ( verror`) and
+ * `error_at_line` (`verror_at_line`) has returned.
+ * This variable is global and shared by all threads.
+ *
+ * This is a GNU extension.
+ */
+volatile unsigned int error_message_count = 0;
+
+
+/**
+ * If set to non-zero (the default), `error_at_line`
+ * and `verror_at_line` restrict themself to only
+ * print an error the first time it appears. This
+ * is determined by the uniqueness of the combination
+ * of the values on `filename` and `linenum`. However
+ * it will forget the line the next time the function
+ * is called from a different line. This variable is
+ * global and shared by all threads. Has a slibc
+ * modification, `errnum` is also remembered, meaning
+ * if the error code is different (zero is considered
+ * an error code), the error is printed even if it
+ * occurred on the same line as the last time.
+ *
+ * This is a GNU extension.
+ */
+volatile int error_one_per_line = 1;
+
+
+/**
+ * If not `NULL`, this function is used instead of
+ * flushing stdout and printing the process name to
+ * stderr, by `error` (`verror`) and `verror_at_line`
+ * (`verror_at_line`). This variable is global and
+ * shared by all threads.
+ *
+ * This is a GNU extension.
+ */
+volatile void (*error_print_progname)(void) = NULL;
+