b525355729
Note: this backs out a number of changes we've made to awk because they aren't upstream, but are on the vendor branch. Those will be reapplied. svn makes it needlessly difficult to know which ones, but at least r315426, r301289, and maybe r301691, though there may be others too. None of these are critical, so bisecting through this point is safe for all but awk regression tests :).
199 lines
6.8 KiB
C
199 lines
6.8 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 *, int);
|
|
extern fa *mkdfa(const char *, int);
|
|
extern int makeinit(fa *, int);
|
|
extern void penter(Node *);
|
|
extern void freetr(Node *);
|
|
extern int hexstr(uschar **);
|
|
extern int quoted(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 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 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 *qstring(const char *, int);
|
|
|
|
extern void recinit(unsigned int);
|
|
extern void initgetrec(void);
|
|
extern void makefields(int, int);
|
|
extern void growfldtab(int n);
|
|
extern int getrec(char **, int *, int);
|
|
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 *, ...);
|
|
extern void FATAL(const char *, ...) __attribute__((__noreturn__));
|
|
extern void WARNING(const char *, ...);
|
|
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);
|