* Add a test for german case folding. * Add a function to copy a string with a string with a larger allocation (to be used by the case folding routines) * Add printf attributes to the printf-like functions and fix one format warning * Cleanup the tempfree macro * make more functions static * rename fp to frp (FRame Pointer) to avoid shadowing with fp (File Pointer). * add more const * fix indent in UPLUS case * add locale-aware case folding * make nfiles size_t * fix bugs in file closing: - compare fclose to EOF and pclose to -1 - use nfiles instead of FOPEN_MAX in closeall - don't close files we did not open (0,1,2) fpurge/fflush instead * - use NUL instead of 0 for char comparisons - add ISWS() macro - use continue; instead of ; * Check for existance of the german locale before using it. * Add missing parentheses, thanks Arnold.
206 lines
7.1 KiB
C
206 lines
7.1 KiB
C
/****************************************************************
|
|
Copyright (C) Lucent Technologies 1997
|
|
All Rights Reserved
|
|
|
|
Permission to use, copy, modify, and distribute this software and
|
|
its documentation for any purpose and without fee is hereby
|
|
granted, provided that the above copyright notice appear in all
|
|
copies and that both that the copyright notice and this
|
|
permission notice and warranty disclaimer appear in supporting
|
|
documentation, and that the name Lucent Technologies or any of
|
|
its entities not be used in advertising or publicity pertaining
|
|
to distribution of the software without specific, written prior
|
|
permission.
|
|
|
|
LUCENT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
|
|
INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
|
|
IN NO EVENT SHALL LUCENT OR ANY OF ITS ENTITIES BE LIABLE FOR ANY
|
|
SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
|
|
IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
|
|
ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
|
|
THIS SOFTWARE.
|
|
****************************************************************/
|
|
|
|
extern int yywrap(void);
|
|
extern void setfname(Cell *);
|
|
extern int constnode(Node *);
|
|
extern char *strnode(Node *);
|
|
extern Node *notnull(Node *);
|
|
extern int yyparse(void);
|
|
|
|
extern int yylex(void);
|
|
extern void startreg(void);
|
|
extern int input(void);
|
|
extern void unput(int);
|
|
extern void unputstr(const char *);
|
|
extern int yylook(void);
|
|
extern int yyback(int *, int);
|
|
extern int yyinput(void);
|
|
|
|
extern fa *makedfa(const char *, bool);
|
|
extern fa *mkdfa(const char *, bool);
|
|
extern int makeinit(fa *, bool);
|
|
extern void penter(Node *);
|
|
extern void freetr(Node *);
|
|
extern int hexstr(const uschar **);
|
|
extern int quoted(const uschar **);
|
|
extern char *cclenter(const char *);
|
|
extern void overflo(const char *) __attribute__((__noreturn__));
|
|
extern void cfoll(fa *, Node *);
|
|
extern int first(Node *);
|
|
extern void follow(Node *);
|
|
extern int member(int, const char *);
|
|
extern int match(fa *, const char *);
|
|
extern int pmatch(fa *, const char *);
|
|
extern int nematch(fa *, const char *);
|
|
extern bool fnematch(fa *, FILE *, char **, int *, int);
|
|
extern Node *reparse(const char *);
|
|
extern Node *regexp(void);
|
|
extern Node *primary(void);
|
|
extern Node *concat(Node *);
|
|
extern Node *alt(Node *);
|
|
extern Node *unary(Node *);
|
|
extern int relex(void);
|
|
extern int cgoto(fa *, int, int);
|
|
extern void freefa(fa *);
|
|
|
|
extern int pgetc(void);
|
|
extern char *cursource(void);
|
|
|
|
extern Node *nodealloc(int);
|
|
extern Node *exptostat(Node *);
|
|
extern Node *node1(int, Node *);
|
|
extern Node *node2(int, Node *, Node *);
|
|
extern Node *node3(int, Node *, Node *, Node *);
|
|
extern Node *node4(int, Node *, Node *, Node *, Node *);
|
|
extern Node *stat3(int, Node *, Node *, Node *);
|
|
extern Node *op2(int, Node *, Node *);
|
|
extern Node *op1(int, Node *);
|
|
extern Node *stat1(int, Node *);
|
|
extern Node *op3(int, Node *, Node *, Node *);
|
|
extern Node *op4(int, Node *, Node *, Node *, Node *);
|
|
extern Node *stat2(int, Node *, Node *);
|
|
extern Node *stat4(int, Node *, Node *, Node *, Node *);
|
|
extern Node *celltonode(Cell *, int);
|
|
extern Node *rectonode(void);
|
|
extern Node *makearr(Node *);
|
|
extern Node *pa2stat(Node *, Node *, Node *);
|
|
extern Node *linkum(Node *, Node *);
|
|
extern void defn(Cell *, Node *, Node *);
|
|
extern int isarg(const char *);
|
|
extern const char *tokname(int);
|
|
extern Cell *(*proctab[])(Node **, int);
|
|
extern int ptoi(void *);
|
|
extern Node *itonp(int);
|
|
|
|
extern void syminit(void);
|
|
extern void arginit(int, char **);
|
|
extern void envinit(char **);
|
|
extern Array *makesymtab(int);
|
|
extern void freesymtab(Cell *);
|
|
extern void freeelem(Cell *, const char *);
|
|
extern Cell *setsymtab(const char *, const char *, double, unsigned int, Array *);
|
|
extern int hash(const char *, int);
|
|
extern void rehash(Array *);
|
|
extern Cell *lookup(const char *, Array *);
|
|
extern double setfval(Cell *, double);
|
|
extern void funnyvar(Cell *, const char *);
|
|
extern char *setsval(Cell *, const char *);
|
|
extern double getfval(Cell *);
|
|
extern char *getsval(Cell *);
|
|
extern char *getpssval(Cell *); /* for print */
|
|
extern char *tostring(const char *);
|
|
extern char *tostringN(const char *, size_t);
|
|
extern char *qstring(const char *, int);
|
|
extern Cell *catstr(Cell *, Cell *);
|
|
|
|
extern void recinit(unsigned int);
|
|
extern void initgetrec(void);
|
|
extern void makefields(int, int);
|
|
extern void growfldtab(int n);
|
|
extern void savefs(void);
|
|
extern int getrec(char **, int *, bool);
|
|
extern void nextfile(void);
|
|
extern int readrec(char **buf, int *bufsize, FILE *inf);
|
|
extern char *getargv(int);
|
|
extern void setclvar(char *);
|
|
extern void fldbld(void);
|
|
extern void cleanfld(int, int);
|
|
extern void newfld(int);
|
|
extern void setlastfld(int);
|
|
extern int refldbld(const char *, const char *);
|
|
extern void recbld(void);
|
|
extern Cell *fieldadr(int);
|
|
extern void yyerror(const char *);
|
|
extern void fpecatch(int);
|
|
extern void bracecheck(void);
|
|
extern void bcheck2(int, int, int);
|
|
extern void SYNTAX(const char *, ...)
|
|
__attribute__((__format__(__printf__, 1, 2)));
|
|
extern void FATAL(const char *, ...)
|
|
__attribute__((__format__(__printf__, 1, 2), __noreturn__));
|
|
extern void WARNING(const char *, ...)
|
|
__attribute__((__format__(__printf__, 1, 2)));
|
|
extern void error(void);
|
|
extern void eprint(void);
|
|
extern void bclass(int);
|
|
extern double errcheck(double, const char *);
|
|
extern int isclvar(const char *);
|
|
extern int is_number(const char *);
|
|
|
|
extern int adjbuf(char **pb, int *sz, int min, int q, char **pbp, const char *what);
|
|
extern void run(Node *);
|
|
extern Cell *execute(Node *);
|
|
extern Cell *program(Node **, int);
|
|
extern Cell *call(Node **, int);
|
|
extern Cell *copycell(Cell *);
|
|
extern Cell *arg(Node **, int);
|
|
extern Cell *jump(Node **, int);
|
|
extern Cell *awkgetline(Node **, int);
|
|
extern Cell *getnf(Node **, int);
|
|
extern Cell *array(Node **, int);
|
|
extern Cell *awkdelete(Node **, int);
|
|
extern Cell *intest(Node **, int);
|
|
extern Cell *matchop(Node **, int);
|
|
extern Cell *boolop(Node **, int);
|
|
extern Cell *relop(Node **, int);
|
|
extern void tfree(Cell *);
|
|
extern Cell *gettemp(void);
|
|
extern Cell *field(Node **, int);
|
|
extern Cell *indirect(Node **, int);
|
|
extern Cell *substr(Node **, int);
|
|
extern Cell *sindex(Node **, int);
|
|
extern int format(char **, int *, const char *, Node *);
|
|
extern Cell *awksprintf(Node **, int);
|
|
extern Cell *awkprintf(Node **, int);
|
|
extern Cell *arith(Node **, int);
|
|
extern double ipow(double, int);
|
|
extern Cell *incrdecr(Node **, int);
|
|
extern Cell *assign(Node **, int);
|
|
extern Cell *cat(Node **, int);
|
|
extern Cell *pastat(Node **, int);
|
|
extern Cell *dopa2(Node **, int);
|
|
extern Cell *split(Node **, int);
|
|
extern Cell *condexpr(Node **, int);
|
|
extern Cell *ifstat(Node **, int);
|
|
extern Cell *whilestat(Node **, int);
|
|
extern Cell *dostat(Node **, int);
|
|
extern Cell *forstat(Node **, int);
|
|
extern Cell *instat(Node **, int);
|
|
extern Cell *bltin(Node **, int);
|
|
extern Cell *printstat(Node **, int);
|
|
extern Cell *nullproc(Node **, int);
|
|
extern FILE *redirect(int, Node *);
|
|
extern FILE *openfile(int, const char *);
|
|
extern const char *filename(FILE *);
|
|
extern Cell *closefile(Node **, int);
|
|
extern void closeall(void);
|
|
extern Cell *sub(Node **, int);
|
|
extern Cell *gsub(Node **, int);
|
|
|
|
extern FILE *popen(const char *, const char *);
|
|
extern int pclose(FILE *);
|
|
|
|
extern const char *flags2str(int flags);
|