checkerr.c File Reference

#include <schily/mconfig.h>
#include <schily/stdio.h>
#include <schily/standard.h>
#include <schily/patmatch.h>
#include <schily/string.h>
#include <schily/utypes.h>
#include <schily/schily.h>
#include <schily/checkerr.h>

Include dependency graph for checkerr.c:

Go to the source code of this file.

Classes
struct	errconf
struct	eflags

Typedefs
typedef struct errconf	ec_t

Functions
EXPORT int errconfig	__PR ((char *name))
LOCAL char *_endword	__PR ((char *p))
LOCAL void parse_errctl	__PR ((char *line))
LOCAL UInt32_t errflags	__PR ((char *eflag, BOOL doexit))
LOCAL ec_t *_errptr	__PR ((int etype, const char *fname))
EXPORT BOOL errabort	__PR ((int etype, const char *fname, BOOL doexit))
EXPORT int	errconfig (char *name)
LOCAL char *	_endword (char *p)
LOCAL void	parse_errctl (char *line)
LOCAL UInt32_t	errflags (char *eflag, BOOL doexit)
LOCAL ec_t *	_errptr (int etype, const char *fname)
EXPORT BOOL	errhidden (int etype, const char *fname)
EXPORT BOOL	errwarnonly (int etype, const char *fname)
EXPORT BOOL	errabort (int etype, const char *fname, BOOL doexit)

Variables
static UConst char	sccsid []
LOCAL int *	ec_state
LOCAL ec_t *	ec_root
LOCAL ec_t **	ec_last = &ec_root
LOCAL int	maxplen
LOCAL BOOL	_errflag = TRUE
LOCAL struct eflags	eflags []

Typedef Documentation

ec_t

typedef struct errconf ec_t

Function Documentation

__PR() [1/6]

LOCAL UInt32_t errflags __PR

(

(char *eflag, BOOL doexit)

)

__PR() [2/6]

LOCAL void parse_errctl __PR

(

(char *line)

)

__PR() [3/6]

EXPORT int errconfig __PR

(

(char *name)

)

__PR() [4/6]

LOCAL char *_endword __PR

(

(char *p)

)

__PR() [5/6]

LOCAL ec_t *_errptr __PR

(

(int etype, const char *fname)

)

__PR() [6/6]

EXPORT BOOL errabort __PR

(

(int etype, const char *fname, BOOL doexit)

)

_endword()

LOCAL char * _endword

(

char *

p

)

Definition at line 93 of file checkerr.c.

{
    /*
     * Find end of word.
     */
    for (;  *p != '\0' &&
        *p != '\t' &&
        *p != ' ';
                p++) {
        ;
        /* LINTED */
    }
    return (p);
}

Referenced by errflags(), and parse_errctl().

_errptr()

LOCAL ec_t * _errptr	(	int	etype,
		const char *	fname
	)

Definition at line 229 of file checkerr.c.

{
    ec_t        *ep = ec_root;
    char        *ret;
    const Uchar *name = (const Uchar *)fname;
    int     nlen;
 
    if (fname == NULL) {
        errmsgno(EX_BAD,
            "Implementation botch for errhidden(0x%X, NULL)\n",
            etype);
        errmsgno(EX_BAD, "Please report this bug!\n");
        errmsgno(EX_BAD, "Error cannot be ignored.\n");
        return ((ec_t *)NULL);
    }
    nlen  = strlen(fname);
    while (ep) {
        if ((ep->ec_flags & etype) != 0) {
            ret = (char *)patmatch(ep->ec_pat, ep->ec_aux,
                    name, 0,
                    nlen, ep->ec_alt, ec_state);
            if (ret != NULL && *ret == '\0')
                return (ep);
        }
        ep = ep->ec_next;
    }
    return ((ec_t *)NULL);
}

Referenced by errabort(), errhidden(), and errwarnonly().

errabort()

EXPORT BOOL errabort	(	int	etype,
		const char *	fname,
		BOOL	doexit
	)

Definition at line 300 of file checkerr.c.

{
    ec_t    *ep;
 
    if ((ep = _errptr(etype, fname)) == NULL) {
        if (!_errflag)
            return (FALSE);
    } else if ((ep->ec_flags & E_ABORT) == 0)
        return (FALSE);
 
    if (doexit) {
        errmsgno(EX_BAD, "Error is considered fatal, aborting.\n");
#ifdef  CALL_OTHER_FUNCTION
        if (other_func != NULL)
            (*other_func)();
        else
#endif
            comexit(-3);
    }
    return (TRUE);
}

Referenced by write_one_file().

errconfig()

EXPORT int errconfig

(

char *

name

)

Definition at line 67 of file checkerr.c.

