source: trunk/minix/lib/ack/libm2/catch.c@ 12

/*
  (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
  See the copyright notice in the ACK home directory, in the file "Copyright".
*/

/*
  Module:       default modula-2 trap handler
  Author:       Ceriel J.H. Jacobs
  Version:      $Header: /cvsup/minix/src/lib/ack/libm2/catch.c,v 1.1 2005/10/10 15:27:46 beng Exp $
*/
#include <em_abs.h>
#include <m2_traps.h>
#include <signal.h>

static struct errm {
        int errno;
        char *errmes;
} errors[] = {
        { EARRAY,       "array bound error"},
        { ERANGE,       "range bound error"},
        { ESET,         "set bound error"},
        { EIOVFL,       "integer overflow"},
        { EFOVFL,       "real overflow"},
        { EFUNFL,       "real underflow"},
        { EIDIVZ,       "divide by 0"},
        { EFDIVZ,       "divide by 0.0"},
        { EIUND,        "undefined integer"},
        { EFUND,        "undefined real"},
        { ECONV,        "conversion error"},

        { ESTACK,       "stack overflow"},
        { EHEAP,        "heap overflow"},
        { EILLINS,      "illegal instruction"},
        { EODDZ,        "illegal size argument"},
        { ECASE,        "case error"},
        { EMEMFLT,      "addressing non existent memory"},
        { EBADPTR,      "bad pointer used"},
        { EBADPC,       "program counter out of range"},
        { EBADLAE,      "bad argument of lae"},
        { EBADMON,      "bad monitor call"},
        { EBADLIN,      "argument if LIN too high"},
        { EBADGTO,      "GTO descriptor error"},

        { M2_TOOLARGE,  "stack size of process too large"},
        { M2_TOOMANY,   "too many nested traps + handlers"},
        { M2_NORESULT,  "no RETURN from function procedure"},
        { M2_UOVFL,     "cardinal overflow"},
        { M2_FORCH,     "(warning) FOR-loop control variable was changed in the body"},
        { M2_UUVFL,     "cardinal underflow"},
        { M2_INTERNAL,  "internal error; ask an expert for help"},
        { M2_UNIXSIG,   "got a unix signal"},
        { -1,           0}
};

catch(trapno)
        int trapno;
{
        register struct errm *ep = &errors[0];
        char *errmessage;
        char buf[20];
        register char *p, *s;

        while (ep->errno != trapno && ep->errmes != 0) ep++;
        if (p = ep->errmes) {
                while (*p) p++;
                _Traps__Message(ep->errmes, 0, (int) (p - ep->errmes), 1);
        }
        else {
                int i = trapno;
                static char q[] = "error number xxxxxxxxxxxxx";

                p = &q[13];
                s = buf;
                if (i < 0) {
                        i = -i;
                        *p++ = '-';
                }
                do
                        *s++ = i % 10 + '0';
                while (i /= 10);
                while (s > buf) *p++ = *--s;
                *p = 0;
                _Traps__Message(q, 0, (int) (p - q), 1);
        }
#if !defined(__em24) && !defined(__em44) && !defined(__em22)
        if (trapno == M2_UNIXSIG) {
                extern int __signo;
                signal(__signo, SIG_DFL);
                _cleanup();
                kill(getpid(), __signo);
                _exit(trapno);
        }
#endif
        if (trapno != M2_FORCH) {
                _cleanup();
                _exit(trapno);
        }
        SIG(catch);
}