diff options
Diffstat (limited to 'contrib/awk/awk.h')
-rw-r--r-- | contrib/awk/awk.h | 295 |
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 |