Well spell it "gnuregex.h".

1 files changed, 203 insertions, 92 deletions

diff --git a/contrib/awk/awk.h b/contrib/awk/awk.h
index 8b3bb1e..e921e81 100644
--- a/contrib/awk/awk.h
+++ b/contrib/awk/awk.h
@@ -3,7 +3,7 @@
  */
 
 /* 
- * Copyright (C) 1986, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991-2001 the Free Software Foundation, Inc.
  * 
  * This file is part of GAWK, the GNU implementation of the
  * AWK Programming Language.
@@ -50,6 +50,23 @@
 #endif /* HAVE_LIMITS_H */
 #include <ctype.h>
 #include <setjmp.h>
+
+#if defined(HAVE_LIBINTL_H) && defined(ENABLE_NLS) && ENABLE_NLS > 0
+#include <libintl.h>
+#else /* ! (HAVE_LOCALE_H && defined(ENABLE_NLS) && ENABLE_LS > 0) */
+#define gettext(msgid) (msgid)
+#define gettext_noop(msgid) msgid
+#define dgettext(domain, msgid) (msgid)
+#define dcgettext(domain, msgid, cat) (msgid)
+#define bindtextdomain(domain, directory) (directory)
+#define textdomain(package) /* nothing */
+#ifndef LOCALEDIR
+#define LOCALEDIR NULL
+#endif /* LOCALEDIR */
+#endif /* ! (HAVE_LOCALE_H && defined(ENABLE_NLS) && ENABLE_LS > 0) */
+#define _(msgid)  gettext(msgid)
+#define N_(msgid) msgid
+
 #ifdef HAVE_LOCALE_H
 #include <locale.h>
 #endif /* HAVE_LOCALE_H */
@@ -74,32 +91,35 @@ extern int errno;
 
 /* First, get the ctype stuff right; from Jim Meyering */
 #if defined(STDC_HEADERS) || (!defined(isascii) && !defined(HAVE_ISASCII))
-#define ISASCII(c) 1
+#define IN_CTYPE_DOMAIN(c) 1
 #else
-#define ISASCII(c) isascii(c)
+#define IN_CTYPE_DOMAIN(c) isascii((unsigned char) c)
 #endif
 
 #ifdef isblank
-#define ISBLANK(c) (ISASCII(c) && isblank(c))
+#define ISBLANK(c) (IN_CTYPE_DOMAIN(c) && isblank((unsigned char) c))
 #else
 #define ISBLANK(c) ((c) == ' ' || (c) == '\t')
 #endif
 #ifdef isgraph
-#define ISGRAPH(c) (ISASCII(c) && isgraph(c))
+#define ISGRAPH(c) (IN_CTYPE_DOMAIN(c) && isgraph((unsigned char) c))
 #else
-#define ISGRAPH(c) (ISASCII(c) && isprint(c) && !isspace(c))
+#define ISGRAPH(c) (IN_CTYPE_DOMAIN(c) && isprint((unsigned char) c) && !isspace((unsigned char) c))
 #endif
 
-#define ISPRINT(c) (ISASCII (c) && isprint (c))
-#define ISDIGIT(c) (ISASCII (c) && isdigit (c))
-#define ISALNUM(c) (ISASCII (c) && isalnum (c))
-#define ISALPHA(c) (ISASCII (c) && isalpha (c))
-#define ISCNTRL(c) (ISASCII (c) && iscntrl (c))
-#define ISLOWER(c) (ISASCII (c) && islower (c))
-#define ISPUNCT(c) (ISASCII (c) && ispunct (c))
-#define ISSPACE(c) (ISASCII (c) && isspace (c))
-#define ISUPPER(c) (ISASCII (c) && isupper (c))
-#define ISXDIGIT(c) (ISASCII (c) && isxdigit (c))
+#define ISPRINT(c) (IN_CTYPE_DOMAIN (c) && isprint ((unsigned char) c))
+#define ISDIGIT(c) (IN_CTYPE_DOMAIN (c) && isdigit ((unsigned char) c))
+#define ISALNUM(c) (IN_CTYPE_DOMAIN (c) && isalnum ((unsigned char) c))
+#define ISALPHA(c) (IN_CTYPE_DOMAIN (c) && isalpha ((unsigned char) c))
+#define ISCNTRL(c) (IN_CTYPE_DOMAIN (c) && iscntrl ((unsigned char) c))
+#define ISLOWER(c) (IN_CTYPE_DOMAIN (c) && islower ((unsigned char) c))
+#define ISPUNCT(c) (IN_CTYPE_DOMAIN (c) && ispunct (unsigned char) (c))
+#define ISSPACE(c) (IN_CTYPE_DOMAIN (c) && isspace ((unsigned char) c))
+#define ISUPPER(c) (IN_CTYPE_DOMAIN (c) && isupper ((unsigned char) c))
+#define ISXDIGIT(c) (IN_CTYPE_DOMAIN (c) && isxdigit ((unsigned char) c))
+
+#define TOUPPER(c)	toupper((unsigned char) c)
+#define TOLOWER(c)	tolower((unsigned char) c)
 
 
 #ifdef __STDC__
