Return to Error.c CVS log

Up to [Research Unix] / researchv9 / X11 / src / X.V11R1 / lib / oldXtk

Annotation of researchv9/X11/src/X.V11R1/lib/oldXtk/Error.c, revision 1.1.1.1

1.1       root        1: /* $Header: Error.c,v 1.1 87/09/11 07:57:11 toddb Exp $ */
                      2: #ifndef lint
                      3: static char *sccsid = "@(#)Error.c     1.4     2/25/87";
                      4: #endif lint
                      5: 
                      6: /*
                      7:  * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
                      8:  * 
                      9:  *                         All Rights Reserved
                     10:  * 
                     11:  * Permission to use, copy, modify, and distribute this software and its 
                     12:  * documentation for any purpose and without fee is hereby granted, 
                     13:  * provided that the above copyright notice appear in all copies and that
                     14:  * both that copyright notice and this permission notice appear in 
                     15:  * supporting documentation, and that the name of Digital Equipment
                     16:  * Corporation not be used in advertising or publicity pertaining to
                     17:  * distribution of the software without specific, written prior permission.  
                     18:  * 
                     19:  * 
                     20:  * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
                     21:  * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
                     22:  * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
                     23:  * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
                     24:  * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
                     25:  * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
                     26:  * SOFTWARE.
                     27:  */
                     28: 
                     29: 
                     30: #include "Xlib.h"
                     31: #include <stdio.h>
                     32: #include "Intrinsic.h"
                     33: 
                     34: #define num_error_codes 3
                     35: 
                     36: char *XtErrorList[num_error_codes + 1] = {
                     37:        /* No error             */      "",
                     38:        /* XtNOMEM              */      "insufficient resources, bad alloc",
                     39:        /* XCNOENT              */      "No entry in table ",
                     40:        /* XtFOPEN              */      "fopen failed ",
                     41: };
                     42: 
                     43: 
                     44: char *XtErrDescrip (code)
                     45:     register int code;
                     46: {
                     47:     if (code <= num_error_codes && code > 0)
                     48:        return (XtErrorList[code]);
                     49:     return("Unknown error");
                     50: }
                     51: 
                     52: int _XtError (errorCode)
                     53:     int errorCode;
                     54: {
                     55:     extern void exit();
                     56:     (void) fprintf(stderr, "X Toolkit Error: %s\n", XtErrDescrip (errorCode));
                     57:     (void) fprintf(stderr, "         Reference Count: %d\n", XtreferenceCount);
                     58:     exit(1);
                     59: }
                     60: 
                     61: 
                     62: void XtErrorHandler(handler)
                     63:     register int (*handler)();
                     64: {
                     65:     if (handler != NULL) {
                     66:        XtErrorFunction = handler;
                     67:     }
                     68:     else {
                     69:        XtErrorFunction = _XtError;
                     70:     }
                     71: }
                     72: 
                     73: 

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