From 6c726a79d442a1b5ecb187c7bf5e6834a963c5f4 Mon Sep 17 00:00:00 2001 From: Mattias Andrée Date: Tue, 17 Nov 2015 02:46:37 +0100 Subject: split error.c MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Mattias Andrée --- src/error.c | 192 ------------------------------------------------------------ 1 file changed, 192 deletions(-) delete mode 100644 src/error.c (limited to 'src/error.c') diff --git a/src/error.c b/src/error.c deleted file mode 100644 index c560d2a..0000000 --- a/src/error.c +++ /dev/null @@ -1,192 +0,0 @@ -/** - * 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 . - */ -#include -#include -#include -#include -#include -#include -#include -#include - - - -/** - * 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, errnum, 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, linenum, 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. - */ -void (*volatile error_print_progname)(void) = NULL; - -- cgit v1.2.3-70-g09d2