@@ -112,18 +132,14 @@ extern int errno;
 #define const
 #endif	/* not __STDC__ */
 
-#if ! defined(VMS) || (! defined(VAXC) && ! defined(__DECC))
+#ifndef VMS
 #include <sys/types.h>
 #include <sys/stat.h>
-#else	/* VMS w/ VAXC or DECC */
-#include <types.h>
+#else	/* VMS */
+#include <stddef.h>
 #include <stat.h>
 #include <file.h>	/* avoid <fcntl.h> in io.c */
-#ifdef __DECC
-/* DEC C implies DECC$SHR, which doesn't have the %g problem of VAXCRTL */
-#undef GFMT_WORKAROUND
-#endif
-#endif	/* VMS w/ VAXC or DECC */
+#endif	/* VMS */
 
 #ifdef STDC_HEADERS
 #include <stdlib.h>
@@ -155,6 +171,15 @@ extern int errno;
 #include <unixlib.h>
 #endif	/* atarist || VMS */
 
+#if ! defined(MSDOS) && ! defined(OS2) && ! defined(WIN32)
+#define O_BINARY	0
+#endif
+
+#if defined(TANDEM)
+#define variable variabl
+#define open(name, how, mode)	open(name, how)	/* !!! ANSI C !!! */
+#endif
+
 #if HAVE_UNISTD_H
 #include <unistd.h>
 #endif	/* HAVE_UNISTD_H */
@@ -173,12 +198,17 @@ lose
 #define setlocale(locale, val)	/* nothing */
 #endif /* HAVE_SETLOCALE */
 
+/* use this as lintwarn("...")
+   this is a hack but it gives us the right semantics */
+#define lintwarn (*(set_loc(__FILE__, __LINE__),lintfunc))
+extern void set_prof_file P((const char *filename));
+
 #ifdef VMS
 #include "vms/redirect.h"
 #endif  /*VMS*/
 
 #ifdef atarist
-#include "atari/redirect.h"
+#include "unsupported/atari/redirect.h"
 #endif
 
 #define	GNU_REGEX