{
    char    line[8192];
    FILE    *f;
    int omaxplen = maxplen;
 
    if ((f = fileopen(name, "r")) == NULL) {
        if (errflags(name, FALSE) != 0)
            parse_errctl(name);
        else
            comerr("Cannot open '%s'.\n", name);
    } else {
        while (fgetline(f, line, sizeof (line)) >= 0) {
            parse_errctl(line);
        }
        fclose(f);
    }
    if (maxplen > omaxplen) {
        ec_state = ___realloc(ec_state, (maxplen+1)*sizeof (int),
                            "pattern state");
    }
    return (1);
}

Referenced by main().

errflags()

LOCAL UInt32_t errflags	(	char *	eflag,
		BOOL	doexit
	)

Definition at line 192 of file checkerr.c.

{
    register char       *p = eflag;
        char        *ef = _endword(eflag);
    register struct eflags  *ep;
    register int        slen;
    register UInt32_t   nflags = 0;
 
    do {
        for (ep = eflags; ep->fname; ep++) {
            slen = strlen(ep->fname);
            if ((strncmp(ep->fname, p, slen) == 0) &&
                (p[slen] == '|' || p[slen] == ' ' ||
                p[slen] == '\0')) {
                nflags |= ep->fval;
                break;
            }
        }
        if (ep->fname == NULL) {
            if (doexit)
                comerrno(EX_BAD, "Bad flag '%s'\n", p);
            return (0);
        }
        p = strchr(p, '|');
    } while (p < ef && p && *p++ == '|');
 
    if ((nflags & ~(UInt32_t)(E_ABORT|E_WARN)) == 0) {
        if (doexit)
            comerrno(EX_BAD, "Bad error condition '%s'.\n", eflag);
        return (0);
    }
    return (nflags);
}

Referenced by errconfig(), and parse_errctl().

errhidden()

EXPORT BOOL errhidden	(	int	etype,
		const char *	fname
	)

Definition at line 264 of file checkerr.c.

{
    ec_t        *ep;
 
    if ((ep = _errptr(etype, fname)) != NULL) {
        if ((ep->ec_flags & (E_ABORT|E_WARN)) != 0)
            return (FALSE);
        return (TRUE);
    }
    return (FALSE);
}

Referenced by write_one_file().

errwarnonly()

EXPORT BOOL errwarnonly	(	int	etype,
		const char *	fname
	)

Definition at line 282 of file checkerr.c.

{
    ec_t        *ep;
 
    if ((ep = _errptr(etype, fname)) != NULL) {
        if ((ep->ec_flags & E_WARN) != 0)
            return (TRUE);
        return (FALSE);
    }
    return (FALSE);
}

Referenced by write_one_file().

parse_errctl()

LOCAL void parse_errctl

(

char *

line

)

Definition at line 110 of file checkerr.c.

{
    int plen;
    char    *pattern;
    ec_t    *ep;
 
    /*
     * Find end of word.
     */
    pattern = _endword(line);
 
    if (pattern == line || *pattern == '\0') {
        comerrno(EX_BAD,
        "Bad error configuration line '%s'.\n", line);
    }
    /*
     * Find end of white space after word.
     */
    for (pattern++; *pattern != '\0' &&
        (*pattern == '\t' || *pattern == ' ');
                pattern++) {
        ;
        /* LINTED */
    }
    ep = ___malloc(sizeof (ec_t), "errcheck node");
    ep->ec_flags = errflags(line, TRUE);
    ep->ec_plen = plen = strlen(pattern);
    if (ep->ec_plen > maxplen)
        maxplen = ep->ec_plen;
    ep->ec_pat = (const Uchar *)___savestr(pattern);
    ep->ec_aux = ___malloc(plen*sizeof (int), "compiled pattern");
    if ((ep->ec_alt = patcompile((const Uchar *)pattern,
                        plen, ep->ec_aux)) == 0)
        comerrno(EX_BAD, "Bad errctl pattern: '%s'.\n", pattern);
 
    ep->ec_next = NULL;
    *ec_last = ep;
    ec_last = &ep->ec_next;
}

Referenced by errconfig().

Variable Documentation

_errflag

LOCAL BOOL _errflag = TRUE

Definition at line 52 of file checkerr.c.

Referenced by errabort().

ec_last

LOCAL ec_t** ec_last = &ec_root

Definition at line 50 of file checkerr.c.

Referenced by parse_errctl().

ec_root

LOCAL ec_t* ec_root

Definition at line 49 of file checkerr.c.

Referenced by _errptr().

ec_state

LOCAL int* ec_state

Definition at line 48 of file checkerr.c.

Referenced by _errptr(), and errconfig().

eflags

LOCAL struct eflags eflags[]

maxplen

LOCAL int maxplen

Definition at line 51 of file checkerr.c.

Referenced by errconfig(), and parse_errctl().

sccsid

UConst char sccsid[]

static

Initial value:

=
    "@(#)checkerr.c 1.24 09/07/08 Copyright 2003-2009 J. Schilling"

Definition at line 4 of file checkerr.c.