3 * $Id: exc.c,v 1.5 1999/05/19 20:27:11 mdw Exp $
5 * Structured exception handling in C
7 * (c) 1998 Straylight/Edgeware
10 /*----- Licensing notice --------------------------------------------------*
12 * This file is part of the mLib utilities library.
14 * mLib is free software; you can redistribute it and/or modify
15 * it under the terms of the GNU Library General Public License as
16 * published by the Free Software Foundation; either version 2 of the
17 * License, or (at your option) any later version.
19 * mLib is distributed in the hope that it will be useful,
20 * but WITHOUT ANY WARRANTY; without even the implied warranty of
21 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 * GNU Library General Public License for more details.
24 * You should have received a copy of the GNU Library General Public
25 * License along with mLib; if not, write to the Free
26 * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
30 /*----- Revision history --------------------------------------------------*
33 * Revision 1.5 1999/05/19 20:27:11 mdw
34 * Change naming to match newer mLib conventions.
36 * Revision 1.4 1999/05/17 20:35:30 mdw
37 * Output uncaught exception types in hex, because they're easier to
40 * Revision 1.3 1999/05/06 19:51:35 mdw
41 * Reformatted the LGPL notice a little bit.
43 * Revision 1.2 1999/05/05 18:50:31 mdw
44 * Change licensing conditions to LGPL.
46 * Revision 1.1.1.1 1998/06/17 23:44:42 mdw
47 * Initial version of mLib
57 /*----- Global variables --------------------------------------------------*/
59 __exc_hnd
*__exc_list
= 0;
61 /*----- Functions ---------------------------------------------------------*/
65 * Arguments: @exc_extype type@ = type of duff exception
66 * @exc_exval val@ = extra data supplied
70 * Use: Default handler when everything goes wrong.
73 static void duff(exc_extype type
, exc_exval val
)
75 fprintf(stderr
, "fatal error: uncaught exception (type = %lx)\n", type
);
79 /* --- @duffproc@ --- *
81 * Current handler when there are no more exceptions left.
84 static exc__uncaught duffproc
= duff
;
86 /* --- @exc_uncaught@ --- *
88 * Arguments: @void (*proc)(exc_extype type, exc_exval val) = new handler
90 * Returns: Pointer to the old handler value.
92 * Use: Sets the handler for uncaught exceptions.
95 exc__uncaught
exc_uncaught(exc__uncaught proc
)
97 exc__uncaught p
= duffproc
;
103 /* --- @__exc_throw@ --- *
105 * Arguments: @exc_extype type@ = type of exception to throw
109 * Use: NOT FOR USER CONSUMPTION. Reads an appropriate exception
110 * value and throws an exception.
113 void __exc_throw(exc_extype type
, ...)
119 switch (type
& 0xC0) {
124 v
.i
= va_arg(ap
, int);
127 v
.p
= va_arg(ap
, void *);
130 v
.s
= va_arg(ap
, char *);
134 __exc_rethrow(type
, v
);
137 /* --- @__exc_rethrow@ --- *
139 * Arguments: @exc_extype type@ = type of exception to throw
140 * @exc_exval val@ = value of exception to throw
144 * Use: NOT FOR USER CONSUMPTION. Does the donkey-work of raising
148 void __exc_rethrow(exc_extype type
, exc_exval val
)
150 __exc_hnd
*p
= __exc_list
;
155 __exc_list
= p
->next
;
156 longjmp(p
->buf
, type
);
159 /*----- That's all, folks -------------------------------------------------*/