@@ -201,6 +231,12 @@ typedef struct Regexp {
 #define	SUBPATEND(rp,s,n)	(rp)->regs.end[n]
 #endif	/* GNU_REGEX */
 
+/* Stuff for losing systems. */
+#ifdef STRTOD_NOT_C89
+extern double gawk_strtod();
+#define strtod gawk_strtod
+#endif
+
 /* ------------------ Constants, Structures, Typedefs  ------------------ */
 
 #ifndef AWKNUM
@@ -310,6 +346,7 @@ typedef enum nodevals {
 	Node_redirect_pipe,	/* subnode is where to redirect */
 	Node_redirect_pipein,	/* subnode is where to redirect */
 	Node_redirect_input,	/* subnode is where to redirect */
+	Node_redirect_twoway,	/* subnode is where to redirect */
 
 	/* Variables */
 	Node_var,		/* rnode is value, lnode is array stuff */
@@ -327,8 +364,8 @@ typedef enum nodevals {
 	Node_line_range,
 
 	/*
-	 * boolean test of membership in array lnode is string-valued
-	 * expression rnode is array name 
+	 * boolean test of membership in array
+	 * lnode is string-valued, expression rnode is array name 
 	 */
 	Node_in_array,
 
@@ -340,17 +377,20 @@ typedef enum nodevals {
 	Node_hashnode,		/* an identifier in the symbol table */
 	Node_ahash,		/* an array element */
 	Node_array_ref,		/* array passed by ref as parameter */
-	Node_NF,		/* variables recognized in the grammar */
-	Node_NR,
+	Node_BINMODE,		/* variables recognized in the grammar */
+	Node_CONVFMT,
+	Node_FIELDWIDTHS,
 	Node_FNR,
 	Node_FS,
-	Node_RS,
-	Node_FIELDWIDTHS,
 	Node_IGNORECASE,
+	Node_LINT,
+	Node_NF,
+	Node_NR,
+	Node_OFMT,
 	Node_OFS,
 	Node_ORS,
-	Node_OFMT,
-	Node_CONVFMT,
+	Node_RS,
+	Node_TEXTDOMAIN,
 	Node_final		/* sentry value, not legal */
 } NODETYPE;
 
@@ -377,6 +417,7 @@ typedef struct exp_node {
 			union {
 				struct exp_node *extra;
 				long xl;
+				char **param_list;
 			} x;
 			char *name;
 			short number;
@@ -429,8 +470,12 @@ typedef struct exp_node {
 #		define	FUNC	1024	/* this parameter is really a
 					 * function name; see awk.y */
 #		define	FIELD	2048	/* this is a field */
-
-	char *vname;    /* variable's name */
+#		define	INTLSTR	4096	/* use localized version */
+#		define	UNINITIALIZED	8192	/* value used before set */
+	char *vname;
+#ifndef NO_PROFILING
+	long exec_count;
+#endif
 } NODE;
 
 #define lnode	sub.nodep.l.lptr
@@ -440,9 +485,11 @@ typedef struct exp_node {
 #define	source_line	sub.nodep.number
 #define	param_cnt	sub.nodep.number
 #define param	sub.nodep.l.param_name
+#define parmlist	sub.nodep.x.param_list
 
 #define subnode	lnode
 #define proc	sub.nodep.r.pptr
+#define callresult sub.nodep.x.extra
 
 #define re_reg	sub.nodep.r.preg
 #define re_flags sub.nodep.reflags
@@ -467,6 +514,8 @@ typedef struct exp_node {
 
 #define orig_array sub.nodep.x.extra
 
+#define printf_count sub.nodep.x.xl
+
 #define condpair lnode
 #define triggered sub.nodep.r.r_ent
 
@@ -477,14 +526,6 @@ typedef struct for_loop_header {
 	NODE *incr;
 } FOR_LOOP_HEADER;
 
-/* for "for(iggy in foo) {" */
-struct search {
-	NODE *sym;
-	size_t idx;
-	NODE *bucket;
-	NODE *retval;
-};
-
 /* for faster input, bypass stdio */
 typedef struct iobuf {
 	const char *name;
@@ -499,9 +540,7 @@ typedef struct iobuf {
 #		define	IOP_IS_TTY	1
 #		define	IOP_IS_INTERNAL	2
 #		define	IOP_NO_FREE	4
-#		define	IOP_MMAPPED	8
-#		define	IOP_NOFREE_OBJ	16
-	int (*getrec)();
+#		define	IOP_NOFREE_OBJ	8
 } IOBUF;
 
 typedef void (*Func_ptr)();
@@ -517,6 +556,9 @@ struct redirect {
 #		define	RED_NOBUF	32
 #		define	RED_USED	64	/* closed temporarily to reuse fd */
 #		define	RED_EOF		128
+#		define	RED_TWOWAY	256
+#		define	RED_SOCKET	512
+#		define	RED_TCP		1024
 	char *value;
 	FILE *fp;
 	FILE *ifp;	/* input fp, needed for PIPES_SIMULATED */
@@ -525,6 +567,7 @@ struct redirect {
 	int status;
 	struct redirect *prev;
 	struct redirect *next;
+	char *mode;
 };
 
 /* structure for our source, either a command line string or a source file */
@@ -533,6 +576,12 @@ struct src {
        char *val;
 };
 
+/* for debugging purposes */
+struct flagtab {
+	int val;
+	char *name;
+};
+
 /* longjmp return codes, must be nonzero */
 /* Continue means either for loop/while continue, or next input record */
 #define TAG_CONTINUE 1
@@ -557,6 +606,7 @@ struct src {
 extern long NF;
 extern long NR;
 extern long FNR;
+extern int BINMODE;
 extern int IGNORECASE;
 extern int RS_is_null;
 extern char *OFS;
@@ -567,10 +617,12 @@ extern char *OFMT;
 extern char *CONVFMT;
 extern int CONVFMTidx;
 extern int OFMTidx;
-extern NODE *CONVFMT_node, *FIELDWIDTHS_node, *FILENAME_node;
+extern char *TEXTDOMAIN;
+extern NODE *BINMODE_node, *CONVFMT_node, *FIELDWIDTHS_node, *FILENAME_node;
 extern NODE *FNR_node, *FS_node, *IGNORECASE_node, *NF_node;
 extern NODE *NR_node, *OFMT_node, *OFS_node, *ORS_node, *RLENGTH_node;
-extern NODE *RSTART_node, *RS_node, *RT_node, *SUBSEP_node; 
+extern NODE *RSTART_node, *RS_node, *RT_node, *SUBSEP_node, *PROCINFO_node;
+extern NODE *LINT_node, *ERRNO_node, *TEXTDOMAIN_node;
 extern NODE **stack_ptr;
 extern NODE *Nnull_string;
 extern NODE **fields_arr;
@@ -589,6 +641,10 @@ extern int do_posix;
 extern int do_lint;
 extern int do_lint_old;
 extern int do_intervals;
+extern int do_intl;
+extern int do_non_decimal_data;
+extern int do_dump_vars;
+extern int do_tidy_mem;
 extern int in_begin_rule;
 extern int in_end_rule;
 
@@ -607,21 +663,29 @@ extern char casetable[];	/* for case-independent regexp matching */
 					|| (str)[1] == 'x' || (str)[1] == 'X'))
 
 #ifdef MPROF
-#define	getnode(n)	emalloc(n, NODE *, sizeof(NODE), "getnode")
+#define	getnode(n)	emalloc((n), NODE *, sizeof(NODE), "getnode"), (n)->flags = UNINITIALIZED, (n)-exec_count = 0;
 #define	freenode(n)	free(n)
 #else	/* not MPROF */
 #define	getnode(n)	if (nextfree) n = nextfree, nextfree = nextfree->nextp;\
 			else n = more_nodes()
-#define	freenode(n)	((n)->flags &= ~SCALAR, (n)->nextp = nextfree, nextfree = (n))
+#ifndef NO_PROFILING
+#define	freenode(n)	((n)->flags = UNINITIALIZED,\
+		(n)->exec_count = 0, (n)->nextp = nextfree, nextfree = (n))
+#else /* not PROFILING */
+#define	freenode(n)	((n)->flags = UNINITIALIZED,\
+		(n)->nextp = nextfree, nextfree = (n))
+#endif	/* not PROFILING */
 #endif	/* not MPROF */
 
-#ifdef DEBUG
+#ifdef MEMDEBUG
 #undef freenode
-#define	get_lhs(p, a)	r_get_lhs((p), (a))
+#define	get_lhs(p, a, r)	r_get_lhs((p), (a), (r))
 #define	m_tree_eval(t, iscond)	r_tree_eval(t, iscond)
 #else
-#define	get_lhs(p, a)	((p)->type == Node_var ? (&(p)->var_value) : \
-			r_get_lhs((p), (a)))
+#define	get_lhs(p, a, r) ((p)->type == Node_var && \
+			 ((p)->flags & UNINITIALIZED) == 0 && (r) ? \
+			  (&(p)->var_value): \
+			 r_get_lhs((p), (a), (r)))
 #if __GNUC__ >= 2
 #define	m_tree_eval(t, iscond) \
                         ({NODE * _t = (t);                 \
@@ -630,10 +694,15 @@ extern char casetable[];	/* for case-independent regexp matching */
 			   else {                          \
 			       switch(_t->type) {          \
 			       case Node_val:              \
+				   if (_t->flags&INTLSTR)  \
+					_t = r_force_string(_t); \
 				   break;                  \
 			       case Node_var:              \
-				   _t = _t->var_value;     \
-				   break;                  \
+				   if ((_t->flags & UNINITIALIZED) == 0) { \
+				       _t = _t->var_value;     		   \
+				       break;                  		   \
+				   }					   \
+				   /*FALLTHROUGH*/			   \
 			       default:                    \
 				   _t = r_tree_eval(_t, iscond);\
 				   break;                  \
@@ -644,11 +713,14 @@ extern char casetable[];	/* for case-independent regexp matching */
 #define	m_tree_eval(t, iscond)	(_t = (t), _t == NULL ? Nnull_string : \
 			(_t->type == Node_param_list ? \
 			  r_tree_eval(_t, iscond) : \
+			((_t->type == Node_val && (_t->flags&INTLSTR)) ? \
+				r_force_string(_t) : \
 			(_t->type == Node_val ? _t : \
-			(_t->type == Node_var ? _t->var_value : \
-			  r_tree_eval(_t, iscond)))))
+			(_t->type == Node_var && \
+			 (_t->flags & UNINITIALIZED) == 0 ? _t->var_value : \
+			 r_tree_eval(_t, iscond))))))
 #endif /* __GNUC__ */
-#endif /* not DEBUG */
+#endif /* not MEMDEBUG */
 #define tree_eval(t)	m_tree_eval(t, FALSE)
 
 #define	make_number(x)	mk_number((x), (unsigned int)(MALLOC|NUM|NUMBER))
@@ -660,7 +732,7 @@ extern char casetable[];	/* for case-independent regexp matching */
 #define		ALREADY_MALLOCED	2
 
 #define	cant_happen()	r_fatal("internal error line %d, file: %s", \
-				__LINE__, __FILE__);
+				__LINE__, __FILE__)
 
 #ifdef HAVE_STRINGIZE
 #define	emalloc(var,ty,x,str)	(void)((var=(ty)malloc((MALLOC_ARG_T)(x))) ||\
@@ -680,10 +752,10 @@ extern char casetable[];	/* for case-independent regexp matching */
 					(str), "var", strerror(errno)),0))
 #endif /* HAVE_STRINGIZE */
 
