Return to Error.c CVS log

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

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

1.1       root        1: #ifndef lint
                      2: static char rcsid[] = "$Header: Error.c,v 1.3 87/09/11 21:19:06 haynes Rel $";
                      3: #endif lint
                      4: 
                      5: /*
                      6:  * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
                      7:  * 
                      8:  *                         All Rights Reserved
                      9:  * 
                     10:  * Permission to use, copy, modify, and distribute this software and its 
                     11:  * documentation for any purpose and without fee is hereby granted, 
                     12:  * provided that the above copyright notice appear in all copies and that
                     13:  * both that copyright notice and this permission notice appear in 
                     14:  * supporting documentation, and that the name of Digital Equipment
                     15:  * Corporation not be used in advertising or publicity pertaining to
                     16:  * distribution of the software without specific, written prior permission.  
                     17:  * 
                     18:  * 
                     19:  * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
                     20:  * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
                     21:  * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
                     22:  * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
                     23:  * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
                     24:  * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
                     25:  * SOFTWARE.
                     26:  */
                     27: #include "Xlib.h"
                     28: #include <stdio.h>
                     29: #include "Intrinsic.h"
                     30: 
                     31: void _XtError (message)
                     32:     String message;
                     33: {
                     34:     extern void exit();
                     35:     (void) fprintf(stderr, "X Toolkit Error: %s\n", message);
                     36:     exit(1);
                     37: }
                     38: 
                     39: void _XtWarning (message)
                     40:     String message;
                     41: { (void) fprintf(stderr, "X Toolkit Warning: %s\n", message); }
                     42: 
                     43: static void (*errorFunction)() = _XtError;
                     44: static void (*warningFunction)() = _XtWarning;
                     45: 
                     46: void XtError(message) String message; { (*errorFunction)(message); }
                     47: 
                     48: void XtWarning(message) String message; { (*warningFunction)(message); }
                     49: 
                     50: void XtSetErrorHandler(handler)
                     51:     register void (*handler)();
                     52: {
                     53:     if (handler != NULL) errorFunction = handler;
                     54:     else errorFunction = _XtError;
                     55: }
                     56: 
                     57: 
                     58: void XtSetWarningHandler(handler)
                     59:     register void (*handler)();
                     60: {
                     61:     if (handler != NULL) warningFunction = handler;
                     62:     else warningFunction = _XtWarning;
                     63: }
                     64: 
                     65: 

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