/*      $NetBSD: error.h,v 1.21 2023/08/26 15:18:27 rillig Exp $        */

/*
 * Copyright (c) 1980, 1993
 *      The Regents of the University of California.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 *      @(#)error.h     8.1 (Berkeley) 6/6/93
 */

#include <stdbool.h>

/*
 * Descriptors for the various languages we know about.
 * If you touch these, also touch lang_table
 */
#define INUNKNOWN       0
#define INCPP           1
#define INCC            2
#define INAS            3
#define INLD            4
#define INLINT          5
#define INF77           6
#define INPI            7
#define INPC            8
#define INFRANZ         9
#define INLISP          10
#define INVAXIMA        11
#define INRATFOR        12
#define INLEX           13
#define INYACC          14
#define INAPL           15
#define INMAKE          16
#define INRI            17
#define INTROFF         18
#define INMOD2          19

/*
 * We analyze each line in the error message file, and
 * attempt to categorize it by type, as well as language.
 * Here are the type descriptors.
 */
typedef int Errorclass;

#define C_FIRST           0     /* first error category */
#define C_UNKNOWN       0       /* must be zero */
#define C_IGNORE        1       /* ignore the message; used for pi */
#define C_SYNC          2       /* synchronization errors */
#define C_DISCARD       3       /* touches dangerous files, so discard */
#define C_NONSPEC       4       /* not specific to any file */
#define C_THISFILE      5       /* specific to this file, but at no line */
#define C_NULLED        6       /* refers to special func; so null */
#define C_TRUE          7       /* fits into true error format */
#define C_DUPL          8       /* sub class only; duplicated error message */
#define C_LAST            9     /* last error category */

#define SORTABLE(x)     (!(NOTSORTABLE(x)))
#define NOTSORTABLE(x)  (x <= C_NONSPEC)

/*
 * Resources to count and print out the error categories
 */
extern const char *class_table[];
extern int class_count[];

extern size_t filelevel;

#define nunknown        class_count[C_UNKNOWN]
#define nignore         class_count[C_IGNORE]
#define nsyncerrors     class_count[C_SYNC]
#define ndiscard        class_count[C_DISCARD]
#define nnonspec        class_count[C_NONSPEC]
#define nthisfile       class_count[C_THISFILE]
#define nnulled         class_count[C_NULLED]
#define ntrue           class_count[C_TRUE]
#define ndupl           class_count[C_DUPL]

/* places to put the error complaints */

#define TOTHEFILE       1       /* touch the file */
#define TOSTDOUT        2       /* just print them out (ho-hum) */

extern FILE *errorfile; /* where error file comes from */
extern FILE *queryfile; /* where the query responses from the user come from*/

extern char *scriptname;

extern const char *suffixlist;

extern bool query;
extern bool terse;
int inquire(const char *, ...) __printflike(1, 2);      /* inquire for yes/no */

/*
 * codes for inquire() to return
 */
#define Q_error -1                      /* an error occurred */
#define Q_NO    1                       /* 'N' */
#define Q_no    2                       /* 'n' */
#define Q_YES   3                       /* 'Y' */
#define Q_yes   4                       /* 'y' */

/*
 * Describes attributes about a language
 */
struct lang_desc {
        const char *lang_name;
        const char *lang_incomment;     /* one of the following defines */
        const char *lang_outcomment;    /* one of the following defines */
};
extern struct lang_desc lang_table[];

#define CINCOMMENT      "/*###"
#define COUTCOMMENT     "%%%*/\n"
#define FINCOMMENT      "C###"
#define FOUTCOMMENT     "%%%\n"
#define NEWLINE         "%%%\n"
#define PIINCOMMENT     "(*###"
#define PIOUTCOMMENT    "%%%*)\n"
#define LISPINCOMMENT   ";###"
#define ASINCOMMENT     "####"
#define RIINCOMMENT     CINCOMMENT
#define RIOUTCOMMENT    COUTCOMMENT
#define TROFFINCOMMENT  ".\\\"###"
#define TROFFOUTCOMMENT NEWLINE
#define MOD2INCOMMENT   "(*###"
#define MOD2OUTCOMMENT  "%%%*)\n"

/*
 * Defines and resources for determing if a given line
 * is to be discarded because it refers to a file not to
 * be touched, or if the function reference is to a
 * function the user doesn't want recorded.
 */

#define ERRORNAME       "/.errorrc"
extern int nignored;
extern char **names_ignored;

/*
 * Structure definition for a full error
 */
typedef struct edesc Edesc;
typedef Edesc *Eptr;

struct edesc {
        Eptr error_next;                /* linked together */
        int error_lgtext;               /* how many on the right hand side */
        char **error_text;              /* the right hand side proper */
        Errorclass error_e_class;       /* error category of this error */
        Errorclass error_s_class;       /* sub descriptor of error_e_class */
        int error_language;             /* the language for this error */
        int error_position;             /* oridinal position */
        int error_line;                 /* discovered line number */
        int error_no;                   /* sequence number on input */
};