-#ifdef DEBUG
+#ifdef GAWKDEBUG
 #define	force_number	r_force_number
 #define	force_string	r_force_string
-#else /* not DEBUG */
+#else /* not GAWKDEBUG */
 #ifdef lint
 extern AWKNUM force_number();
 #endif
@@ -691,9 +763,11 @@ extern AWKNUM force_number();
 #define	force_number(n)	({NODE *_tn = (n);\
 			(_tn->flags & NUM) ?_tn->numbr : r_force_number(_tn);})
 #define	force_string(s)	({NODE *_ts = (s);\
+			  ((_ts->flags & INTLSTR) ? \
+				r_force_string(_ts) : \
 			  ((_ts->flags & STR) && \
 			   (_ts->stfmt == -1 || _ts->stfmt == CONVFMTidx)) ?\
-			  _ts : r_force_string(_ts);})
+			  _ts : r_force_string(_ts));})
 #else
 #ifdef MSDOS
 extern double _msc51bug;
@@ -703,12 +777,15 @@ extern double _msc51bug;
 #define	force_number(n)	(_t = (n),\
 			 (_t->flags & NUM) ? _t->numbr : r_force_number(_t))
 #endif /* not MSDOS */
-#define	force_string(s)	(_t = (s),((_t->flags & STR) && \
-				   (_t->stfmt == -1 || \
-				    _t->stfmt == CONVFMTidx))? \
+#define	force_string(s)	(_t = (s),(_t->flags & INTLSTR) ? \
+					r_force_string(_t) :\
+				((_t->flags & STR) && \
+				 (_t->stfmt == -1 || \
+				 _t->stfmt == CONVFMTidx))? \
 			 _t : r_force_string(_t))
