/*      $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 **);