summaryrefslogtreecommitdiffstats
path: root/contrib/awk/main.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/awk/main.c')
-rw-r--r--contrib/awk/main.c463
1 files changed, 103 insertions, 360 deletions
diff --git a/contrib/awk/main.c b/contrib/awk/main.c
index 35308f8..bbd7d71 100644
--- a/contrib/awk/main.c
+++ b/contrib/awk/main.c
@@ -3,7 +3,7 @@
*/
/*
- * Copyright (C) 1986, 1988, 1989, 1991-2001 the Free Software Foundation, Inc.
+ * Copyright (C) 1986, 1988, 1989, 1991-2000 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Programming Language.
@@ -21,28 +21,13 @@
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
+ *
+ * $FreeBSD$
*/
#include "awk.h"
#include "getopt.h"
-#ifdef TANDEM
-#include "ptchlvl.h" /* blech */
-#else
-#include "patchlev.h"
-#endif
-
-#ifndef O_BINARY
-#include <fcntl.h>
-#endif
-
-#ifdef HAVE_MCHECK_H
-#include <mcheck.h>
-#endif
-
-#define DEFAULT_PROFILE "awkprof.out" /* where to put profile */
-#define DEFAULT_VARFILE "awkvars.out" /* where to put vars */
-
-static char *varfile = DEFAULT_VARFILE;
+#include "patchlevel.h"
static void usage P((int exitval, FILE *fp));
static void copyleft P((void));
@@ -53,25 +38,20 @@ static void pre_assign P((char *v));
RETSIGTYPE catchsig P((int sig, int code));
static void nostalgia P((void));
static void version P((void));
-static void init_fds P((void));
/* These nodes store all the special variables AWK uses */
-NODE *ARGC_node, *ARGIND_node, *ARGV_node, *BINMODE_node, *CONVFMT_node;
-NODE *ENVIRON_node, *ERRNO_node, *FIELDWIDTHS_node, *FILENAME_node, *FNR_node;
-NODE *FS_node, *IGNORECASE_node, *NF_node, *NR_node, *OFMT_node, *OFS_node;
-NODE *ORS_node, *PROCINFO_node, *RLENGTH_node, *RSTART_node, *RS_node;
-NODE *RT_node, *SUBSEP_node, *LINT_node, *TEXTDOMAIN_node;
-
+NODE *ARGC_node, *ARGIND_node, *ARGV_node, *CONVFMT_node, *ENVIRON_node;
+NODE *ERRNO_node, *FIELDWIDTHS_node, *FILENAME_node, *FNR_node, *FS_node;
+NODE *IGNORECASE_node, *NF_node, *NR_node, *OFMT_node, *OFS_node;
+NODE *ORS_node, *RLENGTH_node, *RSTART_node, *RS_node, *RT_node, *SUBSEP_node;
+
long NF;
long NR;
long FNR;
-int BINMODE;
int IGNORECASE;
char *OFS;
char *ORS;
char *OFMT;
-char *TEXTDOMAIN;
-int MRL; /* See -mr option for use of this variable */
/*
* CONVFMT is a convenience pointer for the current number to string format.
@@ -81,7 +61,6 @@ int MRL; /* See -mr option for use of this variable */
*/
char *CONVFMT = "%.6g";
-
int errcount = 0; /* error counter, used by yyerror() */
NODE *Nnull_string; /* The global null string */
@@ -98,7 +77,7 @@ NODE *end_block = NULL;
int exiting = FALSE; /* Was an "exit" statement executed? */
int exit_val = 0; /* optional exit value */
-#if defined(YYDEBUG) || defined(GAWKDEBUG)
+#if defined(YYDEBUG) || defined(DEBUG)
extern int yydebug;
#endif
@@ -109,13 +88,8 @@ int do_traditional = FALSE; /* no gnu extensions, add traditional weirdnesses */
int do_posix = FALSE; /* turn off gnu and unix extensions */
int do_lint = FALSE; /* provide warnings about questionable stuff */
int do_lint_old = FALSE; /* warn about stuff not in V7 awk */
-int do_intl = FALSE; /* dump locale-izable strings to stdout */
-int do_non_decimal_data = FALSE; /* allow octal/hex C style DATA. Use with caution! */
int do_nostalgia = FALSE; /* provide a blast from the past */
int do_intervals = FALSE; /* allow {...,...} in regexps */
-int do_profiling = FALSE; /* profile and pretty print the program */
-int do_dump_vars = FALSE; /* dump all global variables at end */
-int do_tidy_mem = FALSE; /* release vars when done */
int in_begin_rule = FALSE; /* we're in a BEGIN rule */
int in_end_rule = FALSE; /* we're in a END rule */
@@ -127,34 +101,24 @@ extern char *version_string; /* current version, for printing */
/* The parse tree is stored here. */
NODE *expression_value;
-#if _MSC_VER == 510
-void (*lintfunc) P((va_list va_alist, ...)) = warning;
-#else
-void (*lintfunc) P((char *mesg, ...)) = warning;
-#endif
-
static struct option optab[] = {
{ "compat", no_argument, & do_traditional, 1 },
{ "traditional", no_argument, & do_traditional, 1 },
- { "lint", optional_argument, NULL, 'l' },
+ { "lint", no_argument, & do_lint, 1 },
{ "lint-old", no_argument, & do_lint_old, 1 },
{ "posix", no_argument, & do_posix, 1 },
{ "nostalgia", no_argument, & do_nostalgia, 1 },
- { "gen-po", no_argument, & do_intl, 1 },
- { "non-decimal-data", no_argument, & do_non_decimal_data, 1 },
- { "profile", optional_argument, NULL, 'p' },
{ "copyleft", no_argument, NULL, 'C' },
{ "copyright", no_argument, NULL, 'C' },
{ "field-separator", required_argument, NULL, 'F' },
{ "file", required_argument, NULL, 'f' },
- { "re-interval", no_argument, & do_intervals, 1 },
+ { "re-interval", no_argument, & do_intervals, 1 },
{ "source", required_argument, NULL, 's' },
- { "dump-variables", optional_argument, NULL, 'd' },
{ "assign", required_argument, NULL, 'v' },
{ "version", no_argument, NULL, 'V' },
{ "usage", no_argument, NULL, 'u' },
{ "help", no_argument, NULL, 'u' },
-#ifdef GAWKDEBUG
+#ifdef DEBUG
{ "parsedebug", no_argument, NULL, 'D' },
#endif
{ NULL, 0, NULL, '\0' }
@@ -163,7 +127,9 @@ static struct option optab[] = {
/* main --- process args, parse program, run it, clean up */
int
-main(int argc, char **argv)
+main(argc, argv)
+int argc;
+char **argv;
{
int c;
char *scan;
@@ -175,21 +141,8 @@ main(int argc, char **argv)
extern int opterr;
extern char *optarg;
- /* do these checks early */
- if (getenv("TIDYMEM") != NULL)
- do_tidy_mem = TRUE;
-
-#ifdef HAVE_MCHECK_H
- if (do_tidy_mem)
- mtrace();
-#endif /* HAVE_MCHECK_H */
-
-
setlocale(LC_CTYPE, "");
setlocale(LC_COLLATE, "");
- /* setlocale (LC_ALL, ""); */
- bindtextdomain(PACKAGE, LOCALEDIR);
- textdomain(PACKAGE);
(void) signal(SIGFPE, (RETSIGTYPE (*) P((int))) catchsig);
(void) signal(SIGSEGV, (RETSIGTYPE (*) P((int))) catchsig);
@@ -235,9 +188,6 @@ main(int argc, char **argv)
*/
init_fields();
- /* Robustness: check that 0, 1, 2, exist */
- init_fds();
-
/* worst case */
emalloc(srcfiles, struct src *, argc * sizeof(struct src), "main");
memset(srcfiles, '\0', argc * sizeof(struct src));
@@ -289,26 +239,15 @@ main(int argc, char **argv)
* -mr nnn set record length, ditto
*/
if (do_lint)
- lintwarn(_("`-m[fr]' option irrelevant in gawk"));
+ warning("-m[fr] option irrelevant in gawk");
if (optarg[0] != 'r' && optarg[0] != 'f')
- warning(_("-m option usage: `-m[fr] nnn'"));
- /*
- * Set fixed length records for Tandem,
- * ignored on other platforms (see io.c:get_a_record).
- */
- if (optarg[0] == 'r') {
- if (ISDIGIT(optarg[1]))
- MRL = atoi(optarg+1);
- else {
- MRL = atoi(argv[optind]);
- optind++;
- }
- } else if (optarg[1] == '\0')
+ warning("-m option usage: `-m[fr] nnn'");
+ if (optarg[1] == '\0')
optind++;
break;
case 'W': /* gawk specific options - now in getopt_long */
- fprintf(stderr, _("%s: option `-W %s' unrecognized, ignored\n"),
+ fprintf(stderr, "%s: option `-W %s' unrecognized, ignored\n",
argv[0], optarg);
break;
@@ -317,29 +256,9 @@ main(int argc, char **argv)
copyleft();
break;
- case 'd':
- do_dump_vars = TRUE;
- if (optarg != NULL && optarg[0] != '\0')
- varfile = optarg;
- break;
-
- case 'l':
- do_lint = TRUE;
- if (optarg != NULL && strcmp(optarg, "fatal") == 0)
- lintfunc = r_fatal;
- break;
-
- case 'p':
- do_profiling = TRUE;
- if (optarg != NULL)
- set_prof_file(optarg);
- else
- set_prof_file(DEFAULT_PROFILE);
- break;
-
case 's':
if (optarg[0] == '\0')
- warning(_("empty argument to `--source' ignored"));
+ warning("empty argument to --source ignored");
else {
srcfiles[++numfiles].stype = CMDLINE;
srcfiles[numfiles].val = optarg;
@@ -354,7 +273,7 @@ main(int argc, char **argv)
version();
break;
-#ifdef GAWKDEBUG
+#ifdef DEBUG
case 'D':
yydebug = 2;
break;
@@ -394,7 +313,7 @@ main(int argc, char **argv)
} else if (optopt != '\0')
/* Use 1003.2 required message format */
fprintf(stderr,
- _("%s: option requires an argument -- %c\n"),
+ "%s: option requires an argument -- %c\n",
myname, optopt);
/* else
let getopt print error message for us */
@@ -410,13 +329,13 @@ out:
if (! do_posix && getenv("POSIXLY_CORRECT") != NULL) {
do_posix = TRUE;
if (do_lint)
- lintwarn(
- _("environment variable `POSIXLY_CORRECT' set: turning on `--posix'"));
+ warning(
+ "environment variable `POSIXLY_CORRECT' set: turning on --posix");
}
if (do_posix) {
if (do_traditional) /* both on command line */
- warning(_("`--posix' overrides `--traditional'"));
+ warning("--posix overrides --traditional");
else
do_traditional = TRUE;
/*
@@ -425,14 +344,6 @@ out:
*/
}
- if (do_traditional && do_non_decimal_data) {
- do_non_decimal_data = FALSE;
- warning(_("`--posix'/`--traditional' overrides `--non-decimal-data'"));
- }
-
- if (do_lint && os_is_setuid())
- warning(_("runing %s setuid root may be a security problem"), myname);
-
/*
* Tell the regex routines how they should work.
* Do this again, after argument processing, since do_posix
@@ -450,25 +361,7 @@ out:
set_FS();
}
- /*
- * Initialize profiling info, do after parsing args,
- * in case this is pgawk. Don't bother if the command
- * line already set profling up.
- */
- if (! do_profiling)
- init_profiling(& do_profiling, DEFAULT_PROFILE);
-
- if ((BINMODE & 1) != 0)
- if (os_setbinmode(fileno(stdin), O_BINARY) == -1)
- fatal(_("can't set mode on stdin (%s)"), strerror(errno));
- if ((BINMODE & 2) != 0) {
- if (os_setbinmode(fileno(stdout), O_BINARY) == -1)
- fatal(_("can't set mode on stdout (%s)"), strerror(errno));
- if (os_setbinmode(fileno(stderr), O_BINARY) == -1)
- fatal(_("can't set mode on stderr (%s)"), strerror(errno));
- }
-
-#ifdef GAWKDEBUG
+#ifdef DEBUG
setbuf(stdout, (char *) NULL); /* make debugging easier */
#endif
if (isatty(fileno(stdout)))
@@ -488,18 +381,14 @@ out:
/* Read in the program */
if (yyparse() != 0 || errcount != 0)
exit(1);
-
- if (do_intl)
- exit(0);
+ /* recover any space from C based alloca */
+#ifdef C_ALLOCA
+ (void) alloca(0);
+#endif
if (do_lint && begin_block == NULL && expression_value == NULL
&& end_block == NULL)
- lintwarn(_("no program text at all!"));
-
- if (do_lint)
- shadow_funcs();
-
- init_profiling_signals();
+ warning("no program");
if (begin_block != NULL) {
in_begin_rule = TRUE;
@@ -515,18 +404,6 @@ out:
in_end_rule = FALSE;
if (close_io() != 0 && exit_val == 0)
exit_val = 1;
-
- if (do_profiling) {
- dump_prog(begin_block, expression_value, end_block);
- dump_funcs();
- }
-
- if (do_dump_vars)
- dump_vars(varfile);
-
- if (do_tidy_mem)
- release_all_vars();
-
exit(exit_val); /* more portable */
return exit_val; /* to suppress warnings */
}
@@ -534,46 +411,43 @@ out:
/* usage --- print usage information and exit */
static void
-usage(int exitval, FILE *fp)
+usage(exitval, fp)
+int exitval;
+FILE *fp;
{
- /* Not factoring out common stuff makes it easier to translate. */
-
- fprintf(fp, _("Usage: %s [POSIX or GNU style options] -f progfile [--] file ...\n"),
- myname);
- fprintf(fp, _("Usage: %s [POSIX or GNU style options] [--] %cprogram%c file ...\n"),
- myname, quote, quote);
-
- /* GNU long options info. This is too many options. */
-
- fputs(_("POSIX options:\t\tGNU long options:\n"), fp);
- fputs(_("\t-f progfile\t\t--file=progfile\n"), fp);
- fputs(_("\t-F fs\t\t\t--field-separator=fs\n"), fp);
- fputs(_("\t-v var=val\t\t--assign=var=val\n"), fp);
- fputs(_("\t-m[fr] val\n"), fp);
- fputs(_("\t-W compat\t\t--compat\n"), fp);
- fputs(_("\t-W copyleft\t\t--copyleft\n"), fp);
- fputs(_("\t-W copyright\t\t--copyright\n"), fp);
- fputs(_("\t-W dump-variables[=file]\t--dump-variables[=file]\n"), fp);
- fputs(_("\t-W gen-po\t\t--gen-po\n"), fp);
- fputs(_("\t-W help\t\t\t--help\n"), fp);
- fputs(_("\t-W lint[=fatal]\t\t--lint[=fatal]\n"), fp);
- fputs(_("\t-W lint-old\t\t--lint-old\n"), fp);
- fputs(_("\t-W non-decimal-data\t--non-decimal-data\n"), fp);
+ char *opt1 = " -f progfile [--]";
+ char *regops = " [POSIX or GNU style options]";
+
+ fprintf(fp, "Usage: %s%s%s file ...\n\t%s%s [--] %cprogram%c file ...\n",
+ myname, regops, opt1, myname, regops, quote, quote);
+
+ /* GNU long options info. Gack. */
+ fputs("POSIX options:\t\tGNU long options:\n", fp);
+ fputs("\t-f progfile\t\t--file=progfile\n", fp);
+ fputs("\t-F fs\t\t\t--field-separator=fs\n", fp);
+ fputs("\t-v var=val\t\t--assign=var=val\n", fp);
+ fputs("\t-m[fr] val\n", fp);
+ fputs("\t-W compat\t\t--compat\n", fp);
+ fputs("\t-W copyleft\t\t--copyleft\n", fp);
+ fputs("\t-W copyright\t\t--copyright\n", fp);
+ fputs("\t-W help\t\t\t--help\n", fp);
+ fputs("\t-W lint\t\t\t--lint\n", fp);
+ fputs("\t-W lint-old\t\t--lint-old\n", fp);
#ifdef NOSTALGIA
- fputs(_("\t-W nostalgia\t\t--nostalgia\n"), fp);
+ fputs("\t-W nostalgia\t\t--nostalgia\n", fp);
#endif
-#ifdef GAWKDEBUG
- fputs(_("\t-W parsedebug\t\t--parsedebug\n"), fp);
+#ifdef DEBUG
+ fputs("\t-W parsedebug\t\t--parsedebug\n", fp);
#endif
- fputs(_("\t-W profile[=file]\t--profile[=file]\n"), fp);
- fputs(_("\t-W posix\t\t--posix\n"), fp);
- fputs(_("\t-W re-interval\t\t--re-interval\n"), fp);
- fputs(_("\t-W source=program-text\t--source=program-text\n"), fp);
- fputs(_("\t-W traditional\t\t--traditional\n"), fp);
- fputs(_("\t-W usage\t\t--usage\n"), fp);
- fputs(_("\t-W version\t\t--version\n"), fp);
- fputs(_("\nTo report bugs, see node `Bugs' in `gawk.info', which is\n"), fp);
- fputs(_("section `Reporting Problems and Bugs' in the printed version.\n"), fp);
+ fputs("\t-W posix\t\t--posix\n", fp);
+ fputs("\t-W re-interval\t\t--re-interval\n", fp);
+ fputs("\t-W source=program-text\t--source=program-text\n", fp);
+ fputs("\t-W traditional\t\t--traditional\n", fp);
+ fputs("\t-W usage\t\t--usage\n", fp);
+ fputs("\t-W version\t\t--version\n", fp);
+ fputs("\nTo report bugs, see node `Bugs' in `gawk.info', which\n", fp);
+ fputs("is section `Reporting Problems and Bugs' in the\n", fp);
+ fputs("printed version.\n", fp);
exit(exitval);
}
@@ -583,28 +457,28 @@ static void
copyleft()
{
static char blurb_part1[] =
- N_("Copyright (C) 1989, 1991-2001 Free Software Foundation.\n\
+"Copyright (C) 1989, 1991-2000 Free Software Foundation.\n\
\n\
This program is free software; you can redistribute it and/or modify\n\
it under the terms of the GNU General Public License as published by\n\
the Free Software Foundation; either version 2 of the License, or\n\
(at your option) any later version.\n\
-\n");
+\n";
static char blurb_part2[] =
- N_("This program is distributed in the hope that it will be useful,\n\
+"This program is distributed in the hope that it will be useful,\n\
but WITHOUT ANY WARRANTY; without even the implied warranty of\n\
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n\
GNU General Public License for more details.\n\
-\n");
+\n";
static char blurb_part3[] =
- N_("You should have received a copy of the GNU General Public License\n\
+"You should have received a copy of the GNU General Public License\n\
along with this program; if not, write to the Free Software\n\
-Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\n");
-
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\n";
+
/* multiple blurbs are needed for some brain dead compilers. */
- fputs(_(blurb_part1), stdout);
- fputs(_(blurb_part2), stdout);
- fputs(_(blurb_part3), stdout);
+ fputs(blurb_part1, stdout);
+ fputs(blurb_part2, stdout);
+ fputs(blurb_part3, stdout);
fflush(stdout);
exit(0);
}
@@ -612,11 +486,12 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.\n");
/* cmdline_fs --- set FS from the command line */
static void
-cmdline_fs(char *str)
+cmdline_fs(str)
+char *str;
{
register NODE **tmp;
- tmp = get_lhs(FS_node, (Func_ptr *) 0, FALSE);
+ tmp = get_lhs(FS_node, (Func_ptr *) 0);
unref(*tmp);
/*
* Only if in full compatibility mode check for the stupid special
@@ -627,7 +502,7 @@ cmdline_fs(char *str)
*/
if (str[0] == 't' && str[1] == '\0') {
if (do_lint)
- lintwarn(_("-Ft does not set FS to tab in POSIX awk"));
+ warning("-Ft does not set FS to tab in POSIX awk");
if (do_traditional && ! do_posix)
str[0] = '\t';
}
@@ -638,25 +513,26 @@ cmdline_fs(char *str)
/* init_args --- set up ARGV from stuff on the command line */
static void
-init_args(int argc0, int argc, char *argv0, char **argv)
+init_args(argc0, argc, argv0, argv)
+int argc0, argc;
+char *argv0;
+char **argv;
{
int i, j;
NODE **aptr;
ARGV_node = install("ARGV", node(Nnull_string, Node_var_array, (NODE *) NULL));
- aptr = assoc_lookup(ARGV_node, tmp_number(0.0), FALSE);
+ aptr = assoc_lookup(ARGV_node, tmp_number(0.0));
*aptr = make_string(argv0, strlen(argv0));
(*aptr)->flags |= MAYBE_NUM;
for (i = argc0, j = 1; i < argc; i++) {
- aptr = assoc_lookup(ARGV_node, tmp_number((AWKNUM) j), FALSE);
+ aptr = assoc_lookup(ARGV_node, tmp_number((AWKNUM) j));
*aptr = make_string(argv[i], strlen(argv[i]));
(*aptr)->flags |= MAYBE_NUM;
- (*aptr)->flags &= ~UNINITIALIZED;
j++;
}
ARGC_node = install("ARGC",
node(make_number((AWKNUM) j), Node_var, (NODE *) NULL));
- ARGC_node->flags &= ~UNINITIALIZED;
}
/*
@@ -693,9 +569,6 @@ static struct varinit varinit[] = {
{&ARGIND_node, "ARGIND", Node_var, NULL, 0, NULL },
{&ERRNO_node, "ERRNO", Node_var, NULL, 0, NULL },
{&RT_node, "RT", Node_var, "", 0, NULL },
-{&BINMODE_node, "BINMODE", Node_BINMODE, NULL, 0, NULL },
-{&LINT_node, "LINT", Node_LINT, NULL, 0, NULL },
-{&TEXTDOMAIN_node, "TEXTDOMAIN", Node_TEXTDOMAIN, "messages", 0, set_TEXTDOMAIN },
{0, NULL, Node_illegal, NULL, 0, NULL },
};
@@ -713,7 +586,6 @@ init_vars()
strlen(vp->strval)),
vp->type, (NODE *) NULL));
(*(vp->spec))->flags |= SCALAR;
- (*(vp->spec))->flags &= ~UNINITIALIZED;
if (vp->assign)
(*(vp->assign))();
}
@@ -724,11 +596,10 @@ init_vars()
void
load_environ()
{
-#if ! defined(TANDEM)
#if ! (defined(MSDOS) && !defined(DJGPP)) && ! defined(OS2) && ! (defined(VMS) && defined(__DECC))
extern char **environ;
#endif
- register char *var, *val;
+ register char *var, *val, *cp;
NODE **aptr;
register int i;
@@ -743,8 +614,7 @@ load_environ()
*val++ = '\0';
else
val = nullstr;
- aptr = assoc_lookup(ENVIRON_node,tmp_string(var, strlen(var)),
- FALSE);
+ aptr = assoc_lookup(ENVIRON_node, tmp_string(var, strlen(var)));
*aptr = make_string(val, strlen(val));
(*aptr)->flags |= (MAYBE_NUM|SCALAR);
@@ -754,94 +624,20 @@ load_environ()
}
/*
* Put AWKPATH into ENVIRON if it's not there.
- * This allows querying it from within awk programs.
+ * This allows querying it from outside gawk.
*/
- if (getenv("AWKPATH") == NULL) {
- aptr = assoc_lookup(ENVIRON_node, tmp_string("AWKPATH", 7), FALSE);
+ if ((cp = getenv("AWKPATH")) == NULL) {
+ aptr = assoc_lookup(ENVIRON_node, tmp_string("AWKPATH", 7));
*aptr = make_string(defpath, strlen(defpath));
(*aptr)->flags |= SCALAR;
}
-#endif /* TANDEM */
-}
-
-/* load_procinfo --- populate the PROCINFO array */
-
-void
-load_procinfo()
-{
- int i;
- NODE **aptr;
- char name[100];
- AWKNUM value;
-#if defined(NGROUPS_MAX) && NGROUPS_MAX > 0
- GETGROUPS_T groupset[NGROUPS_MAX];
- int ngroups;
-#endif
-
- PROCINFO_node = install("PROCINFO",
- node(Nnull_string, Node_var, (NODE *) NULL));
-
-#ifdef GETPGRP_VOID
-#define getpgrp_arg() /* nothing */
-#else
-#define getpgrp_arg() getpid()
-#endif
-
- value = getpgrp(getpgrp_arg());
- aptr = assoc_lookup(PROCINFO_node, tmp_string("pgrpid", 6), FALSE);
- *aptr = make_number(value);
-
- /*
- * could put a lot of this into a table, but then there's
- * portability problems declaring all the functions. so just
- * do it the slow and stupid way. sigh.
- */
-
- value = getpid();
- aptr = assoc_lookup(PROCINFO_node, tmp_string("pid", 3), FALSE);
- *aptr = make_number(value);
-
- value = getppid();
- aptr = assoc_lookup(PROCINFO_node, tmp_string("ppid", 4), FALSE);
- *aptr = make_number(value);
-
- value = getuid();
- aptr = assoc_lookup(PROCINFO_node, tmp_string("uid", 3), FALSE);
- *aptr = make_number(value);
-
- value = geteuid();
- aptr = assoc_lookup(PROCINFO_node, tmp_string("euid", 4), FALSE);
- *aptr = make_number(value);
-
- value = getgid();
- aptr = assoc_lookup(PROCINFO_node, tmp_string("gid", 3), FALSE);
- *aptr = make_number(value);
-
- value = getegid();
- aptr = assoc_lookup(PROCINFO_node, tmp_string("egid", 4), FALSE);
- *aptr = make_number(value);
-
- aptr = assoc_lookup(PROCINFO_node, tmp_string("FS", 2), FALSE);
- *aptr = make_string("FS", 2);
-
-#if defined(NGROUPS_MAX) && NGROUPS_MAX > 0
- ngroups = getgroups(NGROUPS_MAX, groupset);
- if (ngroups == -1)
- fatal(_("could not find groups: %s"), strerror(errno));
-
- for (i = 0; i < ngroups; i++) {
- sprintf(name, "group%d", i + 1);
- value = groupset[i];
- aptr = assoc_lookup(PROCINFO_node, tmp_string(name, strlen(name)), FALSE);
- *aptr = make_number(value);
- }
-#endif
}
/* arg_assign --- process a command-line assignment */
char *
-arg_assign(char *arg)
+arg_assign(arg)
+char *arg;
{
char *cp, *cp2;
int badvar;
@@ -855,18 +651,18 @@ arg_assign(char *arg)
*cp++ = '\0';
/* first check that the variable name has valid syntax */
badvar = FALSE;
- if (! ISALPHA(arg[0]) && arg[0] != '_')
+ if (! isalpha(arg[0]) && arg[0] != '_')
badvar = TRUE;
else
for (cp2 = arg+1; *cp2; cp2++)
- if (! ISALNUM(*cp2) && *cp2 != '_') {
+ if (! isalnum(*cp2) && *cp2 != '_') {
badvar = TRUE;
break;
}
if (badvar) {
if (do_lint)
- lintwarn(_("invalid syntax in name `%s' for variable assignment"), arg);
+ warning("illegal name `%s' in variable assignment", arg);
*--cp = '='; /* restore original text of ARGV */
return NULL;
}
@@ -878,7 +674,7 @@ arg_assign(char *arg)
it = make_str_node(cp, strlen(cp), SCAN);
it->flags |= (MAYBE_NUM|SCALAR);
var = variable(arg, FALSE, Node_var);
- lhs = get_lhs(var, &after_assign, FALSE);
+ lhs = get_lhs(var, &after_assign);
unref(*lhs);
*lhs = it;
if (after_assign != NULL)
@@ -891,58 +687,35 @@ arg_assign(char *arg)
/* pre_assign --- handle -v, print a message and die if a problem */
static void
-pre_assign(char *v)
+pre_assign(v)
+char *v;
{
- char *cp;
- /*
- * There is a problem when doing profiling. For -v x=y,
- * the variable x gets installed into the symbol table pointing
- * at the value in argv. This is what gets dumped. The string
- * ends up containing the full x=y, leading to stuff in the profile
- * of the form:
- *
- * if (x=y) ...
- *
- * Needless to say, this is gross, ugly and wrong. To fix, we
- * malloc a private copy of the storage that we can tweak to
- * our heart's content.
- *
- * This can't depend upon do_profiling; that variable isn't set up yet.
- * Sigh.
- */
-
- emalloc(cp, char *, strlen(v) + 1, "pre_assign");
- strcpy(cp, v);
-
- if (arg_assign(cp) == NULL) {
+ if (arg_assign(v) == NULL) {
fprintf(stderr,
"%s: `%s' argument to `-v' not in `var=value' form\n",
myname, v);
usage(1, stderr);
}
-
- cp = strchr(cp, '=');
- assert(cp);
- *cp = '\0';
}
/* catchsig --- catch signals */
RETSIGTYPE
-catchsig(int sig, int code)
+catchsig(sig, code)
+int sig, code;
{
#ifdef lint
code = 0; sig = code; code = sig;
#endif
if (sig == SIGFPE) {
- fatal(_("floating point exception"));
+ fatal("floating point exception");
} else if (sig == SIGSEGV
#ifdef SIGBUS
|| sig == SIGBUS
#endif
) {
set_loc(__FILE__, __LINE__);
- msg(_("fatal error: internal error"));
+ msg("fatal error: internal error");
/* fatal won't abort() if not compiled for debugging */
abort();
} else
@@ -955,12 +728,7 @@ catchsig(int sig, int code)
static void
nostalgia()
{
- /*
- * N.B.: This string is not gettextized, on purpose.
- * So there.
- */
fprintf(stderr, "awk: bailing out near line 1\n");
- fflush(stderr);
abort();
}
@@ -977,28 +745,3 @@ version()
copyleft();
exit(0);
}
-
-/* init_fds --- check for 0, 1, 2, open on /dev/null if possible */
-
-static void
-init_fds()
-{
- struct stat sbuf;
- int fd;
- int newfd;
-
- /* maybe no stderr, don't bother with error mesg */
- for (fd = 0; fd <= 2; fd++) {
- if (fstat(fd, &sbuf) < 0) {
-#if MAKE_A_HEROIC_EFFORT
- if (do_lint)
- lintwarn(_("no pre-opened fd %d"), fd);
-#endif
- newfd = devopen("/dev/null", "r+");
-#ifdef MAKE_A_HEROIC_EFFORT
- if (do_lint && newfd < 0)
- lintwarn(_("could not pre-open /dev/null for fd %d"), fd);
-#endif
- }
- }
-}
OpenPOWER on IntegriCloud