+
 #endif /* not __GNUC__ */
-#endif /* not DEBUG */
+#endif /* not GAWKDEBUG */
 
 #define	STREQ(a,b)	(*(a) == *(b) && strcmp((a), (b)) == 0)
 #define	STREQN(a,b,n)	((n) && *(a)== *(b) && \
@@ -723,21 +800,25 @@ extern NODE *concat_exp P((NODE *tree));
 extern void assoc_clear P((NODE *symbol));
 extern unsigned int hash P((const char *s, size_t len, unsigned long hsize));
 extern int in_array P((NODE *symbol, NODE *subs));
-extern NODE **assoc_lookup P((NODE *symbol, NODE *subs));
+extern NODE **assoc_lookup P((NODE *symbol, NODE *subs, int reference));
 extern void do_delete P((NODE *symbol, NODE *tree));
 extern void do_delete_loop P((NODE *symbol, NODE *tree));
-extern void assoc_scan P((NODE *symbol, struct search *lookat));
-extern void assoc_next P((struct search *lookat));
 extern NODE *assoc_dump P((NODE *symbol));
 extern NODE *do_adump P((NODE *tree));
-/* awktab.c */
+extern NODE *do_asort P((NODE *tree));
+/* awkgram.c */
 extern char *tokexpand P((void));
 extern NODE *node P((NODE *left, NODETYPE op, NODE *right));
 extern NODE *install P((char *name, NODE *value));
 extern NODE *lookup P((const char *name));
 extern NODE *variable P((char *name, int can_free, NODETYPE type));
 extern int yyparse P((void));