/*
 * Resources for the true errors
 */
extern int nerrors;
extern Eptr er_head;

extern int cur_wordc;
extern char **cur_wordv;


/*
 * Resources for each of the files mentioned
 */
extern int nfiles;
extern Eptr **files;                    /* array of pointers into errors */
extern bool *touchedfiles;              /* which files we touched */

/*
 * The language the compilation is in, as intuited from
 * the flavor of error messages analyzed.
 */
extern int language;
extern char *currentfilename;
extern char default_currentfilename[];

/*
 * Macros for initializing arrays of string constants.
 * This is a fairly gross set of preprocessor hacks; the idea is
 * that instead of
 *     static char *foo[4] = { "alpha", "beta", "gamma", "delta" };
 * you do
 *     DECL_STRINGS_4(static, foo, "alpha", "beta", "gamma", "delta");
 *
 * and it comes out as
 *     static char foo_0[] = "delta";
 *     static char foo_1[] = "gamma";
 *     static char foo_2[] = "beta";
 *     static char foo_3[] = "alpha";
 *     static char *foo[4] = { foo_3, foo_2, foo_1, foo_0 };
 *
 * none of which is const.
 *
 * Unfortunately, the string arrays this program slings around freely
 * can't be all const (because it munges some of them) and can't be
 * all non-const without something like this to initialize the ones
 * that need to contain string constants. Unfortunately you can't
 * mix (const char *const *) and (char **) in C, only in C++.
 */

#define DECL_STR(sym, num, str) static char sym##_##num[] = str

#define DECL_S1(sym, s, ...) __VA_ARGS__ DECL_STR(sym, 0, s)
#define DECL_S2(sym, s, ...) DECL_STR(sym, 1, s); DECL_S1(sym, __VA_ARGS__)
#define DECL_S3(sym, s, ...) DECL_STR(sym, 2, s); DECL_S2(sym, __VA_ARGS__)
#define DECL_S4(sym, s, ...) DECL_STR(sym, 3, s); DECL_S3(sym, __VA_ARGS__)
#define DECL_S5(sym, s, ...) DECL_STR(sym, 4, s); DECL_S4(sym, __VA_ARGS__)
#define DECL_S6(sym, s, ...) DECL_STR(sym, 5, s); DECL_S5(sym, __VA_ARGS__)

#define USE_S1(sym) sym##_0
#define USE_S2(sym) sym##_1, USE_S1(sym)
#define USE_S3(sym) sym##_2, USE_S2(sym)
#define USE_S4(sym) sym##_3, USE_S3(sym)
#define USE_S5(sym) sym##_4, USE_S4(sym)
#define USE_S6(sym) sym##_5, USE_S5(sym)

#define DECL_STRS(num, class, sym, ...) \
        DECL_S##num(sym, __VA_ARGS__); \
        class char *sym[num] = { USE_S##num(sym) }

#define DECL_STRINGS_1(class, sym, ...) DECL_STRS(1, class, sym, __VA_ARGS__)
#define DECL_STRINGS_2(class, sym, ...) DECL_STRS(2, class, sym, __VA_ARGS__)
#define DECL_STRINGS_3(class, sym, ...) DECL_STRS(3, class, sym, __VA_ARGS__)
#define DECL_STRINGS_4(class, sym, ...) DECL_STRS(4, class, sym, __VA_ARGS__)
#define DECL_STRINGS_5(class, sym, ...) DECL_STRS(5, class, sym, __VA_ARGS__)
#define DECL_STRINGS_6(class, sym, ...) DECL_STRS(6, class, sym, __VA_ARGS__)
        

/*
 *      Functional forwards
 */
void arrayify(int *, Eptr **, Eptr);
void *Calloc(size_t, size_t);
void clob_last(char *,  char);
Errorclass discardit(Eptr);
void eaterrors(int *, Eptr **);
void erroradd(int, char **, Errorclass, Errorclass);
void filenames(int, Eptr **);
void findfiles(int, Eptr *, int *, Eptr ***);
char firstchar(const char *);
void getignored(const char *);
char lastchar(const char *);
char next_lastchar(const char *);
void onintr(int);
bool persperdexplode(char *, char **, char **);
Errorclass pi(void);
int position(const char *, char);
void printerrors(bool, int, Eptr []);
const char *plural(int);
char *Strdup(const char *);
char *substitute(char *, char, char);
bool touchfiles(int, Eptr **, int *, char ***);
const char *verbform(int);
void wordvbuild(char *, int*, char ***);
bool wordv_eq(char **, int, char **);
void wordvprint(FILE *, int, char **);
char **wordvsplice(int, int, char **);