home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
419b.lha
/
GNU_Awk_v2.10_Beta
/
awk1.c
< prev
next >
Wrap
C/C++ Source or Header
|
1990-10-01
|
14KB
|
597 lines
/*
* awk1 -- Expression tree constructors and main program for gawk.
*
* $Log: awk1.c,v $
* Revision 1.39 89/03/31 13:16:33 david
* GNU public license, MSDOS support, -V opt.
*
* Revision 1.38 89/03/30 10:19:13 david
* moved awk_opts outside main() because cc doesn't like initialized autos
* delete flush_io() since close_io() comes next
*
* Revision 1.37 89/03/29 21:54:53 david
* to get this to work with gcc, awk_opts must be a character array rather
* than a pointer (it is not readonly)
*
* Revision 1.36 89/03/29 14:17:23 david
* delinting and code movement
*
* Revision 1.35 89/03/26 13:32:15 david
* moved nextfile to awk7.c
*
* Revision 1.34 89/03/24 15:57:21 david
* hashnode changes to NODE
*
* Revision 1.33 89/03/21 10:58:26 david
* cleanup and movement of code to awk.y
*
* Revision 1.32 89/03/15 22:00:35 david
* old case stuff removed
* new case stuff added
* add new escape sequences
*
* Revision 1.31 89/03/15 21:31:10 david
* purge obstack stuff
*
* Revision 1.30 88/12/15 12:56:18 david
* changes from Jay to compile under gcc and fixing a bug in treatment of
* input files
*
* Revision 1.29 88/12/08 15:57:41 david
* *** empty log message ***
*
* Revision 1.28 88/12/07 20:00:15 david
* changes for incorporating source filename into error messages
*
* Revision 1.27 88/12/01 15:05:26 david
* changes to allow source line number printing in error messages
*
* Revision 1.26 88/11/28 20:12:30 david
* unbuffer stdout if compiled with DEBUG
*
* Revision 1.25 88/11/23 21:39:57 david
* Arnold: set strict if invoked as "awk"
*
* Revision 1.24 88/11/22 13:47:40 david
* Arnold: changes for case-insensitive matching
*
* Revision 1.23 88/11/15 10:18:57 david
* Arnold: cleanup; allow multiple -f options; if invoked as awk disable
* -v option for compatability
*
* Revision 1.22 88/11/14 21:54:27 david
* Arnold: cleanup
*
* Revision 1.21 88/11/03 15:22:22 david
* revised flags
*
* Revision 1.20 88/11/01 11:47:24 david
* mostly cleanup and code movement
*
* Revision 1.19 88/10/19 21:56:00 david
* replace malloc with emalloc
*
* Revision 1.18 88/10/17 20:57:19 david
* Arnold: purge FAST
*
* Revision 1.17 88/10/14 22:11:24 david
* pathc from Hack to get gcc to work
*
* Revision 1.16 88/10/13 21:55:08 david
* purge FAST; clean up error messages
*
* Revision 1.15 88/10/06 21:55:20 david
* be more careful about I/O errors on exit
* Arnold's fixes for command line processing
*
* Revision 1.14 88/10/06 15:52:24 david
* changes from Arnold: use getopt; ifdef -v option; change semantics of = args.
*
* Revision 1.13 88/09/26 10:16:35 david
* cleanup from Arnold
*
* Revision 1.12 88/09/19 20:38:29 david
* added -v option
* set FILENAME to "-" if stdin
*
* Revision 1.11 88/08/09 14:49:23 david
* reorganized handling of command-line arguments and files
*
* Revision 1.10 88/06/13 18:08:25 david
* delete \a and -R options
* separate exit value from flag indicating that exit has been called
* [from Arnold]
*
* Revision 1.9 88/06/05 22:19:41 david
* func_level goes away; param_counter is used to count order of local vars.
*
* Revision 1.8 88/05/31 09:21:56 david
* Arnold's portability changes (vprintf)
* fixed handling of function parameter use inside function
*
* Revision 1.7 88/05/30 09:51:17 david
* exit after yyparse() if any errors were encountered
* mk_re_parse() parses C escapes in regexps.
* do panic() properly with varargs
* clean up and simplify pop_var()
*
* Revision 1.6 88/05/26 22:46:19 david
* minor changes: break out separate case for making regular expressions
* from parser vs. from strings
*
* Revision 1.5 88/05/13 22:02:31 david
* moved BEGIN and END block merging into parse-phase (sorry Arnold)
* if there is only a BEGIN block and nothing else, don't read any files
* cleaned up func_install a bit
*
* Revision 1.4 88/05/04 12:18:28 david
* make_for_loop() now returns a NODE *
* pop_var() now returns the value of the node being popped, to be used
* in func_call() if the variable is an array (call by reference)
*
* Revision 1.3 88/04/15 13:12:19 david
* small fix to arg reading code
*
* Revision 1.2 88/04/14 14:40:25 david
* Arnold's changes to read program from a file
*
* Revision 1.1 88/04/08 15:14:52 david
* Initial revision
* Revision 1.6 88/04/08 14:48:30 david changes from
* Arnold Robbins
*
* Revision 1.5 88/03/28 14:13:33 david *** empty log message ***
*
* Revision 1.4 88/03/23 22:17:33 david mostly delinting -- a couple of bug
* fixes
*
* Revision 1.3 88/03/18 21:00:09 david Baseline -- hoefully all the
* functionality of the new awk added. Just debugging and tuning to do.
*
* Revision 1.2 87/11/19 14:40:17 david added support for user-defined
* functions
*
* Revision 1.1 87/10/27 15:23:26 david Initial revision
*
*/
/*
* Copyright (C) 1986, 1988, 1989 the Free Software Foundation, Inc.
*
* This file is part of GAWK, the GNU implementation of the
* AWK Progamming Language.
*
* GAWK is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 1, or (at your option)
* any later version.
*
* GAWK is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with GAWK; see the file COPYING. If not, write to
* the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include "awk.h"
extern int yyparse();
extern void do_input();
extern void init_vars();
extern void set_fs();
extern int close_io();
extern void init_args();
extern void init_fields();
extern int getopt();
extern int re_set_syntax();
static void usage();
/*
* The parse tree and field nodes are stored here. Parse_end is a dummy item
* used to free up unneeded fields without freeing the program being run
*/
int errcount = 0; /* error counter, used by yyerror() */
int param_counter;
/* The global null string */
NODE *Nnull_string;
/* The name the program was invoked under, for error messages */
char *myname;
/* A block of AWK code to be run before running the program */
NODE *begin_block = 0;
/* A block of AWK code to be run after the last input file */
NODE *end_block = 0;
int exiting = 0; /* Was an "exit" statement executed? */
int exit_val = 0; /* optional exit value */
#ifdef DEBUG
/* non-zero means in debugging is enabled. Probably not very useful */
int debugging = 0;
#endif
int tempsource = 0; /* source is in a temp file */
char **sourcefile = NULL; /* source file name(s) */
int numfiles = -1; /* how many source files */
int strict = 0; /* turn off gnu extensions */
NODE *expression_value;
/*
* for strict to work, legal options must be first
*/
#define EXTENSIONS 5 /* where to clear */
#ifdef DEBUG
char awk_opts[] = "F:f:vVdD";
#else
char awk_opts[] = "F:f:vV";
#endif
/*** CHANGE [238,241] IN x:awk1.c TO [238,243] IN awk1.c ***/
#ifdef AMIGA
#define TEMPLATE "T:gawk.XXXXXX"
#elif defined MSDOS
#define TEMPLATE "%s/gaXXXXXX"
#else
#define TEMPLATE "/tmp/gawk.XXXXX"
#endif
/*** CHANGE [238,241] IN x:awk1.c TO [238,243] IN awk1.c ***/
main(argc, argv)
int argc;
char **argv;
{
#ifdef DEBUG
/* Print out the parse tree. For debugging */
register int dotree = 0;
extern int yydebug;
#endif
extern char *version_string;
FILE *fp;
static char template[255];
#ifdef MSDOS
char *ptr;
#endif
int c;
extern int opterr, optind;
extern char *optarg;
char *cp;
extern char *rindex();
extern char *mktemp();
myname = argv[0];
if (argc < 2)
usage();
/* Tell the regex routines how they should work. . . */
(void) re_set_syntax(RE_SYNTAX_AWK);
/* initialize the null string */
Nnull_string = make_string("", 0);
Nnull_string->numbr = 0.0;
Nnull_string->type = Node_val;
Nnull_string->flags = (PERM|STR|NUM);
/* Set up the special variables */
/*
* Note that this must be done BEFORE arg parsing else -F
* breaks horribly
*/
init_vars();
/* worst case */
emalloc(sourcefile, char **, argc * sizeof(char *), "main");
#ifdef STRICT /* strict Unix awk compatibility */
strict = 1;
#else
/* if invoked as 'awk', also behave strictly */
if ((cp = rindex(myname, '/')) != NULL)
cp++;
else
cp = myname;
if (STREQ(cp, "awk"))
strict = 1;
#endif
if (strict)
awk_opts[EXTENSIONS] = '\0';
while ((c = getopt (argc, argv, awk_opts)) != EOF) {
switch (c) {
#ifdef DEBUG
case 'd':
debugging++;
dotree++;
break;
case 'D':
debugging++;
yydebug = 2;
break;
#endif
case 'F':
set_fs(optarg);
break;
case 'f':
/*
* a la MKS awk, allow multiple -f options.
* this makes function libraries real easy.
* most of the magic is in the scanner.
*/
sourcefile[++numfiles] = optarg;
break;
case 'v':
fprintf(stderr, "%s", version_string);
break;
case 'V':
copyleft();
break;
case '?':
default:
/* getopt will print a message for us */
/* S5R4 awk ignores bad options and keeps going */
break;
}
}
#ifdef DEBUG
setbuf(stdout, (char *) NULL); /* make debugging easier */
#endif
/* No -f option, use next arg */
/* write to temp file and save sourcefile name */
if (numfiles == -1) {
int i;
if (optind > argc - 1) /* no args left */
usage();
numfiles++;
#ifdef MSDOS
if ((ptr = getenv ("TMP")) == NULL)
ptr = ".";
sprintf (template, TEMPLATE, ptr);
#else
strcpy (template, TEMPLATE);
#endif
sourcefile[0] = mktemp (template);
i = strlen (argv[optind]);
if ((fp = fopen (sourcefile[0], "w")) == NULL)
fatal("could not save source prog in temp file (%s)",
sys_errlist[errno]);
if (fwrite (argv[optind], 1, i, fp) == 0)
fatal(
"could not write source program to temp file (%s)",
sys_errlist[errno]);
if (argv[optind][i-1] != '\n')
putc ('\n', fp);
(void) fclose (fp);
tempsource++;
optind++;
}
init_args(optind, argc, myname, argv);
/* Read in the program */
if (yyparse() || errcount)
exit(1);
#ifdef DEBUG
if (dotree)
print_parse_tree(expression_value);
#endif
/* Set up the field variables */
init_fields();
if (begin_block)
(void) interpret(begin_block);
if (!exiting && (expression_value || end_block))
do_input();
if (end_block)
(void) interpret(end_block);
if (close_io() != 0 && exit_val == 0)
exit_val = 1;
exit(exit_val);
}
static void
usage()
{
#ifdef STRICT
char *opt1 = "[ -Ffs ] -f progfile [ -- ]";
char *opt2 = "[ -Ffs ] [ -- ] 'program'";
#else
char *opt1 = "[ -v ] [ -Ffs ] -f progfile [ -- ]";
char *opt2 = "[ -v ] [ -Ffs ] [ -- ] 'program'";
#endif
fprintf(stderr, "usage: %s %s file ...\n %s %s file ...\n",
myname, opt1, myname, opt2);
exit(11);
}
/* Generate compiled regular expressions */
struct re_pattern_buffer *
make_regexp(s, ignorecase)
NODE *s;
int ignorecase;
{
struct re_pattern_buffer *rp;
char *err;
emalloc(rp, struct re_pattern_buffer *, sizeof(*rp), "make_regexp");
bzero((char *) rp, sizeof(*rp));
emalloc(rp->buffer, char *, 8, "make_regexp");
rp->allocated = 8;
emalloc(rp->fastmap, char *, 256, "make_regexp");
if (! strict && ignorecase)
rp->translate = casetable;
else
rp->translate = NULL;
if ((err = re_compile_pattern(s->stptr, s->stlen, rp)) != NULL)
fatal("%s: /%s/", err, s->stptr);
free_temp(s);
return rp;
}
struct re_pattern_buffer *
mk_re_parse(s, ignorecase)
char *s;
int ignorecase;
{
register char *src, *dest;
register int c;
for (dest = src = s; *src != '\0'; src++) {
if (*src == '\\') {
c = *++src;
switch (c) {
case 'a':
if (strict)
goto def;
else
*dest++ = BELL;
break;
case 'b':
*dest++ = '\b';
break;
case 'f':
*dest++ = '\f';
break;
case 'n':
*dest++ = '\n';
break;
case 'r':
*dest++ = '\r';
break;
case 't':
*dest++ = '\t';
break;
case 'v':
if (strict)
goto def;
else
*dest++ = '\v';
break;
case 'x':
if (strict)
goto def;
else {
register int i = 0;
while ((c = *++src)) {
if (! isxdigit(c))
break;
if (isdigit(c))
i += c - '0';
else if (isupper(c))
i += c - 'A' + 10;
else
i += c - 'a' + 10;
}
*dest++ = i;
}
break;
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
{
register int i = c - '0';
register int count = 0;
while (++count < 3) {
if ((c = *++src) >= '0' && c <= '7') {
i *= 8;
i += c - '0';
} else
break;
}
*dest++ = i;
}
break;
default:
def:
*dest++ = '\\';
*dest++ = c;
break;
}
} else if (*src == '/')
break;
else
*dest++ = *src;
}
return make_regexp(tmp_string(s, dest-s), ignorecase);
}
copyleft ()
{
extern char *version_string;
char *cp;
static char blurb[] =
".\nCopyright (C) 1989, Free Software Foundation.\n\
GNU Awk comes with ABSOLUTELY NO WARRANTY. This is free software, and\n\
you are welcome to distribute it under the terms of the GNU General\n\
Public License, which covers both the warranty information and the\n\
terms for redistribution.\n\n\
You should have received a copy of the GNU General Public License along\n\
with this program; if not, write to the Free Software Foundation, Inc.,\n\
675 Mass Ave, Cambridge, MA 02139, USA.\n";
for (cp = version_string; *cp && *cp != '\n'; cp++)
putc (*cp, stderr);
fputs(blurb, stderr);
fflush(stderr);
}
/*** APPEND AFTER 558 IN x:awk1.c ***/
#ifdef AMIGA
#include <time.h>
char *mktemp(s)
char *s;
{
long timeVal;
char timeAry[4];
char tBuf[7];
struct tm *ut;
timeVal = time(NULL);
ut = localtime(&timeVal);
timeAry[0] = (unsigned char)ut->tm_hour;
timeAry[1] = (unsigned char)ut->tm_min;
timeAry[2] = (unsigned char)ut->tm_sec;
timeAry[3] = (unsigned char)0;
stptime(tBuf, 1, timeAry);
strmfe(s, s, tBuf);
return(s);
/* bugs: depends on s having a six character extension on input */
}
#endif
/*** APPEND AFTER 558 IN x:awk1.c ***/