+extern void dump_funcs P((void));
+extern void dump_vars P((const char *fname));
+extern void release_all_vars P((void));
+extern const char *getfname P((NODE *(*)()));
 extern NODE *stopme P((NODE *tree));
+extern void shadow_funcs();
 /* builtin.c */
 extern double double_to_int P((double d));
 extern NODE *do_exp P((NODE *tree));
@@ -746,6 +827,7 @@ extern NODE *do_index P((NODE *tree));
 extern NODE *do_int P((NODE *tree));
 extern NODE *do_length P((NODE *tree));
 extern NODE *do_log P((NODE *tree));
+extern NODE *do_mktime P((NODE *tree));
 extern NODE *do_sprintf P((NODE *tree));
 extern void do_printf P((NODE *tree));
 extern void print_simple P((NODE *tree, FILE *fp));
@@ -766,7 +848,7 @@ extern NODE *do_match P((NODE *tree));
 extern NODE *do_gsub P((NODE *tree));
 extern NODE *do_sub P((NODE *tree));
 extern NODE *do_gensub P((NODE *tree));
-#ifdef BITOPS
+extern NODE *format_tree P((const char *, int, NODE *, int));
 extern NODE *do_lshift P((NODE *tree));
 extern NODE *do_rshift P((NODE *tree));
 extern NODE *do_and P((NODE *tree));
@@ -774,21 +856,37 @@ extern NODE *do_or P((NODE *tree));
 extern NODE *do_xor P((NODE *tree));
 extern NODE *do_compl P((NODE *tree));
 extern NODE *do_strtonum P((NODE *tree));
-#endif /* BITOPS */
-#if defined(BITOPS) || defined(NONDECDATA)
 extern AWKNUM nondec2awknum P((char *str, size_t len));
-#endif /* defined(BITOPS) || defined(NONDECDATA) */
+extern NODE *do_dcgettext P((NODE *tree));
+extern NODE *do_bindtextdomain P((NODE *tree));
 /* eval.c */
 extern int interpret P((NODE *volatile tree));
 extern NODE *r_tree_eval P((NODE *tree, int iscond));
 extern int cmp_nodes P((NODE *t1, NODE *t2));
-extern NODE **r_get_lhs P((NODE *ptr, Func_ptr *assign));
+extern NODE **r_get_lhs P((NODE *ptr, Func_ptr *assign, int reference));
 extern void set_IGNORECASE P((void));
-void set_OFS P((void));
-void set_ORS P((void));
-void set_OFMT P((void));
-void set_CONVFMT P((void));
+extern void set_OFS P((void));
+extern void set_ORS P((void));
+extern void set_OFMT P((void));
+extern void set_CONVFMT P((void));
+extern void set_BINMODE P((void));
+extern void set_LINT P((void));
+extern void set_TEXTDOMAIN P((void));
+extern void update_ERRNO P((void));
 extern char *flags2str P((int));
+extern char *genflags2str P((int flagval, struct flagtab *tab));
+extern char *nodetype2str P((NODETYPE type));
+extern NODE *assign_val P((NODE **lhs_p, NODE *rhs));
+#ifdef PROFILING
+extern void dump_fcall_stack P((FILE *fp));
+#endif
+/* ext.c */
+NODE *do_ext P((NODE *));
+#ifdef DYNAMIC
+void make_builtin P((char *, NODE *(*)(NODE *), int));
+NODE *get_argument P((NODE *, int));
+void set_value P((NODE *));
+#endif
 /* field.c */
 extern void init_fields P((void));
 extern void set_record P((char *buf, int cnt, int freeold));
@@ -805,6 +903,12 @@ extern int using_fieldwidths P((void));
 extern char *gawk_name P((const char *filespec));
 extern void os_arg_fixup P((int *argcp, char ***argvp));
 extern int os_devopen P((const char *name, int flag));
