Return to ehand.c CVS log

Up to [MW Coherent from dump] / coherent / b / STREAMS / conf_79

Annotation of coherent/b/STREAMS/conf_79/ehand.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Error-handling for an application.
                      3:  */
                      4: 
                      5: /*
                      6:  *-IMPORTS:
                      7:  *     <sys/compat.h>
                      8:  *             CONST
                      9:  *             USE_PROTO
                     10:  *             ARGS ()
                     11:  *     <setjmp.h>
                     12:  *             longjmp ()
                     13:  *     <stdarg.h>
                     14:  *             va_list
                     15:  *             va_start ()
                     16:  *             va_end ()
                     17:  *     <stdio.h>
                     18:  *             stderr
                     19:  *             fprintf ()
                     20:  *             putc ()
                     21:  *             vfprintf ()
                     22:  *     <stdlib.h>
                     23:  *             EXIT_FAILURE
                     24:  *             exit ()
                     25:  */
                     26: 
                     27: #include <sys/compat.h>
                     28: #include <setjmp.h>
                     29: #include <stdarg.h>
                     30: #include <stdio.h>
                     31: #include <stdlib.h>
                     32: 
                     33: #include "ehand.h"
                     34: 
                     35: 
                     36: /*
                     37:  * Some ancient systems do not define EXIT_SUCCESS or EXIT_FAILURE.
                     38:  */
                     39: 
                     40: #ifndef        EXIT_FAILURE
                     41: #define        EXIT_FAILURE    1
                     42: #endif
                     43: 
                     44: 
                     45: ehand_t              * estack_base;
                     46: 
                     47: 
                     48: /*
                     49:  * Throw an error - write out an error report and throw to the last installed
                     50:  * handler (or call exit () if there is no installed handler).
                     51:  */
                     52: 
                     53: 
                     54: #ifdef USE_PROTO
                     55: void (throw_error) (CONST char * fmt, ...)
                     56: #else
                     57: void
                     58: throw_error ARGS ((fmt))
                     59: CONST char    *        fmt;
                     60: #endif
                     61: {
                     62: #if    0
                     63:        /*
                     64:         * There is no vfprintf () under any version of Coherent up to 4.0.1,
                     65:         * so we must simulate the effect using the obsolete extension that
                     66:         * Coherent *does* support, namely the %r (recursive) format.
                     67:         */
                     68:        (void) fprintf (stderr, "ERROR : %r", & fmt);
                     69: #else
                     70:        va_list         args;
                     71: 
                     72:        va_start (args, fmt);
                     73:        (void) fprintf (stderr, "ERROR : ");
                     74:        (void) vfprintf (stderr, fmt, args);
                     75:        va_end (args);
                     76: #endif
                     77: 
                     78:        putc ('\n', stderr);
                     79: 
                     80:        if (estack_base == NULL)
                     81:                exit (EXIT_FAILURE);
                     82: 
                     83:        longjmp (estack_base->eh_buf, -1);
                     84: }
                     85: 
                     86: 
                     87: /*
                     88:  * This function can be called when the code to pop the current exception
                     89:  * handler detects that the stack base is not where it should be (implying
                     90:  * that an inner function did not pop its handler).
                     91:  */
                     92: 
                     93: #ifdef USE_PROTO
                     94: void (error_error) (CONST char * file, int line)
                     95: #else
                     96: void
                     97: error_error ARGS ((file, line))
                     98: CONST char    *        file;
                     99: int            line;
                    100: #endif
                    101: {
                    102:        fprintf (stderr, "FATAL ERROR : Exception handler nesting error ");
                    103:        fprintf (stderr, "detected in file\n  '%s' at line %d\n", file, line);
                    104: 
                    105:        exit (EXIT_FAILURE);
                    106: }
                    107: 
                    108: 
                    109: /*
                    110:  * Chain to the next error-handler in the stack of error handlers after the
                    111:  * handler passed to us.
                    112:  */
                    113: 
                    114: #ifdef USE_PROTO
                    115: void (chain_error) (ehand_t * err)
                    116: #else
                    117: void
                    118: chain_error ARGS ((err))
                    119: ehand_t              * err;
                    120: #endif
                    121: {
                    122:        if (err != estack_base)
                    123:                error_error ("chain_error, " __FILE__, __LINE__);
                    124: 
                    125:        if ((estack_base = err->eh_next) == NULL)
                    126:                exit (EXIT_FAILURE);
                    127: 
                    128:        longjmp (estack_base->eh_buf, -1);
                    129: }
                    130: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.