+extern void os_close_on_exec P((int fd, const char *name, const char *what,
+				const char *dir));
+extern int os_isdir P((int fd));
+extern int os_is_setuid P((void));
+extern int os_setbinmode P((int fd, int mode));
+extern void os_restore_mode P((int fd));
 extern int optimal_bufsize P((int fd, struct stat *sbuf));
 extern int ispath P((const char *file));
 extern int isdirpunct P((int c));
@@ -824,6 +928,7 @@ extern struct redirect *getredirect P((char *str, int len));
 /* main.c */
 extern int main P((int argc, char **argv));
 extern void load_environ P((void));
+extern void load_procinfo P((void));
 extern char *arg_assign P((char *arg));
 extern RETSIGTYPE catchsig P((int sig, int code));
 /* msg.c */
@@ -834,6 +939,7 @@ extern void error P((va_list va_alist, ...));
 extern void warning P((va_list va_alist, ...));
 extern void set_loc P((char *file, int line));
 extern void r_fatal P((va_list va_alist, ...));
+extern void (*lintfunc) P((va_list va_alist, ...));
 #else
 #if defined(HAVE_STDARG_H) && defined(__STDC__) && __STDC__
 extern void msg (char *mesg, ...);
@@ -841,24 +947,35 @@ extern void error (char *mesg, ...);
 extern void warning (char *mesg, ...);
 extern void set_loc (char *file, int line);
 extern void r_fatal (char *mesg, ...);
+extern void (*lintfunc) (char *mesg, ...);
 #else
 extern void msg ();
 extern void error ();
 extern void warning ();
 extern void set_loc ();
 extern void r_fatal ();
+extern void (*lintfunc) ();
 #endif
 #endif
+/* profile.c */
+extern void init_profiling P((int *flag, const char *def_file));
+extern void init_profiling_signals P((void));
+extern void set_prof_file P((const char *filename));
+extern void dump_prog P((NODE *begin, NODE *prog, NODE *end));
+extern void pp_func P((char *name, size_t namelen, NODE *f));
+extern void pp_string_fp P((FILE *fp, char *str, size_t namelen,
+			int delim, int breaklines));
 /* node.c */
 extern AWKNUM r_force_number P((NODE *n));
 extern NODE *format_val P((char *format, int index, NODE *s));
 extern NODE *r_force_string P((NODE *s));
 extern NODE *dupnode P((NODE *n));
+extern NODE *copynode P((NODE *n));
 extern NODE *mk_number P((AWKNUM x, unsigned int flags));
 extern NODE *make_str_node P((char *s, size_t len, int scan ));
 extern NODE *tmp_string P((char *s, size_t len ));
 extern NODE *more_nodes P((void));
-#ifdef DEBUG
+#ifdef MEMDEBUG
 extern void freenode P((NODE *it));
 #endif
 extern void unref P((NODE *tmp));
@@ -873,13 +990,17 @@ extern Regexp *re_update P((NODE *t));
 extern void resyntax P((int syntax));
 extern void resetup P((void));
 extern int avoid_dfa P((NODE *re, char *str, size_t len));	/* temporary */
+extern int reisstring P((char *text, size_t len, Regexp *re, char *buf));
 
 /* strncasecmp.c */
+#ifndef BROKEN_STRNCASECMP
+extern int strcasecmp P((const char *s1, const char *s2));
 extern int strncasecmp P((const char *s1, const char *s2, register size_t n));
+#endif
 
 #if defined(atarist)
 #if defined(PIPES_SIMULATED)
-/* atari/tmpnam.c */
+/* unsupported/atari/tmpnam.c */
 extern char *tmpnam P((char *buf));
 extern char *tempnam P((const char *path, const char *base));
 #else
@@ -894,13 +1015,3 @@ extern char *tempnam P((const char *path, const char *base));
 #ifndef STATIC
 #define STATIC static
 #endif
-
-#ifdef C_ALLOCA
-/* The __hpux check is to avoid conflicts with bison's definition of
-   alloca() in awktab.c.*/
-#if (defined(__STDC__) && __STDC__) || defined (__hpux)
-extern void *alloca P((unsigned));
-#else
-extern char *alloca P((unsigned));
-#endif
-#endif