[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gawk-diffs] [SCM] gawk branch, dead-branches/async-events, created. gaw
|
From: |
Arnold Robbins |
|
Subject: |
[gawk-diffs] [SCM] gawk branch, dead-branches/async-events, created. gawk-4.1.0-1270-g2ffb0a4 |
|
Date: |
Sun, 05 Apr 2015 08:02:54 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "gawk".
The branch, dead-branches/async-events has been created
at 2ffb0a464492db970de7971361051fb2fc046aa9 (commit)
- Log -----------------------------------------------------------------
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=2ffb0a464492db970de7971361051fb2fc046aa9
commit 2ffb0a464492db970de7971361051fb2fc046aa9
Author: Arnold D. Robbins <address@hidden>
Date: Sun Apr 5 11:01:22 2015 +0300
Update for after merge.
diff --git a/ChangeLog b/ChangeLog
index 84c60ba..357f825 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
2015-04-05 Arnold D. Robbins <address@hidden>
+ * gawkapi.h (GAWK_API_MINOR_VERSION): Bump up to 3.
+
+2015-04-05 Arnold D. Robbins <address@hidden>
+
* awkgram.y (install_builtins): If do_traditional is true, do not
install gawk extensions flagged with GAWKX. Similarly, if do_posix
is true, do not install functions flagged with NOT_POSIX.
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=b8b003714f5a726a2a0cb01c31c38fbfd00db85b
commit b8b003714f5a726a2a0cb01c31c38fbfd00db85b
Author: Arnold D. Robbins <address@hidden>
Date: Sun Apr 5 11:00:32 2015 +0300
Add a README file for the branch.
diff --git a/README.async-events b/README.async-events
new file mode 100644
index 0000000..23ea0e2
--- /dev/null
+++ b/README.async-events
@@ -0,0 +1,10 @@
+Sun Apr 5 10:57:51 IDT 2015
+============================
+
+This branch provides a simple hook for running functions defined in
+extensions that are meant to handle asynchronous events, such as signal
+handlers.
+
+Documentation for how to use this new facility still needs to be written.
+
+It would seem to be subsumed by the 'select' extension in gawkextlib.
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=3273c0c307d6347efd73525e32649d27484d3ebf
commit 3273c0c307d6347efd73525e32649d27484d3ebf
Merge: 9950c99 dbf9d5a
Author: Arnold D. Robbins <address@hidden>
Date: Sun Apr 5 10:56:45 2015 +0300
Merge branch 'master' into async-events
diff --cc gawkapi.c
index 4277cb9,9d8c6f3..be79287
--- a/gawkapi.c
+++ b/gawkapi.c
@@@ -1169,9 -1220,8 +1269,12 @@@ gawk_api_t api_impl =
realloc,
free,
+ /* Find/open a file */
+ api_get_file,
++
+ /* Asynchronous callbacks */
+ api_register_async_callback,
+ api_notify_async_event,
};
/* init_ext_api --- init the extension API */
diff --cc gawkapi.h
index 91bad13,3604e90..d965795
--- a/gawkapi.h
+++ b/gawkapi.h
@@@ -263,7 -263,7 +263,7 @@@ typedef struct awk_two_way_processor
/* Current version of the API. */
enum {
GAWK_API_MAJOR_VERSION = 1,
-- GAWK_API_MINOR_VERSION = 2
++ GAWK_API_MINOR_VERSION = 3
};
/* A number of typedefs related to different types of values. */
@@@ -682,12 -675,38 +682,45 @@@ typedef struct gawk_api
void *(*api_realloc)(void *ptr, size_t size);
void (*api_free)(void *ptr);
+ /*
+ * Look up a file. If the name is NULL or name_len is 0, it returns
+ * data for the currently open input file corresponding to FILENAME
+ * (and it will not access the filetype argument, so that may be
+ * undefined).
+ * If the file is not already open, it tries to open it.
+ * The "filetype" argument should be one of:
+ * ">", ">>", "<", "|>", "|<", and "|&"
+ * If the file is not already open, and the fd argument is non-negative,
+ * gawk will use that file descriptor instead of opening the file
+ * in the usual way. If the fd is non-negative, but the file exists
+ * already, gawk ignores the fd and returns the existing file. It is
+ * the caller's responsibility to notice that the fd in the returned
+ * awk_input_buf_t does not match the requested value. Note that
+ * supplying a file descriptor is currently NOT supported for pipes.
+ * It should work for input, output, append, and two-way (coprocess)
+ * sockets. If the filetype is two-way, we assume that it is a socket!
+ * Note that in the two-way case, the input and output file descriptors
+ * may differ. To check for success, one must check that either of
+ * them matches.
+ */
+ awk_bool_t (*api_get_file)(awk_ext_id_t id,
+ const char *name,
+ size_t name_len,
+ const char *filetype,
+ int fd,
+ /*
+ * Return values (on success, one or both should
+ * be non-NULL):
+ */
+ const awk_input_buf_t **ibufp,
+ const awk_output_buf_t **obufp);
++
+ /* Handling async events */
+ /* Register a call back */
+ void (*api_register_async_callback)(awk_ext_id_t id,
awk_async_callback_t *callback);
+
+ /* Tell gawk that something happened, it will call us when it's ready */
+ void (*api_notify_async_event)(awk_ext_id_t id);
} gawk_api_t;
#ifndef GAWK /* these are not for the gawk code itself! */
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=9950c99afad1ff58ce6e98e31947c46aea582b18
commit 9950c99afad1ff58ce6e98e31947c46aea582b18
Merge: af208ab cd2ff61
Author: Arnold D. Robbins <address@hidden>
Date: Tue Mar 17 22:56:23 2015 +0200
Merge branch 'master' into async-events
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=af208ab36268a922d8cfe32626a33256dafdc197
commit af208ab36268a922d8cfe32626a33256dafdc197
Merge: 5db8f0f 663ba79
Author: Arnold D. Robbins <address@hidden>
Date: Wed Feb 25 21:17:18 2015 +0200
Merge branch 'master' into async-events
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=5db8f0fb26448024865dd58a0920dd3e23a501cc
commit 5db8f0fb26448024865dd58a0920dd3e23a501cc
Author: Arnold D. Robbins <address@hidden>
Date: Wed Feb 18 21:17:13 2015 +0200
Add awkgram.c back.
diff --git a/awkgram.c b/awkgram.c
new file mode 100644
index 0000000..56987ff
--- /dev/null
+++ b/awkgram.c
@@ -0,0 +1,8287 @@
+/* A Bison parser, made by GNU Bison 3.0.4. */
+
+/* Bison implementation for Yacc-like parsers in C
+
+ Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
+
+ This program 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 3 of the License, or
+ (at your option) any later version.
+
+ This program 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 this program. If not, see <http://www.gnu.org/licenses/>. */
+
+/* As a special exception, you may create a larger work that contains
+ part or all of the Bison parser skeleton and distribute that work
+ under terms of your choice, so long as that work isn't itself a
+ parser generator using the skeleton or a modified version thereof
+ as a parser skeleton. Alternatively, if you modify or redistribute
+ the parser skeleton itself, you may (at your option) remove this
+ special exception, which will cause the skeleton and the resulting
+ Bison output files to be licensed under the GNU General Public
+ License without this special exception.
+
+ This special exception was added by the Free Software Foundation in
+ version 2.2 of Bison. */
+
+/* C LALR(1) parser skeleton written by Richard Stallman, by
+ simplifying the original so-called "semantic" parser. */
+
+/* All symbols defined below should begin with yy or YY, to avoid
+ infringing on user name space. This should be done even for local
+ variables, as they might otherwise be expanded by user macros.
+ There are some unavoidable exceptions within include files to
+ define necessary library symbols; they are noted "INFRINGES ON
+ USER NAME SPACE" below. */
+
+/* Identify Bison output. */
+#define YYBISON 1
+
+/* Bison version. */
+#define YYBISON_VERSION "3.0.4"
+
+/* Skeleton name. */
+#define YYSKELETON_NAME "yacc.c"
+
+/* Pure parsers. */
+#define YYPURE 0
+
+/* Push parsers. */
+#define YYPUSH 0
+
+/* Pull parsers. */
+#define YYPULL 1
+
+
+
+
+/* Copy the first part of user declarations. */
+#line 26 "awkgram.y" /* yacc.c:339 */
+
+#ifdef GAWKDEBUG
+#define YYDEBUG 12
+#endif
+
+#include "awk.h"
+
+#if defined(__STDC__) && __STDC__ < 1 /* VMS weirdness, maybe elsewhere */
+#define signed /**/
+#endif
+
+static void yyerror(const char *m, ...) ATTRIBUTE_PRINTF_1;
+static void error_ln(int line, const char *m, ...) ATTRIBUTE_PRINTF_2;
+static void lintwarn_ln(int line, const char *m, ...) ATTRIBUTE_PRINTF_2;
+static void warning_ln(int line, const char *m, ...) ATTRIBUTE_PRINTF_2;
+static char *get_src_buf(void);
+static int yylex(void);
+int yyparse(void);
+static INSTRUCTION *snode(INSTRUCTION *subn, INSTRUCTION *op);
+static char **check_params(char *fname, int pcount, INSTRUCTION *list);
+static int install_function(char *fname, INSTRUCTION *fi, INSTRUCTION *plist);
+static NODE *mk_rexp(INSTRUCTION *exp);
+static void param_sanity(INSTRUCTION *arglist);
+static int parms_shadow(INSTRUCTION *pc, bool *shadow);
+#ifndef NO_LINT
+static int isnoeffect(OPCODE type);
+#endif
+static INSTRUCTION *make_assignable(INSTRUCTION *ip);
+static void dumpintlstr(const char *str, size_t len);
+static void dumpintlstr2(const char *str1, size_t len1, const char *str2,
size_t len2);
+static int include_source(INSTRUCTION *file);
+static int load_library(INSTRUCTION *file);
+static void next_sourcefile(void);
+static char *tokexpand(void);
+
+#define instruction(t) bcalloc(t, 1, 0)
+
+static INSTRUCTION *mk_program(void);
+static INSTRUCTION *append_rule(INSTRUCTION *pattern, INSTRUCTION *action);
+static INSTRUCTION *mk_function(INSTRUCTION *fi, INSTRUCTION *def);
+static INSTRUCTION *mk_condition(INSTRUCTION *cond, INSTRUCTION *ifp,
INSTRUCTION *true_branch,
+ INSTRUCTION *elsep, INSTRUCTION *false_branch);
+static INSTRUCTION *mk_expression_list(INSTRUCTION *list, INSTRUCTION *s1);
+static INSTRUCTION *mk_for_loop(INSTRUCTION *forp, INSTRUCTION *init,
INSTRUCTION *cond,
+ INSTRUCTION *incr, INSTRUCTION *body);
+static void fix_break_continue(INSTRUCTION *list, INSTRUCTION *b_target,
INSTRUCTION *c_target);
+static INSTRUCTION *mk_binary(INSTRUCTION *s1, INSTRUCTION *s2, INSTRUCTION
*op);
+static INSTRUCTION *mk_boolean(INSTRUCTION *left, INSTRUCTION *right,
INSTRUCTION *op);
+static INSTRUCTION *mk_assignment(INSTRUCTION *lhs, INSTRUCTION *rhs,
INSTRUCTION *op);
+static INSTRUCTION *mk_getline(INSTRUCTION *op, INSTRUCTION *opt_var,
INSTRUCTION *redir, int redirtype);
+static NODE *make_regnode(int type, NODE *exp);
+static int count_expressions(INSTRUCTION **list, bool isarg);
+static INSTRUCTION *optimize_assignment(INSTRUCTION *exp);
+static void add_lint(INSTRUCTION *list, LINTTYPE linttype);
+
+enum defref { FUNC_DEFINE, FUNC_USE, FUNC_EXT };
+static void func_use(const char *name, enum defref how);
+static void check_funcs(void);
+
+static ssize_t read_one_line(int fd, void *buffer, size_t count);
+static int one_line_close(int fd);
+static void split_comment(void);
+static void check_comment(void);
+
+static bool at_seen = false;
+static bool want_source = false;
+static bool want_regexp = false; /* lexical scanning kludge */
+static char *in_function; /* parsing kludge */
+static int rule = 0;
+
+const char *const ruletab[] = {
+ "?",
+ "BEGIN",
+ "Rule",
+ "END",
+ "BEGINFILE",
+ "ENDFILE",
+};
+
+static bool in_print = false; /* lexical scanning kludge for print */
+static int in_parens = 0; /* lexical scanning kludge for print */
+static int sub_counter = 0; /* array dimension counter for use in delete */
+static char *lexptr = NULL; /* pointer to next char during parsing
*/
+static char *lexend;
+static char *lexptr_begin; /* keep track of where we were for error msgs */
+static char *lexeme; /* beginning of lexeme for debugging */
+static bool lexeof; /* seen EOF for current source? */
+static char *thisline = NULL;
+static int in_braces = 0; /* count braces for firstline, lastline in an
'action' */
+static int lastline = 0;
+static int firstline = 0;
+static SRCFILE *sourcefile = NULL; /* current program source */
+static int lasttok = 0;
+static bool eof_warned = false; /* GLOBAL: want warning for each file */
+static int break_allowed; /* kludge for break */
+static int continue_allowed; /* kludge for continue */
+
+#define END_FILE -1000
+#define END_SRC -2000
+
+#define YYDEBUG_LEXER_TEXT (lexeme)
+static char *tokstart = NULL;
+static char *tok = NULL;
+static char *tokend;
+static int errcount = 0;
+
+extern char *source;
+extern int sourceline;
+extern SRCFILE *srcfiles;
+extern INSTRUCTION *rule_list;
+extern int max_args;
+extern NODE **args_array;
+
+static INSTRUCTION *rule_block[sizeof(ruletab)];
+
+static INSTRUCTION *ip_rec;
+static INSTRUCTION *ip_newfile;
+static INSTRUCTION *ip_atexit = NULL;
+static INSTRUCTION *ip_end;
+static INSTRUCTION *ip_endfile;
+static INSTRUCTION *ip_beginfile;
+
+static INSTRUCTION *comment = NULL;
+static INSTRUCTION *program_comment = NULL;
+static INSTRUCTION *function_comment = NULL;
+static INSTRUCTION *block_comment = NULL;
+
+static bool func_first = true;
+static bool first_rule = true;
+
+static inline INSTRUCTION *list_create(INSTRUCTION *x);
+static inline INSTRUCTION *list_append(INSTRUCTION *l, INSTRUCTION *x);
+static inline INSTRUCTION *list_prepend(INSTRUCTION *l, INSTRUCTION *x);
+static inline INSTRUCTION *list_merge(INSTRUCTION *l1, INSTRUCTION *l2);
+
+extern double fmod(double x, double y);
+
+#define YYSTYPE INSTRUCTION *
+
+#line 206 "awkgram.c" /* yacc.c:339 */
+
+# ifndef YY_NULLPTR
+# if defined __cplusplus && 201103L <= __cplusplus
+# define YY_NULLPTR nullptr
+# else
+# define YY_NULLPTR 0
+# endif
+# endif
+
+/* Enabling verbose error messages. */
+#ifdef YYERROR_VERBOSE
+# undef YYERROR_VERBOSE
+# define YYERROR_VERBOSE 1
+#else
+# define YYERROR_VERBOSE 0
+#endif
+
+
+/* Debug traces. */
+#ifndef YYDEBUG
+# define YYDEBUG 0
+#endif
+#if YYDEBUG
+extern int yydebug;
+#endif
+
+/* Token type. */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+ enum yytokentype
+ {
+ FUNC_CALL = 258,
+ NAME = 259,
+ REGEXP = 260,
+ FILENAME = 261,
+ YNUMBER = 262,
+ YSTRING = 263,
+ RELOP = 264,
+ IO_OUT = 265,
+ IO_IN = 266,
+ ASSIGNOP = 267,
+ ASSIGN = 268,
+ MATCHOP = 269,
+ CONCAT_OP = 270,
+ SUBSCRIPT = 271,
+ LEX_BEGIN = 272,
+ LEX_END = 273,
+ LEX_IF = 274,
+ LEX_ELSE = 275,
+ LEX_RETURN = 276,
+ LEX_DELETE = 277,
+ LEX_SWITCH = 278,
+ LEX_CASE = 279,
+ LEX_DEFAULT = 280,
+ LEX_WHILE = 281,
+ LEX_DO = 282,
+ LEX_FOR = 283,
+ LEX_BREAK = 284,
+ LEX_CONTINUE = 285,
+ LEX_PRINT = 286,
+ LEX_PRINTF = 287,
+ LEX_NEXT = 288,
+ LEX_EXIT = 289,
+ LEX_FUNCTION = 290,
+ LEX_BEGINFILE = 291,
+ LEX_ENDFILE = 292,
+ LEX_GETLINE = 293,
+ LEX_NEXTFILE = 294,
+ LEX_IN = 295,
+ LEX_AND = 296,
+ LEX_OR = 297,
+ INCREMENT = 298,
+ DECREMENT = 299,
+ LEX_BUILTIN = 300,
+ LEX_LENGTH = 301,
+ LEX_EOF = 302,
+ LEX_INCLUDE = 303,
+ LEX_EVAL = 304,
+ LEX_LOAD = 305,
+ NEWLINE = 306,
+ SLASH_BEFORE_EQUAL = 307,
+ UNARY = 308
+ };
+#endif
+/* Tokens. */
+#define FUNC_CALL 258
+#define NAME 259
+#define REGEXP 260
+#define FILENAME 261
+#define YNUMBER 262
+#define YSTRING 263
+#define RELOP 264
+#define IO_OUT 265
+#define IO_IN 266
+#define ASSIGNOP 267
+#define ASSIGN 268
+#define MATCHOP 269
+#define CONCAT_OP 270
+#define SUBSCRIPT 271
+#define LEX_BEGIN 272
+#define LEX_END 273
+#define LEX_IF 274
+#define LEX_ELSE 275
+#define LEX_RETURN 276
+#define LEX_DELETE 277
+#define LEX_SWITCH 278
+#define LEX_CASE 279
+#define LEX_DEFAULT 280
+#define LEX_WHILE 281
+#define LEX_DO 282
+#define LEX_FOR 283
+#define LEX_BREAK 284
+#define LEX_CONTINUE 285
+#define LEX_PRINT 286
+#define LEX_PRINTF 287
+#define LEX_NEXT 288
+#define LEX_EXIT 289
+#define LEX_FUNCTION 290
+#define LEX_BEGINFILE 291
+#define LEX_ENDFILE 292
+#define LEX_GETLINE 293
+#define LEX_NEXTFILE 294
+#define LEX_IN 295
+#define LEX_AND 296
+#define LEX_OR 297
+#define INCREMENT 298
+#define DECREMENT 299
+#define LEX_BUILTIN 300
+#define LEX_LENGTH 301
+#define LEX_EOF 302
+#define LEX_INCLUDE 303
+#define LEX_EVAL 304
+#define LEX_LOAD 305
+#define NEWLINE 306
+#define SLASH_BEFORE_EQUAL 307
+#define UNARY 308
+
+/* Value type. */
+#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
+typedef int YYSTYPE;
+# define YYSTYPE_IS_TRIVIAL 1
+# define YYSTYPE_IS_DECLARED 1
+#endif
+
+
+extern YYSTYPE yylval;
+
+int yyparse (void);
+
+
+
+/* Copy the second part of user declarations. */
+
+#line 360 "awkgram.c" /* yacc.c:358 */
+
+#ifdef short
+# undef short
+#endif
+
+#ifdef YYTYPE_UINT8
+typedef YYTYPE_UINT8 yytype_uint8;
+#else
+typedef unsigned char yytype_uint8;
+#endif
+
+#ifdef YYTYPE_INT8
+typedef YYTYPE_INT8 yytype_int8;
+#else
+typedef signed char yytype_int8;
+#endif
+
+#ifdef YYTYPE_UINT16
+typedef YYTYPE_UINT16 yytype_uint16;
+#else
+typedef unsigned short int yytype_uint16;
+#endif
+
+#ifdef YYTYPE_INT16
+typedef YYTYPE_INT16 yytype_int16;
+#else
+typedef short int yytype_int16;
+#endif
+
+#ifndef YYSIZE_T
+# ifdef __SIZE_TYPE__
+# define YYSIZE_T __SIZE_TYPE__
+# elif defined size_t
+# define YYSIZE_T size_t
+# elif ! defined YYSIZE_T
+# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
+# define YYSIZE_T size_t
+# else
+# define YYSIZE_T unsigned int
+# endif
+#endif
+
+#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
+
+#ifndef YY_
+# if defined YYENABLE_NLS && YYENABLE_NLS
+# if ENABLE_NLS
+# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
+# define YY_(Msgid) dgettext ("bison-runtime", Msgid)
+# endif
+# endif
+# ifndef YY_
+# define YY_(Msgid) Msgid
+# endif
+#endif
+
+#ifndef YY_ATTRIBUTE
+# if (defined __GNUC__ \
+ && (2 < __GNUC__ || (__GNUC__ == 2 && 96 <= __GNUC_MINOR__))) \
+ || defined __SUNPRO_C && 0x5110 <= __SUNPRO_C
+# define YY_ATTRIBUTE(Spec) __attribute__(Spec)
+# else
+# define YY_ATTRIBUTE(Spec) /* empty */
+# endif
+#endif
+
+#ifndef YY_ATTRIBUTE_PURE
+# define YY_ATTRIBUTE_PURE YY_ATTRIBUTE ((__pure__))
+#endif
+
+#ifndef YY_ATTRIBUTE_UNUSED
+# define YY_ATTRIBUTE_UNUSED YY_ATTRIBUTE ((__unused__))
+#endif
+
+#if !defined _Noreturn \
+ && (!defined __STDC_VERSION__ || __STDC_VERSION__ < 201112)
+# if defined _MSC_VER && 1200 <= _MSC_VER
+# define _Noreturn __declspec (noreturn)
+# else
+# define _Noreturn YY_ATTRIBUTE ((__noreturn__))
+# endif
+#endif
+
+/* Suppress unused-variable warnings by "using" E. */
+#if ! defined lint || defined __GNUC__
+# define YYUSE(E) ((void) (E))
+#else
+# define YYUSE(E) /* empty */
+#endif
+
+#if defined __GNUC__ && 407 <= __GNUC__ * 100 + __GNUC_MINOR__
+/* Suppress an incorrect diagnostic about yylval being uninitialized. */
+# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN \
+ _Pragma ("GCC diagnostic push") \
+ _Pragma ("GCC diagnostic ignored \"-Wuninitialized\"")\
+ _Pragma ("GCC diagnostic ignored \"-Wmaybe-uninitialized\"")
+# define YY_IGNORE_MAYBE_UNINITIALIZED_END \
+ _Pragma ("GCC diagnostic pop")
+#else
+# define YY_INITIAL_VALUE(Value) Value
+#endif
+#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+# define YY_IGNORE_MAYBE_UNINITIALIZED_END
+#endif
+#ifndef YY_INITIAL_VALUE
+# define YY_INITIAL_VALUE(Value) /* Nothing. */
+#endif
+
+
+#if ! defined yyoverflow || YYERROR_VERBOSE
+
+/* The parser invokes alloca or malloc; define the necessary symbols. */
+
+# ifdef YYSTACK_USE_ALLOCA
+# if YYSTACK_USE_ALLOCA
+# ifdef __GNUC__
+# define YYSTACK_ALLOC __builtin_alloca
+# elif defined __BUILTIN_VA_ARG_INCR
+# include <alloca.h> /* INFRINGES ON USER NAME SPACE */
+# elif defined _AIX
+# define YYSTACK_ALLOC __alloca
+# elif defined _MSC_VER
+# include <malloc.h> /* INFRINGES ON USER NAME SPACE */
+# define alloca _alloca
+# else
+# define YYSTACK_ALLOC alloca
+# if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS
+# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
+ /* Use EXIT_SUCCESS as a witness for stdlib.h. */
+# ifndef EXIT_SUCCESS
+# define EXIT_SUCCESS 0
+# endif
+# endif
+# endif
+# endif
+# endif
+
+# ifdef YYSTACK_ALLOC
+ /* Pacify GCC's 'empty if-body' warning. */
+# define YYSTACK_FREE(Ptr) do { /* empty */; } while (0)
+# ifndef YYSTACK_ALLOC_MAXIMUM
+ /* The OS might guarantee only one guard page at the bottom of the stack,
+ and a page size can be as small as 4096 bytes. So we cannot safely
+ invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
+ to allow for a few compiler-allocated temporary stack slots. */
+# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
+# endif
+# else
+# define YYSTACK_ALLOC YYMALLOC
+# define YYSTACK_FREE YYFREE
+# ifndef YYSTACK_ALLOC_MAXIMUM
+# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
+# endif
+# if (defined __cplusplus && ! defined EXIT_SUCCESS \
+ && ! ((defined YYMALLOC || defined malloc) \
+ && (defined YYFREE || defined free)))
+# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
+# ifndef EXIT_SUCCESS
+# define EXIT_SUCCESS 0
+# endif
+# endif
+# ifndef YYMALLOC
+# define YYMALLOC malloc
+# if ! defined malloc && ! defined EXIT_SUCCESS
+void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
+# endif
+# endif
+# ifndef YYFREE
+# define YYFREE free
+# if ! defined free && ! defined EXIT_SUCCESS
+void free (void *); /* INFRINGES ON USER NAME SPACE */
+# endif
+# endif
+# endif
+#endif /* ! defined yyoverflow || YYERROR_VERBOSE */
+
+
+#if (! defined yyoverflow \
+ && (! defined __cplusplus \
+ || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
+
+/* A type that is properly aligned for any stack member. */
+union yyalloc
+{
+ yytype_int16 yyss_alloc;
+ YYSTYPE yyvs_alloc;
+};
+
+/* The size of the maximum gap between one aligned stack and the next. */
+# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
+
+/* The size of an array large to enough to hold all stacks, each with
+ N elements. */
+# define YYSTACK_BYTES(N) \
+ ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
+ + YYSTACK_GAP_MAXIMUM)
+
+# define YYCOPY_NEEDED 1
+
+/* Relocate STACK from its old location to the new one. The
+ local variables YYSIZE and YYSTACKSIZE give the old and new number of
+ elements in the stack, and YYPTR gives the new location of the
+ stack. Advance YYPTR to a properly aligned location for the next
+ stack. */
+# define YYSTACK_RELOCATE(Stack_alloc, Stack) \
+ do \
+ { \
+ YYSIZE_T yynewbytes; \
+ YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
+ Stack = &yyptr->Stack_alloc; \
+ yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
+ yyptr += yynewbytes / sizeof (*yyptr); \
+ } \
+ while (0)
+
+#endif
+
+#if defined YYCOPY_NEEDED && YYCOPY_NEEDED
+/* Copy COUNT objects from SRC to DST. The source and destination do
+ not overlap. */
+# ifndef YYCOPY
+# if defined __GNUC__ && 1 < __GNUC__
+# define YYCOPY(Dst, Src, Count) \
+ __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src)))
+# else
+# define YYCOPY(Dst, Src, Count) \
+ do \
+ { \
+ YYSIZE_T yyi; \
+ for (yyi = 0; yyi < (Count); yyi++) \
+ (Dst)[yyi] = (Src)[yyi]; \
+ } \
+ while (0)
+# endif
+# endif
+#endif /* !YYCOPY_NEEDED */
+
+/* YYFINAL -- State number of the termination state. */
+#define YYFINAL 2
+/* YYLAST -- Last index in YYTABLE. */
+#define YYLAST 1155
+
+/* YYNTOKENS -- Number of terminals. */
+#define YYNTOKENS 75
+/* YYNNTS -- Number of nonterminals. */
+#define YYNNTS 65
+/* YYNRULES -- Number of rules. */
+#define YYNRULES 188
+/* YYNSTATES -- Number of states. */
+#define YYNSTATES 335
+
+/* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned
+ by yylex, with out-of-bounds checking. */
+#define YYUNDEFTOK 2
+#define YYMAXUTOK 308
+
+#define YYTRANSLATE(YYX) \
+ ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
+
+/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM
+ as returned by yylex, without out-of-bounds checking. */
+static const yytype_uint8 yytranslate[] =
+{
+ 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 63, 2, 2, 66, 62, 2, 2,
+ 67, 68, 60, 58, 55, 59, 2, 61, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 54, 74,
+ 56, 2, 57, 53, 69, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 70, 2, 71, 65, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 72, 2, 73, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
+ 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
+ 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
+ 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
+ 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
+ 45, 46, 47, 48, 49, 50, 51, 52, 64
+};
+
+#if YYDEBUG
+ /* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
+static const yytype_uint16 yyrline[] =
+{
+ 0, 205, 205, 207, 212, 213, 217, 229, 234, 245,
+ 251, 257, 266, 274, 276, 281, 289, 291, 297, 305,
+ 315, 345, 359, 373, 381, 392, 404, 406, 408, 414,
+ 422, 423, 427, 462, 461, 495, 497, 502, 508, 537,
+ 542, 543, 547, 549, 551, 558, 648, 690, 732, 845,
+ 852, 859, 869, 878, 887, 896, 907, 923, 922, 946,
+ 958, 958, 1056, 1056, 1089, 1119, 1125, 1126, 1132, 1133,
+ 1140, 1145, 1157, 1171, 1173, 1181, 1186, 1188, 1196, 1198,
+ 1207, 1208, 1216, 1221, 1221, 1232, 1236, 1244, 1245, 1248,
+ 1250, 1255, 1256, 1265, 1266, 1271, 1276, 1282, 1284, 1286,
+ 1293, 1294, 1300, 1301, 1306, 1308, 1313, 1315, 1323, 1328,
+ 1337, 1344, 1346, 1348, 1364, 1374, 1381, 1383, 1388, 1390,
+ 1392, 1400, 1402, 1407, 1409, 1414, 1416, 1418, 1468, 1470,
+ 1472, 1474, 1476, 1478, 1480, 1482, 1496, 1501, 1506, 1531,
+ 1537, 1539, 1541, 1543, 1545, 1547, 1552, 1556, 1588, 1590,
+ 1596, 1602, 1615, 1616, 1617, 1622, 1627, 1631, 1635, 1650,
+ 1663, 1668, 1705, 1734, 1735, 1741, 1742, 1747, 1749, 1756,
+ 1773, 1790, 1792, 1799, 1804, 1812, 1822, 1834, 1843, 1847,
+ 1851, 1855, 1859, 1863, 1866, 1868, 1872, 1876, 1880
+};
+#endif
+
+#if YYDEBUG || YYERROR_VERBOSE || 0
+/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
+ First, the terminals, then, starting at YYNTOKENS, nonterminals. */
+static const char *const yytname[] =
+{
+ "$end", "error", "$undefined", "FUNC_CALL", "NAME", "REGEXP",
+ "FILENAME", "YNUMBER", "YSTRING", "RELOP", "IO_OUT", "IO_IN", "ASSIGNOP",
+ "ASSIGN", "MATCHOP", "CONCAT_OP", "SUBSCRIPT", "LEX_BEGIN", "LEX_END",
+ "LEX_IF", "LEX_ELSE", "LEX_RETURN", "LEX_DELETE", "LEX_SWITCH",
+ "LEX_CASE", "LEX_DEFAULT", "LEX_WHILE", "LEX_DO", "LEX_FOR", "LEX_BREAK",
+ "LEX_CONTINUE", "LEX_PRINT", "LEX_PRINTF", "LEX_NEXT", "LEX_EXIT",
+ "LEX_FUNCTION", "LEX_BEGINFILE", "LEX_ENDFILE", "LEX_GETLINE",
+ "LEX_NEXTFILE", "LEX_IN", "LEX_AND", "LEX_OR", "INCREMENT", "DECREMENT",
+ "LEX_BUILTIN", "LEX_LENGTH", "LEX_EOF", "LEX_INCLUDE", "LEX_EVAL",
+ "LEX_LOAD", "NEWLINE", "SLASH_BEFORE_EQUAL", "'?'", "':'", "','", "'<'",
+ "'>'", "'+'", "'-'", "'*'", "'/'", "'%'", "'!'", "UNARY", "'^'", "'$'",
+ "'('", "')'", "'@'", "'['", "']'", "'{'", "'}'", "';'", "$accept",
+ "program", "rule", "source", "library", "pattern", "action", "func_name",
+ "lex_builtin", "function_prologue", "regexp", "address@hidden", "a_slash",
+ "statements", "statement_term", "statement", "non_compound_stmt",
"address@hidden",
+ "simple_stmt", "address@hidden", "address@hidden", "opt_simple_stmt",
"case_statements",
+ "case_statement", "case_value", "print", "print_expression_list",
+ "output_redir", "address@hidden", "if_statement", "nls", "opt_nls",
"input_redir",
+ "opt_param_list", "param_list", "opt_exp", "opt_expression_list",
+ "expression_list", "exp", "assign_operator", "relop_or_less", "a_relop",
+ "common_exp", "simp_exp", "simp_exp_nc", "non_post_simp_exp",
+ "func_call", "direct_func_call", "opt_variable", "delete_subscript_list",
+ "delete_subscript", "delete_exp_list", "bracketed_exp_list", "subscript",
+ "subscript_list", "simple_variable", "variable", "opt_incdec", "l_brace",
+ "r_brace", "r_paren", "opt_semi", "semi", "colon", "comma", YY_NULLPTR
+};
+#endif
+
+# ifdef YYPRINT
+/* YYTOKNUM[NUM] -- (External) token number corresponding to the
+ (internal) symbol number NUM (which must be that of a token). */
+static const yytype_uint16 yytoknum[] =
+{
+ 0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
+ 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
+ 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
+ 285, 286, 287, 288, 289, 290, 291, 292, 293, 294,
+ 295, 296, 297, 298, 299, 300, 301, 302, 303, 304,
+ 305, 306, 307, 63, 58, 44, 60, 62, 43, 45,
+ 42, 47, 37, 33, 308, 94, 36, 40, 41, 64,
+ 91, 93, 123, 125, 59
+};
+# endif
+
+#define YYPACT_NINF -273
+
+#define yypact_value_is_default(Yystate) \
+ (!!((Yystate) == (-273)))
+
+#define YYTABLE_NINF -104
+
+#define yytable_value_is_error(Yytable_value) \
+ (!!((Yytable_value) == (-104)))
+
+ /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
+ STATE-NUM. */
+static const yytype_int16 yypact[] =
+{
+ -273, 376, -273, -273, -27, -21, -273, -273, -273, -273,
+ 157, -273, -273, 11, 11, 11, -5, -3, -273, -273,
+ -273, 1019, 1019, -273, 1019, 1065, 821, 116, -273, -20,
+ 1, -273, -273, 35, 758, 992, 252, 296, -273, -273,
+ -273, -273, 233, 789, 821, -273, 2, -273, -273, -273,
+ -273, -273, 63, 54, -273, 69, -273, -273, -273, 789,
+ 789, 127, 87, 115, 87, 87, 1019, 131, -273, -273,
+ 55, 295, 40, 47, -273, 83, -273, -273, -273, 35,
+ -273, 83, -273, 151, -273, -273, 1019, 132, 1019, 1019,
+ 1019, 83, -273, -273, -273, 1019, 124, 252, 1019, 1019,
+ 1019, 1019, 1019, 1019, 1019, 1019, 1019, 1019, 1019, 1019,
+ -273, -273, -273, -273, 152, 1019, 100, 16, 1034, 37,
+ -273, -273, -273, 43, 1019, -273, 100, 100, 295, -273,
+ -273, -273, 1019, 83, -273, 137, 867, -273, -273, 75,
+ -19, -273, 77, -19, 35, -273, 596, -273, -273, 123,
+ -273, 141, 175, 1098, 1019, 161, 11, -26, -26, 87,
+ 87, 87, 87, -26, -26, 87, 87, 87, 87, -273,
+ 1034, -273, -273, -273, -273, 100, 65, 252, -273, -273,
+ 1034, -273, 132, -273, 1034, -273, -273, -273, -273, -273,
+ 104, -273, 26, 118, 119, 83, 121, -19, -19, -273,
+ -273, -19, 1019, -19, 83, -273, -273, -19, -273, -273,
+ 1034, -273, 117, 83, 1019, 1034, -273, 83, -273, 112,
+ -273, 1019, 1019, -273, 188, 1019, 1019, 710, 900, -273,
+ -273, -273, -19, 1034, -273, -273, -273, 642, 596, 83,
+ -273, -273, 1034, -273, -273, -273, 295, -19, -21, 126,
+ 295, 295, 169, -13, -273, 117, -273, 821, 186, -273,
+ -273, -273, 83, -273, -273, 13, -273, -273, -273, 83,
+ 83, 139, 132, 83, 55, -273, -273, 710, -273, -273,
+ 1, 710, 1019, 100, 743, 137, 1019, 192, -273, -273,
+ 295, 83, 286, 83, 992, 83, 44, 83, 710, 83,
+ 946, 710, -273, 247, 154, -273, 156, -273, -273, 946,
+ 100, -273, -273, -273, 226, 228, -273, 154, -273, 83,
+ -273, 100, 83, -273, -273, 83, -273, 83, 710, -273,
+ 448, 710, -273, 522, -273
+};
+
+ /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM.
+ Performed when YYTABLE does not specify something else to do. Zero
+ means the default is an error. */
+static const yytype_uint8 yydefact[] =
+{
+ 2, 0, 1, 6, 0, 174, 156, 157, 21, 22,
+ 0, 23, 24, 163, 0, 0, 0, 151, 5, 87,
+ 36, 0, 0, 35, 0, 0, 0, 0, 3, 0,
+ 0, 146, 33, 4, 19, 117, 125, 126, 128, 152,
+ 160, 176, 153, 0, 0, 171, 0, 175, 27, 26,
+ 30, 31, 0, 0, 28, 91, 164, 154, 155, 0,
+ 0, 0, 159, 153, 158, 147, 0, 180, 153, 106,
+ 0, 104, 0, 0, 161, 89, 186, 7, 8, 40,
+ 37, 89, 9, 0, 88, 121, 0, 0, 0, 0,
+ 0, 89, 122, 124, 123, 0, 0, 127, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 119, 118, 136, 137, 0, 0, 0, 0, 104, 0,
+ 173, 172, 29, 0, 0, 135, 0, 0, 0, 178,
+ 179, 177, 107, 89, 183, 0, 0, 148, 14, 0,
+ 0, 17, 0, 0, 90, 181, 0, 41, 34, 113,
+ 114, 111, 112, 0, 0, 115, 163, 133, 134, 130,
+ 131, 132, 129, 144, 145, 141, 142, 143, 140, 120,
+ 110, 162, 170, 97, 95, 0, 0, 92, 149, 150,
+ 108, 188, 0, 109, 105, 13, 10, 16, 11, 39,
+ 0, 57, 0, 0, 0, 89, 0, 0, 0, 78,
+ 79, 0, 100, 0, 89, 38, 51, 0, 60, 44,
+ 65, 37, 184, 89, 0, 20, 139, 89, 98, 0,
+ 138, 0, 100, 62, 0, 0, 0, 0, 66, 52,
+ 53, 54, 0, 101, 55, 182, 59, 0, 0, 89,
+ 185, 42, 116, 32, 99, 96, 0, 0, 165, 0,
+ 0, 0, 0, 174, 67, 0, 56, 0, 82, 80,
+ 43, 25, 89, 58, 63, 0, 167, 169, 64, 89,
+ 89, 0, 0, 89, 0, 83, 61, 0, 166, 168,
+ 0, 0, 0, 0, 0, 81, 0, 85, 68, 46,
+ 0, 89, 0, 89, 84, 89, 0, 89, 0, 89,
+ 66, 0, 70, 0, 0, 69, 0, 47, 48, 66,
+ 0, 86, 73, 76, 0, 0, 77, 0, 187, 89,
+ 45, 0, 89, 75, 74, 89, 37, 89, 0, 37,
+ 0, 0, 50, 0, 49
+};
+
+ /* YYPGOTO[NTERM-NUM]. */
+static const yytype_int16 yypgoto[] =
+{
+ -273, -273, -273, -273, -273, -273, 208, -273, -273, -273,
+ -64, -273, -273, -202, 71, -58, -273, -273, -218, -273,
+ -273, -272, -273, -273, -273, -273, -273, -273, -273, -273,
+ 50, 76, -273, -273, -273, 19, -54, -23, -1, -273,
+ -273, -273, -44, 39, -273, 224, -273, -11, 94, -273,
+ -273, -7, -38, -273, -273, -73, -2, -273, -28, -231,
+ -46, -273, -25, -57, 85
+};
+
+ /* YYDEFGOTO[NTERM-NUM]. */
+static const yytype_int16 yydefgoto[] =
+{
+ -1, 1, 28, 140, 143, 29, 77, 53, 54, 30,
+ 31, 83, 32, 146, 78, 205, 206, 222, 207, 237,
+ 248, 255, 296, 305, 317, 208, 258, 276, 286, 209,
+ 144, 145, 125, 175, 176, 232, 116, 117, 210, 115,
+ 94, 95, 35, 36, 37, 38, 39, 40, 55, 264,
+ 265, 266, 45, 46, 47, 41, 42, 131, 211, 212,
+ 137, 239, 213, 319, 136
+};
+
+ /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If
+ positive, shift that token. If negative, reduce the rule whose
+ number is the opposite. If YYTABLE_NINF, syntax error. */
+static const yytype_int16 yytable[] =
+{
+ 34, 80, 80, 70, 81, 126, 127, 260, 121, 238,
+ 254, 56, 57, 58, 150, 5, 74, 132, 120, 63,
+ 63, 119, 63, 68, 135, 71, -103, 272, 310, 278,
+ 223, 19, 19, 63, 100, 101, 102, 321, 132, 103,
+ 43, 138, 118, 118, 173, 302, 139, 174, 141, 44,
+ 74, 33, 75, 142, 76, 76, 132, 44, 118, 118,
+ 62, 64, 59, 65, 60, 128, 218, -103, 303, 304,
+ 171, 133, 44, 75, 97, 320, 185, 25, 187, 79,
+ 178, 179, 254, 44, -103, 149, 84, 151, 152, 153,
+ -103, 254, 133, 224, 155, 19, 63, 63, 63, 63,
+ 63, 63, 63, 63, 63, 63, 63, 63, 172, 220,
+ 133, -93, 122, 244, 170, 81, 245, -89, 81, 4,
+ 133, 123, 63, 134, 330, 124, -12, 333, -15, 217,
+ 4, 180, 85, -94, 19, 184, 5, 157, 158, 159,
+ 160, 161, 162, 163, 164, 165, 166, 167, 168, -12,
+ 85, -15, 103, 215, 56, 86, 148, 147, 112, 113,
+ 48, 49, 156, 177, 72, 169, 73, 154, 134, 252,
+ -104, 221, 81, 81, 129, 130, 81, 182, 81, 92,
+ 93, 87, 81, 259, 85, 225, 226, 240, 228, 86,
+ 79, 76, 249, 79, 268, 271, 275, 92, 93, 283,
+ 262, 233, 50, 51, 269, 270, 282, 81, 318, 181,
+ 267, 186, 295, 242, 188, 87, 88, -104, -104, 287,
+ 246, 233, 81, 289, 250, 251, 52, 267, 285, 204,
+ 273, 92, 93, 323, 274, 324, 118, 291, 82, 316,
+ 308, 247, 294, 311, 297, 110, 111, 79, 79, 67,
+ 216, 79, 288, 79, 312, 313, 71, 79, 279, 293,
+ 325, 219, 0, 0, 322, 0, 0, 299, 229, 230,
+ 332, 227, 231, 334, 234, 327, 112, 113, 236, 0,
+ 235, 290, 79, 292, 63, 114, 0, 0, 0, 241,
+ 0, 0, 63, 243, 0, 85, 0, 79, 0, 20,
+ 86, 0, 0, 256, 85, 314, 315, 0, 23, 86,
+ 98, 99, 100, 101, 102, 261, 0, 103, 263, 0,
+ 0, 0, 0, 0, 0, 0, 87, 88, 89, 0,
+ 0, 0, 0, 97, 0, 87, 88, 89, 277, 90,
+ 0, 0, 92, 93, 0, 280, 281, 0, 90, 284,
+ 0, 92, 93, 0, 104, 105, 106, 107, 108, 0,
+ 76, 109, 0, 134, 0, 0, 0, 298, 0, 300,
+ 0, 301, 306, 307, 0, 309, 2, 3, 0, 4,
+ 5, 0, 0, 6, 7, 0, 0, 0, 0, 0,
+ 0, 0, 0, 8, 9, 326, 0, 0, 328, 0,
+ 0, 329, 0, 331, 0, 0, 0, 0, 0, 0,
+ 0, 10, 11, 12, 13, 0, 0, 0, 0, 14,
+ 15, 16, 17, 18, 0, 0, 0, 19, 20, 0,
+ 0, 0, 0, 0, 21, 22, 0, 23, 0, 24,
+ 0, 0, 25, 26, 0, 27, 0, 0, -18, 189,
+ -18, 4, 5, 0, 0, 6, 7, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 190, 0, 191,
+ 192, 193, -72, -72, 194, 195, 196, 197, 198, 199,
+ 200, 201, 202, 0, 0, 0, 13, 203, 0, 0,
+ 0, 14, 15, 16, 17, 0, 0, 0, 0, -72,
+ 20, 0, 0, 0, 0, 0, 21, 22, 0, 23,
+ 0, 24, 0, 0, 25, 26, 0, 61, 0, 0,
+ 75, -72, 76, 189, 0, 4, 5, 0, 0, 6,
+ 7, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 190, 0, 191, 192, 193, -71, -71, 194, 195,
+ 196, 197, 198, 199, 200, 201, 202, 0, 0, 0,
+ 13, 203, 0, 0, 0, 14, 15, 16, 17, 0,
+ 0, 0, 0, -71, 20, 0, 0, 0, 0, 0,
+ 21, 22, 0, 23, 0, 24, 0, 0, 25, 26,
+ 0, 61, 0, 0, 75, -71, 76, 189, 0, 4,
+ 5, 0, 0, 6, 7, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 190, 0, 191, 192, 193,
+ 0, 0, 194, 195, 196, 197, 198, 199, 200, 201,
+ 202, 0, 0, 0, 13, 203, 0, 0, 0, 14,
+ 15, 16, 17, 69, 0, 4, 5, 0, 20, 6,
+ 7, 0, -102, 0, 21, 22, 0, 23, 0, 24,
+ 0, 0, 25, 26, 0, 61, 0, 0, 75, 204,
+ 76, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 13, 0, 0, 0, 0, 14, 15, 16, 17, 0,
+ 0, 0, 0, -102, 20, 0, 0, 0, 0, 0,
+ 21, 22, 0, 23, 0, 24, 0, 0, 25, 257,
+ -102, 61, 0, 4, 5, 0, -102, 6, 7, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 190,
+ 0, 191, 192, 193, 0, 0, 194, 195, 196, 197,
+ 198, 199, 200, 201, 202, 0, 4, 5, 13, 203,
+ 6, 7, 0, 14, 15, 16, 17, 0, 0, 0,
+ 0, 0, 20, 0, 0, 0, 0, 85, 21, 22,
+ 0, 23, 86, 24, 0, 0, 25, 26, 0, 61,
+ 0, 13, 75, 0, 76, 0, 14, 15, 16, 17,
+ 69, 0, 4, 5, 0, 20, 6, 7, 87, 88,
+ 89, 21, 22, 0, 23, 0, 24, 0, 0, 25,
+ 26, 90, 61, 91, 92, 93, 0, 76, 0, 0,
+ 0, 0, 69, 0, 4, 5, 0, 13, 6, 7,
+ 0, 0, 14, 15, 16, 17, 0, 0, 0, 0,
+ 0, 20, 0, 0, 0, 0, 0, 21, 22, 0,
+ 23, 0, 24, 0, 0, 25, 26, -102, 61, 13,
+ 0, 0, 0, 0, 14, 15, 16, 17, 183, 0,
+ 4, 5, 0, 20, 6, 7, 0, 0, 0, 21,
+ 22, 0, 23, 0, 24, 0, 0, 25, 26, 0,
+ 61, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 4, 253, 13, 0, 6, 7, 0,
+ 14, 15, 16, 17, 0, 0, 0, 0, 0, 20,
+ 0, 0, 192, 0, 0, 21, 22, 0, 23, 0,
+ 24, 199, 200, 25, 26, 0, 61, 0, 13, 0,
+ 0, 0, 0, 14, 15, 16, 17, 0, 0, 4,
+ 5, 0, 20, 6, 7, 0, 0, 0, 21, 22,
+ 0, 23, 0, 24, 0, 0, 25, 26, 192, 61,
+ 0, 0, 0, 0, 0, 0, 0, 199, 200, 0,
+ 0, 0, 0, 0, 13, 0, 0, 0, 0, 14,
+ 15, 16, 17, 0, 0, 4, 5, 0, 20, 6,
+ 7, 0, 0, 96, 21, 22, 0, 23, 0, 24,
+ 0, 0, 25, 26, 0, 61, 0, 0, 0, 0,
+ 0, 0, 4, 5, 0, 0, 6, 7, 0, 0,
+ 13, 0, 0, 0, 0, 14, 15, 16, 17, 0,
+ 0, 0, 0, 85, 20, 0, 0, 0, 86, 0,
+ 21, 22, 0, 23, 0, 24, 0, 13, 25, 26,
+ 0, 61, 14, 15, 16, 17, 0, 0, 4, 5,
+ 0, 20, 6, 7, 87, 88, 89, 21, 22, 0,
+ 23, 0, 24, 0, 0, 25, 26, 90, 61, 0,
+ 92, 93, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 85, 14, 15,
+ 16, 17, 86, 0, 0, 0, 0, 20, 0, 0,
+ 0, 0, 0, 21, 22, 0, 23, 0, 24, 0,
+ 0, 25, 66, 0, 61, 0, 0, 0, 87, 88,
+ 89, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 90, 214, 0, 92, 93
+};
+
+static const yytype_int16 yycheck[] =
+{
+ 1, 29, 30, 26, 29, 59, 60, 238, 46, 211,
+ 228, 13, 14, 15, 87, 4, 27, 1, 16, 21,
+ 22, 44, 24, 25, 70, 26, 10, 40, 300, 16,
+ 4, 51, 51, 35, 60, 61, 62, 309, 1, 65,
+ 67, 1, 43, 44, 1, 1, 6, 4, 1, 70,
+ 61, 1, 72, 6, 74, 74, 1, 70, 59, 60,
+ 21, 22, 67, 24, 67, 66, 1, 51, 24, 25,
+ 116, 55, 70, 72, 35, 306, 1, 66, 1, 29,
+ 126, 127, 300, 70, 68, 86, 51, 88, 89, 90,
+ 74, 309, 55, 67, 95, 51, 98, 99, 100, 101,
+ 102, 103, 104, 105, 106, 107, 108, 109, 71, 182,
+ 55, 68, 49, 1, 115, 140, 4, 73, 143, 3,
+ 55, 67, 124, 68, 326, 56, 51, 329, 51, 175,
+ 3, 132, 9, 68, 51, 136, 4, 98, 99, 100,
+ 101, 102, 103, 104, 105, 106, 107, 108, 109, 74,
+ 9, 74, 65, 154, 156, 14, 5, 81, 43, 44,
+ 3, 4, 38, 124, 48, 13, 50, 91, 68, 227,
+ 9, 67, 197, 198, 43, 44, 201, 40, 203, 56,
+ 57, 40, 207, 237, 9, 67, 67, 212, 67, 14,
+ 140, 74, 4, 143, 68, 26, 10, 56, 57, 272,
+ 246, 202, 45, 46, 250, 251, 67, 232, 54, 133,
+ 248, 140, 20, 214, 143, 40, 41, 56, 57, 277,
+ 221, 222, 247, 281, 225, 226, 69, 265, 274, 73,
+ 255, 56, 57, 7, 257, 7, 237, 283, 30, 303,
+ 298, 222, 286, 301, 290, 12, 13, 197, 198, 25,
+ 156, 201, 280, 203, 7, 8, 257, 207, 265, 284,
+ 317, 176, -1, -1, 310, -1, -1, 292, 197, 198,
+ 328, 195, 201, 331, 203, 321, 43, 44, 207, -1,
+ 204, 282, 232, 284, 286, 52, -1, -1, -1, 213,
+ -1, -1, 294, 217, -1, 9, -1, 247, -1, 52,
+ 14, -1, -1, 232, 9, 58, 59, -1, 61, 14,
+ 58, 59, 60, 61, 62, 239, -1, 65, 247, -1,
+ -1, -1, -1, -1, -1, -1, 40, 41, 42, -1,
+ -1, -1, -1, 294, -1, 40, 41, 42, 262, 53,
+ -1, -1, 56, 57, -1, 269, 270, -1, 53, 273,
+ -1, 56, 57, -1, 58, 59, 60, 61, 62, -1,
+ 74, 65, -1, 68, -1, -1, -1, 291, -1, 293,
+ -1, 295, 296, 297, -1, 299, 0, 1, -1, 3,
+ 4, -1, -1, 7, 8, -1, -1, -1, -1, -1,
+ -1, -1, -1, 17, 18, 319, -1, -1, 322, -1,
+ -1, 325, -1, 327, -1, -1, -1, -1, -1, -1,
+ -1, 35, 36, 37, 38, -1, -1, -1, -1, 43,
+ 44, 45, 46, 47, -1, -1, -1, 51, 52, -1,
+ -1, -1, -1, -1, 58, 59, -1, 61, -1, 63,
+ -1, -1, 66, 67, -1, 69, -1, -1, 72, 1,
+ 74, 3, 4, -1, -1, 7, 8, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, 19, -1, 21,
+ 22, 23, 24, 25, 26, 27, 28, 29, 30, 31,
+ 32, 33, 34, -1, -1, -1, 38, 39, -1, -1,
+ -1, 43, 44, 45, 46, -1, -1, -1, -1, 51,
+ 52, -1, -1, -1, -1, -1, 58, 59, -1, 61,
+ -1, 63, -1, -1, 66, 67, -1, 69, -1, -1,
+ 72, 73, 74, 1, -1, 3, 4, -1, -1, 7,
+ 8, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, 19, -1, 21, 22, 23, 24, 25, 26, 27,
+ 28, 29, 30, 31, 32, 33, 34, -1, -1, -1,
+ 38, 39, -1, -1, -1, 43, 44, 45, 46, -1,
+ -1, -1, -1, 51, 52, -1, -1, -1, -1, -1,
+ 58, 59, -1, 61, -1, 63, -1, -1, 66, 67,
+ -1, 69, -1, -1, 72, 73, 74, 1, -1, 3,
+ 4, -1, -1, 7, 8, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, 19, -1, 21, 22, 23,
+ -1, -1, 26, 27, 28, 29, 30, 31, 32, 33,
+ 34, -1, -1, -1, 38, 39, -1, -1, -1, 43,
+ 44, 45, 46, 1, -1, 3, 4, -1, 52, 7,
+ 8, -1, 10, -1, 58, 59, -1, 61, -1, 63,
+ -1, -1, 66, 67, -1, 69, -1, -1, 72, 73,
+ 74, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ 38, -1, -1, -1, -1, 43, 44, 45, 46, -1,
+ -1, -1, -1, 51, 52, -1, -1, -1, -1, -1,
+ 58, 59, -1, 61, -1, 63, -1, -1, 66, 67,
+ 68, 69, -1, 3, 4, -1, 74, 7, 8, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, 19,
+ -1, 21, 22, 23, -1, -1, 26, 27, 28, 29,
+ 30, 31, 32, 33, 34, -1, 3, 4, 38, 39,
+ 7, 8, -1, 43, 44, 45, 46, -1, -1, -1,
+ -1, -1, 52, -1, -1, -1, -1, 9, 58, 59,
+ -1, 61, 14, 63, -1, -1, 66, 67, -1, 69,
+ -1, 38, 72, -1, 74, -1, 43, 44, 45, 46,
+ 1, -1, 3, 4, -1, 52, 7, 8, 40, 41,
+ 42, 58, 59, -1, 61, -1, 63, -1, -1, 66,
+ 67, 53, 69, 55, 56, 57, -1, 74, -1, -1,
+ -1, -1, 1, -1, 3, 4, -1, 38, 7, 8,
+ -1, -1, 43, 44, 45, 46, -1, -1, -1, -1,
+ -1, 52, -1, -1, -1, -1, -1, 58, 59, -1,
+ 61, -1, 63, -1, -1, 66, 67, 68, 69, 38,
+ -1, -1, -1, -1, 43, 44, 45, 46, 1, -1,
+ 3, 4, -1, 52, 7, 8, -1, -1, -1, 58,
+ 59, -1, 61, -1, 63, -1, -1, 66, 67, -1,
+ 69, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, 3, 4, 38, -1, 7, 8, -1,
+ 43, 44, 45, 46, -1, -1, -1, -1, -1, 52,
+ -1, -1, 22, -1, -1, 58, 59, -1, 61, -1,
+ 63, 31, 32, 66, 67, -1, 69, -1, 38, -1,
+ -1, -1, -1, 43, 44, 45, 46, -1, -1, 3,
+ 4, -1, 52, 7, 8, -1, -1, -1, 58, 59,
+ -1, 61, -1, 63, -1, -1, 66, 67, 22, 69,
+ -1, -1, -1, -1, -1, -1, -1, 31, 32, -1,
+ -1, -1, -1, -1, 38, -1, -1, -1, -1, 43,
+ 44, 45, 46, -1, -1, 3, 4, -1, 52, 7,
+ 8, -1, -1, 11, 58, 59, -1, 61, -1, 63,
+ -1, -1, 66, 67, -1, 69, -1, -1, -1, -1,
+ -1, -1, 3, 4, -1, -1, 7, 8, -1, -1,
+ 38, -1, -1, -1, -1, 43, 44, 45, 46, -1,
+ -1, -1, -1, 9, 52, -1, -1, -1, 14, -1,
+ 58, 59, -1, 61, -1, 63, -1, 38, 66, 67,
+ -1, 69, 43, 44, 45, 46, -1, -1, 3, 4,
+ -1, 52, 7, 8, 40, 41, 42, 58, 59, -1,
+ 61, -1, 63, -1, -1, 66, 67, 53, 69, -1,
+ 56, 57, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, 9, 43, 44,
+ 45, 46, 14, -1, -1, -1, -1, 52, -1, -1,
+ -1, -1, -1, 58, 59, -1, 61, -1, 63, -1,
+ -1, 66, 67, -1, 69, -1, -1, -1, 40, 41,
+ 42, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, 53, 54, -1, 56, 57
+};
+
+ /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
+ symbol of state STATE-NUM. */
+static const yytype_uint8 yystos[] =
+{
+ 0, 76, 0, 1, 3, 4, 7, 8, 17, 18,
+ 35, 36, 37, 38, 43, 44, 45, 46, 47, 51,
+ 52, 58, 59, 61, 63, 66, 67, 69, 77, 80,
+ 84, 85, 87, 105, 113, 117, 118, 119, 120, 121,
+ 122, 130, 131, 67, 70, 127, 128, 129, 3, 4,
+ 45, 46, 69, 82, 83, 123, 131, 131, 131, 67,
+ 67, 69, 118, 131, 118, 118, 67, 120, 131, 1,
+ 112, 113, 48, 50, 122, 72, 74, 81, 89, 105,
+ 133, 137, 81, 86, 51, 9, 14, 40, 41, 42,
+ 53, 55, 56, 57, 115, 116, 11, 118, 58, 59,
+ 60, 61, 62, 65, 58, 59, 60, 61, 62, 65,
+ 12, 13, 43, 44, 52, 114, 111, 112, 113, 112,
+ 16, 127, 49, 67, 56, 107, 111, 111, 113, 43,
+ 44, 132, 1, 55, 68, 135, 139, 135, 1, 6,
+ 78, 1, 6, 79, 105, 106, 88, 106, 5, 113,
+ 130, 113, 113, 113, 106, 113, 38, 118, 118, 118,
+ 118, 118, 118, 118, 118, 118, 118, 118, 118, 13,
+ 113, 135, 71, 1, 4, 108, 109, 118, 135, 135,
+ 113, 106, 40, 1, 113, 1, 89, 1, 89, 1,
+ 19, 21, 22, 23, 26, 27, 28, 29, 30, 31,
+ 32, 33, 34, 39, 73, 90, 91, 93, 100, 104,
+ 113, 133, 134, 137, 54, 113, 123, 135, 1, 139,
+ 130, 67, 92, 4, 67, 67, 67, 106, 67, 89,
+ 89, 89, 110, 113, 89, 106, 89, 94, 88, 136,
+ 137, 106, 113, 106, 1, 4, 113, 110, 95, 4,
+ 113, 113, 90, 4, 93, 96, 89, 67, 101, 111,
+ 134, 106, 135, 89, 124, 125, 126, 127, 68, 135,
+ 135, 26, 40, 137, 112, 10, 102, 106, 16, 126,
+ 106, 106, 67, 130, 106, 135, 103, 90, 133, 90,
+ 113, 135, 113, 137, 117, 20, 97, 135, 106, 137,
+ 106, 106, 1, 24, 25, 98, 106, 106, 90, 106,
+ 96, 90, 7, 8, 58, 59, 85, 99, 54, 138,
+ 134, 96, 135, 7, 7, 138, 106, 135, 106, 106,
+ 88, 106, 90, 88, 90
+};
+
+ /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
+static const yytype_uint8 yyr1[] =
+{
+ 0, 75, 76, 76, 76, 76, 76, 77, 77, 77,
+ 77, 77, 78, 78, 78, 79, 79, 79, 80, 80,
+ 80, 80, 80, 80, 80, 81, 82, 82, 82, 82,
+ 83, 83, 84, 86, 85, 87, 87, 88, 88, 88,
+ 89, 89, 90, 90, 90, 90, 90, 90, 90, 90,
+ 90, 90, 91, 91, 91, 91, 91, 92, 91, 91,
+ 94, 93, 95, 93, 93, 93, 96, 96, 97, 97,
+ 97, 98, 98, 99, 99, 99, 99, 99, 100, 100,
+ 101, 101, 102, 103, 102, 104, 104, 105, 105, 106,
+ 106, 107, 107, 108, 108, 109, 109, 109, 109, 109,
+ 110, 110, 111, 111, 112, 112, 112, 112, 112, 112,
+ 113, 113, 113, 113, 113, 113, 113, 113, 114, 114,
+ 114, 115, 115, 116, 116, 117, 117, 117, 118, 118,
+ 118, 118, 118, 118, 118, 118, 118, 118, 118, 119,
+ 119, 119, 119, 119, 119, 119, 120, 120, 120, 120,
+ 120, 120, 120, 120, 120, 120, 120, 120, 120, 120,
+ 121, 121, 122, 123, 123, 124, 124, 125, 125, 126,
+ 127, 128, 128, 129, 130, 130, 131, 131, 132, 132,
+ 132, 133, 134, 135, 136, 136, 137, 138, 139
+};
+
+ /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */
+static const yytype_uint8 yyr2[] =
+{
+ 0, 2, 0, 2, 2, 2, 2, 2, 2, 2,
+ 4, 4, 1, 2, 1, 1, 2, 1, 0, 1,
+ 4, 1, 1, 1, 1, 5, 1, 1, 1, 2,
+ 1, 1, 6, 0, 3, 1, 1, 0, 2, 2,
+ 1, 2, 2, 3, 1, 9, 6, 8, 8, 12,
+ 11, 1, 2, 2, 2, 2, 3, 0, 4, 2,
+ 0, 4, 0, 4, 4, 1, 0, 1, 0, 2,
+ 2, 5, 4, 1, 2, 2, 1, 1, 1, 1,
+ 1, 3, 0, 0, 3, 6, 9, 1, 2, 0,
+ 1, 0, 2, 0, 1, 1, 3, 1, 2, 3,
+ 0, 1, 0, 1, 1, 3, 1, 2, 3, 3,
+ 3, 3, 3, 3, 3, 3, 5, 1, 1, 1,
+ 2, 1, 1, 1, 1, 1, 1, 2, 1, 3,
+ 3, 3, 3, 3, 3, 3, 2, 2, 5, 4,
+ 3, 3, 3, 3, 3, 3, 1, 2, 3, 4,
+ 4, 1, 1, 1, 2, 2, 1, 1, 2, 2,
+ 1, 2, 4, 0, 1, 0, 2, 1, 2, 1,
+ 3, 1, 2, 2, 1, 2, 1, 3, 1, 1,
+ 0, 2, 2, 1, 0, 1, 1, 1, 2
+};
+
+
+#define yyerrok (yyerrstatus = 0)
+#define yyclearin (yychar = YYEMPTY)
+#define YYEMPTY (-2)
+#define YYEOF 0
+
+#define YYACCEPT goto yyacceptlab
+#define YYABORT goto yyabortlab
+#define YYERROR goto yyerrorlab
+
+
+#define YYRECOVERING() (!!yyerrstatus)
+
+#define YYBACKUP(Token, Value) \
+do \
+ if (yychar == YYEMPTY) \
+ { \
+ yychar = (Token); \
+ yylval = (Value); \
+ YYPOPSTACK (yylen); \
+ yystate = *yyssp; \
+ goto yybackup; \
+ } \
+ else \
+ { \
+ yyerror (YY_("syntax error: cannot back up")); \
+ YYERROR; \
+ } \
+while (0)
+
+/* Error token number */
+#define YYTERROR 1
+#define YYERRCODE 256
+
+
+
+/* Enable debugging if requested. */
+#if YYDEBUG
+
+# ifndef YYFPRINTF
+# include <stdio.h> /* INFRINGES ON USER NAME SPACE */
+# define YYFPRINTF fprintf
+# endif
+
+# define YYDPRINTF(Args) \
+do { \
+ if (yydebug) \
+ YYFPRINTF Args; \
+} while (0)
+
+/* This macro is provided for backward compatibility. */
+#ifndef YY_LOCATION_PRINT
+# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
+#endif
+
+
+# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
+do { \
+ if (yydebug) \
+ { \
+ YYFPRINTF (stderr, "%s ", Title); \
+ yy_symbol_print (stderr, \
+ Type, Value); \
+ YYFPRINTF (stderr, "\n"); \
+ } \
+} while (0)
+
+
+/*----------------------------------------.
+| Print this symbol's value on YYOUTPUT. |
+`----------------------------------------*/
+
+static void
+yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const
yyvaluep)
+{
+ FILE *yyo = yyoutput;
+ YYUSE (yyo);
+ if (!yyvaluep)
+ return;
+# ifdef YYPRINT
+ if (yytype < YYNTOKENS)
+ YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
+# endif
+ YYUSE (yytype);
+}
+
+
+/*--------------------------------.
+| Print this symbol on YYOUTPUT. |
+`--------------------------------*/
+
+static void
+yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
+{
+ YYFPRINTF (yyoutput, "%s %s (",
+ yytype < YYNTOKENS ? "token" : "nterm", yytname[yytype]);
+
+ yy_symbol_value_print (yyoutput, yytype, yyvaluep);
+ YYFPRINTF (yyoutput, ")");
+}
+
+/*------------------------------------------------------------------.
+| yy_stack_print -- Print the state stack from its BOTTOM up to its |
+| TOP (included). |
+`------------------------------------------------------------------*/
+
+static void
+yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
+{
+ YYFPRINTF (stderr, "Stack now");
+ for (; yybottom <= yytop; yybottom++)
+ {
+ int yybot = *yybottom;
+ YYFPRINTF (stderr, " %d", yybot);
+ }
+ YYFPRINTF (stderr, "\n");
+}
+
+# define YY_STACK_PRINT(Bottom, Top) \
+do { \
+ if (yydebug) \
+ yy_stack_print ((Bottom), (Top)); \
+} while (0)
+
+
+/*------------------------------------------------.
+| Report that the YYRULE is going to be reduced. |
+`------------------------------------------------*/
+
+static void
+yy_reduce_print (yytype_int16 *yyssp, YYSTYPE *yyvsp, int yyrule)
+{
+ unsigned long int yylno = yyrline[yyrule];
+ int yynrhs = yyr2[yyrule];
+ int yyi;
+ YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
+ yyrule - 1, yylno);
+ /* The symbols being reduced. */
+ for (yyi = 0; yyi < yynrhs; yyi++)
+ {
+ YYFPRINTF (stderr, " $%d = ", yyi + 1);
+ yy_symbol_print (stderr,
+ yystos[yyssp[yyi + 1 - yynrhs]],
+ &(yyvsp[(yyi + 1) - (yynrhs)])
+ );
+ YYFPRINTF (stderr, "\n");
+ }
+}
+
+# define YY_REDUCE_PRINT(Rule) \
+do { \
+ if (yydebug) \
+ yy_reduce_print (yyssp, yyvsp, Rule); \
+} while (0)
+
+/* Nonzero means print parse trace. It is left uninitialized so that
+ multiple parsers can coexist. */
+int yydebug;
+#else /* !YYDEBUG */
+# define YYDPRINTF(Args)
+# define YY_SYMBOL_PRINT(Title, Type, Value, Location)
+# define YY_STACK_PRINT(Bottom, Top)
+# define YY_REDUCE_PRINT(Rule)
+#endif /* !YYDEBUG */
+
+
+/* YYINITDEPTH -- initial size of the parser's stacks. */
+#ifndef YYINITDEPTH
+# define YYINITDEPTH 200
+#endif
+
+/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
+ if the built-in stack extension method is used).
+
+ Do not make this value too large; the results are undefined if
+ YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
+ evaluated with infinite-precision integer arithmetic. */
+
+#ifndef YYMAXDEPTH
+# define YYMAXDEPTH 10000
+#endif
+
+
+#if YYERROR_VERBOSE
+
+# ifndef yystrlen
+# if defined __GLIBC__ && defined _STRING_H
+# define yystrlen strlen
+# else
+/* Return the length of YYSTR. */
+static YYSIZE_T
+yystrlen (const char *yystr)
+{
+ YYSIZE_T yylen;
+ for (yylen = 0; yystr[yylen]; yylen++)
+ continue;
+ return yylen;
+}
+# endif
+# endif
+
+# ifndef yystpcpy
+# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
+# define yystpcpy stpcpy
+# else
+/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
+ YYDEST. */
+static char *
+yystpcpy (char *yydest, const char *yysrc)
+{
+ char *yyd = yydest;
+ const char *yys = yysrc;
+
+ while ((*yyd++ = *yys++) != '\0')
+ continue;
+
+ return yyd - 1;
+}
+# endif
+# endif
+
+# ifndef yytnamerr
+/* Copy to YYRES the contents of YYSTR after stripping away unnecessary
+ quotes and backslashes, so that it's suitable for yyerror. The
+ heuristic is that double-quoting is unnecessary unless the string
+ contains an apostrophe, a comma, or backslash (other than
+ backslash-backslash). YYSTR is taken from yytname. If YYRES is
+ null, do not copy; instead, return the length of what the result
+ would have been. */
+static YYSIZE_T
+yytnamerr (char *yyres, const char *yystr)
+{
+ if (*yystr == '"')
+ {
+ YYSIZE_T yyn = 0;
+ char const *yyp = yystr;
+
+ for (;;)
+ switch (*++yyp)
+ {
+ case '\'':
+ case ',':
+ goto do_not_strip_quotes;
+
+ case '\\':
+ if (*++yyp != '\\')
+ goto do_not_strip_quotes;
+ /* Fall through. */
+ default:
+ if (yyres)
+ yyres[yyn] = *yyp;
+ yyn++;
+ break;
+
+ case '"':
+ if (yyres)
+ yyres[yyn] = '\0';
+ return yyn;
+ }
+ do_not_strip_quotes: ;
+ }
+
+ if (! yyres)
+ return yystrlen (yystr);
+
+ return yystpcpy (yyres, yystr) - yyres;
+}
+# endif
+
+/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message
+ about the unexpected token YYTOKEN for the state stack whose top is
+ YYSSP.
+
+ Return 0 if *YYMSG was successfully written. Return 1 if *YYMSG is
+ not large enough to hold the message. In that case, also set
+ *YYMSG_ALLOC to the required number of bytes. Return 2 if the
+ required number of bytes is too large to store. */
+static int
+yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg,
+ yytype_int16 *yyssp, int yytoken)
+{
+ YYSIZE_T yysize0 = yytnamerr (YY_NULLPTR, yytname[yytoken]);
+ YYSIZE_T yysize = yysize0;
+ enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
+ /* Internationalized format string. */
+ const char *yyformat = YY_NULLPTR;
+ /* Arguments of yyformat. */
+ char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
+ /* Number of reported tokens (one for the "unexpected", one per
+ "expected"). */
+ int yycount = 0;
+
+ /* There are many possibilities here to consider:
+ - If this state is a consistent state with a default action, then
+ the only way this function was invoked is if the default action
+ is an error action. In that case, don't check for expected
+ tokens because there are none.
+ - The only way there can be no lookahead present (in yychar) is if
+ this state is a consistent state with a default action. Thus,
+ detecting the absence of a lookahead is sufficient to determine
+ that there is no unexpected or expected token to report. In that
+ case, just report a simple "syntax error".
+ - Don't assume there isn't a lookahead just because this state is a
+ consistent state with a default action. There might have been a
+ previous inconsistent state, consistent state with a non-default
+ action, or user semantic action that manipulated yychar.
+ - Of course, the expected token list depends on states to have
+ correct lookahead information, and it depends on the parser not
+ to perform extra reductions after fetching a lookahead from the
+ scanner and before detecting a syntax error. Thus, state merging
+ (from LALR or IELR) and default reductions corrupt the expected
+ token list. However, the list is correct for canonical LR with
+ one exception: it will still contain any token that will not be
+ accepted due to an error action in a later state.
+ */
+ if (yytoken != YYEMPTY)
+ {
+ int yyn = yypact[*yyssp];
+ yyarg[yycount++] = yytname[yytoken];
+ if (!yypact_value_is_default (yyn))
+ {
+ /* Start YYX at -YYN if negative to avoid negative indexes in
+ YYCHECK. In other words, skip the first -YYN actions for
+ this state because they are default actions. */
+ int yyxbegin = yyn < 0 ? -yyn : 0;
+ /* Stay within bounds of both yycheck and yytname. */
+ int yychecklim = YYLAST - yyn + 1;
+ int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
+ int yyx;
+
+ for (yyx = yyxbegin; yyx < yyxend; ++yyx)
+ if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR
+ && !yytable_value_is_error (yytable[yyx + yyn]))
+ {
+ if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
+ {
+ yycount = 1;
+ yysize = yysize0;
+ break;
+ }
+ yyarg[yycount++] = yytname[yyx];
+ {
+ YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULLPTR,
yytname[yyx]);
+ if (! (yysize <= yysize1
+ && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
+ return 2;
+ yysize = yysize1;
+ }
+ }
+ }
+ }
+
+ switch (yycount)
+ {
+# define YYCASE_(N, S) \
+ case N: \
+ yyformat = S; \
+ break
+ YYCASE_(0, YY_("syntax error"));
+ YYCASE_(1, YY_("syntax error, unexpected %s"));
+ YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s"));
+ YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s"));
+ YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s"));
+ YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or
%s"));
+# undef YYCASE_
+ }
+
+ {
+ YYSIZE_T yysize1 = yysize + yystrlen (yyformat);
+ if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM))
+ return 2;
+ yysize = yysize1;
+ }
+
+ if (*yymsg_alloc < yysize)
+ {
+ *yymsg_alloc = 2 * yysize;
+ if (! (yysize <= *yymsg_alloc
+ && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM))
+ *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM;
+ return 1;
+ }
+
+ /* Avoid sprintf, as that infringes on the user's name space.
+ Don't have undefined behavior even if the translation
+ produced a string with the wrong number of "%s"s. */
+ {
+ char *yyp = *yymsg;
+ int yyi = 0;
+ while ((*yyp = *yyformat) != '\0')
+ if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount)
+ {
+ yyp += yytnamerr (yyp, yyarg[yyi++]);
+ yyformat += 2;
+ }
+ else
+ {
+ yyp++;
+ yyformat++;
+ }
+ }
+ return 0;
+}
+#endif /* YYERROR_VERBOSE */
+
+/*-----------------------------------------------.
+| Release the memory associated to this symbol. |
+`-----------------------------------------------*/
+
+static void
+yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
+{
+ YYUSE (yyvaluep);
+ if (!yymsg)
+ yymsg = "Deleting";
+ YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
+
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+ YYUSE (yytype);
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
+}
+
+
+
+
+/* The lookahead symbol. */
+int yychar;
+
+/* The semantic value of the lookahead symbol. */
+YYSTYPE yylval;
+/* Number of syntax errors so far. */
+int yynerrs;
+
+
+/*----------.
+| yyparse. |
+`----------*/
+
+int
+yyparse (void)
+{
+ int yystate;
+ /* Number of tokens to shift before error messages enabled. */
+ int yyerrstatus;
+
+ /* The stacks and their tools:
+ 'yyss': related to states.
+ 'yyvs': related to semantic values.
+
+ Refer to the stacks through separate pointers, to allow yyoverflow
+ to reallocate them elsewhere. */
+
+ /* The state stack. */
+ yytype_int16 yyssa[YYINITDEPTH];
+ yytype_int16 *yyss;
+ yytype_int16 *yyssp;
+
+ /* The semantic value stack. */
+ YYSTYPE yyvsa[YYINITDEPTH];
+ YYSTYPE *yyvs;
+ YYSTYPE *yyvsp;
+
+ YYSIZE_T yystacksize;
+
+ int yyn;
+ int yyresult;
+ /* Lookahead token as an internal (translated) token number. */
+ int yytoken = 0;
+ /* The variables used to return semantic value and location from the
+ action routines. */
+ YYSTYPE yyval;
+
+#if YYERROR_VERBOSE
+ /* Buffer for error messages, and its allocated size. */
+ char yymsgbuf[128];
+ char *yymsg = yymsgbuf;
+ YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
+#endif
+
+#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
+
+ /* The number of symbols on the RHS of the reduced rule.
+ Keep to zero when no symbol should be popped. */
+ int yylen = 0;
+
+ yyssp = yyss = yyssa;
+ yyvsp = yyvs = yyvsa;
+ yystacksize = YYINITDEPTH;
+
+ YYDPRINTF ((stderr, "Starting parse\n"));
+
+ yystate = 0;
+ yyerrstatus = 0;
+ yynerrs = 0;
+ yychar = YYEMPTY; /* Cause a token to be read. */
+ goto yysetstate;
+
+/*------------------------------------------------------------.
+| yynewstate -- Push a new state, which is found in yystate. |
+`------------------------------------------------------------*/
+ yynewstate:
+ /* In all cases, when you get here, the value and location stacks
+ have just been pushed. So pushing a state here evens the stacks. */
+ yyssp++;
+
+ yysetstate:
+ *yyssp = yystate;
+
+ if (yyss + yystacksize - 1 <= yyssp)
+ {
+ /* Get the current used size of the three stacks, in elements. */
+ YYSIZE_T yysize = yyssp - yyss + 1;
+
+#ifdef yyoverflow
+ {
+ /* Give user a chance to reallocate the stack. Use copies of
+ these so that the &'s don't force the real ones into
+ memory. */
+ YYSTYPE *yyvs1 = yyvs;
+ yytype_int16 *yyss1 = yyss;
+
+ /* Each stack pointer address is followed by the size of the
+ data in use in that stack, in bytes. This used to be a
+ conditional around just the two extra args, but that might
+ be undefined if yyoverflow is a macro. */
+ yyoverflow (YY_("memory exhausted"),
+ &yyss1, yysize * sizeof (*yyssp),
+ &yyvs1, yysize * sizeof (*yyvsp),
+ &yystacksize);
+
+ yyss = yyss1;
+ yyvs = yyvs1;
+ }
+#else /* no yyoverflow */
+# ifndef YYSTACK_RELOCATE
+ goto yyexhaustedlab;
+# else
+ /* Extend the stack our own way. */
+ if (YYMAXDEPTH <= yystacksize)
+ goto yyexhaustedlab;
+ yystacksize *= 2;
+ if (YYMAXDEPTH < yystacksize)
+ yystacksize = YYMAXDEPTH;
+
+ {
+ yytype_int16 *yyss1 = yyss;
+ union yyalloc *yyptr =
+ (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
+ if (! yyptr)
+ goto yyexhaustedlab;
+ YYSTACK_RELOCATE (yyss_alloc, yyss);
+ YYSTACK_RELOCATE (yyvs_alloc, yyvs);
+# undef YYSTACK_RELOCATE
+ if (yyss1 != yyssa)
+ YYSTACK_FREE (yyss1);
+ }
+# endif
+#endif /* no yyoverflow */
+
+ yyssp = yyss + yysize - 1;
+ yyvsp = yyvs + yysize - 1;
+
+ YYDPRINTF ((stderr, "Stack size increased to %lu\n",
+ (unsigned long int) yystacksize));
+
+ if (yyss + yystacksize - 1 <= yyssp)
+ YYABORT;
+ }
+
+ YYDPRINTF ((stderr, "Entering state %d\n", yystate));
+
+ if (yystate == YYFINAL)
+ YYACCEPT;
+
+ goto yybackup;
+
+/*-----------.
+| yybackup. |
+`-----------*/
+yybackup:
+
+ /* Do appropriate processing given the current state. Read a
+ lookahead token if we need one and don't already have one. */
+
+ /* First try to decide what to do without reference to lookahead token. */
+ yyn = yypact[yystate];
+ if (yypact_value_is_default (yyn))
+ goto yydefault;
+
+ /* Not known => get a lookahead token if don't already have one. */
+
+ /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */
+ if (yychar == YYEMPTY)
+ {
+ YYDPRINTF ((stderr, "Reading a token: "));
+ yychar = yylex ();
+ }
+
+ if (yychar <= YYEOF)
+ {
+ yychar = yytoken = YYEOF;
+ YYDPRINTF ((stderr, "Now at end of input.\n"));
+ }
+ else
+ {
+ yytoken = YYTRANSLATE (yychar);
+ YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
+ }
+
+ /* If the proper action on seeing token YYTOKEN is to reduce or to
+ detect an error, take that action. */
+ yyn += yytoken;
+ if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
+ goto yydefault;
+ yyn = yytable[yyn];
+ if (yyn <= 0)
+ {
+ if (yytable_value_is_error (yyn))
+ goto yyerrlab;
+ yyn = -yyn;
+ goto yyreduce;
+ }
+
+ /* Count tokens shifted since error; after three, turn off error
+ status. */
+ if (yyerrstatus)
+ yyerrstatus--;
+
+ /* Shift the lookahead token. */
+ YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
+
+ /* Discard the shifted token. */
+ yychar = YYEMPTY;
+
+ yystate = yyn;
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+ *++yyvsp = yylval;
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
+
+ goto yynewstate;
+
+
+/*-----------------------------------------------------------.
+| yydefault -- do the default action for the current state. |
+`-----------------------------------------------------------*/
+yydefault:
+ yyn = yydefact[yystate];
+ if (yyn == 0)
+ goto yyerrlab;
+ goto yyreduce;
+
+
+/*-----------------------------.
+| yyreduce -- Do a reduction. |
+`-----------------------------*/
+yyreduce:
+ /* yyn is the number of a rule to reduce with. */
+ yylen = yyr2[yyn];
+
+ /* If YYLEN is nonzero, implement the default value of the action:
+ '$$ = $1'.
+
+ Otherwise, the following line sets YYVAL to garbage.
+ This behavior is undocumented and Bison
+ users should not rely upon it. Assigning to YYVAL
+ unconditionally makes the parser a bit smaller, and it avoids a
+ GCC warning that YYVAL may be used uninitialized. */
+ yyval = yyvsp[1-yylen];
+
+
+ YY_REDUCE_PRINT (yyn);
+ switch (yyn)
+ {
+ case 3:
+#line 208 "awkgram.y" /* yacc.c:1646 */
+ {
+ rule = 0;
+ yyerrok;
+ }
+#line 1858 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 5:
+#line 214 "awkgram.y" /* yacc.c:1646 */
+ {
+ next_sourcefile();
+ }
+#line 1866 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 6:
+#line 218 "awkgram.y" /* yacc.c:1646 */
+ {
+ rule = 0;
+ /*
+ * If errors, give up, don't produce an infinite
+ * stream of syntax error messages.
+ */
+ /* yyerrok; */
+ }
+#line 1879 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 7:
+#line 230 "awkgram.y" /* yacc.c:1646 */
+ {
+ (void) append_rule((yyvsp[-1]), (yyvsp[0]));
+ first_rule = false;
+ }
+#line 1888 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 8:
+#line 235 "awkgram.y" /* yacc.c:1646 */
+ {
+ if (rule != Rule) {
+ msg(_("%s blocks must have an action part"),
ruletab[rule]);
+ errcount++;
+ } else if ((yyvsp[-1]) == NULL) {
+ msg(_("each rule must have a pattern or an action
part"));
+ errcount++;
+ } else /* pattern rule with non-empty pattern */
+ (void) append_rule((yyvsp[-1]), NULL);
+ }
+#line 1903 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 9:
+#line 246 "awkgram.y" /* yacc.c:1646 */
+ {
+ in_function = NULL;
+ (void) mk_function((yyvsp[-1]), (yyvsp[0]));
+ yyerrok;
+ }
+#line 1913 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 10:
+#line 252 "awkgram.y" /* yacc.c:1646 */
+ {
+ want_source = false;
+ at_seen = false;
+ yyerrok;
+ }
+#line 1923 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 11:
+#line 258 "awkgram.y" /* yacc.c:1646 */
+ {
+ want_source = false;
+ at_seen = false;
+ yyerrok;
+ }
+#line 1933 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 12:
+#line 267 "awkgram.y" /* yacc.c:1646 */
+ {
+ if (include_source((yyvsp[0])) < 0)
+ YYABORT;
+ efree((yyvsp[0])->lextok);
+ bcfree((yyvsp[0]));
+ (yyval) = NULL;
+ }
+#line 1945 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 13:
+#line 275 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 1951 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 14:
+#line 277 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 1957 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 15:
+#line 282 "awkgram.y" /* yacc.c:1646 */
+ {
+ if (load_library((yyvsp[0])) < 0)
+ YYABORT;
+ efree((yyvsp[0])->lextok);
+ bcfree((yyvsp[0]));
+ (yyval) = NULL;
+ }
+#line 1969 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 16:
+#line 290 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 1975 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 17:
+#line 292 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 1981 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 18:
+#line 297 "awkgram.y" /* yacc.c:1646 */
+ {
+ rule = Rule;
+ if (comment != NULL) {
+ (yyval) = list_create(comment);
+ comment = NULL;
+ } else
+ (yyval) = NULL;
+ }
+#line 1994 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 19:
+#line 306 "awkgram.y" /* yacc.c:1646 */
+ {
+ rule = Rule;
+ if (comment != NULL) {
+ (yyval) = list_prepend((yyvsp[0]), comment);
+ comment = NULL;
+ } else
+ (yyval) = (yyvsp[0]);
+ }
+#line 2007 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 20:
+#line 316 "awkgram.y" /* yacc.c:1646 */
+ {
+ INSTRUCTION *tp;
+
+ add_lint((yyvsp[-3]), LINT_assign_in_cond);
+ add_lint((yyvsp[0]), LINT_assign_in_cond);
+
+ tp = instruction(Op_no_op);
+ list_prepend((yyvsp[-3]), bcalloc(Op_line_range,
!!do_pretty_print + 1, 0));
+ (yyvsp[-3])->nexti->triggered = false;
+ (yyvsp[-3])->nexti->target_jmp = (yyvsp[0])->nexti;
+
+ list_append((yyvsp[-3]), instruction(Op_cond_pair));
+ (yyvsp[-3])->lasti->line_range = (yyvsp[-3])->nexti;
+ (yyvsp[-3])->lasti->target_jmp = tp;
+
+ list_append((yyvsp[0]), instruction(Op_cond_pair));
+ (yyvsp[0])->lasti->line_range = (yyvsp[-3])->nexti;
+ (yyvsp[0])->lasti->target_jmp = tp;
+ if (do_pretty_print) {
+ ((yyvsp[-3])->nexti + 1)->condpair_left =
(yyvsp[-3])->lasti;
+ ((yyvsp[-3])->nexti + 1)->condpair_right =
(yyvsp[0])->lasti;
+ }
+ if (comment != NULL) {
+ (yyval) =
list_append(list_merge(list_prepend((yyvsp[-3]), comment), (yyvsp[0])), tp);
+ comment = NULL;
+ } else
+ (yyval) = list_append(list_merge((yyvsp[-3]),
(yyvsp[0])), tp);
+ rule = Rule;
+ }
+#line 2041 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 21:
+#line 346 "awkgram.y" /* yacc.c:1646 */
+ {
+ static int begin_seen = 0;
+
+ func_first = false;
+ if (do_lint_old && ++begin_seen == 2)
+ warning_ln((yyvsp[0])->source_line,
+ _("old awk does not support multiple `BEGIN' or
`END' rules"));
+
+ (yyvsp[0])->in_rule = rule = BEGIN;
+ (yyvsp[0])->source_file = source;
+ check_comment();
+ (yyval) = (yyvsp[0]);
+ }
+#line 2059 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 22:
+#line 360 "awkgram.y" /* yacc.c:1646 */
+ {
+ static int end_seen = 0;
+
+ func_first = false;
+ if (do_lint_old && ++end_seen == 2)
+ warning_ln((yyvsp[0])->source_line,
+ _("old awk does not support multiple `BEGIN' or
`END' rules"));
+
+ (yyvsp[0])->in_rule = rule = END;
+ (yyvsp[0])->source_file = source;
+ check_comment();
+ (yyval) = (yyvsp[0]);
+ }
+#line 2077 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 23:
+#line 374 "awkgram.y" /* yacc.c:1646 */
+ {
+ func_first = false;
+ (yyvsp[0])->in_rule = rule = BEGINFILE;
+ (yyvsp[0])->source_file = source;
+ check_comment();
+ (yyval) = (yyvsp[0]);
+ }
+#line 2089 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 24:
+#line 382 "awkgram.y" /* yacc.c:1646 */
+ {
+ func_first = false;
+ (yyvsp[0])->in_rule = rule = ENDFILE;
+ (yyvsp[0])->source_file = source;
+ check_comment();
+ (yyval) = (yyvsp[0]);
+ }
+#line 2101 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 25:
+#line 393 "awkgram.y" /* yacc.c:1646 */
+ {
+ INSTRUCTION *ip;
+ if ((yyvsp[-3]) == NULL)
+ ip = list_create(instruction(Op_no_op));
+ else
+ ip = (yyvsp[-3]);
+ (yyval) = ip;
+ }
+#line 2114 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 26:
+#line 405 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 2120 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 27:
+#line 407 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 2126 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 28:
+#line 409 "awkgram.y" /* yacc.c:1646 */
+ {
+ yyerror(_("`%s' is a built-in function, it cannot be
redefined"),
+ tokstart);
+ YYABORT;
+ }
+#line 2136 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 29:
+#line 415 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = (yyvsp[0]);
+ at_seen = false;
+ }
+#line 2145 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 32:
+#line 428 "awkgram.y" /* yacc.c:1646 */
+ {
+ /*
+ * treat any comments between BOF and the first function
+ * definition (with no intervening BEGIN etc block) as
+ * program comments. Special kludge: iff there are more
+ * than one such comments, treat the last as a function
+ * comment.
+ */
+ if (comment != NULL && func_first
+ && strstr(comment->memory->stptr, "\n\n") != NULL)
+ split_comment();
+ /* save any other pre-function comment as function comment */
+ if (comment != NULL) {
+ function_comment = comment;
+ comment = NULL;
+ }
+ func_first = false;
+ (yyvsp[-5])->source_file = source;
+ if (install_function((yyvsp[-4])->lextok, (yyvsp[-5]),
(yyvsp[-2])) < 0)
+ YYABORT;
+ in_function = (yyvsp[-4])->lextok;
+ (yyvsp[-4])->lextok = NULL;
+ bcfree((yyvsp[-4]));
+ /* $4 already free'd in install_function */
+ (yyval) = (yyvsp[-5]);
+ }
+#line 2176 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 33:
+#line 462 "awkgram.y" /* yacc.c:1646 */
+ { want_regexp = true; }
+#line 2182 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 34:
+#line 464 "awkgram.y" /* yacc.c:1646 */
+ {
+ NODE *n, *exp;
+ char *re;
+ size_t len;
+
+ re = (yyvsp[0])->lextok;
+ (yyvsp[0])->lextok = NULL;
+ len = strlen(re);
+ if (do_lint) {
+ if (len == 0)
+ lintwarn_ln((yyvsp[0])->source_line,
+ _("regexp constant `//' looks like a
C++ comment, but is not"));
+ else if (re[0] == '*' && re[len-1] == '*')
+ /* possible C comment */
+ lintwarn_ln((yyvsp[0])->source_line,
+ _("regexp constant `/%s/' looks like a
C comment, but is not"), re);
+ }
+
+ exp = make_str_node(re, len, ALREADY_MALLOCED);
+ n = make_regnode(Node_regex, exp);
+ if (n == NULL) {
+ unref(exp);
+ YYABORT;
+ }
+ (yyval) = (yyvsp[0]);
+ (yyval)->opcode = Op_match_rec;
+ (yyval)->memory = n;
+ }
+#line 2215 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 35:
+#line 496 "awkgram.y" /* yacc.c:1646 */
+ { bcfree((yyvsp[0])); }
+#line 2221 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 37:
+#line 502 "awkgram.y" /* yacc.c:1646 */
+ {
+ if (comment != NULL) {
+ (yyval) = list_create(comment);
+ comment = NULL;
+ } else (yyval) = NULL;
+ }
+#line 2232 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 38:
+#line 509 "awkgram.y" /* yacc.c:1646 */
+ {
+ if ((yyvsp[0]) == NULL) {
+ if (comment == NULL)
+ (yyval) = (yyvsp[-1]);
+ else {
+ (yyval) = list_append((yyvsp[-1]), comment);
+ comment = NULL;
+ }
+ } else {
+ add_lint((yyvsp[0]), LINT_no_effect);
+ if ((yyvsp[-1]) == NULL) {
+ if (comment == NULL)
+ (yyval) = (yyvsp[0]);
+ else {
+ (yyval) = list_append((yyvsp[0]),
comment);
+ comment = NULL;
+ }
+ } else {
+ if (comment != NULL) {
+ list_append((yyvsp[0]), comment);
+ comment = NULL;
+ }
+ (yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
+ }
+ }
+ list_append((yyval), instruction(Op_end_stmt));
+ yyerrok;
+ }
+#line 2265 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 39:
+#line 538 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 2271 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 42:
+#line 548 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 2277 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 43:
+#line 550 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[-1]); }
+#line 2283 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 44:
+#line 552 "awkgram.y" /* yacc.c:1646 */
+ {
+ if (do_pretty_print)
+ (yyval) = list_prepend((yyvsp[0]),
instruction(Op_exec_count));
+ else
+ (yyval) = (yyvsp[0]);
+ }
+#line 2294 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 45:
+#line 559 "awkgram.y" /* yacc.c:1646 */
+ {
+ INSTRUCTION *dflt, *curr = NULL, *cexp, *cstmt;
+ INSTRUCTION *ip, *nextc, *tbreak;
+ const char **case_values = NULL;
+ int maxcount = 128;
+ int case_count = 0;
+ int i;
+
+ tbreak = instruction(Op_no_op);
+ cstmt = list_create(tbreak);
+ cexp = list_create(instruction(Op_pop));
+ dflt = instruction(Op_jmp);
+ dflt->target_jmp = tbreak; /* if no case match and no
explicit default */
+
+ if ((yyvsp[-2]) != NULL) {
+ curr = (yyvsp[-2])->nexti;
+ bcfree((yyvsp[-2])); /* Op_list */
+ } /* else
+ curr = NULL; */
+
+ for (; curr != NULL; curr = nextc) {
+ INSTRUCTION *caseexp = curr->case_exp;
+ INSTRUCTION *casestmt = curr->case_stmt;
+
+ nextc = curr->nexti;
+ if (curr->opcode == Op_K_case) {
+ if (caseexp->opcode == Op_push_i) {
+ /* a constant scalar */
+ char *caseval;
+ caseval =
force_string(caseexp->memory)->stptr;
+ for (i = 0; i < case_count; i++) {
+ if (strcmp(caseval,
case_values[i]) == 0)
+
error_ln(curr->source_line,
+ _("duplicate
case values in switch body: %s"), caseval);
+ }
+
+ if (case_values == NULL)
+ emalloc(case_values, const char
**, sizeof(char *) * maxcount, "statement");
+ else if (case_count >= maxcount) {
+ maxcount += 128;
+ erealloc(case_values, const
char **, sizeof(char*) * maxcount, "statement");
+ }
+ case_values[case_count++] = caseval;
+ } else {
+ /* match a constant regex against
switch expression. */
+ (curr + 1)->match_exp = true;
+ }
+ curr->stmt_start = casestmt->nexti;
+ curr->stmt_end = casestmt->lasti;
+ (void) list_prepend(cexp, curr);
+ (void) list_prepend(cexp, caseexp);
+ } else {
+ if (dflt->target_jmp != tbreak)
+ error_ln(curr->source_line,
+ _("duplicate `default' detected
in switch body"));
+ else
+ dflt->target_jmp = casestmt->nexti;
+
+ if (do_pretty_print) {
+ curr->stmt_start = casestmt->nexti;
+ curr->stmt_end = casestmt->lasti;
+ (void) list_prepend(cexp, curr);
+ } else
+ bcfree(curr);
+ }
+
+ cstmt = list_merge(casestmt, cstmt);
+ }
+
+ if (case_values != NULL)
+ efree(case_values);
+
+ ip = (yyvsp[-6]);
+ if (do_pretty_print) {
+ (void) list_prepend(ip, (yyvsp[-8]));
+ (void) list_prepend(ip, instruction(Op_exec_count));
+ (yyvsp[-8])->target_break = tbreak;
+ ((yyvsp[-8]) + 1)->switch_start = cexp->nexti;
+ ((yyvsp[-8]) + 1)->switch_end = cexp->lasti;
+ }/* else
+ $1 is NULL */
+
+ (void) list_append(cexp, dflt);
+ (void) list_merge(ip, cexp);
+ (yyval) = list_merge(ip, cstmt);
+
+ break_allowed--;
+ fix_break_continue(ip, tbreak, NULL);
+ }
+#line 2388 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 46:
+#line 649 "awkgram.y" /* yacc.c:1646 */
+ {
+ /*
+ * -----------------
+ * tc:
+ * cond
+ * -----------------
+ * [Op_jmp_false tb ]
+ * -----------------
+ * body
+ * -----------------
+ * [Op_jmp tc ]
+ * tb:[Op_no_op ]
+ */
+
+ INSTRUCTION *ip, *tbreak, *tcont;
+
+ tbreak = instruction(Op_no_op);
+ add_lint((yyvsp[-3]), LINT_assign_in_cond);
+ tcont = (yyvsp[-3])->nexti;
+ ip = list_append((yyvsp[-3]), instruction(Op_jmp_false));
+ ip->lasti->target_jmp = tbreak;
+
+ if (do_pretty_print) {
+ (void) list_append(ip, instruction(Op_exec_count));
+ (yyvsp[-5])->target_break = tbreak;
+ (yyvsp[-5])->target_continue = tcont;
+ ((yyvsp[-5]) + 1)->while_body = ip->lasti;
+ (void) list_prepend(ip, (yyvsp[-5]));
+ }/* else
+ $1 is NULL */
+
+ if ((yyvsp[0]) != NULL)
+ (void) list_merge(ip, (yyvsp[0]));
+ (void) list_append(ip, instruction(Op_jmp));
+ ip->lasti->target_jmp = tcont;
+ (yyval) = list_append(ip, tbreak);
+
+ break_allowed--;
+ continue_allowed--;
+ fix_break_continue(ip, tbreak, tcont);
+ }
+#line 2434 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 47:
+#line 691 "awkgram.y" /* yacc.c:1646 */
+ {
+ /*
+ * -----------------
+ * z:
+ * body
+ * -----------------
+ * tc:
+ * cond
+ * -----------------
+ * [Op_jmp_true | z ]
+ * tb:[Op_no_op ]
+ */
+
+ INSTRUCTION *ip, *tbreak, *tcont;
+
+ tbreak = instruction(Op_no_op);
+ tcont = (yyvsp[-2])->nexti;
+ add_lint((yyvsp[-2]), LINT_assign_in_cond);
+ if ((yyvsp[-5]) != NULL)
+ ip = list_merge((yyvsp[-5]), (yyvsp[-2]));
+ else
+ ip = list_prepend((yyvsp[-2]), instruction(Op_no_op));
+ if (do_pretty_print)
+ (void) list_prepend(ip, instruction(Op_exec_count));
+ (void) list_append(ip, instruction(Op_jmp_true));
+ ip->lasti->target_jmp = ip->nexti;
+ (yyval) = list_append(ip, tbreak);
+
+ break_allowed--;
+ continue_allowed--;
+ fix_break_continue(ip, tbreak, tcont);
+
+ if (do_pretty_print) {
+ (yyvsp[-7])->target_break = tbreak;
+ (yyvsp[-7])->target_continue = tcont;
+ ((yyvsp[-7]) + 1)->doloop_cond = tcont;
+ (yyval) = list_prepend(ip, (yyvsp[-7]));
+ bcfree((yyvsp[-4]));
+ } /* else
+ $1 and $4 are NULLs */
+ }
+#line 2480 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 48:
+#line 733 "awkgram.y" /* yacc.c:1646 */
+ {
+ INSTRUCTION *ip;
+ char *var_name = (yyvsp[-5])->lextok;
+
+ if ((yyvsp[0]) != NULL
+ && (yyvsp[0])->lasti->opcode == Op_K_delete
+ && (yyvsp[0])->lasti->expr_count == 1
+ && (yyvsp[0])->nexti->opcode == Op_push
+ && ((yyvsp[0])->nexti->memory->type != Node_var
|| !((yyvsp[0])->nexti->memory->var_update))
+ && strcmp((yyvsp[0])->nexti->memory->vname,
var_name) == 0
+ ) {
+
+ /* Efficiency hack. Recognize the special case of
+ *
+ * for (iggy in foo)
+ * delete foo[iggy]
+ *
+ * and treat it as if it were
+ *
+ * delete foo
+ *
+ * Check that the body is a `delete a[i]' statement,
+ * and that both the loop var and array names match.
+ */
+ NODE *arr = NULL;
+
+ ip = (yyvsp[0])->nexti->nexti;
+ if ((yyvsp[-3])->nexti->opcode == Op_push &&
(yyvsp[-3])->lasti == (yyvsp[-3])->nexti)
+ arr = (yyvsp[-3])->nexti->memory;
+ if (arr != NULL
+ && ip->opcode == Op_no_op
+ && ip->nexti->opcode == Op_push_array
+ && strcmp(ip->nexti->memory->vname,
arr->vname) == 0
+ && ip->nexti->nexti == (yyvsp[0])->lasti
+ ) {
+ (void) make_assignable((yyvsp[0])->nexti);
+ (yyvsp[0])->lasti->opcode = Op_K_delete_loop;
+ (yyvsp[0])->lasti->expr_count = 0;
+ if ((yyvsp[-7]) != NULL)
+ bcfree((yyvsp[-7]));
+ efree(var_name);
+ bcfree((yyvsp[-5]));
+ bcfree((yyvsp[-4]));
+ bcfree((yyvsp[-3]));
+ (yyval) = (yyvsp[0]);
+ } else
+ goto regular_loop;
+ } else {
+ INSTRUCTION *tbreak, *tcont;
+
+ /* [ Op_push_array a ]
+ * [ Op_arrayfor_init | ib ]
+ * ic:[ Op_arrayfor_incr | ib ]
+ * [ Op_var_assign if any ]
+ *
+ * body
+ *
+ * [Op_jmp | ic ]
+ * ib:[Op_arrayfor_final ]
+ */
+regular_loop:
+ ip = (yyvsp[-3]);
+ ip->nexti->opcode = Op_push_array;
+
+ tbreak = instruction(Op_arrayfor_final);
+ (yyvsp[-4])->opcode = Op_arrayfor_incr;
+ (yyvsp[-4])->array_var =
variable((yyvsp[-5])->source_line, var_name, Node_var);
+ (yyvsp[-4])->target_jmp = tbreak;
+ tcont = (yyvsp[-4]);
+ (yyvsp[-5])->opcode = Op_arrayfor_init;
+ (yyvsp[-5])->target_jmp = tbreak;
+ (void) list_append(ip, (yyvsp[-5]));
+
+ if (do_pretty_print) {
+ (yyvsp[-7])->opcode = Op_K_arrayfor;
+ (yyvsp[-7])->target_continue = tcont;
+ (yyvsp[-7])->target_break = tbreak;
+ (void) list_append(ip, (yyvsp[-7]));
+ } /* else
+ $1 is NULL */
+
+ /* add update_FOO instruction if necessary */
+ if ((yyvsp[-4])->array_var->type == Node_var &&
(yyvsp[-4])->array_var->var_update) {
+ (void) list_append(ip,
instruction(Op_var_update));
+ ip->lasti->update_var =
(yyvsp[-4])->array_var->var_update;
+ }
+ (void) list_append(ip, (yyvsp[-4]));
+
+ /* add set_FOO instruction if necessary */
+ if ((yyvsp[-4])->array_var->type == Node_var &&
(yyvsp[-4])->array_var->var_assign) {
+ (void) list_append(ip,
instruction(Op_var_assign));
+ ip->lasti->assign_var =
(yyvsp[-4])->array_var->var_assign;
+ }
+
+ if (do_pretty_print) {
+ (void) list_append(ip,
instruction(Op_exec_count));
+ ((yyvsp[-7]) + 1)->forloop_cond = (yyvsp[-4]);
+ ((yyvsp[-7]) + 1)->forloop_body = ip->lasti;
+ }
+
+ if ((yyvsp[0]) != NULL)
+ (void) list_merge(ip, (yyvsp[0]));
+
+ (void) list_append(ip, instruction(Op_jmp));
+ ip->lasti->target_jmp = (yyvsp[-4]);
+ (yyval) = list_append(ip, tbreak);
+ fix_break_continue(ip, tbreak, tcont);
+ }
+
+ break_allowed--;
+ continue_allowed--;
+ }
+#line 2597 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 49:
+#line 846 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = mk_for_loop((yyvsp[-11]), (yyvsp[-9]), (yyvsp[-6]),
(yyvsp[-3]), (yyvsp[0]));
+
+ break_allowed--;
+ continue_allowed--;
+ }
+#line 2608 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 50:
+#line 853 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = mk_for_loop((yyvsp[-10]), (yyvsp[-8]), (INSTRUCTION
*) NULL, (yyvsp[-3]), (yyvsp[0]));
+
+ break_allowed--;
+ continue_allowed--;
+ }
+#line 2619 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 51:
+#line 860 "awkgram.y" /* yacc.c:1646 */
+ {
+ if (do_pretty_print)
+ (yyval) = list_prepend((yyvsp[0]),
instruction(Op_exec_count));
+ else
+ (yyval) = (yyvsp[0]);
+ }
+#line 2630 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 52:
+#line 870 "awkgram.y" /* yacc.c:1646 */
+ {
+ if (! break_allowed)
+ error_ln((yyvsp[-1])->source_line,
+ _("`break' is not allowed outside a loop or
switch"));
+ (yyvsp[-1])->target_jmp = NULL;
+ (yyval) = list_create((yyvsp[-1]));
+
+ }
+#line 2643 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 53:
+#line 879 "awkgram.y" /* yacc.c:1646 */
+ {
+ if (! continue_allowed)
+ error_ln((yyvsp[-1])->source_line,
+ _("`continue' is not allowed outside a loop"));
+ (yyvsp[-1])->target_jmp = NULL;
+ (yyval) = list_create((yyvsp[-1]));
+
+ }
+#line 2656 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 54:
+#line 888 "awkgram.y" /* yacc.c:1646 */
+ {
+ /* if inside function (rule = 0), resolve context at run-time */
+ if (rule && rule != Rule)
+ error_ln((yyvsp[-1])->source_line,
+ _("`next' used in %s action"), ruletab[rule]);
+ (yyvsp[-1])->target_jmp = ip_rec;
+ (yyval) = list_create((yyvsp[-1]));
+ }
+#line 2669 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 55:
+#line 897 "awkgram.y" /* yacc.c:1646 */
+ {
+ /* if inside function (rule = 0), resolve context at run-time */
+ if (rule == BEGIN || rule == END || rule == ENDFILE)
+ error_ln((yyvsp[-1])->source_line,
+ _("`nextfile' used in %s action"),
ruletab[rule]);
+
+ (yyvsp[-1])->target_newfile = ip_newfile;
+ (yyvsp[-1])->target_endfile = ip_endfile;
+ (yyval) = list_create((yyvsp[-1]));
+ }
+#line 2684 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 56:
+#line 908 "awkgram.y" /* yacc.c:1646 */
+ {
+ /* Initialize the two possible jump targets, the actual target
+ * is resolved at run-time.
+ */
+ (yyvsp[-2])->target_end = ip_end; /* first instruction in
end_block */
+ (yyvsp[-2])->target_atexit = ip_atexit; /* cleanup and go home
*/
+
+ if ((yyvsp[-1]) == NULL) {
+ (yyval) = list_create((yyvsp[-2]));
+ (void) list_prepend((yyval), instruction(Op_push_i));
+ (yyval)->nexti->memory = dupnode(Nnull_string);
+ } else
+ (yyval) = list_append((yyvsp[-1]), (yyvsp[-2]));
+ }
+#line 2703 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 57:
+#line 923 "awkgram.y" /* yacc.c:1646 */
+ {
+ if (! in_function)
+ yyerror(_("`return' used outside function context"));
+ }
+#line 2712 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 58:
+#line 926 "awkgram.y" /* yacc.c:1646 */
+ {
+ if ((yyvsp[-1]) == NULL) {
+ (yyval) = list_create((yyvsp[-3]));
+ (void) list_prepend((yyval), instruction(Op_push_i));
+ (yyval)->nexti->memory = dupnode(Nnull_string);
+ } else {
+ if (do_optimize
+ && (yyvsp[-1])->lasti->opcode == Op_func_call
+ && strcmp((yyvsp[-1])->lasti->func_name,
in_function) == 0
+ ) {
+ /* Do tail recursion optimization. Tail
+ * call without a return value is recognized
+ * in mk_function().
+ */
+ ((yyvsp[-1])->lasti + 1)->tail_call = true;
+ }
+
+ (yyval) = list_append((yyvsp[-1]), (yyvsp[-3]));
+ }
+ }
+#line 2737 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 60:
+#line 958 "awkgram.y" /* yacc.c:1646 */
+ { in_print = true; in_parens = 0; }
+#line 2743 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 61:
+#line 959 "awkgram.y" /* yacc.c:1646 */
+ {
+ /*
+ * Optimization: plain `print' has no expression list, so $3 is
null.
+ * If $3 is NULL or is a bytecode list for $0 use
Op_K_print_rec,
+ * which is faster for these two cases.
+ */
+
+ if ((yyvsp[-3])->opcode == Op_K_print &&
+ ((yyvsp[-1]) == NULL
+ || ((yyvsp[-1])->lasti->opcode == Op_field_spec
+ && (yyvsp[-1])->nexti->nexti->nexti ==
(yyvsp[-1])->lasti
+ && (yyvsp[-1])->nexti->nexti->opcode ==
Op_push_i
+ &&
(yyvsp[-1])->nexti->nexti->memory->type == Node_val)
+ )
+ ) {
+ static bool warned = false;
+ /* -----------------
+ * output_redir
+ * [ redirect exp ]
+ * -----------------
+ * expression_list
+ * ------------------
+ * [Op_K_print_rec | NULL | redir_type | expr_count]
+ */
+
+ if ((yyvsp[-1]) != NULL) {
+ NODE *n = (yyvsp[-1])->nexti->nexti->memory;
+
+ if (! iszero(n))
+ goto regular_print;
+
+ bcfree((yyvsp[-1])->lasti);
/* Op_field_spec */
+ unref(n); /*
Node_val */
+ bcfree((yyvsp[-1])->nexti->nexti);
/* Op_push_i */
+ bcfree((yyvsp[-1])->nexti);
/* Op_list */
+ bcfree((yyvsp[-1]));
/* Op_list */
+ } else {
+ if (do_lint && (rule == BEGIN || rule == END)
&& ! warned) {
+ warned = true;
+ lintwarn_ln((yyvsp[-3])->source_line,
+ _("plain `print' in BEGIN or END rule should probably be `print
\"\"'"));
+ }
+ }
+
+ (yyvsp[-3])->expr_count = 0;
+ (yyvsp[-3])->opcode = Op_K_print_rec;
+ if ((yyvsp[0]) == NULL) { /* no redircetion */
+ (yyvsp[-3])->redir_type = redirect_none;
+ (yyval) = list_create((yyvsp[-3]));
+ } else {
+ INSTRUCTION *ip;
+ ip = (yyvsp[0])->nexti;
+ (yyvsp[-3])->redir_type = ip->redir_type;
+ (yyvsp[0])->nexti = ip->nexti;
+ bcfree(ip);
+ (yyval) = list_append((yyvsp[0]), (yyvsp[-3]));
+ }
+ } else {
+ /* -----------------
+ * [ output_redir ]
+ * [ redirect exp ]
+ * -----------------
+ * [ expression_list ]
+ * ------------------
+ * [$1 | NULL | redir_type | expr_count]
+ *
+ */
+regular_print:
+ if ((yyvsp[0]) == NULL) { /* no
redirection */
+ if ((yyvsp[-1]) == NULL) { /*
printf without arg */
+ (yyvsp[-3])->expr_count = 0;
+ (yyvsp[-3])->redir_type = redirect_none;
+ (yyval) = list_create((yyvsp[-3]));
+ } else {
+ INSTRUCTION *t = (yyvsp[-1]);
+ (yyvsp[-3])->expr_count =
count_expressions(&t, false);
+ (yyvsp[-3])->redir_type = redirect_none;
+ (yyval) = list_append(t, (yyvsp[-3]));
+ }
+ } else {
+ INSTRUCTION *ip;
+ ip = (yyvsp[0])->nexti;
+ (yyvsp[-3])->redir_type = ip->redir_type;
+ (yyvsp[0])->nexti = ip->nexti;
+ bcfree(ip);
+ if ((yyvsp[-1]) == NULL) {
+ (yyvsp[-3])->expr_count = 0;
+ (yyval) = list_append((yyvsp[0]),
(yyvsp[-3]));
+ } else {
+ INSTRUCTION *t = (yyvsp[-1]);
+ (yyvsp[-3])->expr_count =
count_expressions(&t, false);
+ (yyval) =
list_append(list_merge((yyvsp[0]), t), (yyvsp[-3]));
+ }
+ }
+ }
+ }
+#line 2844 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 62:
+#line 1056 "awkgram.y" /* yacc.c:1646 */
+ { sub_counter = 0; }
+#line 2850 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 63:
+#line 1057 "awkgram.y" /* yacc.c:1646 */
+ {
+ char *arr = (yyvsp[-2])->lextok;
+
+ (yyvsp[-2])->opcode = Op_push_array;
+ (yyvsp[-2])->memory = variable((yyvsp[-2])->source_line, arr,
Node_var_new);
+
+ if (! do_posix && ! do_traditional) {
+ if ((yyvsp[-2])->memory == symbol_table)
+ fatal(_("`delete' is not allowed with SYMTAB"));
+ else if ((yyvsp[-2])->memory == func_table)
+ fatal(_("`delete' is not allowed with
FUNCTAB"));
+ }
+
+ if ((yyvsp[0]) == NULL) {
+ /*
+ * As of September 2012, POSIX has added support
+ * for `delete array'. See:
+ * http://austingroupbugs.net/view.php?id=544
+ *
+ * Thanks to Nathan Weeks for the initiative.
+ *
+ * Thus we no longer warn or check do_posix.
+ * Also, since BWK awk supports it, we don't have to
+ * check do_traditional either.
+ */
+ (yyvsp[-3])->expr_count = 0;
+ (yyval) = list_append(list_create((yyvsp[-2])),
(yyvsp[-3]));
+ } else {
+ (yyvsp[-3])->expr_count = sub_counter;
+ (yyval) = list_append(list_append((yyvsp[0]),
(yyvsp[-2])), (yyvsp[-3]));
+ }
+ }
+#line 2887 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 64:
+#line 1094 "awkgram.y" /* yacc.c:1646 */
+ {
+ static bool warned = false;
+ char *arr = (yyvsp[-1])->lextok;
+
+ if (do_lint && ! warned) {
+ warned = true;
+ lintwarn_ln((yyvsp[-3])->source_line,
+ _("`delete(array)' is a non-portable tawk
extension"));
+ }
+ if (do_traditional) {
+ error_ln((yyvsp[-3])->source_line,
+ _("`delete(array)' is a non-portable tawk
extension"));
+ }
+ (yyvsp[-1])->memory = variable((yyvsp[-1])->source_line, arr,
Node_var_new);
+ (yyvsp[-1])->opcode = Op_push_array;
+ (yyvsp[-3])->expr_count = 0;
+ (yyval) = list_append(list_create((yyvsp[-1])), (yyvsp[-3]));
+
+ if (! do_posix && ! do_traditional) {
+ if ((yyvsp[-1])->memory == symbol_table)
+ fatal(_("`delete' is not allowed with SYMTAB"));
+ else if ((yyvsp[-1])->memory == func_table)
+ fatal(_("`delete' is not allowed with
FUNCTAB"));
+ }
+ }
+#line 2917 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 65:
+#line 1120 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = optimize_assignment((yyvsp[0])); }
+#line 2923 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 66:
+#line 1125 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 2929 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 67:
+#line 1127 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 2935 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 68:
+#line 1132 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 2941 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 69:
+#line 1134 "awkgram.y" /* yacc.c:1646 */
+ {
+ if ((yyvsp[-1]) == NULL)
+ (yyval) = list_create((yyvsp[0]));
+ else
+ (yyval) = list_prepend((yyvsp[-1]), (yyvsp[0]));
+ }
+#line 2952 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 70:
+#line 1141 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 2958 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 71:
+#line 1146 "awkgram.y" /* yacc.c:1646 */
+ {
+ INSTRUCTION *casestmt = (yyvsp[0]);
+ if ((yyvsp[0]) == NULL)
+ casestmt = list_create(instruction(Op_no_op));
+ if (do_pretty_print)
+ (void) list_prepend(casestmt,
instruction(Op_exec_count));
+ (yyvsp[-4])->case_exp = (yyvsp[-3]);
+ (yyvsp[-4])->case_stmt = casestmt;
+ bcfree((yyvsp[-2]));
+ (yyval) = (yyvsp[-4]);
+ }
+#line 2974 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 72:
+#line 1158 "awkgram.y" /* yacc.c:1646 */
+ {
+ INSTRUCTION *casestmt = (yyvsp[0]);
+ if ((yyvsp[0]) == NULL)
+ casestmt = list_create(instruction(Op_no_op));
+ if (do_pretty_print)
+ (void) list_prepend(casestmt,
instruction(Op_exec_count));
+ bcfree((yyvsp[-2]));
+ (yyvsp[-3])->case_stmt = casestmt;
+ (yyval) = (yyvsp[-3]);
+ }
+#line 2989 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 73:
+#line 1172 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 2995 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 74:
+#line 1174 "awkgram.y" /* yacc.c:1646 */
+ {
+ NODE *n = (yyvsp[0])->memory;
+ (void) force_number(n);
+ negate_num(n);
+ bcfree((yyvsp[-1]));
+ (yyval) = (yyvsp[0]);
+ }
+#line 3007 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 75:
+#line 1182 "awkgram.y" /* yacc.c:1646 */
+ {
+ bcfree((yyvsp[-1]));
+ (yyval) = (yyvsp[0]);
+ }
+#line 3016 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 76:
+#line 1187 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3022 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 77:
+#line 1189 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyvsp[0])->opcode = Op_push_re;
+ (yyval) = (yyvsp[0]);
+ }
+#line 3031 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 78:
+#line 1197 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3037 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 79:
+#line 1199 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3043 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 81:
+#line 1209 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = (yyvsp[-1]);
+ }
+#line 3051 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 82:
+#line 1216 "awkgram.y" /* yacc.c:1646 */
+ {
+ in_print = false;
+ in_parens = 0;
+ (yyval) = NULL;
+ }
+#line 3061 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 83:
+#line 1221 "awkgram.y" /* yacc.c:1646 */
+ { in_print = false; in_parens = 0; }
+#line 3067 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 84:
+#line 1222 "awkgram.y" /* yacc.c:1646 */
+ {
+ if ((yyvsp[-2])->redir_type == redirect_twoway
+ && (yyvsp[0])->lasti->opcode == Op_K_getline_redir
+ && (yyvsp[0])->lasti->redir_type ==
redirect_twoway)
+ yyerror(_("multistage two-way pipelines don't work"));
+ (yyval) = list_prepend((yyvsp[0]), (yyvsp[-2]));
+ }
+#line 3079 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 85:
+#line 1233 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = mk_condition((yyvsp[-3]), (yyvsp[-5]), (yyvsp[0]),
NULL, NULL);
+ }
+#line 3087 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 86:
+#line 1238 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = mk_condition((yyvsp[-6]), (yyvsp[-8]), (yyvsp[-3]),
(yyvsp[-2]), (yyvsp[0]));
+ }
+#line 3095 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 91:
+#line 1255 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 3101 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 92:
+#line 1257 "awkgram.y" /* yacc.c:1646 */
+ {
+ bcfree((yyvsp[-1]));
+ (yyval) = (yyvsp[0]);
+ }
+#line 3110 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 93:
+#line 1265 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 3116 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 94:
+#line 1267 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3122 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 95:
+#line 1272 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyvsp[0])->param_count = 0;
+ (yyval) = list_create((yyvsp[0]));
+ }
+#line 3131 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 96:
+#line 1277 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyvsp[0])->param_count = (yyvsp[-2])->lasti->param_count + 1;
+ (yyval) = list_append((yyvsp[-2]), (yyvsp[0]));
+ yyerrok;
+ }
+#line 3141 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 97:
+#line 1283 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 3147 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 98:
+#line 1285 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[-1]); }
+#line 3153 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 99:
+#line 1287 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[-2]); }
+#line 3159 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 100:
+#line 1293 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 3165 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 101:
+#line 1295 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3171 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 102:
+#line 1300 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 3177 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 103:
+#line 1302 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3183 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 104:
+#line 1307 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_expression_list(NULL, (yyvsp[0])); }
+#line 3189 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 105:
+#line 1309 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = mk_expression_list((yyvsp[-2]), (yyvsp[0]));
+ yyerrok;
+ }
+#line 3198 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 106:
+#line 1314 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 3204 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 107:
+#line 1316 "awkgram.y" /* yacc.c:1646 */
+ {
+ /*
+ * Returning the expression list instead of NULL lets
+ * snode get a list of arguments that it can count.
+ */
+ (yyval) = (yyvsp[-1]);
+ }
+#line 3216 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 108:
+#line 1324 "awkgram.y" /* yacc.c:1646 */
+ {
+ /* Ditto */
+ (yyval) = mk_expression_list((yyvsp[-2]), (yyvsp[0]));
+ }
+#line 3225 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 109:
+#line 1329 "awkgram.y" /* yacc.c:1646 */
+ {
+ /* Ditto */
+ (yyval) = (yyvsp[-2]);
+ }
+#line 3234 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 110:
+#line 1338 "awkgram.y" /* yacc.c:1646 */
+ {
+ if (do_lint && (yyvsp[0])->lasti->opcode == Op_match_rec)
+ lintwarn_ln((yyvsp[-1])->source_line,
+ _("regular expression on right of assignment"));
+ (yyval) = mk_assignment((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1]));
+ }
+#line 3245 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 111:
+#line 1345 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_boolean((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3251 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 112:
+#line 1347 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_boolean((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3257 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 113:
+#line 1349 "awkgram.y" /* yacc.c:1646 */
+ {
+ if ((yyvsp[-2])->lasti->opcode == Op_match_rec)
+ warning_ln((yyvsp[-1])->source_line,
+ _("regular expression on left of `~' or `!~'
operator"));
+
+ if ((yyvsp[0])->lasti == (yyvsp[0])->nexti &&
(yyvsp[0])->nexti->opcode == Op_match_rec) {
+ (yyvsp[-1])->memory = (yyvsp[0])->nexti->memory;
+ bcfree((yyvsp[0])->nexti); /* Op_match_rec */
+ bcfree((yyvsp[0])); /* Op_list */
+ (yyval) = list_append((yyvsp[-2]), (yyvsp[-1]));
+ } else {
+ (yyvsp[-1])->memory = make_regnode(Node_dynregex, NULL);
+ (yyval) = list_append(list_merge((yyvsp[-2]),
(yyvsp[0])), (yyvsp[-1]));
+ }
+ }
+#line 3277 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 114:
+#line 1365 "awkgram.y" /* yacc.c:1646 */
+ {
+ if (do_lint_old)
+ warning_ln((yyvsp[-1])->source_line,
+ _("old awk does not support the keyword `in'
except after `for'"));
+ (yyvsp[0])->nexti->opcode = Op_push_array;
+ (yyvsp[-1])->opcode = Op_in_array;
+ (yyvsp[-1])->expr_count = 1;
+ (yyval) = list_append(list_merge((yyvsp[-2]), (yyvsp[0])),
(yyvsp[-1]));
+ }
+#line 3291 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 115:
+#line 1375 "awkgram.y" /* yacc.c:1646 */
+ {
+ if (do_lint && (yyvsp[0])->lasti->opcode == Op_match_rec)
+ lintwarn_ln((yyvsp[-1])->source_line,
+ _("regular expression on right of comparison"));
+ (yyval) = list_append(list_merge((yyvsp[-2]), (yyvsp[0])),
(yyvsp[-1]));
+ }
+#line 3302 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 116:
+#line 1382 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_condition((yyvsp[-4]), (yyvsp[-3]), (yyvsp[-2]),
(yyvsp[-1]), (yyvsp[0])); }
+#line 3308 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 117:
+#line 1384 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3314 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 118:
+#line 1389 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3320 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 119:
+#line 1391 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3326 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 120:
+#line 1393 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyvsp[0])->opcode = Op_assign_quotient;
+ (yyval) = (yyvsp[0]);
+ }
+#line 3335 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 121:
+#line 1401 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3341 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 122:
+#line 1403 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3347 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 123:
+#line 1408 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3353 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 124:
+#line 1410 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3359 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 125:
+#line 1415 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3365 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 126:
+#line 1417 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3371 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 127:
+#line 1419 "awkgram.y" /* yacc.c:1646 */
+ {
+ int count = 2;
+ bool is_simple_var = false;
+
+ if ((yyvsp[-1])->lasti->opcode == Op_concat) {
+ /* multiple (> 2) adjacent strings optimization */
+ is_simple_var = ((yyvsp[-1])->lasti->concat_flag &
CSVAR);
+ count = (yyvsp[-1])->lasti->expr_count + 1;
+ (yyvsp[-1])->lasti->opcode = Op_no_op;
+ } else {
+ is_simple_var = ((yyvsp[-1])->nexti->opcode == Op_push
+ && (yyvsp[-1])->lasti ==
(yyvsp[-1])->nexti); /* first exp. is a simple
+ *
variable?; kludge for use
+ * in
Op_assign_concat.
+ */
+ }
+
+ if (do_optimize
+ && (yyvsp[-1])->nexti == (yyvsp[-1])->lasti &&
(yyvsp[-1])->nexti->opcode == Op_push_i
+ && (yyvsp[0])->nexti == (yyvsp[0])->lasti &&
(yyvsp[0])->nexti->opcode == Op_push_i
+ ) {
+ NODE *n1 = (yyvsp[-1])->nexti->memory;
+ NODE *n2 = (yyvsp[0])->nexti->memory;
+ size_t nlen;
+
+ n1 = force_string(n1);
+ n2 = force_string(n2);
+ nlen = n1->stlen + n2->stlen;
+ erealloc(n1->stptr, char *, nlen + 2, "constant fold");
+ memcpy(n1->stptr + n1->stlen, n2->stptr, n2->stlen);
+ n1->stlen = nlen;
+ n1->stptr[nlen] = '\0';
+ n1->flags &= ~(NUMCUR|NUMBER|NUMINT);
+ n1->flags |= (STRING|STRCUR);
+ unref(n2);
+ bcfree((yyvsp[0])->nexti);
+ bcfree((yyvsp[0]));
+ (yyval) = (yyvsp[-1]);
+ } else {
+ (yyval) = list_append(list_merge((yyvsp[-1]),
(yyvsp[0])), instruction(Op_concat));
+ (yyval)->lasti->concat_flag = (is_simple_var ? CSVAR :
0);
+ (yyval)->lasti->expr_count = count;
+ if (count > max_args)
+ max_args = count;
+ }
+ }
+#line 3422 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 129:
+#line 1471 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3428 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 130:
+#line 1473 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3434 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 131:
+#line 1475 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3440 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 132:
+#line 1477 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3446 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 133:
+#line 1479 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3452 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 134:
+#line 1481 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3458 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 135:
+#line 1483 "awkgram.y" /* yacc.c:1646 */
+ {
+ /*
+ * In BEGINFILE/ENDFILE, allow `getline [var] < file'
+ */
+
+ if ((rule == BEGINFILE || rule == ENDFILE) && (yyvsp[0]) ==
NULL)
+ error_ln((yyvsp[-2])->source_line,
+ _("non-redirected `getline' invalid inside
`%s' rule"), ruletab[rule]);
+ if (do_lint && rule == END && (yyvsp[0]) == NULL)
+ lintwarn_ln((yyvsp[-2])->source_line,
+ _("non-redirected `getline' undefined inside
END action"));
+ (yyval) = mk_getline((yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]),
redirect_input);
+ }
+#line 3476 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 136:
+#line 1497 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyvsp[0])->opcode = Op_postincrement;
+ (yyval) = mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
+ }
+#line 3485 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 137:
+#line 1502 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyvsp[0])->opcode = Op_postdecrement;
+ (yyval) = mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
+ }
+#line 3494 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 138:
+#line 1507 "awkgram.y" /* yacc.c:1646 */
+ {
+ if (do_lint_old) {
+ warning_ln((yyvsp[-1])->source_line,
+ _("old awk does not support the keyword `in'
except after `for'"));
+ warning_ln((yyvsp[-1])->source_line,
+ _("old awk does not support multidimensional
arrays"));
+ }
+ (yyvsp[0])->nexti->opcode = Op_push_array;
+ (yyvsp[-1])->opcode = Op_in_array;
+ if ((yyvsp[-3]) == NULL) { /* error */
+ errcount++;
+ (yyvsp[-1])->expr_count = 0;
+ (yyval) = list_merge((yyvsp[0]), (yyvsp[-1]));
+ } else {
+ INSTRUCTION *t = (yyvsp[-3]);
+ (yyvsp[-1])->expr_count = count_expressions(&t, false);
+ (yyval) = list_append(list_merge(t, (yyvsp[0])),
(yyvsp[-1]));
+ }
+ }
+#line 3518 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 139:
+#line 1532 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = mk_getline((yyvsp[-1]), (yyvsp[0]), (yyvsp[-3]),
(yyvsp[-2])->redir_type);
+ bcfree((yyvsp[-2]));
+ }
+#line 3527 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 140:
+#line 1538 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3533 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 141:
+#line 1540 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3539 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 142:
+#line 1542 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3545 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 143:
+#line 1544 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3551 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 144:
+#line 1546 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3557 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 145:
+#line 1548 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
+#line 3563 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 146:
+#line 1553 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = list_create((yyvsp[0]));
+ }
+#line 3571 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 147:
+#line 1557 "awkgram.y" /* yacc.c:1646 */
+ {
+ if ((yyvsp[0])->opcode == Op_match_rec) {
+ (yyvsp[0])->opcode = Op_nomatch;
+ (yyvsp[-1])->opcode = Op_push_i;
+ (yyvsp[-1])->memory = make_number(0.0);
+ (yyval) =
list_append(list_append(list_create((yyvsp[-1])),
+ instruction(Op_field_spec)),
(yyvsp[0]));
+ } else {
+ if (do_optimize && (yyvsp[0])->nexti ==
(yyvsp[0])->lasti
+ && (yyvsp[0])->nexti->opcode ==
Op_push_i
+ && ((yyvsp[0])->nexti->memory->flags &
(MPFN|MPZN)) == 0
+ ) {
+ NODE *n = (yyvsp[0])->nexti->memory;
+ if ((n->flags & (STRCUR|STRING)) != 0) {
+ n->numbr = (AWKNUM) (n->stlen == 0);
+ n->flags &= ~(STRCUR|STRING);
+ n->flags |= (NUMCUR|NUMBER);
+ efree(n->stptr);
+ n->stptr = NULL;
+ n->stlen = 0;
+ } else
+ n->numbr = (AWKNUM) (n->numbr == 0.0);
+ bcfree((yyvsp[-1]));
+ (yyval) = (yyvsp[0]);
+ } else {
+ (yyvsp[-1])->opcode = Op_not;
+ add_lint((yyvsp[0]), LINT_assign_in_cond);
+ (yyval) = list_append((yyvsp[0]), (yyvsp[-1]));
+ }
+ }
+ }
+#line 3607 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 148:
+#line 1589 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[-1]); }
+#line 3613 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 149:
+#line 1591 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = snode((yyvsp[-1]), (yyvsp[-3]));
+ if ((yyval) == NULL)
+ YYABORT;
+ }
+#line 3623 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 150:
+#line 1597 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = snode((yyvsp[-1]), (yyvsp[-3]));
+ if ((yyval) == NULL)
+ YYABORT;
+ }
+#line 3633 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 151:
+#line 1603 "awkgram.y" /* yacc.c:1646 */
+ {
+ static bool warned = false;
+
+ if (do_lint && ! warned) {
+ warned = true;
+ lintwarn_ln((yyvsp[0])->source_line,
+ _("call of `length' without parentheses is not
portable"));
+ }
+ (yyval) = snode(NULL, (yyvsp[0]));
+ if ((yyval) == NULL)
+ YYABORT;
+ }
+#line 3650 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 154:
+#line 1618 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyvsp[-1])->opcode = Op_preincrement;
+ (yyval) = mk_assignment((yyvsp[0]), NULL, (yyvsp[-1]));
+ }
+#line 3659 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 155:
+#line 1623 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyvsp[-1])->opcode = Op_predecrement;
+ (yyval) = mk_assignment((yyvsp[0]), NULL, (yyvsp[-1]));
+ }
+#line 3668 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 156:
+#line 1628 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = list_create((yyvsp[0]));
+ }
+#line 3676 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 157:
+#line 1632 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = list_create((yyvsp[0]));
+ }
+#line 3684 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 158:
+#line 1636 "awkgram.y" /* yacc.c:1646 */
+ {
+ if ((yyvsp[0])->lasti->opcode == Op_push_i
+ && ((yyvsp[0])->lasti->memory->flags & (STRCUR|STRING))
== 0
+ ) {
+ NODE *n = (yyvsp[0])->lasti->memory;
+ (void) force_number(n);
+ negate_num(n);
+ (yyval) = (yyvsp[0]);
+ bcfree((yyvsp[-1]));
+ } else {
+ (yyvsp[-1])->opcode = Op_unary_minus;
+ (yyval) = list_append((yyvsp[0]), (yyvsp[-1]));
+ }
+ }
+#line 3703 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 159:
+#line 1651 "awkgram.y" /* yacc.c:1646 */
+ {
+ /*
+ * was: $$ = $2
+ * POSIX semantics: force a conversion to numeric type
+ */
+ (yyvsp[-1])->opcode = Op_plus_i;
+ (yyvsp[-1])->memory = make_number(0.0);
+ (yyval) = list_append((yyvsp[0]), (yyvsp[-1]));
+ }
+#line 3717 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 160:
+#line 1664 "awkgram.y" /* yacc.c:1646 */
+ {
+ func_use((yyvsp[0])->lasti->func_name, FUNC_USE);
+ (yyval) = (yyvsp[0]);
+ }
+#line 3726 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 161:
+#line 1669 "awkgram.y" /* yacc.c:1646 */
+ {
+ /* indirect function call */
+ INSTRUCTION *f, *t;
+ char *name;
+ NODE *indirect_var;
+ static bool warned = false;
+ const char *msg = _("indirect function calls are a gawk
extension");
+
+ if (do_traditional || do_posix)
+ yyerror("%s", msg);
+ else if (do_lint && ! warned) {
+ warned = true;
+ lintwarn("%s", msg);
+ }
+
+ f = (yyvsp[0])->lasti;
+ f->opcode = Op_indirect_func_call;
+ name = estrdup(f->func_name, strlen(f->func_name));
+ if (is_std_var(name))
+ yyerror(_("can not use special variable `%s' for
indirect function call"), name);
+ indirect_var = variable(f->source_line, name, Node_var_new);
+ t = instruction(Op_push);
+ t->memory = indirect_var;
+
+ /* prepend indirect var instead of appending to arguments
(opt_expression_list),
+ * and pop it off in setup_frame (eval.c) (left to right
evaluation order); Test case:
+ * f = "fun"
+ * @f(f="real_fun")
+ */
+
+ (yyval) = list_prepend((yyvsp[0]), t);
+ at_seen = false;
+ }
+#line 3764 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 162:
+#line 1706 "awkgram.y" /* yacc.c:1646 */
+ {
+ NODE *n;
+
+ if (! at_seen) {
+ n = lookup((yyvsp[-3])->func_name);
+ if (n != NULL && n->type != Node_func
+ && n->type != Node_ext_func && n->type !=
Node_old_ext_func) {
+ error_ln((yyvsp[-3])->source_line,
+ _("attempt to use non-function `%s' in
function call"),
+ (yyvsp[-3])->func_name);
+ }
+ }
+ param_sanity((yyvsp[-1]));
+ (yyvsp[-3])->opcode = Op_func_call;
+ (yyvsp[-3])->func_body = NULL;
+ if ((yyvsp[-1]) == NULL) { /* no argument or error */
+ ((yyvsp[-3]) + 1)->expr_count = 0;
+ (yyval) = list_create((yyvsp[-3]));
+ } else {
+ INSTRUCTION *t = (yyvsp[-1]);
+ ((yyvsp[-3]) + 1)->expr_count = count_expressions(&t,
true);
+ (yyval) = list_append(t, (yyvsp[-3]));
+ }
+ }
+#line 3793 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 163:
+#line 1734 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 3799 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 164:
+#line 1736 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3805 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 165:
+#line 1741 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 3811 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 166:
+#line 1743 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[-1]); }
+#line 3817 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 167:
+#line 1748 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3823 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 168:
+#line 1750 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
+ }
+#line 3831 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 169:
+#line 1757 "awkgram.y" /* yacc.c:1646 */
+ {
+ INSTRUCTION *ip = (yyvsp[0])->lasti;
+ int count = ip->sub_count; /* # of SUBSEP-seperated
expressions */
+ if (count > 1) {
+ /* change Op_subscript or Op_sub_array to Op_concat */
+ ip->opcode = Op_concat;
+ ip->concat_flag = CSUBSEP;
+ ip->expr_count = count;
+ } else
+ ip->opcode = Op_no_op;
+ sub_counter++; /* count # of dimensions */
+ (yyval) = (yyvsp[0]);
+ }
+#line 3849 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 170:
+#line 1774 "awkgram.y" /* yacc.c:1646 */
+ {
+ INSTRUCTION *t = (yyvsp[-1]);
+ if ((yyvsp[-1]) == NULL) {
+ error_ln((yyvsp[0])->source_line,
+ _("invalid subscript expression"));
+ /* install Null string as subscript. */
+ t = list_create(instruction(Op_push_i));
+ t->nexti->memory = dupnode(Nnull_string);
+ (yyvsp[0])->sub_count = 1;
+ } else
+ (yyvsp[0])->sub_count = count_expressions(&t, false);
+ (yyval) = list_append(t, (yyvsp[0]));
+ }
+#line 3867 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 171:
+#line 1791 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
+#line 3873 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 172:
+#line 1793 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
+ }
+#line 3881 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 173:
+#line 1800 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[-1]); }
+#line 3887 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 174:
+#line 1805 "awkgram.y" /* yacc.c:1646 */
+ {
+ char *var_name = (yyvsp[0])->lextok;
+
+ (yyvsp[0])->opcode = Op_push;
+ (yyvsp[0])->memory = variable((yyvsp[0])->source_line,
var_name, Node_var_new);
+ (yyval) = list_create((yyvsp[0]));
+ }
+#line 3899 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 175:
+#line 1813 "awkgram.y" /* yacc.c:1646 */
+ {
+ char *arr = (yyvsp[-1])->lextok;
+ (yyvsp[-1])->memory = variable((yyvsp[-1])->source_line, arr,
Node_var_new);
+ (yyvsp[-1])->opcode = Op_push_array;
+ (yyval) = list_prepend((yyvsp[0]), (yyvsp[-1]));
+ }
+#line 3910 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 176:
+#line 1823 "awkgram.y" /* yacc.c:1646 */
+ {
+ INSTRUCTION *ip = (yyvsp[0])->nexti;
+ if (ip->opcode == Op_push
+ && ip->memory->type == Node_var
+ && ip->memory->var_update
+ ) {
+ (yyval) = list_prepend((yyvsp[0]),
instruction(Op_var_update));
+ (yyval)->nexti->update_var = ip->memory->var_update;
+ } else
+ (yyval) = (yyvsp[0]);
+ }
+#line 3926 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 177:
+#line 1835 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyval) = list_append((yyvsp[-1]), (yyvsp[-2]));
+ if ((yyvsp[0]) != NULL)
+ mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
+ }
+#line 3936 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 178:
+#line 1844 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyvsp[0])->opcode = Op_postincrement;
+ }
+#line 3944 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 179:
+#line 1848 "awkgram.y" /* yacc.c:1646 */
+ {
+ (yyvsp[0])->opcode = Op_postdecrement;
+ }
+#line 3952 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 180:
+#line 1851 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = NULL; }
+#line 3958 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 182:
+#line 1859 "awkgram.y" /* yacc.c:1646 */
+ { yyerrok; }
+#line 3964 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 183:
+#line 1863 "awkgram.y" /* yacc.c:1646 */
+ { yyerrok; }
+#line 3970 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 186:
+#line 1872 "awkgram.y" /* yacc.c:1646 */
+ { yyerrok; }
+#line 3976 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 187:
+#line 1876 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); yyerrok; }
+#line 3982 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+ case 188:
+#line 1880 "awkgram.y" /* yacc.c:1646 */
+ { yyerrok; }
+#line 3988 "awkgram.c" /* yacc.c:1646 */
+ break;
+
+
+#line 3992 "awkgram.c" /* yacc.c:1646 */
+ default: break;
+ }
+ /* User semantic actions sometimes alter yychar, and that requires
+ that yytoken be updated with the new translation. We take the
+ approach of translating immediately before every use of yytoken.
+ One alternative is translating here after every semantic action,
+ but that translation would be missed if the semantic action invokes
+ YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or
+ if it invokes YYBACKUP. In the case of YYABORT or YYACCEPT, an
+ incorrect destructor might then be invoked immediately. In the
+ case of YYERROR or YYBACKUP, subsequent parser actions might lead
+ to an incorrect destructor call or verbose syntax error message
+ before the lookahead is translated. */
+ YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
+
+ YYPOPSTACK (yylen);
+ yylen = 0;
+ YY_STACK_PRINT (yyss, yyssp);
+
+ *++yyvsp = yyval;
+
+ /* Now 'shift' the result of the reduction. Determine what state
+ that goes to, based on the state we popped back to and the rule
+ number reduced by. */
+
+ yyn = yyr1[yyn];
+
+ yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
+ if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
+ yystate = yytable[yystate];
+ else
+ yystate = yydefgoto[yyn - YYNTOKENS];
+
+ goto yynewstate;
+
+
+/*--------------------------------------.
+| yyerrlab -- here on detecting error. |
+`--------------------------------------*/
+yyerrlab:
+ /* Make sure we have latest lookahead translation. See comments at
+ user semantic actions for why this is necessary. */
+ yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar);
+
+ /* If not already recovering from an error, report this error. */
+ if (!yyerrstatus)
+ {
+ ++yynerrs;
+#if ! YYERROR_VERBOSE
+ yyerror (YY_("syntax error"));
+#else
+# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \
+ yyssp, yytoken)
+ {
+ char const *yymsgp = YY_("syntax error");
+ int yysyntax_error_status;
+ yysyntax_error_status = YYSYNTAX_ERROR;
+ if (yysyntax_error_status == 0)
+ yymsgp = yymsg;
+ else if (yysyntax_error_status == 1)
+ {
+ if (yymsg != yymsgbuf)
+ YYSTACK_FREE (yymsg);
+ yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc);
+ if (!yymsg)
+ {
+ yymsg = yymsgbuf;
+ yymsg_alloc = sizeof yymsgbuf;
+ yysyntax_error_status = 2;
+ }
+ else
+ {
+ yysyntax_error_status = YYSYNTAX_ERROR;
+ yymsgp = yymsg;
+ }
+ }
+ yyerror (yymsgp);
+ if (yysyntax_error_status == 2)
+ goto yyexhaustedlab;
+ }
+# undef YYSYNTAX_ERROR
+#endif
+ }
+
+
+
+ if (yyerrstatus == 3)
+ {
+ /* If just tried and failed to reuse lookahead token after an
+ error, discard it. */
+
+ if (yychar <= YYEOF)
+ {
+ /* Return failure if at end of input. */
+ if (yychar == YYEOF)
+ YYABORT;
+ }
+ else
+ {
+ yydestruct ("Error: discarding",
+ yytoken, &yylval);
+ yychar = YYEMPTY;
+ }
+ }
+
+ /* Else will try to reuse lookahead token after shifting the error
+ token. */
+ goto yyerrlab1;
+
+
+/*---------------------------------------------------.
+| yyerrorlab -- error raised explicitly by YYERROR. |
+`---------------------------------------------------*/
+yyerrorlab:
+
+ /* Pacify compilers like GCC when the user code never invokes
+ YYERROR and the label yyerrorlab therefore never appears in user
+ code. */
+ if (/*CONSTCOND*/ 0)
+ goto yyerrorlab;
+
+ /* Do not reclaim the symbols of the rule whose action triggered
+ this YYERROR. */
+ YYPOPSTACK (yylen);
+ yylen = 0;
+ YY_STACK_PRINT (yyss, yyssp);
+ yystate = *yyssp;
+ goto yyerrlab1;
+
+
+/*-------------------------------------------------------------.
+| yyerrlab1 -- common code for both syntax error and YYERROR. |
+`-------------------------------------------------------------*/
+yyerrlab1:
+ yyerrstatus = 3; /* Each real token shifted decrements this. */
+
+ for (;;)
+ {
+ yyn = yypact[yystate];
+ if (!yypact_value_is_default (yyn))
+ {
+ yyn += YYTERROR;
+ if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
+ {
+ yyn = yytable[yyn];
+ if (0 < yyn)
+ break;
+ }
+ }
+
+ /* Pop the current state because it cannot handle the error token. */
+ if (yyssp == yyss)
+ YYABORT;
+
+
+ yydestruct ("Error: popping",
+ yystos[yystate], yyvsp);
+ YYPOPSTACK (1);
+ yystate = *yyssp;
+ YY_STACK_PRINT (yyss, yyssp);
+ }
+
+ YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN
+ *++yyvsp = yylval;
+ YY_IGNORE_MAYBE_UNINITIALIZED_END
+
+
+ /* Shift the error token. */
+ YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
+
+ yystate = yyn;
+ goto yynewstate;
+
+
+/*-------------------------------------.
+| yyacceptlab -- YYACCEPT comes here. |
+`-------------------------------------*/
+yyacceptlab:
+ yyresult = 0;
+ goto yyreturn;
+
+/*-----------------------------------.
+| yyabortlab -- YYABORT comes here. |
+`-----------------------------------*/
+yyabortlab:
+ yyresult = 1;
+ goto yyreturn;
+
+#if !defined yyoverflow || YYERROR_VERBOSE
+/*-------------------------------------------------.
+| yyexhaustedlab -- memory exhaustion comes here. |
+`-------------------------------------------------*/
+yyexhaustedlab:
+ yyerror (YY_("memory exhausted"));
+ yyresult = 2;
+ /* Fall through. */
+#endif
+
+yyreturn:
+ if (yychar != YYEMPTY)
+ {
+ /* Make sure we have latest lookahead translation. See comments at
+ user semantic actions for why this is necessary. */
+ yytoken = YYTRANSLATE (yychar);
+ yydestruct ("Cleanup: discarding lookahead",
+ yytoken, &yylval);
+ }
+ /* Do not reclaim the symbols of the rule whose action triggered
+ this YYABORT or YYACCEPT. */
+ YYPOPSTACK (yylen);
+ YY_STACK_PRINT (yyss, yyssp);
+ while (yyssp != yyss)
+ {
+ yydestruct ("Cleanup: popping",
+ yystos[*yyssp], yyvsp);
+ YYPOPSTACK (1);
+ }
+#ifndef yyoverflow
+ if (yyss != yyssa)
+ YYSTACK_FREE (yyss);
+#endif
+#if YYERROR_VERBOSE
+ if (yymsg != yymsgbuf)
+ YYSTACK_FREE (yymsg);
+#endif
+ return yyresult;
+}
+#line 1882 "awkgram.y" /* yacc.c:1906 */
+
+
+struct token {
+ const char *operator; /* text to match */
+ OPCODE value; /* type */
+ int class; /* lexical class */
+ unsigned flags; /* # of args. allowed and compatability
*/
+# define ARGS 0xFF /* 0, 1, 2, 3 args allowed (any combination */
+# define A(n) (1<<(n))
+# define VERSION_MASK 0xFF00 /* old awk is zero */
+# define NOT_OLD 0x0100 /* feature not in old awk */
+# define NOT_POSIX 0x0200 /* feature not in POSIX */
+# define GAWKX 0x0400 /* gawk extension */
+# define BREAK 0x0800 /* break allowed inside */
+# define CONTINUE 0x1000 /* continue allowed inside */
+# define DEBUG_USE 0x2000 /* for use by developers */
+
+ NODE *(*ptr)(int); /* function that implements this keyword */
+ NODE *(*ptr2)(int); /* alternate arbitrary-precision function */
+};
+
+#if 'a' == 0x81 /* it's EBCDIC */
+/* tokcompare --- lexicographically compare token names for sorting */
+
+static int
+tokcompare(const void *l, const void *r)
+{
+ struct token *lhs, *rhs;
+
+ lhs = (struct token *) l;
+ rhs = (struct token *) r;
+
+ return strcmp(lhs->operator, rhs->operator);
+}
+#endif
+
+/*
+ * Tokentab is sorted ASCII ascending order, so it can be binary searched.
+ * See check_special(), which sorts the table on EBCDIC systems.
+ * Function pointers come from declarations in awk.h.
+ */
+
+#ifdef HAVE_MPFR
+#define MPF(F) do_mpfr_##F
+#else
+#define MPF(F) 0
+#endif
+
+static const struct token tokentab[] = {
+{"BEGIN", Op_rule, LEX_BEGIN, 0, 0, 0},
+{"BEGINFILE", Op_rule, LEX_BEGINFILE, GAWKX, 0, 0},
+{"END", Op_rule, LEX_END, 0, 0,
0},
+{"ENDFILE", Op_rule, LEX_ENDFILE, GAWKX, 0,
0},
+#ifdef ARRAYDEBUG
+{"adump", Op_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2)|DEBUG_USE,
do_adump, 0},
+#endif
+{"and", Op_builtin, LEX_BUILTIN, GAWKX, do_and,
MPF(and)},
+{"asort", Op_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2)|A(3),
do_asort, 0},
+{"asorti", Op_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2)|A(3),
do_asorti, 0},
+{"atan2", Op_builtin, LEX_BUILTIN, NOT_OLD|A(2), do_atan2,
MPF(atan2)},
+{"bindtextdomain", Op_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2),
do_bindtextdomain, 0},
+{"break", Op_K_break, LEX_BREAK, 0, 0, 0},
+{"case", Op_K_case, LEX_CASE, GAWKX, 0, 0},
+{"close", Op_builtin, LEX_BUILTIN, NOT_OLD|A(1)|A(2),
do_close, 0},
+{"compl", Op_builtin, LEX_BUILTIN, GAWKX|A(1), do_compl,
MPF(compl)},
+{"continue", Op_K_continue, LEX_CONTINUE, 0, 0, 0},
+{"cos", Op_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_cos,
MPF(cos)},
+{"dcgettext", Op_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2)|A(3),
do_dcgettext, 0},
+{"dcngettext", Op_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2)|A(3)|A(4)|A(5),
do_dcngettext, 0},
+{"default", Op_K_default, LEX_DEFAULT, GAWKX, 0, 0},
+{"delete", Op_K_delete, LEX_DELETE, NOT_OLD, 0, 0},
+{"div", Op_builtin, LEX_BUILTIN, GAWKX|A(3), do_div,
MPF(div)},
+{"do", Op_K_do, LEX_DO, NOT_OLD|BREAK|CONTINUE, 0,
0},
+{"else", Op_K_else, LEX_ELSE, 0, 0, 0},
+{"eval", Op_symbol, LEX_EVAL, 0, 0, 0},
+{"exit", Op_K_exit, LEX_EXIT, 0, 0, 0},
+{"exp", Op_builtin, LEX_BUILTIN, A(1), do_exp,
MPF(exp)},
+#ifdef DYNAMIC
+{"extension", Op_builtin, LEX_BUILTIN, GAWKX|A(1)|A(2)|A(3), do_ext,
0},
+#endif
+{"fflush", Op_builtin, LEX_BUILTIN, A(0)|A(1), do_fflush, 0},
+{"for", Op_K_for, LEX_FOR, BREAK|CONTINUE, 0,
0},
+{"func", Op_func, LEX_FUNCTION, NOT_POSIX|NOT_OLD, 0, 0},
+{"function",Op_func, LEX_FUNCTION, NOT_OLD, 0, 0},
+{"gensub", Op_sub_builtin, LEX_BUILTIN, GAWKX|A(3)|A(4), 0, 0},
+{"getline", Op_K_getline_redir, LEX_GETLINE, NOT_OLD, 0,
0},
+{"gsub", Op_sub_builtin, LEX_BUILTIN, NOT_OLD|A(2)|A(3), 0, 0},
+{"if", Op_K_if, LEX_IF, 0, 0, 0},
+{"in", Op_symbol, LEX_IN, 0, 0, 0},
+{"include", Op_symbol, LEX_INCLUDE, GAWKX, 0, 0},
+{"index", Op_builtin, LEX_BUILTIN, A(2), do_index,
0},
+{"int", Op_builtin, LEX_BUILTIN, A(1), do_int,
MPF(int)},
+{"isarray", Op_builtin, LEX_BUILTIN, GAWKX|A(1), do_isarray,
0},
+{"length", Op_builtin, LEX_LENGTH, A(0)|A(1), do_length,
0},
+{"load", Op_symbol, LEX_LOAD, GAWKX, 0, 0},
+{"log", Op_builtin, LEX_BUILTIN, A(1), do_log,
MPF(log)},
+{"lshift", Op_builtin, LEX_BUILTIN, GAWKX|A(2), do_lshift,
MPF(lshift)},
+{"match", Op_builtin, LEX_BUILTIN, NOT_OLD|A(2)|A(3), do_match,
0},
+{"mktime", Op_builtin, LEX_BUILTIN, GAWKX|A(1), do_mktime,
0},
+{"next", Op_K_next, LEX_NEXT, 0, 0, 0},
+{"nextfile", Op_K_nextfile, LEX_NEXTFILE, 0, 0, 0},
+{"or", Op_builtin, LEX_BUILTIN, GAWKX, do_or,
MPF(or)},
+{"patsplit", Op_builtin, LEX_BUILTIN, GAWKX|A(2)|A(3)|A(4),
do_patsplit, 0},
+{"print", Op_K_print, LEX_PRINT, 0, 0, 0},
+{"printf", Op_K_printf, LEX_PRINTF, 0, 0, 0},
+{"rand", Op_builtin, LEX_BUILTIN, NOT_OLD|A(0), do_rand,
MPF(rand)},
+{"return", Op_K_return, LEX_RETURN, NOT_OLD, 0, 0},
+{"rshift", Op_builtin, LEX_BUILTIN, GAWKX|A(2), do_rshift,
MPF(rshift)},
+{"sin", Op_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_sin,
MPF(sin)},
+{"split", Op_builtin, LEX_BUILTIN, A(2)|A(3)|A(4), do_split,
0},
+{"sprintf", Op_builtin, LEX_BUILTIN, 0, do_sprintf,
0},
+{"sqrt", Op_builtin, LEX_BUILTIN, A(1), do_sqrt,
MPF(sqrt)},
+{"srand", Op_builtin, LEX_BUILTIN, NOT_OLD|A(0)|A(1), do_srand,
MPF(srand)},
+#if defined(GAWKDEBUG) || defined(ARRAYDEBUG) /* || ... */
+{"stopme", Op_builtin, LEX_BUILTIN, GAWKX|A(0)|DEBUG_USE, stopme,
0},
+#endif
+{"strftime", Op_builtin, LEX_BUILTIN, GAWKX|A(0)|A(1)|A(2)|A(3),
do_strftime, 0},
+{"strtonum", Op_builtin, LEX_BUILTIN, GAWKX|A(1), do_strtonum,
MPF(strtonum)},
+{"sub", Op_sub_builtin, LEX_BUILTIN, NOT_OLD|A(2)|A(3), 0,
0},
+{"substr", Op_builtin, LEX_BUILTIN, A(2)|A(3), do_substr,
0},
+{"switch", Op_K_switch, LEX_SWITCH, GAWKX|BREAK, 0, 0},
+{"system", Op_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_system,
0},
+{"systime", Op_builtin, LEX_BUILTIN, GAWKX|A(0), do_systime,
0},
+{"tolower", Op_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_tolower,
0},
+{"toupper", Op_builtin, LEX_BUILTIN, NOT_OLD|A(1), do_toupper,
0},
+{"while", Op_K_while, LEX_WHILE, BREAK|CONTINUE, 0, 0},
+{"xor", Op_builtin, LEX_BUILTIN, GAWKX, do_xor,
MPF(xor)},
+};
+
+/* Variable containing the current shift state. */
+static mbstate_t cur_mbstate;
+/* Ring buffer containing current characters. */
+#define MAX_CHAR_IN_RING_BUFFER 8
+#define RING_BUFFER_SIZE (MAX_CHAR_IN_RING_BUFFER * MB_LEN_MAX)
+static char cur_char_ring[RING_BUFFER_SIZE];
+/* Index for ring buffers. */
+static int cur_ring_idx;
+/* This macro means that last nextc() return a singlebyte character
+ or 1st byte of a multibyte character. */
+#define nextc_is_1stbyte (cur_char_ring[cur_ring_idx] == 1)
+
+/* getfname --- return name of a builtin function (for pretty printing) */
+
+const char *
+getfname(NODE *(*fptr)(int))
+{
+ int i, j;
+
+ j = sizeof(tokentab) / sizeof(tokentab[0]);
+ /* linear search, no other way to do it */
+ for (i = 0; i < j; i++)
+ if (tokentab[i].ptr == fptr || tokentab[i].ptr2 == fptr)
+ return tokentab[i].operator;
+
+ return NULL;
+}
+
+/* negate_num --- negate a number in NODE */
+
+void
+negate_num(NODE *n)
+{
+#ifdef HAVE_MPFR
+ int tval = 0;
+#endif
+
+ if (! is_mpg_number(n)) {
+ n->numbr = -n->numbr;
+ return;
+ }
+
+#ifdef HAVE_MPFR
+ if (is_mpg_integer(n)) {
+ if (! iszero(n)) {
+ mpz_neg(n->mpg_i, n->mpg_i);
+ return;
+ }
+
+ /*
+ * 0 --> -0 conversion. Requires turning the MPG integer
+ * into an MPFR float.
+ */
+
+ mpz_clear(n->mpg_i); /* release the integer storage */
+
+ /* Convert and fall through. */
+ tval = mpfr_set_d(n->mpg_numbr, 0.0, ROUND_MODE);
+ IEEE_FMT(n->mpg_numbr, tval);
+ n->flags &= ~MPZN;
+ n->flags |= MPFN;
+ }
+
+ /* mpfr float case */
+ tval = mpfr_neg(n->mpg_numbr, n->mpg_numbr, ROUND_MODE);
+ IEEE_FMT(n->mpg_numbr, tval);
+#endif
+}
+
+/* print_included_from --- print `Included from ..' file names and locations */
+
+static void
+print_included_from()
+{
+ int saveline, line;
+ SRCFILE *s;
+
+ /* suppress current file name, line # from `.. included from ..' msgs
*/
+ saveline = sourceline;
+ sourceline = 0;
+
+ for (s = sourcefile; s != NULL && s->stype == SRC_INC; ) {
+ s = s->next;
+ if (s == NULL || s->fd <= INVALID_HANDLE)
+ continue;
+ line = s->srclines;
+
+ /* if last token is NEWLINE, line number is off by 1. */
+ if (s->lasttok == NEWLINE)
+ line--;
+ msg("%s %s:%d%c",
+ s->prev == sourcefile ? "In file included from"
+ : " from",
+ (s->stype == SRC_INC ||
+ s->stype == SRC_FILE) ? s->src : "cmd. line",
+ line,
+ s->stype == SRC_INC ? ',' : ':'
+ );
+ }
+ sourceline = saveline;
+}
+
+/* warning_ln --- print a warning message with location */
+
+static void
+warning_ln(int line, const char *mesg, ...)
+{
+ va_list args;
+ int saveline;
+
+ saveline = sourceline;
+ sourceline = line;
+ print_included_from();
+ va_start(args, mesg);
+ err(false, _("warning: "), mesg, args);
+ va_end(args);
+ sourceline = saveline;
+}
+
+/* lintwarn_ln --- print a lint warning and location */
+
+static void
+lintwarn_ln(int line, const char *mesg, ...)
+{
+ va_list args;
+ int saveline;
+
+ saveline = sourceline;
+ sourceline = line;
+ print_included_from();
+ va_start(args, mesg);
+ if (lintfunc == r_fatal)
+ err(true, _("fatal: "), mesg, args);
+ else
+ err(false, _("warning: "), mesg, args);
+ va_end(args);
+ sourceline = saveline;
+ if (lintfunc == r_fatal)
+ gawk_exit(EXIT_FATAL);
+}
+
+/* error_ln --- print an error message and location */
+
+static void
+error_ln(int line, const char *m, ...)
+{
+ va_list args;
+ int saveline;
+
+ saveline = sourceline;
+ sourceline = line;
+ print_included_from();
+ errcount++;
+ va_start(args, m);
+ err(false, "error: ", m, args);
+ va_end(args);
+ sourceline = saveline;
+}
+
+/* yyerror --- print a syntax error message, show where */
+
+static void
+yyerror(const char *m, ...)
+{
+ va_list args;
+ const char *mesg = NULL;
+ char *bp, *cp;
+ char *scan;
+ char *buf;
+ int count;
+ static char end_of_file_line[] = "(END OF FILE)";
+ char save;
+
+ print_included_from();
+
+ errcount++;
+ /* Find the current line in the input file */
+ if (lexptr && lexeme) {
+ if (thisline == NULL) {
+ cp = lexeme;
+ if (*cp == '\n') {
+ cp--;
+ mesg = _("unexpected newline or end of string");
+ }
+ for (; cp != lexptr_begin && *cp != '\n'; --cp)
+ continue;
+ if (*cp == '\n')
+ cp++;
+ thisline = cp;
+ }
+ /* NL isn't guaranteed */
+ bp = lexeme;
+ while (bp < lexend && *bp && *bp != '\n')
+ bp++;
+ } else {
+ thisline = end_of_file_line;
+ bp = thisline + strlen(thisline);
+ }
+
+ /*
+ * Saving and restoring *bp keeps valgrind happy,
+ * since the guts of glibc uses strlen, even though
+ * we're passing an explict precision. Sigh.
+ *
+ * 8/2003: We may not need this anymore.
+ */
+ save = *bp;
+ *bp = '\0';
+
+ msg("%.*s", (int) (bp - thisline), thisline);
+
+ *bp = save;
+ va_start(args, m);
+ if (mesg == NULL)
+ mesg = m;
+
+ count = (bp - thisline) + strlen(mesg) + 2 + 1;
+ emalloc(buf, char *, count, "yyerror");
+
+ bp = buf;
+
+ if (lexptr != NULL) {
+ scan = thisline;
+ while (scan < lexeme)
+ if (*scan++ == '\t')
+ *bp++ = '\t';
+ else
+ *bp++ = ' ';
+ *bp++ = '^';
+ *bp++ = ' ';
+ }
+ strcpy(bp, mesg);
+ err(false, "", buf, args);
+ va_end(args);
+ efree(buf);
+}
+
+/* mk_program --- create a single list of instructions */
+
+static INSTRUCTION *
+mk_program()
+{
+ INSTRUCTION *cp, *tmp;
+
+#define begin_block rule_block[BEGIN]
+#define end_block rule_block[END]
+#define prog_block rule_block[Rule]
+#define beginfile_block rule_block[BEGINFILE]
+#define endfile_block rule_block[ENDFILE]
+
+ if (end_block == NULL)
+ end_block = list_create(ip_end);
+ else
+ (void) list_prepend(end_block, ip_end);
+
+ if (! in_main_context()) {
+ if (begin_block != NULL && prog_block != NULL)
+ cp = list_merge(begin_block, prog_block);
+ else
+ cp = (begin_block != NULL) ? begin_block : prog_block;
+
+ if (cp != NULL)
+ (void) list_merge(cp, end_block);
+ else
+ cp = end_block;
+
+ (void) list_append(cp, instruction(Op_stop));
+ goto out;
+ }
+
+ if (endfile_block == NULL)
+ endfile_block = list_create(ip_endfile);
+ else {
+ ip_rec->has_endfile = true;
+ (void) list_prepend(endfile_block, ip_endfile);
+ }
+
+ if (beginfile_block == NULL)
+ beginfile_block = list_create(ip_beginfile);
+ else
+ (void) list_prepend(beginfile_block, ip_beginfile);
+
+ if (prog_block == NULL) {
+ if (end_block->nexti == end_block->lasti
+ && beginfile_block->nexti ==
beginfile_block->lasti
+ && endfile_block->nexti == endfile_block->lasti
+ ) {
+ /* no pattern-action and (real) end, beginfile or
endfile blocks */
+ bcfree(ip_rec);
+ bcfree(ip_newfile);
+ ip_rec = ip_newfile = NULL;
+
+ list_append(beginfile_block,
instruction(Op_after_beginfile));
+ (void) list_append(endfile_block,
instruction(Op_after_endfile));
+
+ if (begin_block == NULL) /* no program at all */
+ cp = end_block;
+ else
+ cp = list_merge(begin_block, end_block);
+ if (program_comment != NULL) {
+ (void) list_prepend(cp, program_comment);
+ }
+ if (comment != NULL)
+ (void) list_append(cp, comment);
+ (void) list_append(cp, ip_atexit);
+ (void) list_append(cp, instruction(Op_stop));
+
+ /* append beginfile_block and endfile_block for sole use
+ * in getline without redirection (Op_K_getline).
+ */
+
+ (void) list_merge(cp, beginfile_block);
+ (void) list_merge(cp, endfile_block);
+
+ goto out;
+
+ } else {
+ /* install a do-nothing prog block */
+ prog_block = list_create(instruction(Op_no_op));
+ }
+ }
+
+ (void) list_append(endfile_block, instruction(Op_after_endfile));
+ (void) list_prepend(prog_block, ip_rec);
+ (void) list_append(prog_block, instruction(Op_jmp));
+ prog_block->lasti->target_jmp = ip_rec;
+
+ list_append(beginfile_block, instruction(Op_after_beginfile));
+
+ cp = list_merge(beginfile_block, prog_block);
+ (void) list_prepend(cp, ip_newfile);
+ (void) list_merge(cp, endfile_block);
+ (void) list_merge(cp, end_block);
+ if (begin_block != NULL)
+ cp = list_merge(begin_block, cp);
+
+ if (program_comment != NULL) {
+ (void) list_prepend(cp, program_comment);
+ }
+ if (comment != NULL) {
+ (void) list_append(cp, comment);
+ }
+ (void) list_append(cp, ip_atexit);
+ (void) list_append(cp, instruction(Op_stop));
+
+out:
+ /* delete the Op_list, not needed */
+ tmp = cp->nexti;
+ bcfree(cp);
+ /* these variables are not used again but zap them anyway. */
+ comment = NULL;
+ function_comment = NULL;
+ program_comment = NULL;
+ return tmp;
+
+#undef begin_block
+#undef end_block
+#undef prog_block
+#undef beginfile_block
+#undef endfile_block
+}
+
+/* parse_program --- read in the program and convert into a list of
instructions */
+
+int
+parse_program(INSTRUCTION **pcode)
+{
+ int ret;
+
+ /* pre-create non-local jump targets
+ * ip_end (Op_no_op) -- used as jump target for `exit'
+ * outside an END block.
+ */
+ ip_end = instruction(Op_no_op);
+
+ if (! in_main_context())
+ ip_newfile = ip_rec = ip_atexit = ip_beginfile = ip_endfile =
NULL;
+ else {
+ ip_endfile = instruction(Op_no_op);
+ ip_beginfile = instruction(Op_no_op);
+ ip_rec = instruction(Op_get_record); /* target for `next', also
ip_newfile */
+ ip_newfile = bcalloc(Op_newfile, 2, 0); /* target for
`nextfile' */
+ ip_newfile->target_jmp = ip_end;
+ ip_newfile->target_endfile = ip_endfile;
+ (ip_newfile + 1)->target_get_record = ip_rec;
+ ip_rec->target_newfile = ip_newfile;
+ ip_atexit = instruction(Op_atexit); /* target for `exit' in
END block */
+ }
+
+ for (sourcefile = srcfiles->next; sourcefile->stype == SRC_EXTLIB;
+ sourcefile = sourcefile->next)
+ ;
+
+ lexeof = false;
+ lexptr = NULL;
+ lasttok = 0;
+ memset(rule_block, 0, sizeof(ruletab) * sizeof(INSTRUCTION *));
+ errcount = 0;
+ tok = tokstart != NULL ? tokstart : tokexpand();
+
+ ret = yyparse();
+ *pcode = mk_program();
+
+ /* avoid false source indications */
+ source = NULL;
+ sourceline = 0;
+ if (ret == 0) /* avoid spurious warning if parser aborted with
YYABORT */
+ check_funcs();
+
+ if (do_posix && ! check_param_names())
+ errcount++;
+
+ if (args_array == NULL)
+ emalloc(args_array, NODE **, (max_args + 2) * sizeof(NODE *),
"parse_program");
+ else
+ erealloc(args_array, NODE **, (max_args + 2) * sizeof(NODE *),
"parse_program");
+
+ return (ret || errcount);
+}
+
+/* free_srcfile --- free a SRCFILE struct */
+
+void
+free_srcfile(SRCFILE *thisfile)
+{
+ efree(thisfile->src);
+ efree(thisfile);
+}
+
+/* do_add_srcfile --- add one item to srcfiles */
+
+static SRCFILE *
+do_add_srcfile(enum srctype stype, char *src, char *path, SRCFILE *thisfile)
+{
+ SRCFILE *s;
+
+ emalloc(s, SRCFILE *, sizeof(SRCFILE), "do_add_srcfile");
+ memset(s, 0, sizeof(SRCFILE));
+ s->src = estrdup(src, strlen(src));
+ s->fullpath = path;
+ s->stype = stype;
+ s->fd = INVALID_HANDLE;
+ s->next = thisfile;
+ s->prev = thisfile->prev;
+ thisfile->prev->next = s;
+ thisfile->prev = s;
+ return s;
+}
+
+/* add_srcfile --- add one item to srcfiles after checking if
+ * a source file exists and not already in list.
+ */
+
+SRCFILE *
+add_srcfile(enum srctype stype, char *src, SRCFILE *thisfile, bool
*already_included, int *errcode)
+{
+ SRCFILE *s;
+ struct stat sbuf;
+ char *path;
+ int errno_val = 0;
+
+ if (already_included)
+ *already_included = false;
+ if (errcode)
+ *errcode = 0;
+ if (stype == SRC_CMDLINE || stype == SRC_STDIN)
+ return do_add_srcfile(stype, src, NULL, thisfile);
+
+ path = find_source(src, & sbuf, &errno_val, stype == SRC_EXTLIB);
+ if (path == NULL) {
+ if (errcode) {
+ *errcode = errno_val;
+ return NULL;
+ }
+ /* use full messages to ease translation */
+ fatal(stype != SRC_EXTLIB
+ ? _("can't open source file `%s' for reading (%s)")
+ : _("can't open shared library `%s' for reading (%s)"),
+ src,
+ errno_val ? strerror(errno_val) : _("reason
unknown"));
+ }
+
+ /* N.B. We do not eliminate duplicate SRC_FILE (-f) programs. */
+ for (s = srcfiles->next; s != srcfiles; s = s->next) {
+ if ((s->stype == SRC_FILE || s->stype == SRC_INC || s->stype ==
SRC_EXTLIB) && files_are_same(path, s)) {
+ if (stype == SRC_INC || stype == SRC_EXTLIB) {
+ /* eliminate duplicates */
+ if ((stype == SRC_INC) && (s->stype ==
SRC_FILE))
+ fatal(_("can't include `%s' and use it
as a program file"), src);
+
+ if (do_lint) {
+ int line = sourceline;
+ /* Kludge: the line number may be off
for address@hidden file'.
+ * Since, this function is also used
for '-f file' in main.c,
+ * sourceline > 1 check ensures that
the call is at
+ * parse time.
+ */
+ if (sourceline > 1 && lasttok ==
NEWLINE)
+ line--;
+ lintwarn_ln(line,
+ stype != SRC_EXTLIB
+ ? _("already included
source file `%s'")
+ : _("already loaded
shared library `%s'"),
+ src);
+ }
+ efree(path);
+ if (already_included)
+ *already_included = true;
+ return NULL;
+ } else {
+ /* duplicates are allowed for -f */
+ if (s->stype == SRC_INC)
+ fatal(_("can't include `%s' and use it
as a program file"), src);
+ /* no need to scan for further matches, since
+ * they must be of homogeneous type */
+ break;
+ }
+ }
+ }
+
+ s = do_add_srcfile(stype, src, path, thisfile);
+ s->sbuf = sbuf;
+ s->mtime = sbuf.st_mtime;
+ return s;
+}
+
+/* include_source --- read program from source included using address@hidden'
*/
+
+static int
+include_source(INSTRUCTION *file)
+{
+ SRCFILE *s;
+ char *src = file->lextok;
+ int errcode;
+ bool already_included;
+
+ if (do_traditional || do_posix) {
+ error_ln(file->source_line, _("@include is a gawk extension"));
+ return -1;
+ }
+
+ if (strlen(src) == 0) {
+ if (do_lint)
+ lintwarn_ln(file->source_line, _("empty filename after
@include"));
+ return 0;
+ }
+
+ s = add_srcfile(SRC_INC, src, sourcefile, &already_included, &errcode);
+ if (s == NULL) {
+ if (already_included)
+ return 0;
+ error_ln(file->source_line,
+ _("can't open source file `%s' for reading (%s)"),
+ src, errcode ? strerror(errcode) : _("reason unknown"));
+ return -1;
+ }
+
+ /* save scanner state for the current sourcefile */
+ sourcefile->srclines = sourceline;
+ sourcefile->lexptr = lexptr;
+ sourcefile->lexend = lexend;
+ sourcefile->lexptr_begin = lexptr_begin;
+ sourcefile->lexeme = lexeme;
+ sourcefile->lasttok = lasttok;
+
+ /* included file becomes the current source */
+ sourcefile = s;
+ lexptr = NULL;
+ sourceline = 0;
+ source = NULL;
+ lasttok = 0;
+ lexeof = false;
+ eof_warned = false;
+ return 0;
+}
+
+/* load_library --- load a shared library */
+
+static int
+load_library(INSTRUCTION *file)
+{
+ SRCFILE *s;
+ char *src = file->lextok;
+ int errcode;
+ bool already_included;
+
+ if (do_traditional || do_posix) {
+ error_ln(file->source_line, _("@load is a gawk extension"));
+ return -1;
+ }
+
+ if (strlen(src) == 0) {
+ if (do_lint)
+ lintwarn_ln(file->source_line, _("empty filename after
@load"));
+ return 0;
+ }
+
+ s = add_srcfile(SRC_EXTLIB, src, sourcefile, &already_included,
&errcode);
+ if (s == NULL) {
+ if (already_included)
+ return 0;
+ error_ln(file->source_line,
+ _("can't open shared library `%s' for reading (%s)"),
+ src, errcode ? strerror(errcode) : _("reason unknown"));
+ return -1;
+ }
+
+ load_ext(s->fullpath);
+ return 0;
+}
+
+/* next_sourcefile --- read program from the next source in srcfiles */
+
+static void
+next_sourcefile()
+{
+ static int (*closefunc)(int fd) = NULL;
+
+ if (closefunc == NULL) {
+ char *cp = getenv("AWKREADFUNC");
+
+ /* If necessary, one day, test value for different functions.
*/
+ if (cp == NULL)
+ closefunc = close;
+ else
+ closefunc = one_line_close;
+ }
+
+ /*
+ * This won't be true if there's an invalid character in
+ * the source file or source string (e.g., user typo).
+ * Previous versions of gawk did not core dump in such a
+ * case.
+ *
+ * assert(lexeof == true);
+ */
+
+ lexeof = false;
+ eof_warned = false;
+ sourcefile->srclines = sourceline; /* total no of lines in current
file */
+ if (sourcefile->fd > INVALID_HANDLE) {
+ if (sourcefile->fd != fileno(stdin)) /* safety */
+ (*closefunc)(sourcefile->fd);
+ sourcefile->fd = INVALID_HANDLE;
+ }
+ if (sourcefile->buf != NULL) {
+ efree(sourcefile->buf);
+ sourcefile->buf = NULL;
+ sourcefile->lexptr_begin = NULL;
+ }
+
+ while ((sourcefile = sourcefile->next) != NULL) {
+ if (sourcefile == srcfiles)
+ return;
+ if (sourcefile->stype != SRC_EXTLIB)
+ break;
+ }
+
+ if (sourcefile->lexptr_begin != NULL) {
+ /* resume reading from already opened file (postponed to
process '@include') */
+ lexptr = sourcefile->lexptr;
+ lexend = sourcefile->lexend;
+ lasttok = sourcefile->lasttok;
+ lexptr_begin = sourcefile->lexptr_begin;
+ lexeme = sourcefile->lexeme;
+ sourceline = sourcefile->srclines;
+ source = sourcefile->src;
+ } else {
+ lexptr = NULL;
+ sourceline = 0;
+ source = NULL;
+ lasttok = 0;
+ }
+}
+
+/* get_src_buf --- read the next buffer of source program */
+
+static char *
+get_src_buf()
+{
+ int n;
+ char *scan;
+ bool newfile;
+ int savelen;
+ struct stat sbuf;
+
+ /*
+ * No argument prototype on readfunc on purpose,
+ * avoids problems with some ancient systems where
+ * the types of arguments to read() aren't up to date.
+ */
+ static ssize_t (*readfunc)() = 0;
+
+ if (readfunc == NULL) {
+ char *cp = getenv("AWKREADFUNC");
+
+ /* If necessary, one day, test value for different functions.
*/
+ if (cp == NULL)
+ /*
+ * cast is to remove warnings on systems with
+ * different return types for read.
+ */
+ readfunc = ( ssize_t(*)() ) read;
+ else
+ readfunc = read_one_line;
+ }
+
+ newfile = false;
+ if (sourcefile == srcfiles)
+ return NULL;
+
+ if (sourcefile->stype == SRC_CMDLINE) {
+ if (sourcefile->bufsize == 0) {
+ sourcefile->bufsize = strlen(sourcefile->src);
+ lexptr = lexptr_begin = lexeme = sourcefile->src;
+ lexend = lexptr + sourcefile->bufsize;
+ sourceline = 1;
+ if (sourcefile->bufsize == 0) {
+ /*
+ * Yet Another Special case:
+ * gawk '' /path/name
+ * Sigh.
+ */
+ static bool warned = false;
+
+ if (do_lint && ! warned) {
+ warned = true;
+ lintwarn(_("empty program text on
command line"));
+ }
+ lexeof = true;
+ }
+ } else if (sourcefile->buf == NULL && *(lexptr-1) != '\n') {
+ /*
+ * The following goop is to ensure that the source
+ * ends with a newline and that the entire current
+ * line is available for error messages.
+ */
+ int offset;
+ char *buf;
+
+ offset = lexptr - lexeme;
+ for (scan = lexeme; scan > lexptr_begin; scan--)
+ if (*scan == '\n') {
+ scan++;
+ break;
+ }
+ savelen = lexptr - scan;
+ emalloc(buf, char *, savelen + 1, "get_src_buf");
+ memcpy(buf, scan, savelen);
+ thisline = buf;
+ lexptr = buf + savelen;
+ *lexptr = '\n';
+ lexeme = lexptr - offset;
+ lexptr_begin = buf;
+ lexend = lexptr + 1;
+ sourcefile->buf = buf;
+ } else
+ lexeof = true;
+ return lexptr;
+ }
+
+ if (sourcefile->fd <= INVALID_HANDLE) {
+ int fd;
+ int l;
+
+ source = sourcefile->src;
+ if (source == NULL)
+ return NULL;
+ fd = srcopen(sourcefile);
+ if (fd <= INVALID_HANDLE) {
+ char *in;
+
+ /* suppress file name and line no. in error mesg */
+ in = source;
+ source = NULL;
+ error(_("can't open source file `%s' for reading (%s)"),
+ in, strerror(errno));
+ errcount++;
+ lexeof = true;
+ return sourcefile->src;
+ }
+
+ sourcefile->fd = fd;
+ l = optimal_bufsize(fd, &sbuf);
+ /*
+ * Make sure that something silly like
+ * AWKBUFSIZE=8 make check
+ * works ok.
+ */
+#define A_DECENT_BUFFER_SIZE 128
+ if (l < A_DECENT_BUFFER_SIZE)
+ l = A_DECENT_BUFFER_SIZE;
+#undef A_DECENT_BUFFER_SIZE
+ sourcefile->bufsize = l;
+ newfile = true;
+ emalloc(sourcefile->buf, char *, sourcefile->bufsize,
"get_src_buf");
+ lexptr = lexptr_begin = lexeme = sourcefile->buf;
+ savelen = 0;
+ sourceline = 1;
+ thisline = NULL;
+ } else {
+ /*
+ * Here, we retain the current source line in the beginning of
the buffer.
+ */
+ int offset;
+ for (scan = lexeme; scan > lexptr_begin; scan--)
+ if (*scan == '\n') {
+ scan++;
+ break;
+ }
+
+ savelen = lexptr - scan;
+ offset = lexptr - lexeme;
+
+ if (savelen > 0) {
+ /*
+ * Need to make sure we have room left for reading new
text;
+ * grow the buffer (by doubling, an arbitrary choice),
if the retained line
+ * takes up more than a certain percentage (50%, again
an arbitrary figure)
+ * of the available space.
+ */
+
+ if (savelen > sourcefile->bufsize / 2) { /* long line
or token */
+ sourcefile->bufsize *= 2;
+ erealloc(sourcefile->buf, char *,
sourcefile->bufsize, "get_src_buf");
+ scan = sourcefile->buf + (scan - lexptr_begin);
+ lexptr_begin = sourcefile->buf;
+ }
+
+ thisline = lexptr_begin;
+ memmove(thisline, scan, savelen);
+ lexptr = thisline + savelen;
+ lexeme = lexptr - offset;
+ } else {
+ savelen = 0;
+ lexptr = lexeme = lexptr_begin;
+ thisline = NULL;
+ }
+ }
+
+ n = (*readfunc)(sourcefile->fd, lexptr, sourcefile->bufsize - savelen);
+ if (n == -1) {
+ error(_("can't read sourcefile `%s' (%s)"),
+ source, strerror(errno));
+ errcount++;
+ lexeof = true;
+ } else {
+ lexend = lexptr + n;
+ if (n == 0) {
+ static bool warned = false;
+ if (do_lint && newfile && ! warned) {
+ warned = true;
+ sourceline = 0;
+ lintwarn(_("source file `%s' is empty"),
source);
+ }
+ lexeof = true;
+ }
+ }
+ return sourcefile->buf;
+}
+
+/* tokadd --- add a character to the token buffer */
+
+#define tokadd(x) (*tok++ = (x), tok == tokend ? tokexpand() : tok)
+
+/* tokexpand --- grow the token buffer */
+
+static char *
+tokexpand()
+{
+ static int toksize;
+ int tokoffset;
+
+ if (tokstart != NULL) {
+ tokoffset = tok - tokstart;
+ toksize *= 2;
+ erealloc(tokstart, char *, toksize, "tokexpand");
+ tok = tokstart + tokoffset;
+ } else {
+ toksize = 60;
+ emalloc(tokstart, char *, toksize, "tokexpand");
+ tok = tokstart;
+ }
+ tokend = tokstart + toksize;
+ return tok;
+}
+
+/* check_bad_char --- fatal if c isn't allowed in gawk source code */
+
+/*
+ * The error message was inspired by someone who decided to put
+ * a physical \0 byte into the source code to see what would
+ * happen and then filed a bug report about it. Sigh.
+ */
+
+static void
+check_bad_char(int c)
+{
+ /* allow escapes. needed for autoconf. bleah. */
+ switch (c) {
+ case '\a':
+ case '\b':
+ case '\f':
+ case '\n':
+ case '\r':
+ case '\t':
+ return;
+ default:
+ break;
+ }
+
+ if (iscntrl(c) && ! isspace(c))
+ fatal(_("PEBKAC error: invalid character '\\%03o' in source
code"), c & 0xFF);
+}
+
+/* nextc --- get the next input character */
+
+static int
+nextc(bool check_for_bad)
+{
+ if (gawk_mb_cur_max > 1) {
+again:
+ if (lexeof)
+ return END_FILE;
+ if (lexptr == NULL || lexptr >= lexend) {
+ if (get_src_buf())
+ goto again;
+ return END_SRC;
+ }
+
+ /* Update the buffer index. */
+ cur_ring_idx = (cur_ring_idx == RING_BUFFER_SIZE - 1)? 0 :
+ cur_ring_idx + 1;
+
+ /* Did we already check the current character? */
+ if (cur_char_ring[cur_ring_idx] == 0) {
+ /* No, we need to check the next character on the
buffer. */
+ int idx, work_ring_idx = cur_ring_idx;
+ mbstate_t tmp_state;
+ size_t mbclen;
+
+ for (idx = 0; lexptr + idx < lexend; idx++) {
+ tmp_state = cur_mbstate;
+ mbclen = mbrlen(lexptr, idx + 1, &tmp_state);
+
+ if (mbclen == 1 || mbclen == (size_t)-1 ||
mbclen == 0) {
+ /* It is a singlebyte character,
non-complete multibyte
+ character or EOF. We treat it as a
singlebyte
+ character. */
+ cur_char_ring[work_ring_idx] = 1;
+ break;
+ } else if (mbclen == (size_t)-2) {
+ /* It is not a complete multibyte
character. */
+ cur_char_ring[work_ring_idx] = idx + 1;
+ } else {
+ /* mbclen > 1 */
+ cur_char_ring[work_ring_idx] = mbclen;
+ break;
+ }
+ work_ring_idx = (work_ring_idx ==
RING_BUFFER_SIZE - 1)?
+ 0 : work_ring_idx + 1;
+ }
+ cur_mbstate = tmp_state;
+
+ /* Put a mark on the position on which we write next
character. */
+ work_ring_idx = (work_ring_idx == RING_BUFFER_SIZE - 1)?
+ 0 : work_ring_idx + 1;
+ cur_char_ring[work_ring_idx] = 0;
+ }
+ if (check_for_bad)
+ check_bad_char(*lexptr);
+
+ return (int) (unsigned char) *lexptr++;
+ } else {
+ do {
+ if (lexeof)
+ return END_FILE;
+ if (lexptr && lexptr < lexend) {
+ if (check_for_bad)
+ check_bad_char(*lexptr);
+ return ((int) (unsigned char) *lexptr++);
+ }
+ } while (get_src_buf());
+ return END_SRC;
+ }
+}
+
+/* pushback --- push a character back on the input */
+
+static inline void
+pushback(void)
+{
+ if (gawk_mb_cur_max > 1)
+ cur_ring_idx = (cur_ring_idx == 0)? RING_BUFFER_SIZE - 1 :
+ cur_ring_idx - 1;
+ (! lexeof && lexptr && lexptr > lexptr_begin ? lexptr-- : lexptr);
+}
+
+/* check_comment --- check for block comment */
+
+void
+check_comment(void)
+{
+ if (comment != NULL) {
+ if (first_rule) {
+ program_comment = comment;
+ } else
+ block_comment = comment;
+ comment = NULL;
+ }
+ first_rule = false;
+}
+
+/*
+ * get_comment --- collect comment text.
+ * Flag = EOL_COMMENT for end-of-line comments.
+ * Flag = FULL_COMMENT for self-contained comments.
+ */
+
+int
+get_comment(int flag)
+{
+ int c;
+ int sl;
+ tok = tokstart;
+ tokadd('#');
+ sl = sourceline;
+
+ while (true) {
+ while ((c = nextc(false)) != '\n' && c != END_FILE) {
+ tokadd(c);
+ }
+ if (flag == EOL_COMMENT) {
+ /* comment at end of line. */
+ if (c == '\n')
+ tokadd(c);
+ break;
+ }
+ if (c == '\n') {
+ tokadd(c);
+ sourceline++;
+ do {
+ c = nextc(false);
+ if (c == '\n') {
+ sourceline++;
+ tokadd(c);
+ }
+ } while (isspace(c) && c != END_FILE);
+ if (c == END_FILE)
+ break;
+ else if (c != '#') {
+ pushback();
+ sourceline--;
+ break;
+ } else
+ tokadd(c);
+ } else
+ break;
+ }
+ comment = bcalloc(Op_comment, 1, sl);
+ comment->source_file = source;
+ comment->memory = make_str_node(tokstart, tok - tokstart, 0);
+ comment->memory->comment_type = flag;
+
+ return c;
+}
+
+/* split_comment --- split initial comment text into program and function
parts */
+
+static void
+split_comment(void)
+{
+ char *p;
+ int l;
+ NODE *n;
+
+ p = comment->memory->stptr;
+ l = comment->memory->stlen - 3;
+ /* have at least two comments so split at last blank line (\n\n) */
+ while (l >= 0) {
+ if (p[l] == '\n' && p[l+1] == '\n') {
+ function_comment = comment;
+ n = function_comment->memory;
+ function_comment->memory = make_str_node(p + l + 2,
n->stlen - l - 2, 0);
+ /* create program comment */
+ program_comment = bcalloc(Op_comment, 1, sourceline);
+ program_comment->source_file = comment->source_file;
+ p[l + 2] = 0;
+ program_comment->memory = make_str_node(p, l + 2, 0);
+ comment = NULL;
+ freenode(n);
+ break;
+ }
+ else
+ l--;
+ }
+}
+
+/* allow_newline --- allow newline after &&, ||, ? and : */
+
+static void
+allow_newline(void)
+{
+ int c;
+
+ for (;;) {
+ c = nextc(true);
+ if (c == END_FILE) {
+ pushback();
+ break;
+ }
+ if (c == '#') {
+ if (do_pretty_print && ! do_profile) {
+ /* collect comment byte code iff doing pretty print but
not profiling. */
+ c = get_comment(EOL_COMMENT);
+ } else {
+ while ((c = nextc(false)) != '\n' && c !=
END_FILE)
+ continue;
+ }
+ if (c == END_FILE) {
+ pushback();
+ break;
+ }
+ }
+ if (c == '\n')
+ sourceline++;
+ if (! isspace(c)) {
+ pushback();
+ break;
+ }
+ }
+}
+
+/* newline_eof --- return newline or EOF as needed and adjust variables */
+
+/*
+ * This routine used to be a macro, however GCC 4.6.2 warned about
+ * the result of a computation not being used. Converting to a function
+ * removes the warnings.
+ */
+
+static int
+newline_eof()
+{
+ /* NB: a newline at end does not start a source line. */
+ if (lasttok != NEWLINE) {
+ pushback();
+ if (do_lint && ! eof_warned) {
+ lintwarn(_("source file does not end in newline"));
+ eof_warned = true;
+ }
+ sourceline++;
+ return NEWLINE;
+ }
+
+ sourceline--;
+ eof_warned = false;
+ return LEX_EOF;
+}
+
+/* yylex --- Read the input and turn it into tokens. */
+
+static int
+yylex(void)
+{
+ int c;
+ bool seen_e = false; /* These are for numbers */
+ bool seen_point = false;
+ bool esc_seen; /* for literal strings */
+ int mid;
+ int base;
+ static bool did_newline = false;
+ char *tokkey;
+ bool inhex = false;
+ bool intlstr = false;
+ AWKNUM d;
+
+#define GET_INSTRUCTION(op) bcalloc(op, 1, sourceline)
+
+#define NEWLINE_EOF newline_eof()
+
+ yylval = (INSTRUCTION *) NULL;
+ if (lasttok == SUBSCRIPT) {
+ lasttok = 0;
+ return SUBSCRIPT;
+ }
+
+ if (lasttok == LEX_EOF) /* error earlier in current source,
must give up !! */
+ return 0;
+
+ c = nextc(! want_regexp);
+ if (c == END_SRC)
+ return 0;
+ if (c == END_FILE)
+ return lasttok = NEWLINE_EOF;
+ pushback();
+
+#if defined __EMX__
+ /*
+ * added for OS/2's extproc feature of cmd.exe
+ * (like #! in BSD sh)
+ */
+ if (strncasecmp(lexptr, "extproc ", 8) == 0) {
+ while (*lexptr && *lexptr != '\n')
+ lexptr++;
+ }
+#endif
+
+ lexeme = lexptr;
+ thisline = NULL;
+ if (want_regexp) {
+ int in_brack = 0; /* count brackets, [[:alnum:]] allowed
*/
+ /*
+ * Counting brackets is non-trivial. [[] is ok,
+ * and so is [\]], with a point being that /[/]/ as a regexp
+ * constant has to work.
+ *
+ * Do not count [ or ] if either one is preceded by a \.
+ * A `[' should be counted if
+ * a) it is the first one so far (in_brack == 0)
+ * b) it is the `[' in `[:'
+ * A ']' should be counted if not preceded by a \, since
+ * it is either closing `:]' or just a plain list.
+ * According to POSIX, []] is how you put a ] into a set.
+ * Try to handle that too.
+ *
+ * The code for \ handles \[ and \].
+ */
+
+ want_regexp = false;
+ tok = tokstart;
+ for (;;) {
+ c = nextc(false);
+
+ if (gawk_mb_cur_max == 1 || nextc_is_1stbyte) switch
(c) {
+ case '[':
+ /* one day check for `.' and `=' too */
+ if (nextc(false) == ':' || in_brack == 0)
+ in_brack++;
+ pushback();
+ break;
+ case ']':
+ if (tok[-1] == '['
+ || (tok[-2] == '[' && tok[-1] == '^'))
+ /* do nothing */;
+ else
+ in_brack--;
+ break;
+ case '\\':
+ if ((c = nextc(false)) == END_FILE) {
+ pushback();
+ yyerror(_("unterminated regexp ends
with `\\' at end of file"));
+ goto end_regexp; /* kludge */
+ } else if (c == '\n') {
+ sourceline++;
+ continue;
+ } else {
+ tokadd('\\');
+ tokadd(c);
+ continue;
+ }
+ break;
+ case '/': /* end of the regexp */
+ if (in_brack > 0)
+ break;
+end_regexp:
+ yylval = GET_INSTRUCTION(Op_token);
+ yylval->lextok = estrdup(tokstart, tok -
tokstart);
+ if (do_lint) {
+ int peek = nextc(true);
+
+ pushback();
+ if (peek == 'i' || peek == 's') {
+ if (source)
+ lintwarn(
+ _("%s: %d: tawk regex modifier
`/.../%c' doesn't work in gawk"),
+ source,
sourceline, peek);
+ else
+ lintwarn(
+ _("tawk regex modifier
`/.../%c' doesn't work in gawk"),
+ peek);
+ }
+ }
+ return lasttok = REGEXP;
+ case '\n':
+ pushback();
+ yyerror(_("unterminated regexp"));
+ goto end_regexp; /* kludge */
+ case END_FILE:
+ pushback();
+ yyerror(_("unterminated regexp at end of
file"));
+ goto end_regexp; /* kludge */
+ }
+ tokadd(c);
+ }
+ }
+retry:
+
+ /* skipping \r is a hack, but windows is just too pervasive. sigh. */
+ while ((c = nextc(true)) == ' ' || c == '\t' || c == '\r')
+ continue;
+
+ lexeme = lexptr ? lexptr - 1 : lexptr;
+ thisline = NULL;
+ tok = tokstart;
+
+ if (gawk_mb_cur_max == 1 || nextc_is_1stbyte)
+ switch (c) {
+ case END_SRC:
+ return 0;
+
+ case END_FILE:
+ return lasttok = NEWLINE_EOF;
+
+ case '\n':
+ sourceline++;
+ return lasttok = NEWLINE;
+
+ case '#': /* it's a comment */
+ if (do_pretty_print && ! do_profile) {
+ /*
+ * Collect comment byte code iff doing pretty print
+ * but not profiling.
+ */
+ if (lasttok == NEWLINE || lasttok == 0)
+ c = get_comment(FULL_COMMENT);
+ else
+ c = get_comment(EOL_COMMENT);
+
+ if (c == END_FILE)
+ return lasttok = NEWLINE_EOF;
+ } else {
+ while ((c = nextc(false)) != '\n') {
+ if (c == END_FILE)
+ return lasttok = NEWLINE_EOF;
+ }
+ }
+ sourceline++;
+ return lasttok = NEWLINE;
+
+ case '@':
+ at_seen = true;
+ return lasttok = '@';
+
+ case '\\':
+#ifdef RELAXED_CONTINUATION
+ /*
+ * This code purports to allow comments and/or whitespace
+ * after the `\' at the end of a line used for continuation.
+ * Use it at your own risk. We think it's a bad idea, which
+ * is why it's not on by default.
+ */
+ if (! do_traditional) {
+ /* strip trailing white-space and/or comment */
+ while ((c = nextc(true)) == ' ' || c == '\t' || c ==
'\r')
+ continue;
+ if (c == '#') {
+ static bool warned = false;
+
+ if (do_lint && ! warned) {
+ warned = true;
+ lintwarn(
+ _("use of `\\ #...' line continuation is not portable"));
+ }
+ if (do_pretty_print && ! do_profile)
+ c = get_comment(EOL_COMMENT);
+ else {
+ while ((c = nextc(false)) != '\n')
+ if (c == END_FILE)
+ break;
+ }
+ }
+ pushback();
+ }
+#endif /* RELAXED_CONTINUATION */
+ c = nextc(true);
+ if (c == '\r') /* allow MS-DOS files. bleah */
+ c = nextc(true);
+ if (c == '\n') {
+ sourceline++;
+ goto retry;
+ } else {
+ yyerror(_("backslash not last character on line"));
+ return lasttok = LEX_EOF;
+ }
+ break;
+
+ case ':':
+ case '?':
+ yylval = GET_INSTRUCTION(Op_cond_exp);
+ if (! do_posix)
+ allow_newline();
+ return lasttok = c;
+
+ /*
+ * in_parens is undefined unless we are parsing a print
+ * statement (in_print), but why bother with a check?
+ */
+ case ')':
+ in_parens--;
+ return lasttok = c;
+
+ case '(':
+ in_parens++;
+ return lasttok = c;
+ case '$':
+ yylval = GET_INSTRUCTION(Op_field_spec);
+ return lasttok = c;
+ case '{':
+ if (++in_braces == 1)
+ firstline = sourceline;
+ case ';':
+ case ',':
+ case '[':
+ return lasttok = c;
+ case ']':
+ c = nextc(true);
+ pushback();
+ if (c == '[') {
+ yylval = GET_INSTRUCTION(Op_sub_array);
+ lasttok = ']';
+ } else {
+ yylval = GET_INSTRUCTION(Op_subscript);
+ lasttok = SUBSCRIPT; /* end of subscripts */
+ }
+ return ']';
+
+ case '*':
+ if ((c = nextc(true)) == '=') {
+ yylval = GET_INSTRUCTION(Op_assign_times);
+ return lasttok = ASSIGNOP;
+ } else if (do_posix) {
+ pushback();
+ yylval = GET_INSTRUCTION(Op_times);
+ return lasttok = '*';
+ } else if (c == '*') {
+ /* make ** and **= aliases for ^ and ^= */
+ static bool did_warn_op = false, did_warn_assgn = false;
+
+ if (nextc(true) == '=') {
+ if (! did_warn_assgn) {
+ did_warn_assgn = true;
+ if (do_lint)
+ lintwarn(_("POSIX does not
allow operator `**='"));
+ if (do_lint_old)
+ warning(_("old awk does not
support operator `**='"));
+ }
+ yylval = GET_INSTRUCTION(Op_assign_exp);
+ return ASSIGNOP;
+ } else {
+ pushback();
+ if (! did_warn_op) {
+ did_warn_op = true;
+ if (do_lint)
+ lintwarn(_("POSIX does not
allow operator `**'"));
+ if (do_lint_old)
+ warning(_("old awk does not
support operator `**'"));
+ }
+ yylval = GET_INSTRUCTION(Op_exp);
+ return lasttok = '^';
+ }
+ }
+ pushback();
+ yylval = GET_INSTRUCTION(Op_times);
+ return lasttok = '*';
+
+ case '/':
+ if (nextc(false) == '=') {
+ pushback();
+ return lasttok = SLASH_BEFORE_EQUAL;
+ }
+ pushback();
+ yylval = GET_INSTRUCTION(Op_quotient);
+ return lasttok = '/';
+
+ case '%':
+ if (nextc(true) == '=') {
+ yylval = GET_INSTRUCTION(Op_assign_mod);
+ return lasttok = ASSIGNOP;
+ }
+ pushback();
+ yylval = GET_INSTRUCTION(Op_mod);
+ return lasttok = '%';
+
+ case '^':
+ {
+ static bool did_warn_op = false, did_warn_assgn = false;
+
+ if (nextc(true) == '=') {
+ if (do_lint_old && ! did_warn_assgn) {
+ did_warn_assgn = true;
+ warning(_("operator `^=' is not supported in
old awk"));
+ }
+ yylval = GET_INSTRUCTION(Op_assign_exp);
+ return lasttok = ASSIGNOP;
+ }
+ pushback();
+ if (do_lint_old && ! did_warn_op) {
+ did_warn_op = true;
+ warning(_("operator `^' is not supported in old awk"));
+ }
+ yylval = GET_INSTRUCTION(Op_exp);
+ return lasttok = '^';
+ }
+
+ case '+':
+ if ((c = nextc(true)) == '=') {
+ yylval = GET_INSTRUCTION(Op_assign_plus);
+ return lasttok = ASSIGNOP;
+ }
+ if (c == '+') {
+ yylval = GET_INSTRUCTION(Op_symbol);
+ return lasttok = INCREMENT;
+ }
+ pushback();
+ yylval = GET_INSTRUCTION(Op_plus);
+ return lasttok = '+';
+
+ case '!':
+ if ((c = nextc(true)) == '=') {
+ yylval = GET_INSTRUCTION(Op_notequal);
+ return lasttok = RELOP;
+ }
+ if (c == '~') {
+ yylval = GET_INSTRUCTION(Op_nomatch);
+ return lasttok = MATCHOP;
+ }
+ pushback();
+ yylval = GET_INSTRUCTION(Op_symbol);
+ return lasttok = '!';
+
+ case '<':
+ if (nextc(true) == '=') {
+ yylval = GET_INSTRUCTION(Op_leq);
+ return lasttok = RELOP;
+ }
+ yylval = GET_INSTRUCTION(Op_less);
+ pushback();
+ return lasttok = '<';
+
+ case '=':
+ if (nextc(true) == '=') {
+ yylval = GET_INSTRUCTION(Op_equal);
+ return lasttok = RELOP;
+ }
+ yylval = GET_INSTRUCTION(Op_assign);
+ pushback();
+ return lasttok = ASSIGN;
+
+ case '>':
+ if ((c = nextc(true)) == '=') {
+ yylval = GET_INSTRUCTION(Op_geq);
+ return lasttok = RELOP;
+ } else if (c == '>') {
+ yylval = GET_INSTRUCTION(Op_symbol);
+ yylval->redir_type = redirect_append;
+ return lasttok = IO_OUT;
+ }
+ pushback();
+ if (in_print && in_parens == 0) {
+ yylval = GET_INSTRUCTION(Op_symbol);
+ yylval->redir_type = redirect_output;
+ return lasttok = IO_OUT;
+ }
+ yylval = GET_INSTRUCTION(Op_greater);
+ return lasttok = '>';
+
+ case '~':
+ yylval = GET_INSTRUCTION(Op_match);
+ return lasttok = MATCHOP;
+
+ case '}':
+ /*
+ * Added did newline stuff. Easier than
+ * hacking the grammar.
+ */
+ if (did_newline) {
+ did_newline = false;
+ if (--in_braces == 0)
+ lastline = sourceline;
+ return lasttok = c;
+ }
+ did_newline = true;
+ --lexptr; /* pick up } next time */
+ return lasttok = NEWLINE;
+
+ case '"':
+ string:
+ esc_seen = false;
+ /*
+ * Allow any kind of junk in quoted string,
+ * so pass false to nextc().
+ */
+ while ((c = nextc(false)) != '"') {
+ if (c == '\n') {
+ pushback();
+ yyerror(_("unterminated string"));
+ return lasttok = LEX_EOF;
+ }
+ if ((gawk_mb_cur_max == 1 || nextc_is_1stbyte) &&
+ c == '\\') {
+ c = nextc(true);
+ if (c == '\n') {
+ sourceline++;
+ continue;
+ }
+ esc_seen = true;
+ if (! want_source || c != '"')
+ tokadd('\\');
+ }
+ if (c == END_FILE) {
+ pushback();
+ yyerror(_("unterminated string"));
+ return lasttok = LEX_EOF;
+ }
+ tokadd(c);
+ }
+ yylval = GET_INSTRUCTION(Op_token);
+ if (want_source) {
+ yylval->lextok = estrdup(tokstart, tok - tokstart);
+ return lasttok = FILENAME;
+ }
+
+ yylval->opcode = Op_push_i;
+ yylval->memory = make_str_node(tokstart,
+ tok - tokstart, esc_seen ? SCAN : 0);
+ if (intlstr) {
+ yylval->memory->flags |= INTLSTR;
+ intlstr = false;
+ if (do_intl)
+ dumpintlstr(yylval->memory->stptr,
yylval->memory->stlen);
+ }
+ return lasttok = YSTRING;
+
+ case '-':
+ if ((c = nextc(true)) == '=') {
+ yylval = GET_INSTRUCTION(Op_assign_minus);
+ return lasttok = ASSIGNOP;
+ }
+ if (c == '-') {
+ yylval = GET_INSTRUCTION(Op_symbol);
+ return lasttok = DECREMENT;
+ }
+ pushback();
+ yylval = GET_INSTRUCTION(Op_minus);
+ return lasttok = '-';
+
+ case '.':
+ c = nextc(true);
+ pushback();
+ if (! isdigit(c))
+ return lasttok = '.';
+ else
+ c = '.';
+ /* FALL THROUGH */
+ case '0':
+ case '1':
+ case '2':
+ case '3':
+ case '4':
+ case '5':
+ case '6':
+ case '7':
+ case '8':
+ case '9':
+ /* It's a number */
+ for (;;) {
+ bool gotnumber = false;
+
+ tokadd(c);
+ switch (c) {
+ case 'x':
+ case 'X':
+ if (do_traditional)
+ goto done;
+ if (tok == tokstart + 2) {
+ int peek = nextc(true);
+
+ if (isxdigit(peek)) {
+ inhex = true;
+ pushback(); /* following
digit */
+ } else {
+ pushback(); /* x or X */
+ goto done;
+ }
+ }
+ break;
+ case '.':
+ /* period ends exponent part of floating point
number */
+ if (seen_point || seen_e) {
+ gotnumber = true;
+ break;
+ }
+ seen_point = true;
+ break;
+ case 'e':
+ case 'E':
+ if (inhex)
+ break;
+ if (seen_e) {
+ gotnumber = true;
+ break;
+ }
+ seen_e = true;
+ if ((c = nextc(true)) == '-' || c == '+') {
+ int c2 = nextc(true);
+
+ if (isdigit(c2)) {
+ tokadd(c);
+ tokadd(c2);
+ } else {
+ pushback(); /* non-digit
after + or - */
+ pushback(); /* + or - */
+ pushback(); /* e or E */
+ }
+ } else if (! isdigit(c)) {
+ pushback(); /* character after e or
E */
+ pushback(); /* e or E */
+ } else {
+ pushback(); /* digit */
+ }
+ break;
+ case 'a':
+ case 'A':
+ case 'b':
+ case 'B':
+ case 'c':
+ case 'C':
+ case 'D':
+ case 'd':
+ case 'f':
+ case 'F':
+ if (do_traditional || ! inhex)
+ goto done;
+ /* fall through */
+ case '0':
+ case '1':
+ case '2':
+ case '3':
+ case '4':
+ case '5':
+ case '6':
+ case '7':
+ case '8':
+ case '9':
+ break;
+ default:
+ done:
+ gotnumber = true;
+ }
+ if (gotnumber)
+ break;
+ c = nextc(true);
+ }
+ pushback();
+
+ tokadd('\0');
+ yylval = GET_INSTRUCTION(Op_push_i);
+
+ base = 10;
+ if (! do_traditional) {
+ base = get_numbase(tokstart, false);
+ if (do_lint) {
+ if (base == 8)
+ lintwarn("numeric constant `%.*s'
treated as octal",
+ (int) strlen(tokstart)-1,
tokstart);
+ else if (base == 16)
+ lintwarn("numeric constant `%.*s'
treated as hexadecimal",
+ (int) strlen(tokstart)-1,
tokstart);
+ }
+ }
+
+#ifdef HAVE_MPFR
+ if (do_mpfr) {
+ NODE *r;
+
+ if (! seen_point && ! seen_e) {
+ r = mpg_integer();
+ mpg_strtoui(r->mpg_i, tokstart,
strlen(tokstart), NULL, base);
+ errno = 0;
+ } else {
+ int tval;
+ r = mpg_float();
+ tval = mpfr_strtofr(r->mpg_numbr, tokstart,
NULL, base, ROUND_MODE);
+ errno = 0;
+ IEEE_FMT(r->mpg_numbr, tval);
+ }
+ yylval->memory = r;
+ return lasttok = YNUMBER;
+ }
+#endif
+ if (base != 10)
+ d = nondec2awknum(tokstart, strlen(tokstart));
+ else
+ d = atof(tokstart);
+ yylval->memory = make_number(d);
+ if (d <= INT32_MAX && d >= INT32_MIN && d == (int32_t) d)
+ yylval->memory->flags |= NUMINT;
+ return lasttok = YNUMBER;
+
+ case '&':
+ if ((c = nextc(true)) == '&') {
+ yylval = GET_INSTRUCTION(Op_and);
+ allow_newline();
+ return lasttok = LEX_AND;
+ }
+ pushback();
+ yylval = GET_INSTRUCTION(Op_symbol);
+ return lasttok = '&';
+
+ case '|':
+ if ((c = nextc(true)) == '|') {
+ yylval = GET_INSTRUCTION(Op_or);
+ allow_newline();
+ return lasttok = LEX_OR;
+ } else if (! do_traditional && c == '&') {
+ yylval = GET_INSTRUCTION(Op_symbol);
+ yylval->redir_type = redirect_twoway;
+ return lasttok = (in_print && in_parens == 0 ? IO_OUT :
IO_IN);
+ }
+ pushback();
+ if (in_print && in_parens == 0) {
+ yylval = GET_INSTRUCTION(Op_symbol);
+ yylval->redir_type = redirect_pipe;
+ return lasttok = IO_OUT;
+ } else {
+ yylval = GET_INSTRUCTION(Op_symbol);
+ yylval->redir_type = redirect_pipein;
+ return lasttok = IO_IN;
+ }
+ }
+
+ if (c != '_' && ! is_alpha(c)) {
+ yyerror(_("invalid char '%c' in expression"), c);
+ return lasttok = LEX_EOF;
+ }
+
+ /*
+ * Lots of fog here. Consider:
+ *
+ * print "xyzzy"$_"foo"
+ *
+ * Without the check for ` lasttok != '$' ', this is parsed as
+ *
+ * print "xxyzz" $(_"foo")
+ *
+ * With the check, it is "correctly" parsed as three
+ * string concatenations. Sigh. This seems to be
+ * "more correct", but this is definitely one of those
+ * occasions where the interactions are funny.
+ */
+ if (! do_traditional && c == '_' && lasttok != '$') {
+ if ((c = nextc(true)) == '"') {
+ intlstr = true;
+ goto string;
+ }
+ pushback();
+ c = '_';
+ }
+
+ /* it's some type of name-type-thing. Find its length. */
+ tok = tokstart;
+ while (c != END_FILE && is_identchar(c)) {
+ tokadd(c);
+ c = nextc(true);
+ }
+ tokadd('\0');
+ pushback();
+
+ /* See if it is a special token. */
+ if ((mid = check_special(tokstart)) >= 0) {
+ static int warntab[sizeof(tokentab) / sizeof(tokentab[0])];
+ int class = tokentab[mid].class;
+
+ if ((class == LEX_INCLUDE || class == LEX_LOAD || class ==
LEX_EVAL)
+ && lasttok != '@')
+ goto out;
+
+ if (do_lint) {
+ if ((tokentab[mid].flags & GAWKX) != 0 && (warntab[mid]
& GAWKX) == 0) {
+ lintwarn(_("`%s' is a gawk extension"),
+ tokentab[mid].operator);
+ warntab[mid] |= GAWKX;
+ }
+ if ((tokentab[mid].flags & NOT_POSIX) != 0 &&
(warntab[mid] & NOT_POSIX) == 0) {
+ lintwarn(_("POSIX does not allow `%s'"),
+ tokentab[mid].operator);
+ warntab[mid] |= NOT_POSIX;
+ }
+ }
+ if (do_lint_old && (tokentab[mid].flags & NOT_OLD) != 0
+ && (warntab[mid] & NOT_OLD) == 0
+ ) {
+ warning(_("`%s' is not supported in old awk"),
+ tokentab[mid].operator);
+ warntab[mid] |= NOT_OLD;
+ }
+
+ if ((tokentab[mid].flags & BREAK) != 0)
+ break_allowed++;
+ if ((tokentab[mid].flags & CONTINUE) != 0)
+ continue_allowed++;
+
+ switch (class) {
+ case LEX_INCLUDE:
+ case LEX_LOAD:
+ want_source = true;
+ break;
+ case LEX_EVAL:
+ if (in_main_context())
+ goto out;
+ emalloc(tokkey, char *, tok - tokstart + 1, "yylex");
+ tokkey[0] = '@';
+ memcpy(tokkey + 1, tokstart, tok - tokstart);
+ yylval = GET_INSTRUCTION(Op_token);
+ yylval->lextok = tokkey;
+ break;
+
+ case LEX_FUNCTION:
+ case LEX_BEGIN:
+ case LEX_END:
+ case LEX_BEGINFILE:
+ case LEX_ENDFILE:
+ yylval = bcalloc(tokentab[mid].value, 3, sourceline);
+ break;
+
+ case LEX_FOR:
+ case LEX_WHILE:
+ case LEX_DO:
+ case LEX_SWITCH:
+ if (! do_pretty_print)
+ return lasttok = class;
+ /* fall through */
+ case LEX_CASE:
+ yylval = bcalloc(tokentab[mid].value, 2, sourceline);
+ break;
+
+ /*
+ * These must be checked here, due to the LALR nature of the
parser,
+ * the rules for continue and break may not be reduced until
after
+ * a token that increments the xxx_allowed varibles is seen.
Bleah.
+ */
+ case LEX_CONTINUE:
+ if (! continue_allowed) {
+ error_ln(sourceline,
+ _("`continue' is not allowed outside a
loop"));
+ errcount++;
+ }
+ goto make_instruction;
+
+ case LEX_BREAK:
+ if (! break_allowed) {
+ error_ln(sourceline,
+ _("`break' is not allowed outside a
loop or switch"));
+ errcount++;
+ }
+ goto make_instruction;
+
+ default:
+make_instruction:
+ yylval = GET_INSTRUCTION(tokentab[mid].value);
+ if (class == LEX_BUILTIN || class == LEX_LENGTH)
+ yylval->builtin_idx = mid;
+ break;
+ }
+ return lasttok = class;
+ }
+out:
+ tokkey = estrdup(tokstart, tok - tokstart);
+ if (*lexptr == '(') {
+ yylval = bcalloc(Op_token, 2, sourceline);
+ yylval->lextok = tokkey;
+ return lasttok = FUNC_CALL;
+ } else {
+ static bool goto_warned = false;
+
+ yylval = GET_INSTRUCTION(Op_token);
+ yylval->lextok = tokkey;
+
+#define SMART_ALECK 1
+ if (SMART_ALECK && do_lint
+ && ! goto_warned && strcasecmp(tokkey, "goto") == 0) {
+ goto_warned = true;
+ lintwarn(_("`goto' considered harmful!\n"));
+ }
+ return lasttok = NAME;
+ }
+
+#undef GET_INSTRUCTION
+#undef NEWLINE_EOF
+}
+
+/* snode --- instructions for builtin functions. Checks for arg. count
+ and supplies defaults where possible. */
+
+static INSTRUCTION *
+snode(INSTRUCTION *subn, INSTRUCTION *r)
+{
+ INSTRUCTION *arg;
+ INSTRUCTION *ip;
+ NODE *n;
+ int nexp = 0;
+ int args_allowed;
+ int idx = r->builtin_idx;
+
+ if (subn != NULL) {
+ INSTRUCTION *tp;
+ for (tp = subn->nexti; tp; tp = tp->nexti) {
+ tp = tp->lasti;
+ nexp++;
+ }
+ assert(nexp > 0);
+ }
+
+ /* check against how many args. are allowed for this builtin */
+ args_allowed = tokentab[idx].flags & ARGS;
+ if (args_allowed && (args_allowed & A(nexp)) == 0) {
+ yyerror(_("%d is invalid as number of arguments for %s"),
+ nexp, tokentab[idx].operator);
+ return NULL;
+ }
+
+ /* special processing for sub, gsub and gensub */
+
+ if (tokentab[idx].value == Op_sub_builtin) {
+ const char *operator = tokentab[idx].operator;
+
+ r->sub_flags = 0;
+
+ arg = subn->nexti; /* first arg list */
+ (void) mk_rexp(arg);
+
+ if (strcmp(operator, "gensub") != 0) {
+ /* sub and gsub */
+
+ if (strcmp(operator, "gsub") == 0)
+ r->sub_flags |= GSUB;
+
+ arg = arg->lasti->nexti; /* 2nd arg list */
+ if (nexp == 2) {
+ INSTRUCTION *expr;
+
+ expr = list_create(instruction(Op_push_i));
+ expr->nexti->memory = make_number(0.0);
+ (void) mk_expression_list(subn,
+ list_append(expr,
instruction(Op_field_spec)));
+ }
+
+ arg = arg->lasti->nexti; /* third arg list */
+ ip = arg->lasti;
+ if (ip->opcode == Op_push_i) {
+ if (do_lint)
+ lintwarn(_("%s: string literal as last
arg of substitute has no effect"),
+ operator);
+ r->sub_flags |= LITERAL;
+ } else {
+ if (make_assignable(ip) == NULL)
+ yyerror(_("%s third parameter is not a
changeable object"),
+ operator);
+ else
+ ip->do_reference = true;
+ }
+
+ r->expr_count = count_expressions(&subn, false);
+ ip = subn->lasti;
+
+ (void) list_append(subn, r);
+
+ /* add after_assign code */
+ if (ip->opcode == Op_push_lhs && ip->memory->type ==
Node_var && ip->memory->var_assign) {
+ (void) list_append(subn,
instruction(Op_var_assign));
+ subn->lasti->assign_ctxt = Op_sub_builtin;
+ subn->lasti->assign_var =
ip->memory->var_assign;
+ } else if (ip->opcode == Op_field_spec_lhs) {
+ (void) list_append(subn,
instruction(Op_field_assign));
+ subn->lasti->assign_ctxt = Op_sub_builtin;
+ subn->lasti->field_assign = (Func_ptr) 0;
+ ip->target_assign = subn->lasti;
+ } else if (ip->opcode == Op_subscript_lhs) {
+ (void) list_append(subn,
instruction(Op_subscript_assign));
+ subn->lasti->assign_ctxt = Op_sub_builtin;
+ }
+
+ return subn;
+
+ } else {
+ /* gensub */
+
+ r->sub_flags |= GENSUB;
+ if (nexp == 3) {
+ ip = instruction(Op_push_i);
+ ip->memory = make_number(0.0);
+ (void) mk_expression_list(subn,
+ list_append(list_create(ip),
instruction(Op_field_spec)));
+ }
+
+ r->expr_count = count_expressions(&subn, false);
+ return list_append(subn, r);
+ }
+ }
+
+#ifdef HAVE_MPFR
+ /* N.B.: If necessary, add special processing for alternate builtin,
below */
+ if (do_mpfr && tokentab[idx].ptr2)
+ r->builtin = tokentab[idx].ptr2;
+ else
+#endif
+ r->builtin = tokentab[idx].ptr;
+
+ /* special case processing for a few builtins */
+
+ if (r->builtin == do_length) {
+ if (nexp == 0) {
+ /* no args. Use $0 */
+
+ INSTRUCTION *list;
+ r->expr_count = 1;
+ list = list_create(r);
+ (void) list_prepend(list, instruction(Op_field_spec));
+ (void) list_prepend(list, instruction(Op_push_i));
+ list->nexti->memory = make_number(0.0);
+ return list;
+ } else {
+ arg = subn->nexti;
+ if (arg->nexti == arg->lasti && arg->nexti->opcode ==
Op_push)
+ arg->nexti->opcode = Op_push_arg; /*
argument may be array */
+ }
+ } else if (r->builtin == do_isarray) {
+ arg = subn->nexti;
+ if (arg->nexti == arg->lasti && arg->nexti->opcode == Op_push)
+ arg->nexti->opcode = Op_push_arg; /* argument may
be array */
+ } else if (r->builtin == do_div
+#ifdef HAVE_MPFR
+ || r->builtin == MPF(div)
+#endif
+ ) {
+ arg = subn->nexti->lasti->nexti->lasti->nexti; /* 3rd arg list
*/
+ ip = arg->lasti;
+ if (ip->opcode == Op_push)
+ ip->opcode = Op_push_array;
+ } else if (r->builtin == do_match) {
+ static bool warned = false;
+
+ arg = subn->nexti->lasti->nexti; /* 2nd arg list */
+ (void) mk_rexp(arg);
+
+ if (nexp == 3) { /* 3rd argument there */
+ if (do_lint && ! warned) {
+ warned = true;
+ lintwarn(_("match: third argument is a gawk
extension"));
+ }
+ if (do_traditional) {
+ yyerror(_("match: third argument is a gawk
extension"));
+ return NULL;
+ }
+
+ arg = arg->lasti->nexti; /* third arg list */
+ ip = arg->lasti;
+ if (/*ip == arg->nexti && */ ip->opcode == Op_push)
+ ip->opcode = Op_push_array;
+ }
+ } else if (r->builtin == do_split) {
+ arg = subn->nexti->lasti->nexti; /* 2nd arg list */
+ ip = arg->lasti;
+ if (ip->opcode == Op_push)
+ ip->opcode = Op_push_array;
+ if (nexp == 2) {
+ INSTRUCTION *expr;
+ expr = list_create(instruction(Op_push));
+ expr->nexti->memory = FS_node;
+ (void) mk_expression_list(subn, expr);
+ }
+ arg = arg->lasti->nexti;
+ n = mk_rexp(arg);
+ if (nexp == 2)
+ n->re_flags |= FS_DFLT;
+ if (nexp == 4) {
+ arg = arg->lasti->nexti;
+ ip = arg->lasti;
+ if (ip->opcode == Op_push)
+ ip->opcode = Op_push_array;
+ }
+ } else if (r->builtin == do_patsplit) {
+ arg = subn->nexti->lasti->nexti; /* 2nd arg list */
+ ip = arg->lasti;
+ if (ip->opcode == Op_push)
+ ip->opcode = Op_push_array;
+ if (nexp == 2) {
+ INSTRUCTION *expr;
+ expr = list_create(instruction(Op_push));
+ expr->nexti->memory = FPAT_node;
+ (void) mk_expression_list(subn, expr);
+ }
+ arg = arg->lasti->nexti;
+ n = mk_rexp(arg);
+ if (nexp == 4) {
+ arg = arg->lasti->nexti;
+ ip = arg->lasti;
+ if (ip->opcode == Op_push)
+ ip->opcode = Op_push_array;
+ }
+ } else if (r->builtin == do_close) {
+ static bool warned = false;
+ if (nexp == 2) {
+ if (do_lint && ! warned) {
+ warned = true;
+ lintwarn(_("close: second argument is a gawk
extension"));
+ }
+ if (do_traditional) {
+ yyerror(_("close: second argument is a gawk
extension"));
+ return NULL;
+ }
+ }
+ } else if (do_intl /* --gen-po */
+ && r->builtin == do_dcgettext /*
dcgettext(...) */
+ && subn->nexti->lasti->opcode == Op_push_i /* 1st
arg is constant */
+ && (subn->nexti->lasti->memory->flags & STRCUR) != 0) {
/* it's a string constant */
+ /* ala xgettext, dcgettext("some string" ...) dumps the string
*/
+ NODE *str = subn->nexti->lasti->memory;
+
+ if ((str->flags & INTLSTR) != 0)
+ warning(_("use of dcgettext(_\"...\") is incorrect:
remove leading underscore"));
+ /* don't dump it, the lexer already did */
+ else
+ dumpintlstr(str->stptr, str->stlen);
+ } else if (do_intl /* --gen-po */
+ && r->builtin == do_dcngettext /*
dcngettext(...) */
+ && subn->nexti->lasti->opcode == Op_push_i /* 1st
arg is constant */
+ && (subn->nexti->lasti->memory->flags & STRCUR) != 0
/* it's a string constant */
+ && subn->nexti->lasti->nexti->lasti->opcode ==
Op_push_i /* 2nd arg is constant too */
+ && (subn->nexti->lasti->nexti->lasti->memory->flags &
STRCUR) != 0) { /* it's a string constant */
+ /* ala xgettext, dcngettext("some string", "some plural" ...)
dumps the string */
+ NODE *str1 = subn->nexti->lasti->memory;
+ NODE *str2 = subn->nexti->lasti->nexti->lasti->memory;
+
+ if (((str1->flags | str2->flags) & INTLSTR) != 0)
+ warning(_("use of dcngettext(_\"...\") is incorrect:
remove leading underscore"));
+ else
+ dumpintlstr2(str1->stptr, str1->stlen, str2->stptr,
str2->stlen);
+ } else if (r->builtin == do_asort || r->builtin == do_asorti) {
+ arg = subn->nexti; /* 1st arg list */
+ ip = arg->lasti;
+ if (ip->opcode == Op_push)
+ ip->opcode = Op_push_array;
+ if (nexp >= 2) {
+ arg = ip->nexti;
+ ip = arg->lasti;
+ if (ip->opcode == Op_push)
+ ip->opcode = Op_push_array;
+ }
+ }
+ else if (r->builtin == do_index) {
+ arg = subn->nexti->lasti->nexti; /* 2nd arg list */
+ ip = arg->lasti;
+ if (ip->opcode == Op_match_rec)
+ fatal(_("index: regexp constant as second argument is
not allowed"));
+ }
+#ifdef ARRAYDEBUG
+ else if (r->builtin == do_adump) {
+ ip = subn->nexti->lasti;
+ if (ip->opcode == Op_push)
+ ip->opcode = Op_push_array;
+ }
+#endif
+
+ if (subn != NULL) {
+ r->expr_count = count_expressions(&subn, false);
+ return list_append(subn, r);
+ }
+
+ r->expr_count = 0;
+ return list_create(r);
+}
+
+
+/* parms_shadow --- check if parameters shadow globals */
+
+static int
+parms_shadow(INSTRUCTION *pc, bool *shadow)
+{
+ int pcount, i;
+ bool ret = false;
+ NODE *func, *fp;
+ char *fname;
+
+ func = pc->func_body;
+ fname = func->vname;
+ fp = func->fparms;
+
+#if 0 /* can't happen, already exited if error ? */
+ if (fname == NULL || func == NULL) /* error earlier */
+ return false;
+#endif
+
+ pcount = func->param_cnt;
+
+ if (pcount == 0) /* no args, no problem */
+ return 0;
+
+ source = pc->source_file;
+ sourceline = pc->source_line;
+ /*
+ * Use warning() and not lintwarn() so that can warn
+ * about all shadowed parameters.
+ */
+ for (i = 0; i < pcount; i++) {
+ if (lookup(fp[i].param) != NULL) {
+ warning(
+ _("function `%s': parameter `%s' shadows global variable"),
+ fname, fp[i].param);
+ ret = true;
+ }
+ }
+
+ *shadow |= ret;
+ return 0;
+}
+
+/* valinfo --- dump var info */
+
+void
+valinfo(NODE *n, Func_print print_func, FILE *fp)
+{
+ if (n == Nnull_string)
+ print_func(fp, "uninitialized scalar\n");
+ else if (n->flags & STRING) {
+ pp_string_fp(print_func, fp, n->stptr, n->stlen, '"', false);
+ print_func(fp, "\n");
+ } else if (n->flags & NUMBER) {
+#ifdef HAVE_MPFR
+ if (is_mpg_float(n))
+ print_func(fp, "%s\n", mpg_fmt("%.17R*g", ROUND_MODE,
n->mpg_numbr));
+ else if (is_mpg_integer(n))
+ print_func(fp, "%s\n", mpg_fmt("%Zd", n->mpg_i));
+ else
+#endif
+ print_func(fp, "%.17g\n", n->numbr);
+ } else if (n->flags & STRCUR) {
+ pp_string_fp(print_func, fp, n->stptr, n->stlen, '"', false);
+ print_func(fp, "\n");
+ } else if (n->flags & NUMCUR) {
+#ifdef HAVE_MPFR
+ if (is_mpg_float(n))
+ print_func(fp, "%s\n", mpg_fmt("%.17R*g", ROUND_MODE,
n->mpg_numbr));
+ else if (is_mpg_integer(n))
+ print_func(fp, "%s\n", mpg_fmt("%Zd", n->mpg_i));
+ else
+#endif
+ print_func(fp, "%.17g\n", n->numbr);
+ } else
+ print_func(fp, "?? flags %s\n", flags2str(n->flags));
+}
+
+
+/* dump_vars --- dump the symbol table */
+
+void
+dump_vars(const char *fname)
+{
+ FILE *fp;
+ NODE **vars;
+
+ if (fname == NULL)
+ fp = stderr;
+ else if ((fp = fopen(fname, "w")) == NULL) {
+ warning(_("could not open `%s' for writing (%s)"), fname,
strerror(errno));
+ warning(_("sending variable list to standard error"));
+ fp = stderr;
+ }
+
+ vars = variable_list();
+ print_vars(vars, fprintf, fp);
+ efree(vars);
+ if (fp != stderr && fclose(fp) != 0)
+ warning(_("%s: close failed (%s)"), fname, strerror(errno));
+}
+
+/* dump_funcs --- print all functions */
+
+void
+dump_funcs()
+{
+ NODE **funcs;
+ funcs = function_list(true);
+ (void) foreach_func(funcs, (int (*)(INSTRUCTION *, void *)) pp_func,
(void *) 0);
+ efree(funcs);
+}
+
+
+/* shadow_funcs --- check all functions for parameters that shadow globals */
+
+void
+shadow_funcs()
+{
+ static int calls = 0;
+ bool shadow = false;
+ NODE **funcs;
+
+ if (calls++ != 0)
+ fatal(_("shadow_funcs() called twice!"));
+
+ funcs = function_list(true);
+ (void) foreach_func(funcs, (int (*)(INSTRUCTION *, void *))
parms_shadow, & shadow);
+ efree(funcs);
+
+ /* End with fatal if the user requested it. */
+ if (shadow && lintfunc != warning)
+ lintwarn(_("there were shadowed variables."));
+}
+
+
+/* mk_function --- finalize function definition node; remove parameters
+ * out of the symbol table.
+ */
+
+static INSTRUCTION *
+mk_function(INSTRUCTION *fi, INSTRUCTION *def)
+{
+ NODE *thisfunc;
+
+ thisfunc = fi->func_body;
+ assert(thisfunc != NULL);
+
+ if (do_optimize && def->lasti->opcode == Op_pop) {
+ /* tail call which does not return any value. */
+
+ INSTRUCTION *t;
+
+ for (t = def->nexti; t->nexti != def->lasti; t = t->nexti)
+ ;
+ if (t->opcode == Op_func_call
+ && strcmp(t->func_name, thisfunc->vname) == 0)
+ (t + 1)->tail_call = true;
+ }
+
+ /* add any pre-function comment to start of action for profile.c */
+
+ if (function_comment != NULL) {
+ function_comment->source_line = 0;
+ (void) list_prepend(def, function_comment);
+ function_comment = NULL;
+ }
+
+ /* add an implicit return at end;
+ * also used by 'return' command in debugger
+ */
+
+ (void) list_append(def, instruction(Op_push_i));
+ def->lasti->memory = dupnode(Nnull_string);
+ (void) list_append(def, instruction(Op_K_return));
+
+ if (do_pretty_print)
+ (void) list_prepend(def, instruction(Op_exec_count));
+
+ /* fi->opcode = Op_func */
+ (fi + 1)->firsti = def->nexti;
+ (fi + 1)->lasti = def->lasti;
+ (fi + 2)->first_line = fi->source_line;
+ (fi + 2)->last_line = lastline;
+ fi->nexti = def->nexti;
+ bcfree(def);
+
+ (void) list_append(rule_list, fi + 1); /* debugging */
+
+ /* update lint table info */
+ func_use(thisfunc->vname, FUNC_DEFINE);
+
+ /* remove params from symbol table */
+ remove_params(thisfunc);
+ return fi;
+}
+
+/*
+ * install_function:
+ * install function name in the symbol table.
+ * Extra work, build up and install a list of the parameter names.
+ */
+
+static int
+install_function(char *fname, INSTRUCTION *fi, INSTRUCTION *plist)
+{
+ NODE *r, *f;
+ int pcount = 0;
+
+ r = lookup(fname);
+ if (r != NULL) {
+ error_ln(fi->source_line, _("function name `%s' previously
defined"), fname);
+ return -1;
+ }
+
+ if (plist != NULL)
+ pcount = plist->lasti->param_count + 1;
+ f = install_symbol(fname, Node_func);
+ fi->func_body = f;
+ f->param_cnt = pcount;
+ f->code_ptr = fi;
+ f->fparms = NULL;
+ if (pcount > 0) {
+ char **pnames;
+ pnames = check_params(fname, pcount, plist); /* frees plist
*/
+ f->fparms = make_params(pnames, pcount);
+ efree(pnames);
+ install_params(f);
+ }
+ return 0;
+}
+
+
+/* check_params --- build a list of function parameter names after
+ * making sure that the names are valid and there are no duplicates.
+ */
+
+static char **
+check_params(char *fname, int pcount, INSTRUCTION *list)
+{
+ INSTRUCTION *p, *np;
+ int i, j;
+ char *name;
+ char **pnames;
+
+ assert(pcount > 0);
+
+ emalloc(pnames, char **, pcount * sizeof(char *), "check_params");
+
+ for (i = 0, p = list->nexti; p != NULL; i++, p = np) {
+ np = p->nexti;
+ name = p->lextok;
+ p->lextok = NULL;
+
+ if (strcmp(name, fname) == 0) {
+ /* check for function foo(foo) { ... }. bleah. */
+ error_ln(p->source_line,
+ _("function `%s': can't use function name as
parameter name"), fname);
+ } else if (is_std_var(name)) {
+ error_ln(p->source_line,
+ _("function `%s': can't use special variable
`%s' as a function parameter"),
+ fname, name);
+ }
+
+ /* check for duplicate parameters */
+ for (j = 0; j < i; j++) {
+ if (strcmp(name, pnames[j]) == 0) {
+ error_ln(p->source_line,
+ _("function `%s': parameter #%d, `%s',
duplicates parameter #%d"),
+ fname, i + 1, name, j + 1);
+ }
+ }
+
+ pnames[i] = name;
+ bcfree(p);
+ }
+ bcfree(list);
+
+ return pnames;
+}
+
+
+#ifdef HASHSIZE
+undef HASHSIZE
+#endif
+#define HASHSIZE 1021
+
+static struct fdesc {
+ char *name;
+ short used;
+ short defined;
+ short extension;
+ struct fdesc *next;
+} *ftable[HASHSIZE];
+
+/* func_use --- track uses and definitions of functions */
+
+static void
+func_use(const char *name, enum defref how)
+{
+ struct fdesc *fp;
+ int len;
+ int ind;
+
+ len = strlen(name);
+ ind = hash(name, len, HASHSIZE, NULL);
+
+ for (fp = ftable[ind]; fp != NULL; fp = fp->next)
+ if (strcmp(fp->name, name) == 0)
+ goto update_value;
+
+ /* not in the table, fall through to allocate a new one */
+
+ emalloc(fp, struct fdesc *, sizeof(struct fdesc), "func_use");
+ memset(fp, '\0', sizeof(struct fdesc));
+ emalloc(fp->name, char *, len + 1, "func_use");
+ strcpy(fp->name, name);
+ fp->next = ftable[ind];
+ ftable[ind] = fp;
+
+update_value:
+ if (how == FUNC_DEFINE)
+ fp->defined++;
+ else if (how == FUNC_EXT) {
+ fp->defined++;
+ fp->extension++;
+ } else
+ fp->used++;
+}
+
+/* track_ext_func --- add an extension function to the table */
+
+void
+track_ext_func(const char *name)
+{
+ func_use(name, FUNC_EXT);
+}
+
+/* check_funcs --- verify functions that are called but not defined */
+
+static void
+check_funcs()
+{
+ struct fdesc *fp, *next;
+ int i;
+
+ if (! in_main_context())
+ goto free_mem;
+
+ for (i = 0; i < HASHSIZE; i++) {
+ for (fp = ftable[i]; fp != NULL; fp = fp->next) {
+#ifdef REALLYMEAN
+ /* making this the default breaks old code. sigh. */
+ if (fp->defined == 0 && ! fp->extension) {
+ error(
+ _("function `%s' called but never defined"), fp->name);
+ errcount++;
+ }
+#else
+ if (do_lint && fp->defined == 0 && ! fp->extension)
+ lintwarn(
+ _("function `%s' called but never defined"), fp->name);
+#endif
+
+ if (do_lint && fp->used == 0 && ! fp->extension) {
+ lintwarn(_("function `%s' defined but never
called directly"),
+ fp->name);
+ }
+ }
+ }
+
+free_mem:
+ /* now let's free all the memory */
+ for (i = 0; i < HASHSIZE; i++) {
+ for (fp = ftable[i]; fp != NULL; fp = next) {
+ next = fp->next;
+ efree(fp->name);
+ efree(fp);
+ }
+ ftable[i] = NULL;
+ }
+}
+
+/* param_sanity --- look for parameters that are regexp constants */
+
+static void
+param_sanity(INSTRUCTION *arglist)
+{
+ INSTRUCTION *argl, *arg;
+ int i = 1;
+
+ if (arglist == NULL)
+ return;
+ for (argl = arglist->nexti; argl; ) {
+ arg = argl->lasti;
+ if (arg->opcode == Op_match_rec)
+ warning_ln(arg->source_line,
+ _("regexp constant for parameter #%d yields
boolean value"), i);
+ argl = arg->nexti;
+ i++;
+ }
+}
+
+/* variable --- make sure NAME is in the symbol table */
+
+NODE *
+variable(int location, char *name, NODETYPE type)
+{
+ NODE *r;
+
+ if ((r = lookup(name)) != NULL) {
+ if (r->type == Node_func || r->type == Node_ext_func )
+ error_ln(location, _("function `%s' called with space
between name and `(',\nor used as a variable or an array"),
+ r->vname);
+ } else {
+ /* not found */
+ return install_symbol(name, type);
+ }
+ efree(name);
+ return r;
+}
+
+/* make_regnode --- make a regular expression node */
+
+static NODE *
+make_regnode(int type, NODE *exp)
+{
+ NODE *n;
+
+ getnode(n);
+ memset(n, 0, sizeof(NODE));
+ n->type = type;
+ n->re_cnt = 1;
+
+ if (type == Node_regex) {
+ n->re_reg = make_regexp(exp->stptr, exp->stlen, false, true,
false);
+ if (n->re_reg == NULL) {
+ freenode(n);
+ return NULL;
+ }
+ n->re_exp = exp;
+ n->re_flags = CONSTANT;
+ }
+ return n;
+}
+
+
+/* mk_rexp --- make a regular expression constant */
+
+static NODE *
+mk_rexp(INSTRUCTION *list)
+{
+ INSTRUCTION *ip;
+
+ ip = list->nexti;
+ if (ip == list->lasti && ip->opcode == Op_match_rec)
+ ip->opcode = Op_push_re;
+ else {
+ ip = instruction(Op_push_re);
+ ip->memory = make_regnode(Node_dynregex, NULL);
+ ip->nexti = list->lasti->nexti;
+ list->lasti->nexti = ip;
+ list->lasti = ip;
+ }
+ return ip->memory;
+}
+
+#ifndef NO_LINT
+/* isnoeffect --- when used as a statement, has no side effects */
+
+static int
+isnoeffect(OPCODE type)
+{
+ switch (type) {
+ case Op_times:
+ case Op_times_i:
+ case Op_quotient:
+ case Op_quotient_i:
+ case Op_mod:
+ case Op_mod_i:
+ case Op_plus:
+ case Op_plus_i:
+ case Op_minus:
+ case Op_minus_i:
+ case Op_subscript:
+ case Op_concat:
+ case Op_exp:
+ case Op_exp_i:
+ case Op_unary_minus:
+ case Op_field_spec:
+ case Op_and_final:
+ case Op_or_final:
+ case Op_equal:
+ case Op_notequal:
+ case Op_less:
+ case Op_greater:
+ case Op_leq:
+ case Op_geq:
+ case Op_match:
+ case Op_nomatch:
+ case Op_match_rec:
+ case Op_not:
+ case Op_in_array:
+ return true;
+ default:
+ break; /* keeps gcc -Wall happy */
+ }
+
+ return false;
+}
+#endif /* NO_LINT */
+
+
+/* make_assignable --- make this operand an assignable one if posiible */
+
+static INSTRUCTION *
+make_assignable(INSTRUCTION *ip)
+{
+ switch (ip->opcode) {
+ case Op_push:
+ ip->opcode = Op_push_lhs;
+ return ip;
+ case Op_field_spec:
+ ip->opcode = Op_field_spec_lhs;
+ return ip;
+ case Op_subscript:
+ ip->opcode = Op_subscript_lhs;
+ return ip;
+ default:
+ break; /* keeps gcc -Wall happy */
+ }
+ return NULL;
+}
+
+/* stopme --- for debugging */
+
+NODE *
+stopme(int nargs ATTRIBUTE_UNUSED)
+{
+ return make_number(0.0);
+}
+
+/* dumpintlstr --- write out an initial .po file entry for the string */
+
+static void
+dumpintlstr(const char *str, size_t len)
+{
+ char *cp;
+
+ /* See the GNU gettext distribution for details on the file format */
+
+ if (source != NULL) {
+ /* ala the gettext sources, remove leading `./'s */
+ for (cp = source; cp[0] == '.' && cp[1] == '/'; cp += 2)
+ continue;
+ printf("#: %s:%d\n", cp, sourceline);
+ }
+
+ printf("msgid ");
+ pp_string_fp(fprintf, stdout, str, len, '"', true);
+ putchar('\n');
+ printf("msgstr \"\"\n\n");
+ fflush(stdout);
+}
+
+/* dumpintlstr2 --- write out an initial .po file entry for the string and its
plural */
+
+static void
+dumpintlstr2(const char *str1, size_t len1, const char *str2, size_t len2)
+{
+ char *cp;
+
+ /* See the GNU gettext distribution for details on the file format */
+
+ if (source != NULL) {
+ /* ala the gettext sources, remove leading `./'s */
+ for (cp = source; cp[0] == '.' && cp[1] == '/'; cp += 2)
+ continue;
+ printf("#: %s:%d\n", cp, sourceline);
+ }
+
+ printf("msgid ");
+ pp_string_fp(fprintf, stdout, str1, len1, '"', true);
+ putchar('\n');
+ printf("msgid_plural ");
+ pp_string_fp(fprintf, stdout, str2, len2, '"', true);
+ putchar('\n');
+ printf("msgstr[0] \"\"\nmsgstr[1] \"\"\n\n");
+ fflush(stdout);
+}
+
+/* mk_binary --- instructions for binary operators */
+
+static INSTRUCTION *
+mk_binary(INSTRUCTION *s1, INSTRUCTION *s2, INSTRUCTION *op)
+{
+ INSTRUCTION *ip1,*ip2;
+ AWKNUM res;
+
+ ip2 = s2->nexti;
+ if (s2->lasti == ip2 && ip2->opcode == Op_push_i) {
+ /* do any numeric constant folding */
+ ip1 = s1->nexti;
+ if (do_optimize
+ && ip1 == s1->lasti && ip1->opcode == Op_push_i
+ && (ip1->memory->flags &
(MPFN|MPZN|STRCUR|STRING)) == 0
+ && (ip2->memory->flags &
(MPFN|MPZN|STRCUR|STRING)) == 0
+ ) {
+ NODE *n1 = ip1->memory, *n2 = ip2->memory;
+ res = force_number(n1)->numbr;
+ (void) force_number(n2);
+ switch (op->opcode) {
+ case Op_times:
+ res *= n2->numbr;
+ break;
+ case Op_quotient:
+ if (n2->numbr == 0.0) {
+ /* don't fatalize, allow parsing rest
of the input */
+ error_ln(op->source_line, _("division
by zero attempted"));
+ goto regular;
+ }
+
+ res /= n2->numbr;
+ break;
+ case Op_mod:
+ if (n2->numbr == 0.0) {
+ /* don't fatalize, allow parsing rest
of the input */
+ error_ln(op->source_line, _("division
by zero attempted in `%%'"));
+ goto regular;
+ }
+#ifdef HAVE_FMOD
+ res = fmod(res, n2->numbr);
+#else /* ! HAVE_FMOD */
+ (void) modf(res / n2->numbr, &res);
+ res = n1->numbr - res * n2->numbr;
+#endif /* ! HAVE_FMOD */
+ break;
+ case Op_plus:
+ res += n2->numbr;
+ break;
+ case Op_minus:
+ res -= n2->numbr;
+ break;
+ case Op_exp:
+ res = calc_exp(res, n2->numbr);
+ break;
+ default:
+ goto regular;
+ }
+
+ op->opcode = Op_push_i;
+ op->memory = make_number(res);
+ unref(n1);
+ unref(n2);
+ bcfree(ip1);
+ bcfree(ip2);
+ bcfree(s1);
+ bcfree(s2);
+ return list_create(op);
+ } else {
+ /* do basic arithmetic optimisation */
+ /* convert (Op_push_i Node_val) + (Op_plus) to (Op_plus_i
Node_val) */
+ switch (op->opcode) {
+ case Op_times:
+ op->opcode = Op_times_i;
+ break;
+ case Op_quotient:
+ op->opcode = Op_quotient_i;
+ break;
+ case Op_mod:
+ op->opcode = Op_mod_i;
+ break;
+ case Op_plus:
+ op->opcode = Op_plus_i;
+ break;
+ case Op_minus:
+ op->opcode = Op_minus_i;
+ break;
+ case Op_exp:
+ op->opcode = Op_exp_i;
+ break;
+ default:
+ goto regular;
+ }
+
+ op->memory = ip2->memory;
+ bcfree(ip2);
+ bcfree(s2); /* Op_list */
+ return list_append(s1, op);
+ }
+ }
+
+regular:
+ /* append lists s1, s2 and add `op' bytecode */
+ (void) list_merge(s1, s2);
+ return list_append(s1, op);
+}
+
+/* mk_boolean --- instructions for boolean and, or */
+
+static INSTRUCTION *
+mk_boolean(INSTRUCTION *left, INSTRUCTION *right, INSTRUCTION *op)
+{
+ INSTRUCTION *tp;
+ OPCODE opc, final_opc;
+
+ opc = op->opcode; /* Op_and or Op_or */
+ final_opc = (opc == Op_or) ? Op_or_final : Op_and_final;
+
+ add_lint(right, LINT_assign_in_cond);
+
+ tp = left->lasti;
+
+ if (tp->opcode != final_opc) { /* x || y */
+ list_append(right, instruction(final_opc));
+ add_lint(left, LINT_assign_in_cond);
+ (void) list_append(left, op);
+ left->lasti->target_jmp = right->lasti;
+
+ /* NB: target_stmt points to previous Op_and(Op_or) in a chain;
+ * target_stmt only used in the parser (see below).
+ */
+
+ left->lasti->target_stmt = left->lasti;
+ right->lasti->target_stmt = left->lasti;
+ } else { /* optimization for x || y || z || ... */
+ INSTRUCTION *ip;
+
+ op->opcode = final_opc;
+ (void) list_append(right, op);
+ op->target_stmt = tp;
+ tp->opcode = opc;
+ tp->target_jmp = op;
+
+ /* update jump targets */
+ for (ip = tp->target_stmt; ; ip = ip->target_stmt) {
+ assert(ip->opcode == opc);
+ assert(ip->target_jmp == tp);
+ /* if (ip->opcode == opc && ip->target_jmp == tp) */
+ ip->target_jmp = op;
+ if (ip->target_stmt == ip)
+ break;
+ }
+ }
+
+ return list_merge(left, right);
+}
+
+/* mk_condition --- if-else and conditional */
+
+static INSTRUCTION *
+mk_condition(INSTRUCTION *cond, INSTRUCTION *ifp, INSTRUCTION *true_branch,
+ INSTRUCTION *elsep, INSTRUCTION *false_branch)
+{
+ /*
+ * ----------------
+ * cond
+ * ----------------
+ * t: [Op_jmp_false f ]
+ * ----------------
+ * true_branch
+ *
+ * ----------------
+ * [Op_jmp y]
+ * ----------------
+ * f:
+ * false_branch
+ * ----------------
+ * y: [Op_no_op]
+ * ----------------
+ */
+
+ INSTRUCTION *ip;
+
+ if (false_branch == NULL) {
+ false_branch = list_create(instruction(Op_no_op));
+ if (elsep != NULL) { /* else { } */
+ if (do_pretty_print)
+ (void) list_prepend(false_branch, elsep);
+ else
+ bcfree(elsep);
+ }
+ } else {
+ /* assert(elsep != NULL); */
+
+ /* avoid a series of no_op's: if .. else if .. else if .. */
+ if (false_branch->lasti->opcode != Op_no_op)
+ (void) list_append(false_branch, instruction(Op_no_op));
+ if (do_pretty_print) {
+ (void) list_prepend(false_branch, elsep);
+ false_branch->nexti->branch_end = false_branch->lasti;
+ (void) list_prepend(false_branch,
instruction(Op_exec_count));
+ } else
+ bcfree(elsep);
+ }
+
+ (void) list_prepend(false_branch, instruction(Op_jmp));
+ false_branch->nexti->target_jmp = false_branch->lasti;
+
+ add_lint(cond, LINT_assign_in_cond);
+ ip = list_append(cond, instruction(Op_jmp_false));
+ ip->lasti->target_jmp = false_branch->nexti->nexti;
+
+ if (do_pretty_print) {
+ (void) list_prepend(ip, ifp);
+ (void) list_append(ip, instruction(Op_exec_count));
+ ip->nexti->branch_if = ip->lasti;
+ ip->nexti->branch_else = false_branch->nexti;
+ } else
+ bcfree(ifp);
+
+ if (true_branch != NULL)
+ list_merge(ip, true_branch);
+ return list_merge(ip, false_branch);
+}
+
+enum defline { FIRST_LINE, LAST_LINE };
+
+/* find_line -- find the first(last) line in a list of (pattern) instructions
*/
+
+static int
+find_line(INSTRUCTION *pattern, enum defline what)
+{
+ INSTRUCTION *ip;
+ int lineno = 0;
+
+ for (ip = pattern->nexti; ip; ip = ip->nexti) {
+ if (what == LAST_LINE) {
+ if (ip->source_line > lineno)
+ lineno = ip->source_line;
+ } else { /* FIRST_LINE */
+ if (ip->source_line > 0
+ && (lineno == 0 || ip->source_line <
lineno))
+ lineno = ip->source_line;
+ }
+ if (ip == pattern->lasti)
+ break;
+ }
+ assert(lineno > 0);
+ return lineno;
+}
+
+/* append_rule --- pattern-action instructions */
+
+static INSTRUCTION *
+append_rule(INSTRUCTION *pattern, INSTRUCTION *action)
+{
+ /*
+ * ----------------
+ * pattern
+ * ----------------
+ * [Op_jmp_false f ]
+ * ----------------
+ * action
+ * ----------------
+ * f: [Op_no_op ]
+ * ----------------
+ */
+
+ INSTRUCTION *rp;
+ INSTRUCTION *tp;
+ INSTRUCTION *ip;
+
+ if (rule != Rule) {
+ rp = pattern;
+ if (do_pretty_print)
+ (void) list_append(action, instruction(Op_no_op));
+ (rp + 1)->firsti = action->nexti;
+ (rp + 1)->lasti = action->lasti;
+ (rp + 2)->first_line = pattern->source_line;
+ (rp + 2)->last_line = lastline;
+ if (block_comment != NULL) {
+ ip = list_prepend(list_prepend(action, block_comment),
rp);
+ block_comment = NULL;
+ } else
+ ip = list_prepend(action, rp);
+
+ } else {
+ rp = bcalloc(Op_rule, 3, 0);
+ rp->in_rule = Rule;
+ rp->source_file = source;
+ tp = instruction(Op_no_op);
+
+ if (pattern == NULL) {
+ /* assert(action != NULL); */
+ if (do_pretty_print)
+ (void) list_prepend(action,
instruction(Op_exec_count));
+ (rp + 1)->firsti = action->nexti;
+ (rp + 1)->lasti = tp;
+ (rp + 2)->first_line = firstline;
+ (rp + 2)->last_line = lastline;
+ rp->source_line = firstline;
+ ip = list_prepend(list_append(action, tp), rp);
+ } else {
+ (void) list_append(pattern, instruction(Op_jmp_false));
+ pattern->lasti->target_jmp = tp;
+ (rp + 2)->first_line = find_line(pattern, FIRST_LINE);
+ rp->source_line = (rp + 2)->first_line;
+ if (action == NULL) {
+ (rp + 2)->last_line = find_line(pattern,
LAST_LINE);
+ action =
list_create(instruction(Op_K_print_rec));
+ if (do_pretty_print)
+ (void) list_prepend(action,
instruction(Op_exec_count));
+ } else
+ (rp + 2)->last_line = lastline;
+
+ if (do_pretty_print) {
+ (void) list_prepend(pattern,
instruction(Op_exec_count));
+ (void) list_prepend(action,
instruction(Op_exec_count));
+ }
+ (rp + 1)->firsti = action->nexti;
+ (rp + 1)->lasti = tp;
+ ip = list_append(
+ list_merge(list_prepend(pattern, rp),
+ action),
+ tp);
+ }
+ }
+
+ list_append(rule_list, rp + 1);
+
+ if (rule_block[rule] == NULL)
+ rule_block[rule] = ip;
+ else
+ (void) list_merge(rule_block[rule], ip);
+
+ return rule_block[rule];
+}
+
+/* mk_assignment --- assignment bytecodes */
+
+static INSTRUCTION *
+mk_assignment(INSTRUCTION *lhs, INSTRUCTION *rhs, INSTRUCTION *op)
+{
+ INSTRUCTION *tp;
+ INSTRUCTION *ip;
+
+ tp = lhs->lasti;
+ switch (tp->opcode) {
+ case Op_field_spec:
+ tp->opcode = Op_field_spec_lhs;
+ break;
+ case Op_subscript:
+ tp->opcode = Op_subscript_lhs;
+ break;
+ case Op_push:
+ case Op_push_array:
+ tp->opcode = Op_push_lhs;
+ break;
+ case Op_field_assign:
+ yyerror(_("cannot assign a value to the result of a field
post-increment expression"));
+ break;
+ default:
+ yyerror(_("invalid target of assignment (opcode %s)"),
+ opcode2str(tp->opcode));
+ break;
+ }
+
+ tp->do_reference = (op->opcode != Op_assign); /* check for
uninitialized reference */
+
+ if (rhs != NULL)
+ ip = list_merge(rhs, lhs);
+ else
+ ip = lhs;
+
+ (void) list_append(ip, op);
+
+ if (tp->opcode == Op_push_lhs
+ && tp->memory->type == Node_var
+ && tp->memory->var_assign
+ ) {
+ tp->do_reference = false; /* no uninitialized reference checking
+ * for a special variable.
+ */
+ (void) list_append(ip, instruction(Op_var_assign));
+ ip->lasti->assign_var = tp->memory->var_assign;
+ } else if (tp->opcode == Op_field_spec_lhs) {
+ (void) list_append(ip, instruction(Op_field_assign));
+ ip->lasti->field_assign = (Func_ptr) 0;
+ tp->target_assign = ip->lasti;
+ } else if (tp->opcode == Op_subscript_lhs) {
+ (void) list_append(ip, instruction(Op_subscript_assign));
+ }
+
+ return ip;
+}
+
+/* optimize_assignment --- peephole optimization for assignment */
+
+static INSTRUCTION *
+optimize_assignment(INSTRUCTION *exp)
+{
+ INSTRUCTION *i1, *i2, *i3;
+
+ /*
+ * Optimize assignment statements array[subs] = x; var = x; $n = x;
+ * string concatenation of the form s = s t.
+ *
+ * 1) Array element assignment array[subs] = x:
+ * Replaces Op_push_array + Op_subscript_lhs + Op_assign + Op_pop
+ * with single instruction Op_store_sub.
+ * Limitation: 1 dimension and sub is simple var/value.
+ *
+ * 2) Simple variable assignment var = x:
+ * Replaces Op_push_lhs + Op_assign + Op_pop with Op_store_var.
+ *
+ * 3) Field assignment $n = x:
+ * Replaces Op_field_spec_lhs + Op_assign + Op_field_assign + Op_pop
+ * with Op_store_field.
+ *
+ * 4) Optimization for string concatenation:
+ * For cases like x = x y, uses realloc to include y in x;
+ * also eliminates instructions Op_push_lhs and Op_pop.
+ */
+
+ /*
+ * N.B.: do not append Op_pop instruction to the returned
+ * instruction list if optimized. None of these
+ * optimized instructions pushes the r-value of assignment
+ * onto the runtime stack.
+ */
+
+ i2 = NULL;
+ i1 = exp->lasti;
+
+ if ( i1->opcode != Op_assign
+ && i1->opcode != Op_field_assign)
+ return list_append(exp, instruction(Op_pop));
+
+ for (i2 = exp->nexti; i2 != i1; i2 = i2->nexti) {
+ switch (i2->opcode) {
+ case Op_concat:
+ if (i2->nexti->opcode == Op_push_lhs /* l.h.s is a
simple variable */
+ && (i2->concat_flag & CSVAR) /* 1st exp
in r.h.s is a simple variable;
+ * see
Op_concat in the grammer above.
+ */
+ && i2->nexti->memory == exp->nexti->memory
/* and the same as in l.h.s */
+ && i2->nexti->nexti == i1
+ && i1->opcode == Op_assign
+ ) {
+ /* s = s ... optimization */
+
+ /* avoid stuff like x = x (x = y) or x = x
gsub(/./, "b", x);
+ * check for l-value reference to this variable
in the r.h.s.
+ * Also, avoid function calls in general to
guard against
+ * global variable assignment.
+ */
+
+ for (i3 = exp->nexti->nexti; i3 != i2; i3 =
i3->nexti) {
+ if ((i3->opcode == Op_push_lhs &&
i3->memory == i2->nexti->memory)
+ || i3->opcode ==
Op_func_call)
+ return list_append(exp,
instruction(Op_pop)); /* no optimization */
+ }
+
+ /* remove the variable from r.h.s */
+ i3 = exp->nexti;
+ exp->nexti = i3->nexti;
+ bcfree(i3);
+
+ if (--i2->expr_count == 1) /* one less
expression in Op_concat */
+ i2->opcode = Op_no_op;
+
+ i3 = i2->nexti;
+ assert(i3->opcode == Op_push_lhs);
+ i3->opcode = Op_assign_concat; /* change
Op_push_lhs to Op_assign_concat */
+ i3->nexti = NULL;
+ bcfree(i1); /* Op_assign */
+ exp->lasti = i3; /* update Op_list */
+ return exp;
+ }
+ break;
+
+ case Op_field_spec_lhs:
+ if (i2->nexti->opcode == Op_assign
+ && i2->nexti->nexti == i1
+ && i1->opcode == Op_field_assign
+ ) {
+ /* $n = .. */
+ i2->opcode = Op_store_field;
+ bcfree(i2->nexti); /* Op_assign */
+ i2->nexti = NULL;
+ bcfree(i1); /* Op_field_assign */
+ exp->lasti = i2; /* update Op_list */
+ return exp;
+ }
+ break;
+
+ case Op_push_array:
+ if (i2->nexti->nexti->opcode == Op_subscript_lhs) {
+ i3 = i2->nexti->nexti;
+ if (i3->sub_count == 1
+ && i3->nexti == i1
+ && i1->opcode == Op_assign
+ ) {
+ /* array[sub] = .. */
+ i3->opcode = Op_store_sub;
+ i3->memory = i2->memory;
+ i3->expr_count = 1; /* sub_count
shadows memory,
+ * so use expr_count instead.
+ */
+ i3->nexti = NULL;
+ i2->opcode = Op_no_op;
+ bcfree(i1); /* Op_assign */
+ exp->lasti = i3; /* update Op_list
*/
+ return exp;
+ }
+ }
+ break;
+
+ case Op_push_lhs:
+ if (i2->nexti == i1
+ && i1->opcode == Op_assign
+ ) {
+ /* var = .. */
+ i2->opcode = Op_store_var;
+ i2->nexti = NULL;
+ bcfree(i1); /* Op_assign */
+ exp->lasti = i2; /* update Op_list */
+
+ i3 = exp->nexti;
+ if (i3->opcode == Op_push_i
+ && (i3->memory->flags & INTLSTR) == 0
+ && i3->nexti == i2
+ ) {
+ /* constant initializer */
+ i2->initval = i3->memory;
+ bcfree(i3);
+ exp->nexti = i2;
+ } else
+ i2->initval = NULL;
+
+ return exp;
+ }
+ break;
+
+ default:
+ break;
+ }
+ }
+
+ /* no optimization */
+ return list_append(exp, instruction(Op_pop));
+}
+
+
+/* mk_getline --- make instructions for getline */
+
+static INSTRUCTION *
+mk_getline(INSTRUCTION *op, INSTRUCTION *var, INSTRUCTION *redir, int
redirtype)
+{
+ INSTRUCTION *ip;
+ INSTRUCTION *tp;
+ INSTRUCTION *asgn = NULL;
+
+ /*
+ * getline [var] < [file]
+ *
+ * [ file (simp_exp)]
+ * [ [ var ] ]
+ * [ Op_K_getline_redir|NULL|redir_type|into_var]
+ * [ [var_assign] ]
+ *
+ */
+
+ if (redir == NULL) {
+ int sline = op->source_line;
+ bcfree(op);
+ op = bcalloc(Op_K_getline, 2, sline);
+ (op + 1)->target_endfile = ip_endfile;
+ (op + 1)->target_beginfile = ip_beginfile;
+ }
+
+ if (var != NULL) {
+ tp = make_assignable(var->lasti);
+ assert(tp != NULL);
+
+ /* check if we need after_assign bytecode */
+ if (tp->opcode == Op_push_lhs
+ && tp->memory->type == Node_var
+ && tp->memory->var_assign
+ ) {
+ asgn = instruction(Op_var_assign);
+ asgn->assign_ctxt = op->opcode;
+ asgn->assign_var = tp->memory->var_assign;
+ } else if (tp->opcode == Op_field_spec_lhs) {
+ asgn = instruction(Op_field_assign);
+ asgn->assign_ctxt = op->opcode;
+ asgn->field_assign = (Func_ptr) 0; /* determined at
run time */
+ tp->target_assign = asgn;
+ } else if (tp->opcode == Op_subscript_lhs) {
+ asgn = instruction(Op_subscript_assign);
+ asgn->assign_ctxt = op->opcode;
+ }
+
+ if (redir != NULL) {
+ ip = list_merge(redir, var);
+ (void) list_append(ip, op);
+ } else
+ ip = list_append(var, op);
+ } else if (redir != NULL)
+ ip = list_append(redir, op);
+ else
+ ip = list_create(op);
+ op->into_var = (var != NULL);
+ op->redir_type = (redir != NULL) ? redirtype : redirect_none;
+
+ return (asgn == NULL ? ip : list_append(ip, asgn));
+}
+
+
+/* mk_for_loop --- for loop bytecodes */
+
+static INSTRUCTION *
+mk_for_loop(INSTRUCTION *forp, INSTRUCTION *init, INSTRUCTION *cond,
+ INSTRUCTION *incr, INSTRUCTION *body)
+{
+ /*
+ * ------------------------
+ * init (may be NULL)
+ * ------------------------
+ * x:
+ * cond (Op_no_op if NULL)
+ * ------------------------
+ * [ Op_jmp_false tb ]
+ * ------------------------
+ * body (may be NULL)
+ * ------------------------
+ * tc:
+ * incr (may be NULL)
+ * [ Op_jmp x ]
+ * ------------------------
+ * tb:[ Op_no_op ]
+ */
+
+ INSTRUCTION *ip, *tbreak, *tcont;
+ INSTRUCTION *jmp;
+ INSTRUCTION *pp_cond;
+ INSTRUCTION *ret;
+
+ tbreak = instruction(Op_no_op);
+
+ if (cond != NULL) {
+ add_lint(cond, LINT_assign_in_cond);
+ pp_cond = cond->nexti;
+ ip = cond;
+ (void) list_append(ip, instruction(Op_jmp_false));
+ ip->lasti->target_jmp = tbreak;
+ } else {
+ pp_cond = instruction(Op_no_op);
+ ip = list_create(pp_cond);
+ }
+
+ if (init != NULL)
+ ip = list_merge(init, ip);
+
+ if (do_pretty_print) {
+ (void) list_append(ip, instruction(Op_exec_count));
+ (forp + 1)->forloop_cond = pp_cond;
+ (forp + 1)->forloop_body = ip->lasti;
+ }
+
+ if (body != NULL)
+ (void) list_merge(ip, body);
+
+ jmp = instruction(Op_jmp);
+ jmp->target_jmp = pp_cond;
+ if (incr == NULL)
+ tcont = jmp;
+ else {
+ tcont = incr->nexti;
+ (void) list_merge(ip, incr);
+ }
+
+ (void) list_append(ip, jmp);
+ ret = list_append(ip, tbreak);
+ fix_break_continue(ret, tbreak, tcont);
+
+ if (do_pretty_print) {
+ forp->target_break = tbreak;
+ forp->target_continue = tcont;
+ ret = list_prepend(ret, forp);
+ } /* else
+ forp is NULL */
+
+ return ret;
+}
+
+/* add_lint --- add lint warning bytecode if needed */
+
+static void
+add_lint(INSTRUCTION *list, LINTTYPE linttype)
+{
+#ifndef NO_LINT
+ INSTRUCTION *ip;
+
+ switch (linttype) {
+ case LINT_assign_in_cond:
+ ip = list->lasti;
+ if (ip->opcode == Op_var_assign || ip->opcode ==
Op_field_assign) {
+ assert(ip != list->nexti);
+ for (ip = list->nexti; ip->nexti != list->lasti; ip =
ip->nexti)
+ ;
+ }
+
+ if (ip->opcode == Op_assign || ip->opcode == Op_assign_concat) {
+ list_append(list, instruction(Op_lint));
+ list->lasti->lint_type = linttype;
+ }
+ break;
+
+ case LINT_no_effect:
+ if (list->lasti->opcode == Op_pop && list->nexti !=
list->lasti) {
+ for (ip = list->nexti; ip->nexti != list->lasti; ip =
ip->nexti)
+ ;
+
+ if (do_lint) { /* compile-time warning */
+ if (isnoeffect(ip->opcode))
+ lintwarn_ln(ip->source_line,
("statement may have no effect"));
+ }
+
+ if (ip->opcode == Op_push) { /* run-time
warning */
+ list_append(list, instruction(Op_lint));
+ list->lasti->lint_type = linttype;
+ }
+ }
+ break;
+
+ default:
+ break;
+ }
+#endif
+}
+
+/* mk_expression_list --- list of bytecode lists */
+
+static INSTRUCTION *
+mk_expression_list(INSTRUCTION *list, INSTRUCTION *s1)
+{
+ INSTRUCTION *r;
+
+ /* we can't just combine all bytecodes, since we need to
+ * process individual expressions for a few builtins in snode() (-:
+ */
+
+ /* -- list of lists */
+ /* [Op_list| ... ]------
+ * |
+ * [Op_list| ... ] -- |
+ * ... | |
+ * ... <------- |
+ * [Op_list| ... ] -- |
+ * ... | |
+ * ... | |
+ * ... <------- --
+ */
+
+ assert(s1 != NULL && s1->opcode == Op_list);
+ if (list == NULL) {
+ list = instruction(Op_list);
+ list->nexti = s1;
+ list->lasti = s1->lasti;
+ return list;
+ }
+
+ /* append expression to the end of the list */
+
+ r = list->lasti;
+ r->nexti = s1;
+ list->lasti = s1->lasti;
+ return list;
+}
+
+/* count_expressions --- fixup expression_list from mk_expression_list.
+ * returns no of expressions in list. isarg is true
+ * for function arguments.
+ */
+
+static int
+count_expressions(INSTRUCTION **list, bool isarg)
+{
+ INSTRUCTION *expr;
+ INSTRUCTION *r = NULL;
+ int count = 0;
+
+ if (*list == NULL) /* error earlier */
+ return 0;
+
+ for (expr = (*list)->nexti; expr; ) {
+ INSTRUCTION *t1, *t2;
+ t1 = expr->nexti;
+ t2 = expr->lasti;
+ if (isarg && t1 == t2 && t1->opcode == Op_push)
+ t1->opcode = Op_push_param;
+ if (++count == 1)
+ r = expr;
+ else
+ (void) list_merge(r, expr);
+ expr = t2->nexti;
+ }
+
+ assert(count > 0);
+ if (! isarg && count > max_args)
+ max_args = count;
+ bcfree(*list);
+ *list = r;
+ return count;
+}
+
+/* fix_break_continue --- fix up break & continue codes in loop bodies */
+
+static void
+fix_break_continue(INSTRUCTION *list, INSTRUCTION *b_target, INSTRUCTION
*c_target)
+{
+ INSTRUCTION *ip;
+
+ list->lasti->nexti = NULL; /* just to make sure */
+
+ for (ip = list->nexti; ip != NULL; ip = ip->nexti) {
+ switch (ip->opcode) {
+ case Op_K_break:
+ if (ip->target_jmp == NULL)
+ ip->target_jmp = b_target;
+ break;
+
+ case Op_K_continue:
+ if (ip->target_jmp == NULL)
+ ip->target_jmp = c_target;
+ break;
+
+ default:
+ /* this is to keep the compiler happy. sheesh. */
+ break;
+ }
+ }
+}
+
+static inline INSTRUCTION *
+list_create(INSTRUCTION *x)
+{
+ INSTRUCTION *l;
+
+ l = instruction(Op_list);
+ l->nexti = x;
+ l->lasti = x;
+ return l;
+}
+
+static inline INSTRUCTION *
+list_append(INSTRUCTION *l, INSTRUCTION *x)
+{
+#ifdef GAWKDEBUG
+ if (l->opcode != Op_list)
+ cant_happen();
+#endif
+ l->lasti->nexti = x;
+ l->lasti = x;
+ return l;
+}
+
+static inline INSTRUCTION *
+list_prepend(INSTRUCTION *l, INSTRUCTION *x)
+{
+#ifdef GAWKDEBUG
+ if (l->opcode != Op_list)
+ cant_happen();
+#endif
+ x->nexti = l->nexti;
+ l->nexti = x;
+ return l;
+}
+
+static inline INSTRUCTION *
+list_merge(INSTRUCTION *l1, INSTRUCTION *l2)
+{
+#ifdef GAWKDEBUG
+ if (l1->opcode != Op_list)
+ cant_happen();
+ if (l2->opcode != Op_list)
+ cant_happen();
+#endif
+ l1->lasti->nexti = l2->nexti;
+ l1->lasti = l2->lasti;
+ bcfree(l2);
+ return l1;
+}
+
+/* See if name is a special token. */
+
+int
+check_special(const char *name)
+{
+ int low, high, mid;
+ int i;
+#if 'a' == 0x81 /* it's EBCDIC */
+ static bool did_sort = false;
+
+ if (! did_sort) {
+ qsort((void *) tokentab,
+ sizeof(tokentab) / sizeof(tokentab[0]),
+ sizeof(tokentab[0]), tokcompare);
+ did_sort = true;
+ }
+#endif
+
+ low = 0;
+ high = (sizeof(tokentab) / sizeof(tokentab[0])) - 1;
+ while (low <= high) {
+ mid = (low + high) / 2;
+ i = *name - tokentab[mid].operator[0];
+ if (i == 0)
+ i = strcmp(name, tokentab[mid].operator);
+
+ if (i < 0) /* token < mid */
+ high = mid - 1;
+ else if (i > 0) /* token > mid */
+ low = mid + 1;
+ else {
+ if ((do_traditional && (tokentab[mid].flags & GAWKX))
+ || (do_posix && (tokentab[mid].flags &
NOT_POSIX)))
+ return -1;
+ return mid;
+ }
+ }
+ return -1;
+}
+
+/*
+ * This provides a private version of functions that act like VMS's
+ * variable-length record filesystem, where there was a bug on
+ * certain source files.
+ */
+
+static FILE *fp = NULL;
+
+/* read_one_line --- return one input line at a time. mainly for debugging. */
+
+static ssize_t
+read_one_line(int fd, void *buffer, size_t count)
+{
+ char buf[BUFSIZ];
+
+ /* Minor potential memory leak here. Too bad. */
+ if (fp == NULL) {
+ fp = fdopen(fd, "r");
+ if (fp == NULL) {
+ fprintf(stderr, "ugh. fdopen: %s\n", strerror(errno));
+ gawk_exit(EXIT_FAILURE);
+ }
+ }
+
+ if (fgets(buf, sizeof buf, fp) == NULL)
+ return 0;
+
+ memcpy(buffer, buf, strlen(buf));
+ return strlen(buf);
+}
+
+/* one_line_close --- close the open file being read with read_one_line() */
+
+static int
+one_line_close(int fd)
+{
+ int ret;
+
+ if (fp == NULL || fd != fileno(fp))
+ fatal("debugging read/close screwed up!");
+
+ ret = fclose(fp);
+ fp = NULL;
+ return ret;
+}
+
+
+/* lookup_builtin --- find a builtin function or return NULL */
+
+builtin_func_t
+lookup_builtin(const char *name)
+{
+ int mid = check_special(name);
+
+ if (mid == -1 || tokentab[mid].class != LEX_BUILTIN)
+ return NULL;
+#ifdef HAVE_MPFR
+ if (do_mpfr)
+ return tokentab[mid].ptr2;
+#endif
+
+ return tokentab[mid].ptr;
+}
+
+/* install_builtins --- add built-in functions to FUNCTAB */
+
+void
+install_builtins(void)
+{
+ int i, j;
+
+ j = sizeof(tokentab) / sizeof(tokentab[0]);
+ for (i = 0; i < j; i++) {
+ if ( tokentab[i].class == LEX_BUILTIN
+ && (tokentab[i].flags & DEBUG_USE) == 0) {
+ (void) install_symbol(tokentab[i].operator,
Node_builtin_func);
+ }
+ }
+}
+
+/*
+ * 9/2014: Gawk cannot use <ctype.h> isalpha or isalnum when
+ * parsing the program since that can let through non-English
+ * letters. So, we supply our own. address@hidden&*()-ing locales!
+ */
+
+/* is_alpha --- return true if c is an English letter */
+
+/*
+ * The scene of the murder was grisly to look upon. When the inspector
+ * arrived, the sergeant turned to him and said, "Another programmer stabbed
+ * in the back. He never knew what happened."
+ *
+ * The inspector replied, "Looks like the MO of isalpha, and his even meaner
+ * big brother, isalnum. The Locale brothers." The sergeant merely
+ * shuddered in horror.
+ */
+
+bool
+is_alpha(int c)
+{
+#ifdef I_DONT_KNOW_WHAT_IM_DOING
+ return isalpha(c);
+#else /* ! I_DONT_KNOW_WHAT_IM_DOING */
+ switch (c) {
+ case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
+ case 'g': case 'h': case 'i': case 'j': case 'k': case 'l':
+ case 'm': case 'n': case 'o': case 'p': case 'q': case 'r':
+ case 's': case 't': case 'u': case 'v': case 'w': case 'x':
+ case 'y': case 'z':
+ case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
+ case 'G': case 'H': case 'I': case 'J': case 'K': case 'L':
+ case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R':
+ case 'S': case 'T': case 'U': case 'V': case 'W': case 'X':
+ case 'Y': case 'Z':
+ return true;
+ }
+ return false;
+#endif /* ! I_DONT_KNOW_WHAT_IM_DOING */
+}
+
+/* is_alnum --- return true for alphanumeric, English only letters */
+
+bool
+is_alnum(int c)
+{
+ /* digit test is good for EBCDIC too. so there. */
+ return (is_alpha(c) || ('0' <= c && c <= '9'));
+}
+
+
+/* is_identchar --- return true if c can be in an identifier */
+
+bool
+is_identchar(int c)
+{
+ return (is_alnum(c) || c == '_');
+}
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=08c863705bf39c325e5561501f9e35c2c9780766
commit 08c863705bf39c325e5561501f9e35c2c9780766
Merge: e1f810e 19e83a0
Author: Arnold D. Robbins <address@hidden>
Date: Wed Feb 18 20:53:35 2015 +0200
Merge branch 'master' into async-events
diff --cc awkgram.c
index 9a87be9,b87a008..0000000
deleted file mode 100644,100644
--- a/awkgram.c
+++ /dev/null
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=e1f810ee397ada72e4d14d6b2c9fd77f1844a1a6
commit e1f810ee397ada72e4d14d6b2c9fd77f1844a1a6
Merge: 40e1286 4c01db1
Author: Arnold D. Robbins <address@hidden>
Date: Tue Jan 20 22:08:38 2015 +0200
Merge branch 'master' into async-events
diff --cc awkgram.c
index 6a5e647,6cc7868..9a87be9
--- a/awkgram.c
+++ b/awkgram.c
@@@ -661,25 -657,25 +657,25 @@@ static const yytype_uint8 yytranslate[
/* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
static const yytype_uint16 yyrline[] =
{
- 0, 208, 208, 210, 215, 216, 222, 234, 238, 249,
- 255, 260, 268, 276, 278, 283, 291, 293, 299, 307,
- 317, 347, 361, 375, 383, 394, 406, 408, 410, 416,
- 421, 422, 426, 461, 460, 494, 496, 501, 507, 536,
- 541, 542, 546, 548, 550, 557, 647, 689, 731, 844,
- 851, 858, 868, 877, 886, 895, 906, 922, 921, 945,
- 957, 957, 1055, 1055, 1088, 1118, 1124, 1125, 1131, 1132,
- 1139, 1144, 1156, 1170, 1172, 1180, 1185, 1187, 1195, 1197,
- 1206, 1207, 1215, 1220, 1220, 1231, 1235, 1243, 1244, 1247,
- 1249, 1254, 1255, 1264, 1265, 1270, 1275, 1281, 1283, 1285,
- 1292, 1293, 1299, 1300, 1305, 1307, 1312, 1314, 1322, 1327,
- 1336, 1343, 1345, 1347, 1363, 1373, 1380, 1382, 1387, 1389,
- 1391, 1399, 1401, 1406, 1408, 1413, 1415, 1417, 1467, 1469,
- 1471, 1473, 1475, 1477, 1479, 1481, 1495, 1500, 1505, 1530,
- 1536, 1538, 1540, 1542, 1544, 1546, 1551, 1555, 1587, 1589,
- 1595, 1601, 1614, 1615, 1616, 1621, 1626, 1630, 1634, 1649,
- 1662, 1667, 1703, 1721, 1722, 1728, 1729, 1734, 1736, 1743,
- 1760, 1777, 1779, 1786, 1791, 1799, 1809, 1821, 1830, 1834,
- 1838, 1842, 1846, 1850, 1853, 1855, 1859, 1863, 1867
+ 0, 204, 204, 206, 211, 212, 216, 228, 233, 244,
+ 250, 255, 263, 271, 273, 278, 286, 288, 294, 302,
+ 312, 342, 356, 370, 378, 389, 401, 403, 405, 411,
- 416, 417, 421, 456, 455, 489, 491, 496, 502, 530,
- 535, 536, 540, 542, 544, 551, 641, 683, 725, 838,
- 845, 852, 862, 871, 880, 889, 900, 916, 915, 939,
- 951, 951, 1049, 1049, 1082, 1112, 1118, 1119, 1125, 1126,
- 1133, 1138, 1150, 1164, 1166, 1174, 1179, 1181, 1189, 1191,
- 1200, 1201, 1209, 1214, 1214, 1225, 1229, 1237, 1238, 1241,
- 1243, 1248, 1249, 1258, 1259, 1264, 1269, 1275, 1277, 1279,
- 1286, 1287, 1293, 1294, 1299, 1301, 1306, 1308, 1316, 1321,
- 1330, 1337, 1339, 1341, 1357, 1367, 1374, 1376, 1381, 1383,
- 1385, 1393, 1395, 1400, 1402, 1407, 1409, 1411, 1461, 1463,
- 1465, 1467, 1469, 1471, 1473, 1475, 1489, 1494, 1499, 1524,
- 1530, 1532, 1534, 1536, 1538, 1540, 1545, 1549, 1581, 1583,
- 1589, 1595, 1608, 1609, 1610, 1615, 1620, 1624, 1628, 1643,
- 1656, 1661, 1697, 1715, 1716, 1722, 1723, 1728, 1730, 1737,
- 1754, 1771, 1773, 1780, 1785, 1793, 1803, 1815, 1824, 1828,
- 1832, 1836, 1840, 1844, 1847, 1849, 1853, 1857, 1861
++ 416, 417, 421, 456, 455, 489, 491, 496, 502, 531,
++ 536, 537, 541, 543, 545, 552, 642, 684, 726, 839,
++ 846, 853, 863, 872, 881, 890, 901, 917, 916, 940,
++ 952, 952, 1050, 1050, 1083, 1113, 1119, 1120, 1126, 1127,
++ 1134, 1139, 1151, 1165, 1167, 1175, 1180, 1182, 1190, 1192,
++ 1201, 1202, 1210, 1215, 1215, 1226, 1230, 1238, 1239, 1242,
++ 1244, 1249, 1250, 1259, 1260, 1265, 1270, 1276, 1278, 1280,
++ 1287, 1288, 1294, 1295, 1300, 1302, 1307, 1309, 1317, 1322,
++ 1331, 1338, 1340, 1342, 1358, 1368, 1375, 1377, 1382, 1384,
++ 1386, 1394, 1396, 1401, 1403, 1408, 1410, 1412, 1462, 1464,
++ 1466, 1468, 1470, 1472, 1474, 1476, 1490, 1495, 1500, 1525,
++ 1531, 1533, 1535, 1537, 1539, 1541, 1546, 1550, 1582, 1584,
++ 1590, 1596, 1609, 1610, 1611, 1616, 1621, 1625, 1629, 1644,
++ 1657, 1662, 1698, 1716, 1717, 1723, 1724, 1729, 1731, 1738,
++ 1755, 1772, 1774, 1781, 1786, 1794, 1804, 1816, 1825, 1829,
++ 1833, 1837, 1841, 1845, 1848, 1850, 1854, 1858, 1862
};
#endif
@@@ -2257,43 -2252,42 +2252,43 @@@ yyreduce
(yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
}
+ list_append((yyval), instruction(Op_end_stmt));
yyerrok;
}
- #line 2264 "awkgram.c" /* yacc.c:1646 */
-#line 2258 "awkgram.c" /* yacc.c:1646 */
++#line 2259 "awkgram.c" /* yacc.c:1646 */
break;
case 39:
- #line 537 "awkgram.y" /* yacc.c:1646 */
-#line 531 "awkgram.y" /* yacc.c:1646 */
++#line 532 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2270 "awkgram.c" /* yacc.c:1646 */
-#line 2264 "awkgram.c" /* yacc.c:1646 */
++#line 2265 "awkgram.c" /* yacc.c:1646 */
break;
case 42:
- #line 547 "awkgram.y" /* yacc.c:1646 */
-#line 541 "awkgram.y" /* yacc.c:1646 */
++#line 542 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2276 "awkgram.c" /* yacc.c:1646 */
-#line 2270 "awkgram.c" /* yacc.c:1646 */
++#line 2271 "awkgram.c" /* yacc.c:1646 */
break;
case 43:
- #line 549 "awkgram.y" /* yacc.c:1646 */
-#line 543 "awkgram.y" /* yacc.c:1646 */
++#line 544 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 2282 "awkgram.c" /* yacc.c:1646 */
-#line 2276 "awkgram.c" /* yacc.c:1646 */
++#line 2277 "awkgram.c" /* yacc.c:1646 */
break;
case 44:
- #line 551 "awkgram.y" /* yacc.c:1646 */
-#line 545 "awkgram.y" /* yacc.c:1646 */
++#line 546 "awkgram.y" /* yacc.c:1646 */
{
if (do_pretty_print)
(yyval) = list_prepend((yyvsp[0]),
instruction(Op_exec_count));
else
(yyval) = (yyvsp[0]);
}
- #line 2293 "awkgram.c" /* yacc.c:1646 */
-#line 2287 "awkgram.c" /* yacc.c:1646 */
++#line 2288 "awkgram.c" /* yacc.c:1646 */
break;
case 45:
- #line 558 "awkgram.y" /* yacc.c:1646 */
-#line 552 "awkgram.y" /* yacc.c:1646 */
++#line 553 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *dflt, *curr = NULL, *cexp, *cstmt;
INSTRUCTION *ip, *nextc, *tbreak;
@@@ -2383,11 -2377,11 +2378,11 @@@
break_allowed--;
fix_break_continue(ip, tbreak, NULL);
}
- #line 2387 "awkgram.c" /* yacc.c:1646 */
-#line 2381 "awkgram.c" /* yacc.c:1646 */
++#line 2382 "awkgram.c" /* yacc.c:1646 */
break;
case 46:
- #line 648 "awkgram.y" /* yacc.c:1646 */
-#line 642 "awkgram.y" /* yacc.c:1646 */
++#line 643 "awkgram.y" /* yacc.c:1646 */
{
/*
* -----------------
@@@ -2429,11 -2423,11 +2424,11 @@@
continue_allowed--;
fix_break_continue(ip, tbreak, tcont);
}
- #line 2433 "awkgram.c" /* yacc.c:1646 */
-#line 2427 "awkgram.c" /* yacc.c:1646 */
++#line 2428 "awkgram.c" /* yacc.c:1646 */
break;
case 47:
- #line 690 "awkgram.y" /* yacc.c:1646 */
-#line 684 "awkgram.y" /* yacc.c:1646 */
++#line 685 "awkgram.y" /* yacc.c:1646 */
{
/*
* -----------------
@@@ -2475,11 -2469,11 +2470,11 @@@
} /* else
$1 and $4 are NULLs */
}
- #line 2479 "awkgram.c" /* yacc.c:1646 */
-#line 2473 "awkgram.c" /* yacc.c:1646 */
++#line 2474 "awkgram.c" /* yacc.c:1646 */
break;
case 48:
- #line 732 "awkgram.y" /* yacc.c:1646 */
-#line 726 "awkgram.y" /* yacc.c:1646 */
++#line 727 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *ip;
char *var_name = (yyvsp[-5])->lextok;
@@@ -2592,44 -2586,44 +2587,44 @@@ regular_loop
break_allowed--;
continue_allowed--;
}
- #line 2596 "awkgram.c" /* yacc.c:1646 */
-#line 2590 "awkgram.c" /* yacc.c:1646 */
++#line 2591 "awkgram.c" /* yacc.c:1646 */
break;
case 49:
- #line 845 "awkgram.y" /* yacc.c:1646 */
-#line 839 "awkgram.y" /* yacc.c:1646 */
++#line 840 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_for_loop((yyvsp[-11]), (yyvsp[-9]), (yyvsp[-6]),
(yyvsp[-3]), (yyvsp[0]));
break_allowed--;
continue_allowed--;
}
- #line 2607 "awkgram.c" /* yacc.c:1646 */
-#line 2601 "awkgram.c" /* yacc.c:1646 */
++#line 2602 "awkgram.c" /* yacc.c:1646 */
break;
case 50:
- #line 852 "awkgram.y" /* yacc.c:1646 */
-#line 846 "awkgram.y" /* yacc.c:1646 */
++#line 847 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_for_loop((yyvsp[-10]), (yyvsp[-8]), (INSTRUCTION
*) NULL, (yyvsp[-3]), (yyvsp[0]));
break_allowed--;
continue_allowed--;
}
- #line 2618 "awkgram.c" /* yacc.c:1646 */
-#line 2612 "awkgram.c" /* yacc.c:1646 */
++#line 2613 "awkgram.c" /* yacc.c:1646 */
break;
case 51:
- #line 859 "awkgram.y" /* yacc.c:1646 */
-#line 853 "awkgram.y" /* yacc.c:1646 */
++#line 854 "awkgram.y" /* yacc.c:1646 */
{
if (do_pretty_print)
(yyval) = list_prepend((yyvsp[0]),
instruction(Op_exec_count));
else
(yyval) = (yyvsp[0]);
}
- #line 2629 "awkgram.c" /* yacc.c:1646 */
-#line 2623 "awkgram.c" /* yacc.c:1646 */
++#line 2624 "awkgram.c" /* yacc.c:1646 */
break;
case 52:
- #line 869 "awkgram.y" /* yacc.c:1646 */
-#line 863 "awkgram.y" /* yacc.c:1646 */
++#line 864 "awkgram.y" /* yacc.c:1646 */
{
if (! break_allowed)
error_ln((yyvsp[-1])->source_line,
@@@ -2638,11 -2632,11 +2633,11 @@@
(yyval) = list_create((yyvsp[-1]));
}
- #line 2642 "awkgram.c" /* yacc.c:1646 */
-#line 2636 "awkgram.c" /* yacc.c:1646 */
++#line 2637 "awkgram.c" /* yacc.c:1646 */
break;
case 53:
- #line 878 "awkgram.y" /* yacc.c:1646 */
-#line 872 "awkgram.y" /* yacc.c:1646 */
++#line 873 "awkgram.y" /* yacc.c:1646 */
{
if (! continue_allowed)
error_ln((yyvsp[-1])->source_line,
@@@ -2651,11 -2645,11 +2646,11 @@@
(yyval) = list_create((yyvsp[-1]));
}
- #line 2655 "awkgram.c" /* yacc.c:1646 */
-#line 2649 "awkgram.c" /* yacc.c:1646 */
++#line 2650 "awkgram.c" /* yacc.c:1646 */
break;
case 54:
- #line 887 "awkgram.y" /* yacc.c:1646 */
-#line 881 "awkgram.y" /* yacc.c:1646 */
++#line 882 "awkgram.y" /* yacc.c:1646 */
{
/* if inside function (rule = 0), resolve context at run-time */
if (rule && rule != Rule)
@@@ -2664,11 -2658,11 +2659,11 @@@
(yyvsp[-1])->target_jmp = ip_rec;
(yyval) = list_create((yyvsp[-1]));
}
- #line 2668 "awkgram.c" /* yacc.c:1646 */
-#line 2662 "awkgram.c" /* yacc.c:1646 */
++#line 2663 "awkgram.c" /* yacc.c:1646 */
break;
case 55:
- #line 896 "awkgram.y" /* yacc.c:1646 */
-#line 890 "awkgram.y" /* yacc.c:1646 */
++#line 891 "awkgram.y" /* yacc.c:1646 */
{
/* if inside function (rule = 0), resolve context at run-time */
if (rule == BEGIN || rule == END || rule == ENDFILE)
@@@ -2679,11 -2673,11 +2674,11 @@@
(yyvsp[-1])->target_endfile = ip_endfile;
(yyval) = list_create((yyvsp[-1]));
}
- #line 2683 "awkgram.c" /* yacc.c:1646 */
-#line 2677 "awkgram.c" /* yacc.c:1646 */
++#line 2678 "awkgram.c" /* yacc.c:1646 */
break;
case 56:
- #line 907 "awkgram.y" /* yacc.c:1646 */
-#line 901 "awkgram.y" /* yacc.c:1646 */
++#line 902 "awkgram.y" /* yacc.c:1646 */
{
/* Initialize the two possible jump targets, the actual target
* is resolved at run-time.
@@@ -2698,20 -2692,20 +2693,20 @@@
} else
(yyval) = list_append((yyvsp[-1]), (yyvsp[-2]));
}
- #line 2702 "awkgram.c" /* yacc.c:1646 */
-#line 2696 "awkgram.c" /* yacc.c:1646 */
++#line 2697 "awkgram.c" /* yacc.c:1646 */
break;
case 57:
- #line 922 "awkgram.y" /* yacc.c:1646 */
-#line 916 "awkgram.y" /* yacc.c:1646 */
++#line 917 "awkgram.y" /* yacc.c:1646 */
{
if (! in_function)
yyerror(_("`return' used outside function context"));
}
- #line 2711 "awkgram.c" /* yacc.c:1646 */
-#line 2705 "awkgram.c" /* yacc.c:1646 */
++#line 2706 "awkgram.c" /* yacc.c:1646 */
break;
case 58:
- #line 925 "awkgram.y" /* yacc.c:1646 */
-#line 919 "awkgram.y" /* yacc.c:1646 */
++#line 920 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-1]) == NULL) {
(yyval) = list_create((yyvsp[-3]));
@@@ -2732,17 -2726,17 +2727,17 @@@
(yyval) = list_append((yyvsp[-1]), (yyvsp[-3]));
}
}
- #line 2736 "awkgram.c" /* yacc.c:1646 */
-#line 2730 "awkgram.c" /* yacc.c:1646 */
++#line 2731 "awkgram.c" /* yacc.c:1646 */
break;
case 60:
- #line 957 "awkgram.y" /* yacc.c:1646 */
-#line 951 "awkgram.y" /* yacc.c:1646 */
++#line 952 "awkgram.y" /* yacc.c:1646 */
{ in_print = true; in_parens = 0; }
- #line 2742 "awkgram.c" /* yacc.c:1646 */
-#line 2736 "awkgram.c" /* yacc.c:1646 */
++#line 2737 "awkgram.c" /* yacc.c:1646 */
break;
case 61:
- #line 958 "awkgram.y" /* yacc.c:1646 */
-#line 952 "awkgram.y" /* yacc.c:1646 */
++#line 953 "awkgram.y" /* yacc.c:1646 */
{
/*
* Optimization: plain `print' has no expression list, so $3 is
null.
@@@ -2839,17 -2833,17 +2834,17 @@@ regular_print
}
}
}
- #line 2843 "awkgram.c" /* yacc.c:1646 */
-#line 2837 "awkgram.c" /* yacc.c:1646 */
++#line 2838 "awkgram.c" /* yacc.c:1646 */
break;
case 62:
- #line 1055 "awkgram.y" /* yacc.c:1646 */
-#line 1049 "awkgram.y" /* yacc.c:1646 */
++#line 1050 "awkgram.y" /* yacc.c:1646 */
{ sub_counter = 0; }
- #line 2849 "awkgram.c" /* yacc.c:1646 */
-#line 2843 "awkgram.c" /* yacc.c:1646 */
++#line 2844 "awkgram.c" /* yacc.c:1646 */
break;
case 63:
- #line 1056 "awkgram.y" /* yacc.c:1646 */
-#line 1050 "awkgram.y" /* yacc.c:1646 */
++#line 1051 "awkgram.y" /* yacc.c:1646 */
{
char *arr = (yyvsp[-2])->lextok;
@@@ -2882,11 -2876,11 +2877,11 @@@
(yyval) = list_append(list_append((yyvsp[0]),
(yyvsp[-2])), (yyvsp[-3]));
}
}
- #line 2886 "awkgram.c" /* yacc.c:1646 */
-#line 2880 "awkgram.c" /* yacc.c:1646 */
++#line 2881 "awkgram.c" /* yacc.c:1646 */
break;
case 64:
- #line 1093 "awkgram.y" /* yacc.c:1646 */
-#line 1087 "awkgram.y" /* yacc.c:1646 */
++#line 1088 "awkgram.y" /* yacc.c:1646 */
{
static bool warned = false;
char *arr = (yyvsp[-1])->lextok;
@@@ -2912,52 -2906,52 +2907,52 @@@
fatal(_("`delete' is not allowed with
FUNCTAB"));
}
}
- #line 2916 "awkgram.c" /* yacc.c:1646 */
-#line 2910 "awkgram.c" /* yacc.c:1646 */
++#line 2911 "awkgram.c" /* yacc.c:1646 */
break;
case 65:
- #line 1119 "awkgram.y" /* yacc.c:1646 */
-#line 1113 "awkgram.y" /* yacc.c:1646 */
++#line 1114 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = optimize_assignment((yyvsp[0])); }
- #line 2922 "awkgram.c" /* yacc.c:1646 */
-#line 2916 "awkgram.c" /* yacc.c:1646 */
++#line 2917 "awkgram.c" /* yacc.c:1646 */
break;
case 66:
- #line 1124 "awkgram.y" /* yacc.c:1646 */
-#line 1118 "awkgram.y" /* yacc.c:1646 */
++#line 1119 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2928 "awkgram.c" /* yacc.c:1646 */
-#line 2922 "awkgram.c" /* yacc.c:1646 */
++#line 2923 "awkgram.c" /* yacc.c:1646 */
break;
case 67:
- #line 1126 "awkgram.y" /* yacc.c:1646 */
-#line 1120 "awkgram.y" /* yacc.c:1646 */
++#line 1121 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2934 "awkgram.c" /* yacc.c:1646 */
-#line 2928 "awkgram.c" /* yacc.c:1646 */
++#line 2929 "awkgram.c" /* yacc.c:1646 */
break;
case 68:
- #line 1131 "awkgram.y" /* yacc.c:1646 */
-#line 1125 "awkgram.y" /* yacc.c:1646 */
++#line 1126 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2940 "awkgram.c" /* yacc.c:1646 */
-#line 2934 "awkgram.c" /* yacc.c:1646 */
++#line 2935 "awkgram.c" /* yacc.c:1646 */
break;
case 69:
- #line 1133 "awkgram.y" /* yacc.c:1646 */
-#line 1127 "awkgram.y" /* yacc.c:1646 */
++#line 1128 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-1]) == NULL)
(yyval) = list_create((yyvsp[0]));
else
(yyval) = list_prepend((yyvsp[-1]), (yyvsp[0]));
}
- #line 2951 "awkgram.c" /* yacc.c:1646 */
-#line 2945 "awkgram.c" /* yacc.c:1646 */
++#line 2946 "awkgram.c" /* yacc.c:1646 */
break;
case 70:
- #line 1140 "awkgram.y" /* yacc.c:1646 */
-#line 1134 "awkgram.y" /* yacc.c:1646 */
++#line 1135 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2957 "awkgram.c" /* yacc.c:1646 */
-#line 2951 "awkgram.c" /* yacc.c:1646 */
++#line 2952 "awkgram.c" /* yacc.c:1646 */
break;
case 71:
- #line 1145 "awkgram.y" /* yacc.c:1646 */
-#line 1139 "awkgram.y" /* yacc.c:1646 */
++#line 1140 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *casestmt = (yyvsp[0]);
if ((yyvsp[0]) == NULL)
@@@ -2969,11 -2963,11 +2964,11 @@@
bcfree((yyvsp[-2]));
(yyval) = (yyvsp[-4]);
}
- #line 2973 "awkgram.c" /* yacc.c:1646 */
-#line 2967 "awkgram.c" /* yacc.c:1646 */
++#line 2968 "awkgram.c" /* yacc.c:1646 */
break;
case 72:
- #line 1157 "awkgram.y" /* yacc.c:1646 */
-#line 1151 "awkgram.y" /* yacc.c:1646 */
++#line 1152 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *casestmt = (yyvsp[0]);
if ((yyvsp[0]) == NULL)
@@@ -2984,17 -2978,17 +2979,17 @@@
(yyvsp[-3])->case_stmt = casestmt;
(yyval) = (yyvsp[-3]);
}
- #line 2988 "awkgram.c" /* yacc.c:1646 */
-#line 2982 "awkgram.c" /* yacc.c:1646 */
++#line 2983 "awkgram.c" /* yacc.c:1646 */
break;
case 73:
- #line 1171 "awkgram.y" /* yacc.c:1646 */
-#line 1165 "awkgram.y" /* yacc.c:1646 */
++#line 1166 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2994 "awkgram.c" /* yacc.c:1646 */
-#line 2988 "awkgram.c" /* yacc.c:1646 */
++#line 2989 "awkgram.c" /* yacc.c:1646 */
break;
case 74:
- #line 1173 "awkgram.y" /* yacc.c:1646 */
-#line 1167 "awkgram.y" /* yacc.c:1646 */
++#line 1168 "awkgram.y" /* yacc.c:1646 */
{
NODE *n = (yyvsp[0])->memory;
(void) force_number(n);
@@@ -3002,71 -2996,71 +2997,71 @@@
bcfree((yyvsp[-1]));
(yyval) = (yyvsp[0]);
}
- #line 3006 "awkgram.c" /* yacc.c:1646 */
-#line 3000 "awkgram.c" /* yacc.c:1646 */
++#line 3001 "awkgram.c" /* yacc.c:1646 */
break;
case 75:
- #line 1181 "awkgram.y" /* yacc.c:1646 */
-#line 1175 "awkgram.y" /* yacc.c:1646 */
++#line 1176 "awkgram.y" /* yacc.c:1646 */
{
bcfree((yyvsp[-1]));
(yyval) = (yyvsp[0]);
}
- #line 3015 "awkgram.c" /* yacc.c:1646 */
-#line 3009 "awkgram.c" /* yacc.c:1646 */
++#line 3010 "awkgram.c" /* yacc.c:1646 */
break;
case 76:
- #line 1186 "awkgram.y" /* yacc.c:1646 */
-#line 1180 "awkgram.y" /* yacc.c:1646 */
++#line 1181 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3021 "awkgram.c" /* yacc.c:1646 */
-#line 3015 "awkgram.c" /* yacc.c:1646 */
++#line 3016 "awkgram.c" /* yacc.c:1646 */
break;
case 77:
- #line 1188 "awkgram.y" /* yacc.c:1646 */
-#line 1182 "awkgram.y" /* yacc.c:1646 */
++#line 1183 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_push_re;
(yyval) = (yyvsp[0]);
}
- #line 3030 "awkgram.c" /* yacc.c:1646 */
-#line 3024 "awkgram.c" /* yacc.c:1646 */
++#line 3025 "awkgram.c" /* yacc.c:1646 */
break;
case 78:
- #line 1196 "awkgram.y" /* yacc.c:1646 */
-#line 1190 "awkgram.y" /* yacc.c:1646 */
++#line 1191 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3036 "awkgram.c" /* yacc.c:1646 */
-#line 3030 "awkgram.c" /* yacc.c:1646 */
++#line 3031 "awkgram.c" /* yacc.c:1646 */
break;
case 79:
- #line 1198 "awkgram.y" /* yacc.c:1646 */
-#line 1192 "awkgram.y" /* yacc.c:1646 */
++#line 1193 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3042 "awkgram.c" /* yacc.c:1646 */
-#line 3036 "awkgram.c" /* yacc.c:1646 */
++#line 3037 "awkgram.c" /* yacc.c:1646 */
break;
case 81:
- #line 1208 "awkgram.y" /* yacc.c:1646 */
-#line 1202 "awkgram.y" /* yacc.c:1646 */
++#line 1203 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = (yyvsp[-1]);
}
- #line 3050 "awkgram.c" /* yacc.c:1646 */
-#line 3044 "awkgram.c" /* yacc.c:1646 */
++#line 3045 "awkgram.c" /* yacc.c:1646 */
break;
case 82:
- #line 1215 "awkgram.y" /* yacc.c:1646 */
-#line 1209 "awkgram.y" /* yacc.c:1646 */
++#line 1210 "awkgram.y" /* yacc.c:1646 */
{
in_print = false;
in_parens = 0;
(yyval) = NULL;
}
- #line 3060 "awkgram.c" /* yacc.c:1646 */
-#line 3054 "awkgram.c" /* yacc.c:1646 */
++#line 3055 "awkgram.c" /* yacc.c:1646 */
break;
case 83:
- #line 1220 "awkgram.y" /* yacc.c:1646 */
-#line 1214 "awkgram.y" /* yacc.c:1646 */
++#line 1215 "awkgram.y" /* yacc.c:1646 */
{ in_print = false; in_parens = 0; }
- #line 3066 "awkgram.c" /* yacc.c:1646 */
-#line 3060 "awkgram.c" /* yacc.c:1646 */
++#line 3061 "awkgram.c" /* yacc.c:1646 */
break;
case 84:
- #line 1221 "awkgram.y" /* yacc.c:1646 */
-#line 1215 "awkgram.y" /* yacc.c:1646 */
++#line 1216 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-2])->redir_type == redirect_twoway
&& (yyvsp[0])->lasti->opcode == Op_K_getline_redir
@@@ -3074,136 -3068,136 +3069,136 @@@
yyerror(_("multistage two-way pipelines don't work"));
(yyval) = list_prepend((yyvsp[0]), (yyvsp[-2]));
}
- #line 3078 "awkgram.c" /* yacc.c:1646 */
-#line 3072 "awkgram.c" /* yacc.c:1646 */
++#line 3073 "awkgram.c" /* yacc.c:1646 */
break;
case 85:
- #line 1232 "awkgram.y" /* yacc.c:1646 */
-#line 1226 "awkgram.y" /* yacc.c:1646 */
++#line 1227 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_condition((yyvsp[-3]), (yyvsp[-5]), (yyvsp[0]),
NULL, NULL);
}
- #line 3086 "awkgram.c" /* yacc.c:1646 */
-#line 3080 "awkgram.c" /* yacc.c:1646 */
++#line 3081 "awkgram.c" /* yacc.c:1646 */
break;
case 86:
- #line 1237 "awkgram.y" /* yacc.c:1646 */
-#line 1231 "awkgram.y" /* yacc.c:1646 */
++#line 1232 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_condition((yyvsp[-6]), (yyvsp[-8]), (yyvsp[-3]),
(yyvsp[-2]), (yyvsp[0]));
}
- #line 3094 "awkgram.c" /* yacc.c:1646 */
-#line 3088 "awkgram.c" /* yacc.c:1646 */
++#line 3089 "awkgram.c" /* yacc.c:1646 */
break;
case 91:
- #line 1254 "awkgram.y" /* yacc.c:1646 */
-#line 1248 "awkgram.y" /* yacc.c:1646 */
++#line 1249 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3100 "awkgram.c" /* yacc.c:1646 */
-#line 3094 "awkgram.c" /* yacc.c:1646 */
++#line 3095 "awkgram.c" /* yacc.c:1646 */
break;
case 92:
- #line 1256 "awkgram.y" /* yacc.c:1646 */
-#line 1250 "awkgram.y" /* yacc.c:1646 */
++#line 1251 "awkgram.y" /* yacc.c:1646 */
{
bcfree((yyvsp[-1]));
(yyval) = (yyvsp[0]);
}
- #line 3109 "awkgram.c" /* yacc.c:1646 */
-#line 3103 "awkgram.c" /* yacc.c:1646 */
++#line 3104 "awkgram.c" /* yacc.c:1646 */
break;
case 93:
- #line 1264 "awkgram.y" /* yacc.c:1646 */
-#line 1258 "awkgram.y" /* yacc.c:1646 */
++#line 1259 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3115 "awkgram.c" /* yacc.c:1646 */
-#line 3109 "awkgram.c" /* yacc.c:1646 */
++#line 3110 "awkgram.c" /* yacc.c:1646 */
break;
case 94:
- #line 1266 "awkgram.y" /* yacc.c:1646 */
-#line 1260 "awkgram.y" /* yacc.c:1646 */
++#line 1261 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3121 "awkgram.c" /* yacc.c:1646 */
-#line 3115 "awkgram.c" /* yacc.c:1646 */
++#line 3116 "awkgram.c" /* yacc.c:1646 */
break;
case 95:
- #line 1271 "awkgram.y" /* yacc.c:1646 */
-#line 1265 "awkgram.y" /* yacc.c:1646 */
++#line 1266 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->param_count = 0;
(yyval) = list_create((yyvsp[0]));
}
- #line 3130 "awkgram.c" /* yacc.c:1646 */
-#line 3124 "awkgram.c" /* yacc.c:1646 */
++#line 3125 "awkgram.c" /* yacc.c:1646 */
break;
case 96:
- #line 1276 "awkgram.y" /* yacc.c:1646 */
-#line 1270 "awkgram.y" /* yacc.c:1646 */
++#line 1271 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->param_count = (yyvsp[-2])->lasti->param_count + 1;
(yyval) = list_append((yyvsp[-2]), (yyvsp[0]));
yyerrok;
}
- #line 3140 "awkgram.c" /* yacc.c:1646 */
-#line 3134 "awkgram.c" /* yacc.c:1646 */
++#line 3135 "awkgram.c" /* yacc.c:1646 */
break;
case 97:
- #line 1282 "awkgram.y" /* yacc.c:1646 */
-#line 1276 "awkgram.y" /* yacc.c:1646 */
++#line 1277 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3146 "awkgram.c" /* yacc.c:1646 */
-#line 3140 "awkgram.c" /* yacc.c:1646 */
++#line 3141 "awkgram.c" /* yacc.c:1646 */
break;
case 98:
- #line 1284 "awkgram.y" /* yacc.c:1646 */
-#line 1278 "awkgram.y" /* yacc.c:1646 */
++#line 1279 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3152 "awkgram.c" /* yacc.c:1646 */
-#line 3146 "awkgram.c" /* yacc.c:1646 */
++#line 3147 "awkgram.c" /* yacc.c:1646 */
break;
case 99:
- #line 1286 "awkgram.y" /* yacc.c:1646 */
-#line 1280 "awkgram.y" /* yacc.c:1646 */
++#line 1281 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-2]); }
- #line 3158 "awkgram.c" /* yacc.c:1646 */
-#line 3152 "awkgram.c" /* yacc.c:1646 */
++#line 3153 "awkgram.c" /* yacc.c:1646 */
break;
case 100:
- #line 1292 "awkgram.y" /* yacc.c:1646 */
-#line 1286 "awkgram.y" /* yacc.c:1646 */
++#line 1287 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3164 "awkgram.c" /* yacc.c:1646 */
-#line 3158 "awkgram.c" /* yacc.c:1646 */
++#line 3159 "awkgram.c" /* yacc.c:1646 */
break;
case 101:
- #line 1294 "awkgram.y" /* yacc.c:1646 */
-#line 1288 "awkgram.y" /* yacc.c:1646 */
++#line 1289 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3170 "awkgram.c" /* yacc.c:1646 */
-#line 3164 "awkgram.c" /* yacc.c:1646 */
++#line 3165 "awkgram.c" /* yacc.c:1646 */
break;
case 102:
- #line 1299 "awkgram.y" /* yacc.c:1646 */
-#line 1293 "awkgram.y" /* yacc.c:1646 */
++#line 1294 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3176 "awkgram.c" /* yacc.c:1646 */
-#line 3170 "awkgram.c" /* yacc.c:1646 */
++#line 3171 "awkgram.c" /* yacc.c:1646 */
break;
case 103:
- #line 1301 "awkgram.y" /* yacc.c:1646 */
-#line 1295 "awkgram.y" /* yacc.c:1646 */
++#line 1296 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3182 "awkgram.c" /* yacc.c:1646 */
-#line 3176 "awkgram.c" /* yacc.c:1646 */
++#line 3177 "awkgram.c" /* yacc.c:1646 */
break;
case 104:
- #line 1306 "awkgram.y" /* yacc.c:1646 */
-#line 1300 "awkgram.y" /* yacc.c:1646 */
++#line 1301 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_expression_list(NULL, (yyvsp[0])); }
- #line 3188 "awkgram.c" /* yacc.c:1646 */
-#line 3182 "awkgram.c" /* yacc.c:1646 */
++#line 3183 "awkgram.c" /* yacc.c:1646 */
break;
case 105:
- #line 1308 "awkgram.y" /* yacc.c:1646 */
-#line 1302 "awkgram.y" /* yacc.c:1646 */
++#line 1303 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_expression_list((yyvsp[-2]), (yyvsp[0]));
yyerrok;
}
- #line 3197 "awkgram.c" /* yacc.c:1646 */
-#line 3191 "awkgram.c" /* yacc.c:1646 */
++#line 3192 "awkgram.c" /* yacc.c:1646 */
break;
case 106:
- #line 1313 "awkgram.y" /* yacc.c:1646 */
-#line 1307 "awkgram.y" /* yacc.c:1646 */
++#line 1308 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3203 "awkgram.c" /* yacc.c:1646 */
-#line 3197 "awkgram.c" /* yacc.c:1646 */
++#line 3198 "awkgram.c" /* yacc.c:1646 */
break;
case 107:
- #line 1315 "awkgram.y" /* yacc.c:1646 */
-#line 1309 "awkgram.y" /* yacc.c:1646 */
++#line 1310 "awkgram.y" /* yacc.c:1646 */
{
/*
* Returning the expression list instead of NULL lets
@@@ -3211,52 -3205,52 +3206,52 @@@
*/
(yyval) = (yyvsp[-1]);
}
- #line 3215 "awkgram.c" /* yacc.c:1646 */
-#line 3209 "awkgram.c" /* yacc.c:1646 */
++#line 3210 "awkgram.c" /* yacc.c:1646 */
break;
case 108:
- #line 1323 "awkgram.y" /* yacc.c:1646 */
-#line 1317 "awkgram.y" /* yacc.c:1646 */
++#line 1318 "awkgram.y" /* yacc.c:1646 */
{
/* Ditto */
(yyval) = mk_expression_list((yyvsp[-2]), (yyvsp[0]));
}
- #line 3224 "awkgram.c" /* yacc.c:1646 */
-#line 3218 "awkgram.c" /* yacc.c:1646 */
++#line 3219 "awkgram.c" /* yacc.c:1646 */
break;
case 109:
- #line 1328 "awkgram.y" /* yacc.c:1646 */
-#line 1322 "awkgram.y" /* yacc.c:1646 */
++#line 1323 "awkgram.y" /* yacc.c:1646 */
{
/* Ditto */
(yyval) = (yyvsp[-2]);
}
- #line 3233 "awkgram.c" /* yacc.c:1646 */
-#line 3227 "awkgram.c" /* yacc.c:1646 */
++#line 3228 "awkgram.c" /* yacc.c:1646 */
break;
case 110:
- #line 1337 "awkgram.y" /* yacc.c:1646 */
-#line 1331 "awkgram.y" /* yacc.c:1646 */
++#line 1332 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint && (yyvsp[0])->lasti->opcode == Op_match_rec)
lintwarn_ln((yyvsp[-1])->source_line,
_("regular expression on right of assignment"));
(yyval) = mk_assignment((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1]));
}
- #line 3244 "awkgram.c" /* yacc.c:1646 */
-#line 3238 "awkgram.c" /* yacc.c:1646 */
++#line 3239 "awkgram.c" /* yacc.c:1646 */
break;
case 111:
- #line 1344 "awkgram.y" /* yacc.c:1646 */
-#line 1338 "awkgram.y" /* yacc.c:1646 */
++#line 1339 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_boolean((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3250 "awkgram.c" /* yacc.c:1646 */
-#line 3244 "awkgram.c" /* yacc.c:1646 */
++#line 3245 "awkgram.c" /* yacc.c:1646 */
break;
case 112:
- #line 1346 "awkgram.y" /* yacc.c:1646 */
-#line 1340 "awkgram.y" /* yacc.c:1646 */
++#line 1341 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_boolean((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3256 "awkgram.c" /* yacc.c:1646 */
-#line 3250 "awkgram.c" /* yacc.c:1646 */
++#line 3251 "awkgram.c" /* yacc.c:1646 */
break;
case 113:
- #line 1348 "awkgram.y" /* yacc.c:1646 */
-#line 1342 "awkgram.y" /* yacc.c:1646 */
++#line 1343 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-2])->lasti->opcode == Op_match_rec)
warning_ln((yyvsp[-1])->source_line,
@@@ -3272,11 -3266,11 +3267,11 @@@
(yyval) = list_append(list_merge((yyvsp[-2]),
(yyvsp[0])), (yyvsp[-1]));
}
}
- #line 3276 "awkgram.c" /* yacc.c:1646 */
-#line 3270 "awkgram.c" /* yacc.c:1646 */
++#line 3271 "awkgram.c" /* yacc.c:1646 */
break;
case 114:
- #line 1364 "awkgram.y" /* yacc.c:1646 */
-#line 1358 "awkgram.y" /* yacc.c:1646 */
++#line 1359 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint_old)
warning_ln((yyvsp[-1])->source_line,
@@@ -3286,91 -3280,91 +3281,91 @@@
(yyvsp[-1])->expr_count = 1;
(yyval) = list_append(list_merge((yyvsp[-2]), (yyvsp[0])),
(yyvsp[-1]));
}
- #line 3290 "awkgram.c" /* yacc.c:1646 */
-#line 3284 "awkgram.c" /* yacc.c:1646 */
++#line 3285 "awkgram.c" /* yacc.c:1646 */
break;
case 115:
- #line 1374 "awkgram.y" /* yacc.c:1646 */
-#line 1368 "awkgram.y" /* yacc.c:1646 */
++#line 1369 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint && (yyvsp[0])->lasti->opcode == Op_match_rec)
lintwarn_ln((yyvsp[-1])->source_line,
_("regular expression on right of comparison"));
(yyval) = list_append(list_merge((yyvsp[-2]), (yyvsp[0])),
(yyvsp[-1]));
}
- #line 3301 "awkgram.c" /* yacc.c:1646 */
-#line 3295 "awkgram.c" /* yacc.c:1646 */
++#line 3296 "awkgram.c" /* yacc.c:1646 */
break;
case 116:
- #line 1381 "awkgram.y" /* yacc.c:1646 */
-#line 1375 "awkgram.y" /* yacc.c:1646 */
++#line 1376 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_condition((yyvsp[-4]), (yyvsp[-3]), (yyvsp[-2]),
(yyvsp[-1]), (yyvsp[0])); }
- #line 3307 "awkgram.c" /* yacc.c:1646 */
-#line 3301 "awkgram.c" /* yacc.c:1646 */
++#line 3302 "awkgram.c" /* yacc.c:1646 */
break;
case 117:
- #line 1383 "awkgram.y" /* yacc.c:1646 */
-#line 1377 "awkgram.y" /* yacc.c:1646 */
++#line 1378 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3313 "awkgram.c" /* yacc.c:1646 */
-#line 3307 "awkgram.c" /* yacc.c:1646 */
++#line 3308 "awkgram.c" /* yacc.c:1646 */
break;
case 118:
- #line 1388 "awkgram.y" /* yacc.c:1646 */
-#line 1382 "awkgram.y" /* yacc.c:1646 */
++#line 1383 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3319 "awkgram.c" /* yacc.c:1646 */
-#line 3313 "awkgram.c" /* yacc.c:1646 */
++#line 3314 "awkgram.c" /* yacc.c:1646 */
break;
case 119:
- #line 1390 "awkgram.y" /* yacc.c:1646 */
-#line 1384 "awkgram.y" /* yacc.c:1646 */
++#line 1385 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3325 "awkgram.c" /* yacc.c:1646 */
-#line 3319 "awkgram.c" /* yacc.c:1646 */
++#line 3320 "awkgram.c" /* yacc.c:1646 */
break;
case 120:
- #line 1392 "awkgram.y" /* yacc.c:1646 */
-#line 1386 "awkgram.y" /* yacc.c:1646 */
++#line 1387 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_assign_quotient;
(yyval) = (yyvsp[0]);
}
- #line 3334 "awkgram.c" /* yacc.c:1646 */
-#line 3328 "awkgram.c" /* yacc.c:1646 */
++#line 3329 "awkgram.c" /* yacc.c:1646 */
break;
case 121:
- #line 1400 "awkgram.y" /* yacc.c:1646 */
-#line 1394 "awkgram.y" /* yacc.c:1646 */
++#line 1395 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3340 "awkgram.c" /* yacc.c:1646 */
-#line 3334 "awkgram.c" /* yacc.c:1646 */
++#line 3335 "awkgram.c" /* yacc.c:1646 */
break;
case 122:
- #line 1402 "awkgram.y" /* yacc.c:1646 */
-#line 1396 "awkgram.y" /* yacc.c:1646 */
++#line 1397 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3346 "awkgram.c" /* yacc.c:1646 */
-#line 3340 "awkgram.c" /* yacc.c:1646 */
++#line 3341 "awkgram.c" /* yacc.c:1646 */
break;
case 123:
- #line 1407 "awkgram.y" /* yacc.c:1646 */
-#line 1401 "awkgram.y" /* yacc.c:1646 */
++#line 1402 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3352 "awkgram.c" /* yacc.c:1646 */
-#line 3346 "awkgram.c" /* yacc.c:1646 */
++#line 3347 "awkgram.c" /* yacc.c:1646 */
break;
case 124:
- #line 1409 "awkgram.y" /* yacc.c:1646 */
-#line 1403 "awkgram.y" /* yacc.c:1646 */
++#line 1404 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3358 "awkgram.c" /* yacc.c:1646 */
-#line 3352 "awkgram.c" /* yacc.c:1646 */
++#line 3353 "awkgram.c" /* yacc.c:1646 */
break;
case 125:
- #line 1414 "awkgram.y" /* yacc.c:1646 */
-#line 1408 "awkgram.y" /* yacc.c:1646 */
++#line 1409 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3364 "awkgram.c" /* yacc.c:1646 */
-#line 3358 "awkgram.c" /* yacc.c:1646 */
++#line 3359 "awkgram.c" /* yacc.c:1646 */
break;
case 126:
- #line 1416 "awkgram.y" /* yacc.c:1646 */
-#line 1410 "awkgram.y" /* yacc.c:1646 */
++#line 1411 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3370 "awkgram.c" /* yacc.c:1646 */
-#line 3364 "awkgram.c" /* yacc.c:1646 */
++#line 3365 "awkgram.c" /* yacc.c:1646 */
break;
case 127:
- #line 1418 "awkgram.y" /* yacc.c:1646 */
-#line 1412 "awkgram.y" /* yacc.c:1646 */
++#line 1413 "awkgram.y" /* yacc.c:1646 */
{
int count = 2;
bool is_simple_var = false;
@@@ -3417,47 -3411,47 +3412,47 @@@
max_args = count;
}
}
- #line 3421 "awkgram.c" /* yacc.c:1646 */
-#line 3415 "awkgram.c" /* yacc.c:1646 */
++#line 3416 "awkgram.c" /* yacc.c:1646 */
break;
case 129:
- #line 1470 "awkgram.y" /* yacc.c:1646 */
-#line 1464 "awkgram.y" /* yacc.c:1646 */
++#line 1465 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3427 "awkgram.c" /* yacc.c:1646 */
-#line 3421 "awkgram.c" /* yacc.c:1646 */
++#line 3422 "awkgram.c" /* yacc.c:1646 */
break;
case 130:
- #line 1472 "awkgram.y" /* yacc.c:1646 */
-#line 1466 "awkgram.y" /* yacc.c:1646 */
++#line 1467 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3433 "awkgram.c" /* yacc.c:1646 */
-#line 3427 "awkgram.c" /* yacc.c:1646 */
++#line 3428 "awkgram.c" /* yacc.c:1646 */
break;
case 131:
- #line 1474 "awkgram.y" /* yacc.c:1646 */
-#line 1468 "awkgram.y" /* yacc.c:1646 */
++#line 1469 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3439 "awkgram.c" /* yacc.c:1646 */
-#line 3433 "awkgram.c" /* yacc.c:1646 */
++#line 3434 "awkgram.c" /* yacc.c:1646 */
break;
case 132:
- #line 1476 "awkgram.y" /* yacc.c:1646 */
-#line 1470 "awkgram.y" /* yacc.c:1646 */
++#line 1471 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3445 "awkgram.c" /* yacc.c:1646 */
-#line 3439 "awkgram.c" /* yacc.c:1646 */
++#line 3440 "awkgram.c" /* yacc.c:1646 */
break;
case 133:
- #line 1478 "awkgram.y" /* yacc.c:1646 */
-#line 1472 "awkgram.y" /* yacc.c:1646 */
++#line 1473 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3451 "awkgram.c" /* yacc.c:1646 */
-#line 3445 "awkgram.c" /* yacc.c:1646 */
++#line 3446 "awkgram.c" /* yacc.c:1646 */
break;
case 134:
- #line 1480 "awkgram.y" /* yacc.c:1646 */
-#line 1474 "awkgram.y" /* yacc.c:1646 */
++#line 1475 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3457 "awkgram.c" /* yacc.c:1646 */
-#line 3451 "awkgram.c" /* yacc.c:1646 */
++#line 3452 "awkgram.c" /* yacc.c:1646 */
break;
case 135:
- #line 1482 "awkgram.y" /* yacc.c:1646 */
-#line 1476 "awkgram.y" /* yacc.c:1646 */
++#line 1477 "awkgram.y" /* yacc.c:1646 */
{
/*
* In BEGINFILE/ENDFILE, allow `getline [var] < file'
@@@ -3471,29 -3465,29 +3466,29 @@@
_("non-redirected `getline' undefined inside
END action"));
(yyval) = mk_getline((yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]),
redirect_input);
}
- #line 3475 "awkgram.c" /* yacc.c:1646 */
-#line 3469 "awkgram.c" /* yacc.c:1646 */
++#line 3470 "awkgram.c" /* yacc.c:1646 */
break;
case 136:
- #line 1496 "awkgram.y" /* yacc.c:1646 */
-#line 1490 "awkgram.y" /* yacc.c:1646 */
++#line 1491 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postincrement;
(yyval) = mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
- #line 3484 "awkgram.c" /* yacc.c:1646 */
-#line 3478 "awkgram.c" /* yacc.c:1646 */
++#line 3479 "awkgram.c" /* yacc.c:1646 */
break;
case 137:
- #line 1501 "awkgram.y" /* yacc.c:1646 */
-#line 1495 "awkgram.y" /* yacc.c:1646 */
++#line 1496 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postdecrement;
(yyval) = mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
- #line 3493 "awkgram.c" /* yacc.c:1646 */
-#line 3487 "awkgram.c" /* yacc.c:1646 */
++#line 3488 "awkgram.c" /* yacc.c:1646 */
break;
case 138:
- #line 1506 "awkgram.y" /* yacc.c:1646 */
-#line 1500 "awkgram.y" /* yacc.c:1646 */
++#line 1501 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint_old) {
warning_ln((yyvsp[-1])->source_line,
@@@ -3513,64 -3507,64 +3508,64 @@@
(yyval) = list_append(list_merge(t, (yyvsp[0])),
(yyvsp[-1]));
}
}
- #line 3517 "awkgram.c" /* yacc.c:1646 */
-#line 3511 "awkgram.c" /* yacc.c:1646 */
++#line 3512 "awkgram.c" /* yacc.c:1646 */
break;
case 139:
- #line 1531 "awkgram.y" /* yacc.c:1646 */
-#line 1525 "awkgram.y" /* yacc.c:1646 */
++#line 1526 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_getline((yyvsp[-1]), (yyvsp[0]), (yyvsp[-3]),
(yyvsp[-2])->redir_type);
bcfree((yyvsp[-2]));
}
- #line 3526 "awkgram.c" /* yacc.c:1646 */
-#line 3520 "awkgram.c" /* yacc.c:1646 */
++#line 3521 "awkgram.c" /* yacc.c:1646 */
break;
case 140:
- #line 1537 "awkgram.y" /* yacc.c:1646 */
-#line 1531 "awkgram.y" /* yacc.c:1646 */
++#line 1532 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3532 "awkgram.c" /* yacc.c:1646 */
-#line 3526 "awkgram.c" /* yacc.c:1646 */
++#line 3527 "awkgram.c" /* yacc.c:1646 */
break;
case 141:
- #line 1539 "awkgram.y" /* yacc.c:1646 */
-#line 1533 "awkgram.y" /* yacc.c:1646 */
++#line 1534 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3538 "awkgram.c" /* yacc.c:1646 */
-#line 3532 "awkgram.c" /* yacc.c:1646 */
++#line 3533 "awkgram.c" /* yacc.c:1646 */
break;
case 142:
- #line 1541 "awkgram.y" /* yacc.c:1646 */
-#line 1535 "awkgram.y" /* yacc.c:1646 */
++#line 1536 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3544 "awkgram.c" /* yacc.c:1646 */
-#line 3538 "awkgram.c" /* yacc.c:1646 */
++#line 3539 "awkgram.c" /* yacc.c:1646 */
break;
case 143:
- #line 1543 "awkgram.y" /* yacc.c:1646 */
-#line 1537 "awkgram.y" /* yacc.c:1646 */
++#line 1538 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3550 "awkgram.c" /* yacc.c:1646 */
-#line 3544 "awkgram.c" /* yacc.c:1646 */
++#line 3545 "awkgram.c" /* yacc.c:1646 */
break;
case 144:
- #line 1545 "awkgram.y" /* yacc.c:1646 */
-#line 1539 "awkgram.y" /* yacc.c:1646 */
++#line 1540 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3556 "awkgram.c" /* yacc.c:1646 */
-#line 3550 "awkgram.c" /* yacc.c:1646 */
++#line 3551 "awkgram.c" /* yacc.c:1646 */
break;
case 145:
- #line 1547 "awkgram.y" /* yacc.c:1646 */
-#line 1541 "awkgram.y" /* yacc.c:1646 */
++#line 1542 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3562 "awkgram.c" /* yacc.c:1646 */
-#line 3556 "awkgram.c" /* yacc.c:1646 */
++#line 3557 "awkgram.c" /* yacc.c:1646 */
break;
case 146:
- #line 1552 "awkgram.y" /* yacc.c:1646 */
-#line 1546 "awkgram.y" /* yacc.c:1646 */
++#line 1547 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_create((yyvsp[0]));
}
- #line 3570 "awkgram.c" /* yacc.c:1646 */
-#line 3564 "awkgram.c" /* yacc.c:1646 */
++#line 3565 "awkgram.c" /* yacc.c:1646 */
break;
case 147:
- #line 1556 "awkgram.y" /* yacc.c:1646 */
-#line 1550 "awkgram.y" /* yacc.c:1646 */
++#line 1551 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[0])->opcode == Op_match_rec) {
(yyvsp[0])->opcode = Op_nomatch;
@@@ -3602,37 -3596,37 +3597,37 @@@
}
}
}
- #line 3606 "awkgram.c" /* yacc.c:1646 */
-#line 3600 "awkgram.c" /* yacc.c:1646 */
++#line 3601 "awkgram.c" /* yacc.c:1646 */
break;
case 148:
- #line 1588 "awkgram.y" /* yacc.c:1646 */
-#line 1582 "awkgram.y" /* yacc.c:1646 */
++#line 1583 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3612 "awkgram.c" /* yacc.c:1646 */
-#line 3606 "awkgram.c" /* yacc.c:1646 */
++#line 3607 "awkgram.c" /* yacc.c:1646 */
break;
case 149:
- #line 1590 "awkgram.y" /* yacc.c:1646 */
-#line 1584 "awkgram.y" /* yacc.c:1646 */
++#line 1585 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = snode((yyvsp[-1]), (yyvsp[-3]));
if ((yyval) == NULL)
YYABORT;
}
- #line 3622 "awkgram.c" /* yacc.c:1646 */
-#line 3616 "awkgram.c" /* yacc.c:1646 */
++#line 3617 "awkgram.c" /* yacc.c:1646 */
break;
case 150:
- #line 1596 "awkgram.y" /* yacc.c:1646 */
-#line 1590 "awkgram.y" /* yacc.c:1646 */
++#line 1591 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = snode((yyvsp[-1]), (yyvsp[-3]));
if ((yyval) == NULL)
YYABORT;
}
- #line 3632 "awkgram.c" /* yacc.c:1646 */
-#line 3626 "awkgram.c" /* yacc.c:1646 */
++#line 3627 "awkgram.c" /* yacc.c:1646 */
break;
case 151:
- #line 1602 "awkgram.y" /* yacc.c:1646 */
-#line 1596 "awkgram.y" /* yacc.c:1646 */
++#line 1597 "awkgram.y" /* yacc.c:1646 */
{
static bool warned = false;
@@@ -3645,45 -3639,45 +3640,45 @@@
if ((yyval) == NULL)
YYABORT;
}
- #line 3649 "awkgram.c" /* yacc.c:1646 */
-#line 3643 "awkgram.c" /* yacc.c:1646 */
++#line 3644 "awkgram.c" /* yacc.c:1646 */
break;
case 154:
- #line 1617 "awkgram.y" /* yacc.c:1646 */
-#line 1611 "awkgram.y" /* yacc.c:1646 */
++#line 1612 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[-1])->opcode = Op_preincrement;
(yyval) = mk_assignment((yyvsp[0]), NULL, (yyvsp[-1]));
}
- #line 3658 "awkgram.c" /* yacc.c:1646 */
-#line 3652 "awkgram.c" /* yacc.c:1646 */
++#line 3653 "awkgram.c" /* yacc.c:1646 */
break;
case 155:
- #line 1622 "awkgram.y" /* yacc.c:1646 */
-#line 1616 "awkgram.y" /* yacc.c:1646 */
++#line 1617 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[-1])->opcode = Op_predecrement;
(yyval) = mk_assignment((yyvsp[0]), NULL, (yyvsp[-1]));
}
- #line 3667 "awkgram.c" /* yacc.c:1646 */
-#line 3661 "awkgram.c" /* yacc.c:1646 */
++#line 3662 "awkgram.c" /* yacc.c:1646 */
break;
case 156:
- #line 1627 "awkgram.y" /* yacc.c:1646 */
-#line 1621 "awkgram.y" /* yacc.c:1646 */
++#line 1622 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_create((yyvsp[0]));
}
- #line 3675 "awkgram.c" /* yacc.c:1646 */
-#line 3669 "awkgram.c" /* yacc.c:1646 */
++#line 3670 "awkgram.c" /* yacc.c:1646 */
break;
case 157:
- #line 1631 "awkgram.y" /* yacc.c:1646 */
-#line 1625 "awkgram.y" /* yacc.c:1646 */
++#line 1626 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_create((yyvsp[0]));
}
- #line 3683 "awkgram.c" /* yacc.c:1646 */
-#line 3677 "awkgram.c" /* yacc.c:1646 */
++#line 3678 "awkgram.c" /* yacc.c:1646 */
break;
case 158:
- #line 1635 "awkgram.y" /* yacc.c:1646 */
-#line 1629 "awkgram.y" /* yacc.c:1646 */
++#line 1630 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[0])->lasti->opcode == Op_push_i
&& ((yyvsp[0])->lasti->memory->flags & (STRCUR|STRING))
== 0
@@@ -3698,11 -3692,11 +3693,11 @@@
(yyval) = list_append((yyvsp[0]), (yyvsp[-1]));
}
}
- #line 3702 "awkgram.c" /* yacc.c:1646 */
-#line 3696 "awkgram.c" /* yacc.c:1646 */
++#line 3697 "awkgram.c" /* yacc.c:1646 */
break;
case 159:
- #line 1650 "awkgram.y" /* yacc.c:1646 */
-#line 1644 "awkgram.y" /* yacc.c:1646 */
++#line 1645 "awkgram.y" /* yacc.c:1646 */
{
/*
* was: $$ = $2
@@@ -3712,20 -3706,20 +3707,20 @@@
(yyvsp[-1])->memory = make_number(0.0);
(yyval) = list_append((yyvsp[0]), (yyvsp[-1]));
}
- #line 3716 "awkgram.c" /* yacc.c:1646 */
-#line 3710 "awkgram.c" /* yacc.c:1646 */
++#line 3711 "awkgram.c" /* yacc.c:1646 */
break;
case 160:
- #line 1663 "awkgram.y" /* yacc.c:1646 */
-#line 1657 "awkgram.y" /* yacc.c:1646 */
++#line 1658 "awkgram.y" /* yacc.c:1646 */
{
func_use((yyvsp[0])->lasti->func_name, FUNC_USE);
(yyval) = (yyvsp[0]);
}
- #line 3725 "awkgram.c" /* yacc.c:1646 */
-#line 3719 "awkgram.c" /* yacc.c:1646 */
++#line 3720 "awkgram.c" /* yacc.c:1646 */
break;
case 161:
- #line 1668 "awkgram.y" /* yacc.c:1646 */
-#line 1662 "awkgram.y" /* yacc.c:1646 */
++#line 1663 "awkgram.y" /* yacc.c:1646 */
{
/* indirect function call */
INSTRUCTION *f, *t;
@@@ -3758,11 -3752,11 +3753,11 @@@
(yyval) = list_prepend((yyvsp[0]), t);
}
- #line 3762 "awkgram.c" /* yacc.c:1646 */
-#line 3756 "awkgram.c" /* yacc.c:1646 */
++#line 3757 "awkgram.c" /* yacc.c:1646 */
break;
case 162:
- #line 1704 "awkgram.y" /* yacc.c:1646 */
-#line 1698 "awkgram.y" /* yacc.c:1646 */
++#line 1699 "awkgram.y" /* yacc.c:1646 */
{
param_sanity((yyvsp[-1]));
(yyvsp[-3])->opcode = Op_func_call;
@@@ -3776,49 -3770,49 +3771,49 @@@
(yyval) = list_append(t, (yyvsp[-3]));
}
}
- #line 3780 "awkgram.c" /* yacc.c:1646 */
-#line 3774 "awkgram.c" /* yacc.c:1646 */
++#line 3775 "awkgram.c" /* yacc.c:1646 */
break;
case 163:
- #line 1721 "awkgram.y" /* yacc.c:1646 */
-#line 1715 "awkgram.y" /* yacc.c:1646 */
++#line 1716 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3786 "awkgram.c" /* yacc.c:1646 */
-#line 3780 "awkgram.c" /* yacc.c:1646 */
++#line 3781 "awkgram.c" /* yacc.c:1646 */
break;
case 164:
- #line 1723 "awkgram.y" /* yacc.c:1646 */
-#line 1717 "awkgram.y" /* yacc.c:1646 */
++#line 1718 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3792 "awkgram.c" /* yacc.c:1646 */
-#line 3786 "awkgram.c" /* yacc.c:1646 */
++#line 3787 "awkgram.c" /* yacc.c:1646 */
break;
case 165:
- #line 1728 "awkgram.y" /* yacc.c:1646 */
-#line 1722 "awkgram.y" /* yacc.c:1646 */
++#line 1723 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3798 "awkgram.c" /* yacc.c:1646 */
-#line 3792 "awkgram.c" /* yacc.c:1646 */
++#line 3793 "awkgram.c" /* yacc.c:1646 */
break;
case 166:
- #line 1730 "awkgram.y" /* yacc.c:1646 */
-#line 1724 "awkgram.y" /* yacc.c:1646 */
++#line 1725 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3804 "awkgram.c" /* yacc.c:1646 */
-#line 3798 "awkgram.c" /* yacc.c:1646 */
++#line 3799 "awkgram.c" /* yacc.c:1646 */
break;
case 167:
- #line 1735 "awkgram.y" /* yacc.c:1646 */
-#line 1729 "awkgram.y" /* yacc.c:1646 */
++#line 1730 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3810 "awkgram.c" /* yacc.c:1646 */
-#line 3804 "awkgram.c" /* yacc.c:1646 */
++#line 3805 "awkgram.c" /* yacc.c:1646 */
break;
case 168:
- #line 1737 "awkgram.y" /* yacc.c:1646 */
-#line 1731 "awkgram.y" /* yacc.c:1646 */
++#line 1732 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
- #line 3818 "awkgram.c" /* yacc.c:1646 */
-#line 3812 "awkgram.c" /* yacc.c:1646 */
++#line 3813 "awkgram.c" /* yacc.c:1646 */
break;
case 169:
- #line 1744 "awkgram.y" /* yacc.c:1646 */
-#line 1738 "awkgram.y" /* yacc.c:1646 */
++#line 1739 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *ip = (yyvsp[0])->lasti;
int count = ip->sub_count; /* # of SUBSEP-seperated
expressions */
@@@ -3832,11 -3826,11 +3827,11 @@@
sub_counter++; /* count # of dimensions */
(yyval) = (yyvsp[0]);
}
- #line 3836 "awkgram.c" /* yacc.c:1646 */
-#line 3830 "awkgram.c" /* yacc.c:1646 */
++#line 3831 "awkgram.c" /* yacc.c:1646 */
break;
case 170:
- #line 1761 "awkgram.y" /* yacc.c:1646 */
-#line 1755 "awkgram.y" /* yacc.c:1646 */
++#line 1756 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *t = (yyvsp[-1]);
if ((yyvsp[-1]) == NULL) {
@@@ -3850,31 -3844,31 +3845,31 @@@
(yyvsp[0])->sub_count = count_expressions(&t, false);
(yyval) = list_append(t, (yyvsp[0]));
}
- #line 3854 "awkgram.c" /* yacc.c:1646 */
-#line 3848 "awkgram.c" /* yacc.c:1646 */
++#line 3849 "awkgram.c" /* yacc.c:1646 */
break;
case 171:
- #line 1778 "awkgram.y" /* yacc.c:1646 */
-#line 1772 "awkgram.y" /* yacc.c:1646 */
++#line 1773 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3860 "awkgram.c" /* yacc.c:1646 */
-#line 3854 "awkgram.c" /* yacc.c:1646 */
++#line 3855 "awkgram.c" /* yacc.c:1646 */
break;
case 172:
- #line 1780 "awkgram.y" /* yacc.c:1646 */
-#line 1774 "awkgram.y" /* yacc.c:1646 */
++#line 1775 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
- #line 3868 "awkgram.c" /* yacc.c:1646 */
-#line 3862 "awkgram.c" /* yacc.c:1646 */
++#line 3863 "awkgram.c" /* yacc.c:1646 */
break;
case 173:
- #line 1787 "awkgram.y" /* yacc.c:1646 */
-#line 1781 "awkgram.y" /* yacc.c:1646 */
++#line 1782 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3874 "awkgram.c" /* yacc.c:1646 */
-#line 3868 "awkgram.c" /* yacc.c:1646 */
++#line 3869 "awkgram.c" /* yacc.c:1646 */
break;
case 174:
- #line 1792 "awkgram.y" /* yacc.c:1646 */
-#line 1786 "awkgram.y" /* yacc.c:1646 */
++#line 1787 "awkgram.y" /* yacc.c:1646 */
{
char *var_name = (yyvsp[0])->lextok;
@@@ -3882,22 -3876,22 +3877,22 @@@
(yyvsp[0])->memory = variable((yyvsp[0])->source_line,
var_name, Node_var_new);
(yyval) = list_create((yyvsp[0]));
}
- #line 3886 "awkgram.c" /* yacc.c:1646 */
-#line 3880 "awkgram.c" /* yacc.c:1646 */
++#line 3881 "awkgram.c" /* yacc.c:1646 */
break;
case 175:
- #line 1800 "awkgram.y" /* yacc.c:1646 */
-#line 1794 "awkgram.y" /* yacc.c:1646 */
++#line 1795 "awkgram.y" /* yacc.c:1646 */
{
char *arr = (yyvsp[-1])->lextok;
(yyvsp[-1])->memory = variable((yyvsp[-1])->source_line, arr,
Node_var_new);
(yyvsp[-1])->opcode = Op_push_array;
(yyval) = list_prepend((yyvsp[0]), (yyvsp[-1]));
}
- #line 3897 "awkgram.c" /* yacc.c:1646 */
-#line 3891 "awkgram.c" /* yacc.c:1646 */
++#line 3892 "awkgram.c" /* yacc.c:1646 */
break;
case 176:
- #line 1810 "awkgram.y" /* yacc.c:1646 */
-#line 1804 "awkgram.y" /* yacc.c:1646 */
++#line 1805 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *ip = (yyvsp[0])->nexti;
if (ip->opcode == Op_push
@@@ -3909,73 -3903,73 +3904,73 @@@
} else
(yyval) = (yyvsp[0]);
}
- #line 3913 "awkgram.c" /* yacc.c:1646 */
-#line 3907 "awkgram.c" /* yacc.c:1646 */
++#line 3908 "awkgram.c" /* yacc.c:1646 */
break;
case 177:
- #line 1822 "awkgram.y" /* yacc.c:1646 */
-#line 1816 "awkgram.y" /* yacc.c:1646 */
++#line 1817 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_append((yyvsp[-1]), (yyvsp[-2]));
if ((yyvsp[0]) != NULL)
mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
- #line 3923 "awkgram.c" /* yacc.c:1646 */
-#line 3917 "awkgram.c" /* yacc.c:1646 */
++#line 3918 "awkgram.c" /* yacc.c:1646 */
break;
case 178:
- #line 1831 "awkgram.y" /* yacc.c:1646 */
-#line 1825 "awkgram.y" /* yacc.c:1646 */
++#line 1826 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postincrement;
}
- #line 3931 "awkgram.c" /* yacc.c:1646 */
-#line 3925 "awkgram.c" /* yacc.c:1646 */
++#line 3926 "awkgram.c" /* yacc.c:1646 */
break;
case 179:
- #line 1835 "awkgram.y" /* yacc.c:1646 */
-#line 1829 "awkgram.y" /* yacc.c:1646 */
++#line 1830 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postdecrement;
}
- #line 3939 "awkgram.c" /* yacc.c:1646 */
-#line 3933 "awkgram.c" /* yacc.c:1646 */
++#line 3934 "awkgram.c" /* yacc.c:1646 */
break;
case 180:
- #line 1838 "awkgram.y" /* yacc.c:1646 */
-#line 1832 "awkgram.y" /* yacc.c:1646 */
++#line 1833 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3945 "awkgram.c" /* yacc.c:1646 */
-#line 3939 "awkgram.c" /* yacc.c:1646 */
++#line 3940 "awkgram.c" /* yacc.c:1646 */
break;
case 182:
- #line 1846 "awkgram.y" /* yacc.c:1646 */
-#line 1840 "awkgram.y" /* yacc.c:1646 */
++#line 1841 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3951 "awkgram.c" /* yacc.c:1646 */
-#line 3945 "awkgram.c" /* yacc.c:1646 */
++#line 3946 "awkgram.c" /* yacc.c:1646 */
break;
case 183:
- #line 1850 "awkgram.y" /* yacc.c:1646 */
-#line 1844 "awkgram.y" /* yacc.c:1646 */
++#line 1845 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3957 "awkgram.c" /* yacc.c:1646 */
-#line 3951 "awkgram.c" /* yacc.c:1646 */
++#line 3952 "awkgram.c" /* yacc.c:1646 */
break;
case 186:
- #line 1859 "awkgram.y" /* yacc.c:1646 */
-#line 1853 "awkgram.y" /* yacc.c:1646 */
++#line 1854 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3963 "awkgram.c" /* yacc.c:1646 */
-#line 3957 "awkgram.c" /* yacc.c:1646 */
++#line 3958 "awkgram.c" /* yacc.c:1646 */
break;
case 187:
- #line 1863 "awkgram.y" /* yacc.c:1646 */
-#line 1857 "awkgram.y" /* yacc.c:1646 */
++#line 1858 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); yyerrok; }
- #line 3969 "awkgram.c" /* yacc.c:1646 */
-#line 3963 "awkgram.c" /* yacc.c:1646 */
++#line 3964 "awkgram.c" /* yacc.c:1646 */
break;
case 188:
- #line 1867 "awkgram.y" /* yacc.c:1646 */
-#line 1861 "awkgram.y" /* yacc.c:1646 */
++#line 1862 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3975 "awkgram.c" /* yacc.c:1646 */
-#line 3969 "awkgram.c" /* yacc.c:1646 */
++#line 3970 "awkgram.c" /* yacc.c:1646 */
break;
- #line 3979 "awkgram.c" /* yacc.c:1646 */
-#line 3973 "awkgram.c" /* yacc.c:1646 */
++#line 3974 "awkgram.c" /* yacc.c:1646 */
default: break;
}
/* User semantic actions sometimes alter yychar, and that requires
@@@ -4203,7 -4197,7 +4198,7 @@@ yyreturn
#endif
return yyresult;
}
- #line 1869 "awkgram.y" /* yacc.c:1906 */
-#line 1863 "awkgram.y" /* yacc.c:1906 */
++#line 1864 "awkgram.y" /* yacc.c:1906 */
struct token {
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=40e128696d44893efd6ab3560d2b89847368c792
commit 40e128696d44893efd6ab3560d2b89847368c792
Merge: c284090 f19d6c8
Author: Arnold D. Robbins <address@hidden>
Date: Fri Dec 26 09:58:42 2014 +0200
Merge branch 'master' into async-events
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=c2840901282d24f04ae62574c6fb02ed459e04f9
commit c2840901282d24f04ae62574c6fb02ed459e04f9
Merge: 22e48cd 0d52289
Author: Arnold D. Robbins <address@hidden>
Date: Sat Dec 13 22:27:49 2014 +0200
Merge branch 'master' into async-events
diff --cc awkgram.c
index 57253a8,225cdb4..6a5e647
--- a/awkgram.c
+++ b/awkgram.c
@@@ -658,25 -661,25 +661,25 @@@ static const yytype_uint8 yytranslate[
/* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
static const yytype_uint16 yyrline[] =
{
- 0, 205, 205, 207, 212, 213, 219, 231, 235, 246,
- 252, 257, 265, 273, 275, 280, 288, 290, 296, 304,
- 314, 340, 353, 366, 373, 383, 395, 397, 399, 405,
- 410, 411, 415, 450, 449, 483, 485, 490, 496, 525,
- 530, 531, 535, 537, 539, 546, 636, 678, 720, 833,
- 840, 847, 857, 866, 875, 884, 895, 911, 910, 934,
- 946, 946, 1044, 1044, 1077, 1107, 1113, 1114, 1120, 1121,
- 1128, 1133, 1145, 1159, 1161, 1169, 1174, 1176, 1184, 1186,
- 1195, 1196, 1204, 1209, 1209, 1220, 1224, 1232, 1233, 1236,
- 1238, 1243, 1244, 1253, 1254, 1259, 1264, 1270, 1272, 1274,
- 1281, 1282, 1288, 1289, 1294, 1296, 1301, 1303, 1311, 1316,
- 1325, 1332, 1334, 1336, 1352, 1362, 1369, 1371, 1376, 1378,
- 1380, 1388, 1390, 1395, 1397, 1402, 1404, 1406, 1456, 1458,
- 1460, 1462, 1464, 1466, 1468, 1470, 1484, 1489, 1494, 1519,
- 1525, 1527, 1529, 1531, 1533, 1535, 1540, 1544, 1576, 1578,
- 1584, 1590, 1603, 1604, 1605, 1610, 1615, 1619, 1623, 1638,
- 1651, 1656, 1692, 1710, 1711, 1717, 1718, 1723, 1725, 1732,
- 1749, 1766, 1768, 1775, 1780, 1788, 1798, 1810, 1819, 1823,
- 1827, 1831, 1835, 1839, 1842, 1844, 1848, 1852, 1856
+ 0, 208, 208, 210, 215, 216, 222, 234, 238, 249,
+ 255, 260, 268, 276, 278, 283, 291, 293, 299, 307,
+ 317, 347, 361, 375, 383, 394, 406, 408, 410, 416,
- 421, 422, 426, 461, 460, 494, 496, 501, 507, 535,
- 540, 541, 545, 547, 549, 556, 646, 688, 730, 843,
- 850, 857, 867, 876, 885, 894, 905, 921, 920, 944,
- 956, 956, 1054, 1054, 1087, 1117, 1123, 1124, 1130, 1131,
- 1138, 1143, 1155, 1169, 1171, 1179, 1184, 1186, 1194, 1196,
- 1205, 1206, 1214, 1219, 1219, 1230, 1234, 1242, 1243, 1246,
- 1248, 1253, 1254, 1263, 1264, 1269, 1274, 1280, 1282, 1284,
- 1291, 1292, 1298, 1299, 1304, 1306, 1311, 1313, 1321, 1326,
- 1335, 1342, 1344, 1346, 1362, 1372, 1379, 1381, 1386, 1388,
- 1390, 1398, 1400, 1405, 1407, 1412, 1414, 1416, 1466, 1468,
- 1470, 1472, 1474, 1476, 1478, 1480, 1494, 1499, 1504, 1529,
- 1535, 1537, 1539, 1541, 1543, 1545, 1550, 1554, 1586, 1588,
- 1594, 1600, 1613, 1614, 1615, 1620, 1625, 1629, 1633, 1648,
- 1661, 1666, 1702, 1720, 1721, 1727, 1728, 1733, 1735, 1742,
- 1759, 1776, 1778, 1785, 1790, 1798, 1808, 1820, 1829, 1833,
- 1837, 1841, 1845, 1849, 1852, 1854, 1858, 1862, 1866
++ 421, 422, 426, 461, 460, 494, 496, 501, 507, 536,
++ 541, 542, 546, 548, 550, 557, 647, 689, 731, 844,
++ 851, 858, 868, 877, 886, 895, 906, 922, 921, 945,
++ 957, 957, 1055, 1055, 1088, 1118, 1124, 1125, 1131, 1132,
++ 1139, 1144, 1156, 1170, 1172, 1180, 1185, 1187, 1195, 1197,
++ 1206, 1207, 1215, 1220, 1220, 1231, 1235, 1243, 1244, 1247,
++ 1249, 1254, 1255, 1264, 1265, 1270, 1275, 1281, 1283, 1285,
++ 1292, 1293, 1299, 1300, 1305, 1307, 1312, 1314, 1322, 1327,
++ 1336, 1343, 1345, 1347, 1363, 1373, 1380, 1382, 1387, 1389,
++ 1391, 1399, 1401, 1406, 1408, 1413, 1415, 1417, 1467, 1469,
++ 1471, 1473, 1475, 1477, 1479, 1481, 1495, 1500, 1505, 1530,
++ 1536, 1538, 1540, 1542, 1544, 1546, 1551, 1555, 1587, 1589,
++ 1595, 1601, 1614, 1615, 1616, 1621, 1626, 1630, 1634, 1649,
++ 1662, 1667, 1703, 1721, 1722, 1728, 1729, 1734, 1736, 1743,
++ 1760, 1777, 1779, 1786, 1791, 1799, 1809, 1821, 1830, 1834,
++ 1838, 1842, 1846, 1850, 1853, 1855, 1859, 1863, 1867
};
#endif
@@@ -2246,43 -2257,42 +2257,43 @@@ yyreduce
(yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
}
+ list_append((yyval), instruction(Op_end_stmt));
yyerrok;
}
- #line 2253 "awkgram.c" /* yacc.c:1646 */
-#line 2263 "awkgram.c" /* yacc.c:1646 */
++#line 2264 "awkgram.c" /* yacc.c:1646 */
break;
case 39:
- #line 526 "awkgram.y" /* yacc.c:1646 */
-#line 536 "awkgram.y" /* yacc.c:1646 */
++#line 537 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2259 "awkgram.c" /* yacc.c:1646 */
-#line 2269 "awkgram.c" /* yacc.c:1646 */
++#line 2270 "awkgram.c" /* yacc.c:1646 */
break;
case 42:
- #line 536 "awkgram.y" /* yacc.c:1646 */
-#line 546 "awkgram.y" /* yacc.c:1646 */
++#line 547 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2265 "awkgram.c" /* yacc.c:1646 */
-#line 2275 "awkgram.c" /* yacc.c:1646 */
++#line 2276 "awkgram.c" /* yacc.c:1646 */
break;
case 43:
- #line 538 "awkgram.y" /* yacc.c:1646 */
-#line 548 "awkgram.y" /* yacc.c:1646 */
++#line 549 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 2271 "awkgram.c" /* yacc.c:1646 */
-#line 2281 "awkgram.c" /* yacc.c:1646 */
++#line 2282 "awkgram.c" /* yacc.c:1646 */
break;
case 44:
- #line 540 "awkgram.y" /* yacc.c:1646 */
-#line 550 "awkgram.y" /* yacc.c:1646 */
++#line 551 "awkgram.y" /* yacc.c:1646 */
{
if (do_pretty_print)
(yyval) = list_prepend((yyvsp[0]),
instruction(Op_exec_count));
else
(yyval) = (yyvsp[0]);
}
- #line 2282 "awkgram.c" /* yacc.c:1646 */
-#line 2292 "awkgram.c" /* yacc.c:1646 */
++#line 2293 "awkgram.c" /* yacc.c:1646 */
break;
case 45:
- #line 547 "awkgram.y" /* yacc.c:1646 */
-#line 557 "awkgram.y" /* yacc.c:1646 */
++#line 558 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *dflt, *curr = NULL, *cexp, *cstmt;
INSTRUCTION *ip, *nextc, *tbreak;
@@@ -2372,11 -2382,11 +2383,11 @@@
break_allowed--;
fix_break_continue(ip, tbreak, NULL);
}
- #line 2376 "awkgram.c" /* yacc.c:1646 */
-#line 2386 "awkgram.c" /* yacc.c:1646 */
++#line 2387 "awkgram.c" /* yacc.c:1646 */
break;
case 46:
- #line 637 "awkgram.y" /* yacc.c:1646 */
-#line 647 "awkgram.y" /* yacc.c:1646 */
++#line 648 "awkgram.y" /* yacc.c:1646 */
{
/*
* -----------------
@@@ -2418,11 -2428,11 +2429,11 @@@
continue_allowed--;
fix_break_continue(ip, tbreak, tcont);
}
- #line 2422 "awkgram.c" /* yacc.c:1646 */
-#line 2432 "awkgram.c" /* yacc.c:1646 */
++#line 2433 "awkgram.c" /* yacc.c:1646 */
break;
case 47:
- #line 679 "awkgram.y" /* yacc.c:1646 */
-#line 689 "awkgram.y" /* yacc.c:1646 */
++#line 690 "awkgram.y" /* yacc.c:1646 */
{
/*
* -----------------
@@@ -2464,11 -2474,11 +2475,11 @@@
} /* else
$1 and $4 are NULLs */
}
- #line 2468 "awkgram.c" /* yacc.c:1646 */
-#line 2478 "awkgram.c" /* yacc.c:1646 */
++#line 2479 "awkgram.c" /* yacc.c:1646 */
break;
case 48:
- #line 721 "awkgram.y" /* yacc.c:1646 */
-#line 731 "awkgram.y" /* yacc.c:1646 */
++#line 732 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *ip;
char *var_name = (yyvsp[-5])->lextok;
@@@ -2581,44 -2591,44 +2592,44 @@@ regular_loop
break_allowed--;
continue_allowed--;
}
- #line 2585 "awkgram.c" /* yacc.c:1646 */
-#line 2595 "awkgram.c" /* yacc.c:1646 */
++#line 2596 "awkgram.c" /* yacc.c:1646 */
break;
case 49:
- #line 834 "awkgram.y" /* yacc.c:1646 */
-#line 844 "awkgram.y" /* yacc.c:1646 */
++#line 845 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_for_loop((yyvsp[-11]), (yyvsp[-9]), (yyvsp[-6]),
(yyvsp[-3]), (yyvsp[0]));
break_allowed--;
continue_allowed--;
}
- #line 2596 "awkgram.c" /* yacc.c:1646 */
-#line 2606 "awkgram.c" /* yacc.c:1646 */
++#line 2607 "awkgram.c" /* yacc.c:1646 */
break;
case 50:
- #line 841 "awkgram.y" /* yacc.c:1646 */
-#line 851 "awkgram.y" /* yacc.c:1646 */
++#line 852 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_for_loop((yyvsp[-10]), (yyvsp[-8]), (INSTRUCTION
*) NULL, (yyvsp[-3]), (yyvsp[0]));
break_allowed--;
continue_allowed--;
}
- #line 2607 "awkgram.c" /* yacc.c:1646 */
-#line 2617 "awkgram.c" /* yacc.c:1646 */
++#line 2618 "awkgram.c" /* yacc.c:1646 */
break;
case 51:
- #line 848 "awkgram.y" /* yacc.c:1646 */
-#line 858 "awkgram.y" /* yacc.c:1646 */
++#line 859 "awkgram.y" /* yacc.c:1646 */
{
if (do_pretty_print)
(yyval) = list_prepend((yyvsp[0]),
instruction(Op_exec_count));
else
(yyval) = (yyvsp[0]);
}
- #line 2618 "awkgram.c" /* yacc.c:1646 */
-#line 2628 "awkgram.c" /* yacc.c:1646 */
++#line 2629 "awkgram.c" /* yacc.c:1646 */
break;
case 52:
- #line 858 "awkgram.y" /* yacc.c:1646 */
-#line 868 "awkgram.y" /* yacc.c:1646 */
++#line 869 "awkgram.y" /* yacc.c:1646 */
{
if (! break_allowed)
error_ln((yyvsp[-1])->source_line,
@@@ -2627,11 -2637,11 +2638,11 @@@
(yyval) = list_create((yyvsp[-1]));
}
- #line 2631 "awkgram.c" /* yacc.c:1646 */
-#line 2641 "awkgram.c" /* yacc.c:1646 */
++#line 2642 "awkgram.c" /* yacc.c:1646 */
break;
case 53:
- #line 867 "awkgram.y" /* yacc.c:1646 */
-#line 877 "awkgram.y" /* yacc.c:1646 */
++#line 878 "awkgram.y" /* yacc.c:1646 */
{
if (! continue_allowed)
error_ln((yyvsp[-1])->source_line,
@@@ -2640,11 -2650,11 +2651,11 @@@
(yyval) = list_create((yyvsp[-1]));
}
- #line 2644 "awkgram.c" /* yacc.c:1646 */
-#line 2654 "awkgram.c" /* yacc.c:1646 */
++#line 2655 "awkgram.c" /* yacc.c:1646 */
break;
case 54:
- #line 876 "awkgram.y" /* yacc.c:1646 */
-#line 886 "awkgram.y" /* yacc.c:1646 */
++#line 887 "awkgram.y" /* yacc.c:1646 */
{
/* if inside function (rule = 0), resolve context at run-time */
if (rule && rule != Rule)
@@@ -2653,11 -2663,11 +2664,11 @@@
(yyvsp[-1])->target_jmp = ip_rec;
(yyval) = list_create((yyvsp[-1]));
}
- #line 2657 "awkgram.c" /* yacc.c:1646 */
-#line 2667 "awkgram.c" /* yacc.c:1646 */
++#line 2668 "awkgram.c" /* yacc.c:1646 */
break;
case 55:
- #line 885 "awkgram.y" /* yacc.c:1646 */
-#line 895 "awkgram.y" /* yacc.c:1646 */
++#line 896 "awkgram.y" /* yacc.c:1646 */
{
/* if inside function (rule = 0), resolve context at run-time */
if (rule == BEGIN || rule == END || rule == ENDFILE)
@@@ -2668,11 -2678,11 +2679,11 @@@
(yyvsp[-1])->target_endfile = ip_endfile;
(yyval) = list_create((yyvsp[-1]));
}
- #line 2672 "awkgram.c" /* yacc.c:1646 */
-#line 2682 "awkgram.c" /* yacc.c:1646 */
++#line 2683 "awkgram.c" /* yacc.c:1646 */
break;
case 56:
- #line 896 "awkgram.y" /* yacc.c:1646 */
-#line 906 "awkgram.y" /* yacc.c:1646 */
++#line 907 "awkgram.y" /* yacc.c:1646 */
{
/* Initialize the two possible jump targets, the actual target
* is resolved at run-time.
@@@ -2687,20 -2697,20 +2698,20 @@@
} else
(yyval) = list_append((yyvsp[-1]), (yyvsp[-2]));
}
- #line 2691 "awkgram.c" /* yacc.c:1646 */
-#line 2701 "awkgram.c" /* yacc.c:1646 */
++#line 2702 "awkgram.c" /* yacc.c:1646 */
break;
case 57:
- #line 911 "awkgram.y" /* yacc.c:1646 */
-#line 921 "awkgram.y" /* yacc.c:1646 */
++#line 922 "awkgram.y" /* yacc.c:1646 */
{
if (! in_function)
yyerror(_("`return' used outside function context"));
}
- #line 2700 "awkgram.c" /* yacc.c:1646 */
-#line 2710 "awkgram.c" /* yacc.c:1646 */
++#line 2711 "awkgram.c" /* yacc.c:1646 */
break;
case 58:
- #line 914 "awkgram.y" /* yacc.c:1646 */
-#line 924 "awkgram.y" /* yacc.c:1646 */
++#line 925 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-1]) == NULL) {
(yyval) = list_create((yyvsp[-3]));
@@@ -2721,17 -2731,17 +2732,17 @@@
(yyval) = list_append((yyvsp[-1]), (yyvsp[-3]));
}
}
- #line 2725 "awkgram.c" /* yacc.c:1646 */
-#line 2735 "awkgram.c" /* yacc.c:1646 */
++#line 2736 "awkgram.c" /* yacc.c:1646 */
break;
case 60:
- #line 946 "awkgram.y" /* yacc.c:1646 */
-#line 956 "awkgram.y" /* yacc.c:1646 */
++#line 957 "awkgram.y" /* yacc.c:1646 */
{ in_print = true; in_parens = 0; }
- #line 2731 "awkgram.c" /* yacc.c:1646 */
-#line 2741 "awkgram.c" /* yacc.c:1646 */
++#line 2742 "awkgram.c" /* yacc.c:1646 */
break;
case 61:
- #line 947 "awkgram.y" /* yacc.c:1646 */
-#line 957 "awkgram.y" /* yacc.c:1646 */
++#line 958 "awkgram.y" /* yacc.c:1646 */
{
/*
* Optimization: plain `print' has no expression list, so $3 is
null.
@@@ -2828,17 -2838,17 +2839,17 @@@ regular_print
}
}
}
- #line 2832 "awkgram.c" /* yacc.c:1646 */
-#line 2842 "awkgram.c" /* yacc.c:1646 */
++#line 2843 "awkgram.c" /* yacc.c:1646 */
break;
case 62:
- #line 1044 "awkgram.y" /* yacc.c:1646 */
-#line 1054 "awkgram.y" /* yacc.c:1646 */
++#line 1055 "awkgram.y" /* yacc.c:1646 */
{ sub_counter = 0; }
- #line 2838 "awkgram.c" /* yacc.c:1646 */
-#line 2848 "awkgram.c" /* yacc.c:1646 */
++#line 2849 "awkgram.c" /* yacc.c:1646 */
break;
case 63:
- #line 1045 "awkgram.y" /* yacc.c:1646 */
-#line 1055 "awkgram.y" /* yacc.c:1646 */
++#line 1056 "awkgram.y" /* yacc.c:1646 */
{
char *arr = (yyvsp[-2])->lextok;
@@@ -2871,11 -2881,11 +2882,11 @@@
(yyval) = list_append(list_append((yyvsp[0]),
(yyvsp[-2])), (yyvsp[-3]));
}
}
- #line 2875 "awkgram.c" /* yacc.c:1646 */
-#line 2885 "awkgram.c" /* yacc.c:1646 */
++#line 2886 "awkgram.c" /* yacc.c:1646 */
break;
case 64:
- #line 1082 "awkgram.y" /* yacc.c:1646 */
-#line 1092 "awkgram.y" /* yacc.c:1646 */
++#line 1093 "awkgram.y" /* yacc.c:1646 */
{
static bool warned = false;
char *arr = (yyvsp[-1])->lextok;
@@@ -2901,52 -2911,52 +2912,52 @@@
fatal(_("`delete' is not allowed with
FUNCTAB"));
}
}
- #line 2905 "awkgram.c" /* yacc.c:1646 */
-#line 2915 "awkgram.c" /* yacc.c:1646 */
++#line 2916 "awkgram.c" /* yacc.c:1646 */
break;
case 65:
- #line 1108 "awkgram.y" /* yacc.c:1646 */
-#line 1118 "awkgram.y" /* yacc.c:1646 */
++#line 1119 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = optimize_assignment((yyvsp[0])); }
- #line 2911 "awkgram.c" /* yacc.c:1646 */
-#line 2921 "awkgram.c" /* yacc.c:1646 */
++#line 2922 "awkgram.c" /* yacc.c:1646 */
break;
case 66:
- #line 1113 "awkgram.y" /* yacc.c:1646 */
-#line 1123 "awkgram.y" /* yacc.c:1646 */
++#line 1124 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2917 "awkgram.c" /* yacc.c:1646 */
-#line 2927 "awkgram.c" /* yacc.c:1646 */
++#line 2928 "awkgram.c" /* yacc.c:1646 */
break;
case 67:
- #line 1115 "awkgram.y" /* yacc.c:1646 */
-#line 1125 "awkgram.y" /* yacc.c:1646 */
++#line 1126 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2923 "awkgram.c" /* yacc.c:1646 */
-#line 2933 "awkgram.c" /* yacc.c:1646 */
++#line 2934 "awkgram.c" /* yacc.c:1646 */
break;
case 68:
- #line 1120 "awkgram.y" /* yacc.c:1646 */
-#line 1130 "awkgram.y" /* yacc.c:1646 */
++#line 1131 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2929 "awkgram.c" /* yacc.c:1646 */
-#line 2939 "awkgram.c" /* yacc.c:1646 */
++#line 2940 "awkgram.c" /* yacc.c:1646 */
break;
case 69:
- #line 1122 "awkgram.y" /* yacc.c:1646 */
-#line 1132 "awkgram.y" /* yacc.c:1646 */
++#line 1133 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-1]) == NULL)
(yyval) = list_create((yyvsp[0]));
else
(yyval) = list_prepend((yyvsp[-1]), (yyvsp[0]));
}
- #line 2940 "awkgram.c" /* yacc.c:1646 */
-#line 2950 "awkgram.c" /* yacc.c:1646 */
++#line 2951 "awkgram.c" /* yacc.c:1646 */
break;
case 70:
- #line 1129 "awkgram.y" /* yacc.c:1646 */
-#line 1139 "awkgram.y" /* yacc.c:1646 */
++#line 1140 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2946 "awkgram.c" /* yacc.c:1646 */
-#line 2956 "awkgram.c" /* yacc.c:1646 */
++#line 2957 "awkgram.c" /* yacc.c:1646 */
break;
case 71:
- #line 1134 "awkgram.y" /* yacc.c:1646 */
-#line 1144 "awkgram.y" /* yacc.c:1646 */
++#line 1145 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *casestmt = (yyvsp[0]);
if ((yyvsp[0]) == NULL)
@@@ -2958,11 -2968,11 +2969,11 @@@
bcfree((yyvsp[-2]));
(yyval) = (yyvsp[-4]);
}
- #line 2962 "awkgram.c" /* yacc.c:1646 */
-#line 2972 "awkgram.c" /* yacc.c:1646 */
++#line 2973 "awkgram.c" /* yacc.c:1646 */
break;
case 72:
- #line 1146 "awkgram.y" /* yacc.c:1646 */
-#line 1156 "awkgram.y" /* yacc.c:1646 */
++#line 1157 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *casestmt = (yyvsp[0]);
if ((yyvsp[0]) == NULL)
@@@ -2973,17 -2983,17 +2984,17 @@@
(yyvsp[-3])->case_stmt = casestmt;
(yyval) = (yyvsp[-3]);
}
- #line 2977 "awkgram.c" /* yacc.c:1646 */
-#line 2987 "awkgram.c" /* yacc.c:1646 */
++#line 2988 "awkgram.c" /* yacc.c:1646 */
break;
case 73:
- #line 1160 "awkgram.y" /* yacc.c:1646 */
-#line 1170 "awkgram.y" /* yacc.c:1646 */
++#line 1171 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2983 "awkgram.c" /* yacc.c:1646 */
-#line 2993 "awkgram.c" /* yacc.c:1646 */
++#line 2994 "awkgram.c" /* yacc.c:1646 */
break;
case 74:
- #line 1162 "awkgram.y" /* yacc.c:1646 */
-#line 1172 "awkgram.y" /* yacc.c:1646 */
++#line 1173 "awkgram.y" /* yacc.c:1646 */
{
NODE *n = (yyvsp[0])->memory;
(void) force_number(n);
@@@ -2991,71 -3001,71 +3002,71 @@@
bcfree((yyvsp[-1]));
(yyval) = (yyvsp[0]);
}
- #line 2995 "awkgram.c" /* yacc.c:1646 */
-#line 3005 "awkgram.c" /* yacc.c:1646 */
++#line 3006 "awkgram.c" /* yacc.c:1646 */
break;
case 75:
- #line 1170 "awkgram.y" /* yacc.c:1646 */
-#line 1180 "awkgram.y" /* yacc.c:1646 */
++#line 1181 "awkgram.y" /* yacc.c:1646 */
{
bcfree((yyvsp[-1]));
(yyval) = (yyvsp[0]);
}
- #line 3004 "awkgram.c" /* yacc.c:1646 */
-#line 3014 "awkgram.c" /* yacc.c:1646 */
++#line 3015 "awkgram.c" /* yacc.c:1646 */
break;
case 76:
- #line 1175 "awkgram.y" /* yacc.c:1646 */
-#line 1185 "awkgram.y" /* yacc.c:1646 */
++#line 1186 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3010 "awkgram.c" /* yacc.c:1646 */
-#line 3020 "awkgram.c" /* yacc.c:1646 */
++#line 3021 "awkgram.c" /* yacc.c:1646 */
break;
case 77:
- #line 1177 "awkgram.y" /* yacc.c:1646 */
-#line 1187 "awkgram.y" /* yacc.c:1646 */
++#line 1188 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_push_re;
(yyval) = (yyvsp[0]);
}
- #line 3019 "awkgram.c" /* yacc.c:1646 */
-#line 3029 "awkgram.c" /* yacc.c:1646 */
++#line 3030 "awkgram.c" /* yacc.c:1646 */
break;
case 78:
- #line 1185 "awkgram.y" /* yacc.c:1646 */
-#line 1195 "awkgram.y" /* yacc.c:1646 */
++#line 1196 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3025 "awkgram.c" /* yacc.c:1646 */
-#line 3035 "awkgram.c" /* yacc.c:1646 */
++#line 3036 "awkgram.c" /* yacc.c:1646 */
break;
case 79:
- #line 1187 "awkgram.y" /* yacc.c:1646 */
-#line 1197 "awkgram.y" /* yacc.c:1646 */
++#line 1198 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3031 "awkgram.c" /* yacc.c:1646 */
-#line 3041 "awkgram.c" /* yacc.c:1646 */
++#line 3042 "awkgram.c" /* yacc.c:1646 */
break;
case 81:
- #line 1197 "awkgram.y" /* yacc.c:1646 */
-#line 1207 "awkgram.y" /* yacc.c:1646 */
++#line 1208 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = (yyvsp[-1]);
}
- #line 3039 "awkgram.c" /* yacc.c:1646 */
-#line 3049 "awkgram.c" /* yacc.c:1646 */
++#line 3050 "awkgram.c" /* yacc.c:1646 */
break;
case 82:
- #line 1204 "awkgram.y" /* yacc.c:1646 */
-#line 1214 "awkgram.y" /* yacc.c:1646 */
++#line 1215 "awkgram.y" /* yacc.c:1646 */
{
in_print = false;
in_parens = 0;
(yyval) = NULL;
}
- #line 3049 "awkgram.c" /* yacc.c:1646 */
-#line 3059 "awkgram.c" /* yacc.c:1646 */
++#line 3060 "awkgram.c" /* yacc.c:1646 */
break;
case 83:
- #line 1209 "awkgram.y" /* yacc.c:1646 */
-#line 1219 "awkgram.y" /* yacc.c:1646 */
++#line 1220 "awkgram.y" /* yacc.c:1646 */
{ in_print = false; in_parens = 0; }
- #line 3055 "awkgram.c" /* yacc.c:1646 */
-#line 3065 "awkgram.c" /* yacc.c:1646 */
++#line 3066 "awkgram.c" /* yacc.c:1646 */
break;
case 84:
- #line 1210 "awkgram.y" /* yacc.c:1646 */
-#line 1220 "awkgram.y" /* yacc.c:1646 */
++#line 1221 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-2])->redir_type == redirect_twoway
&& (yyvsp[0])->lasti->opcode == Op_K_getline_redir
@@@ -3063,136 -3073,136 +3074,136 @@@
yyerror(_("multistage two-way pipelines don't work"));
(yyval) = list_prepend((yyvsp[0]), (yyvsp[-2]));
}
- #line 3067 "awkgram.c" /* yacc.c:1646 */
-#line 3077 "awkgram.c" /* yacc.c:1646 */
++#line 3078 "awkgram.c" /* yacc.c:1646 */
break;
case 85:
- #line 1221 "awkgram.y" /* yacc.c:1646 */
-#line 1231 "awkgram.y" /* yacc.c:1646 */
++#line 1232 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_condition((yyvsp[-3]), (yyvsp[-5]), (yyvsp[0]),
NULL, NULL);
}
- #line 3075 "awkgram.c" /* yacc.c:1646 */
-#line 3085 "awkgram.c" /* yacc.c:1646 */
++#line 3086 "awkgram.c" /* yacc.c:1646 */
break;
case 86:
- #line 1226 "awkgram.y" /* yacc.c:1646 */
-#line 1236 "awkgram.y" /* yacc.c:1646 */
++#line 1237 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_condition((yyvsp[-6]), (yyvsp[-8]), (yyvsp[-3]),
(yyvsp[-2]), (yyvsp[0]));
}
- #line 3083 "awkgram.c" /* yacc.c:1646 */
-#line 3093 "awkgram.c" /* yacc.c:1646 */
++#line 3094 "awkgram.c" /* yacc.c:1646 */
break;
case 91:
- #line 1243 "awkgram.y" /* yacc.c:1646 */
-#line 1253 "awkgram.y" /* yacc.c:1646 */
++#line 1254 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3089 "awkgram.c" /* yacc.c:1646 */
-#line 3099 "awkgram.c" /* yacc.c:1646 */
++#line 3100 "awkgram.c" /* yacc.c:1646 */
break;
case 92:
- #line 1245 "awkgram.y" /* yacc.c:1646 */
-#line 1255 "awkgram.y" /* yacc.c:1646 */
++#line 1256 "awkgram.y" /* yacc.c:1646 */
{
bcfree((yyvsp[-1]));
(yyval) = (yyvsp[0]);
}
- #line 3098 "awkgram.c" /* yacc.c:1646 */
-#line 3108 "awkgram.c" /* yacc.c:1646 */
++#line 3109 "awkgram.c" /* yacc.c:1646 */
break;
case 93:
- #line 1253 "awkgram.y" /* yacc.c:1646 */
-#line 1263 "awkgram.y" /* yacc.c:1646 */
++#line 1264 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3104 "awkgram.c" /* yacc.c:1646 */
-#line 3114 "awkgram.c" /* yacc.c:1646 */
++#line 3115 "awkgram.c" /* yacc.c:1646 */
break;
case 94:
- #line 1255 "awkgram.y" /* yacc.c:1646 */
-#line 1265 "awkgram.y" /* yacc.c:1646 */
++#line 1266 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3110 "awkgram.c" /* yacc.c:1646 */
-#line 3120 "awkgram.c" /* yacc.c:1646 */
++#line 3121 "awkgram.c" /* yacc.c:1646 */
break;
case 95:
- #line 1260 "awkgram.y" /* yacc.c:1646 */
-#line 1270 "awkgram.y" /* yacc.c:1646 */
++#line 1271 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->param_count = 0;
(yyval) = list_create((yyvsp[0]));
}
- #line 3119 "awkgram.c" /* yacc.c:1646 */
-#line 3129 "awkgram.c" /* yacc.c:1646 */
++#line 3130 "awkgram.c" /* yacc.c:1646 */
break;
case 96:
- #line 1265 "awkgram.y" /* yacc.c:1646 */
-#line 1275 "awkgram.y" /* yacc.c:1646 */
++#line 1276 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->param_count = (yyvsp[-2])->lasti->param_count + 1;
(yyval) = list_append((yyvsp[-2]), (yyvsp[0]));
yyerrok;
}
- #line 3129 "awkgram.c" /* yacc.c:1646 */
-#line 3139 "awkgram.c" /* yacc.c:1646 */
++#line 3140 "awkgram.c" /* yacc.c:1646 */
break;
case 97:
- #line 1271 "awkgram.y" /* yacc.c:1646 */
-#line 1281 "awkgram.y" /* yacc.c:1646 */
++#line 1282 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3135 "awkgram.c" /* yacc.c:1646 */
-#line 3145 "awkgram.c" /* yacc.c:1646 */
++#line 3146 "awkgram.c" /* yacc.c:1646 */
break;
case 98:
- #line 1273 "awkgram.y" /* yacc.c:1646 */
-#line 1283 "awkgram.y" /* yacc.c:1646 */
++#line 1284 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3141 "awkgram.c" /* yacc.c:1646 */
-#line 3151 "awkgram.c" /* yacc.c:1646 */
++#line 3152 "awkgram.c" /* yacc.c:1646 */
break;
case 99:
- #line 1275 "awkgram.y" /* yacc.c:1646 */
-#line 1285 "awkgram.y" /* yacc.c:1646 */
++#line 1286 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-2]); }
- #line 3147 "awkgram.c" /* yacc.c:1646 */
-#line 3157 "awkgram.c" /* yacc.c:1646 */
++#line 3158 "awkgram.c" /* yacc.c:1646 */
break;
case 100:
- #line 1281 "awkgram.y" /* yacc.c:1646 */
-#line 1291 "awkgram.y" /* yacc.c:1646 */
++#line 1292 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3153 "awkgram.c" /* yacc.c:1646 */
-#line 3163 "awkgram.c" /* yacc.c:1646 */
++#line 3164 "awkgram.c" /* yacc.c:1646 */
break;
case 101:
- #line 1283 "awkgram.y" /* yacc.c:1646 */
-#line 1293 "awkgram.y" /* yacc.c:1646 */
++#line 1294 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3159 "awkgram.c" /* yacc.c:1646 */
-#line 3169 "awkgram.c" /* yacc.c:1646 */
++#line 3170 "awkgram.c" /* yacc.c:1646 */
break;
case 102:
- #line 1288 "awkgram.y" /* yacc.c:1646 */
-#line 1298 "awkgram.y" /* yacc.c:1646 */
++#line 1299 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3165 "awkgram.c" /* yacc.c:1646 */
-#line 3175 "awkgram.c" /* yacc.c:1646 */
++#line 3176 "awkgram.c" /* yacc.c:1646 */
break;
case 103:
- #line 1290 "awkgram.y" /* yacc.c:1646 */
-#line 1300 "awkgram.y" /* yacc.c:1646 */
++#line 1301 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3171 "awkgram.c" /* yacc.c:1646 */
-#line 3181 "awkgram.c" /* yacc.c:1646 */
++#line 3182 "awkgram.c" /* yacc.c:1646 */
break;
case 104:
- #line 1295 "awkgram.y" /* yacc.c:1646 */
-#line 1305 "awkgram.y" /* yacc.c:1646 */
++#line 1306 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_expression_list(NULL, (yyvsp[0])); }
- #line 3177 "awkgram.c" /* yacc.c:1646 */
-#line 3187 "awkgram.c" /* yacc.c:1646 */
++#line 3188 "awkgram.c" /* yacc.c:1646 */
break;
case 105:
- #line 1297 "awkgram.y" /* yacc.c:1646 */
-#line 1307 "awkgram.y" /* yacc.c:1646 */
++#line 1308 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_expression_list((yyvsp[-2]), (yyvsp[0]));
yyerrok;
}
- #line 3186 "awkgram.c" /* yacc.c:1646 */
-#line 3196 "awkgram.c" /* yacc.c:1646 */
++#line 3197 "awkgram.c" /* yacc.c:1646 */
break;
case 106:
- #line 1302 "awkgram.y" /* yacc.c:1646 */
-#line 1312 "awkgram.y" /* yacc.c:1646 */
++#line 1313 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3192 "awkgram.c" /* yacc.c:1646 */
-#line 3202 "awkgram.c" /* yacc.c:1646 */
++#line 3203 "awkgram.c" /* yacc.c:1646 */
break;
case 107:
- #line 1304 "awkgram.y" /* yacc.c:1646 */
-#line 1314 "awkgram.y" /* yacc.c:1646 */
++#line 1315 "awkgram.y" /* yacc.c:1646 */
{
/*
* Returning the expression list instead of NULL lets
@@@ -3200,52 -3210,52 +3211,52 @@@
*/
(yyval) = (yyvsp[-1]);
}
- #line 3204 "awkgram.c" /* yacc.c:1646 */
-#line 3214 "awkgram.c" /* yacc.c:1646 */
++#line 3215 "awkgram.c" /* yacc.c:1646 */
break;
case 108:
- #line 1312 "awkgram.y" /* yacc.c:1646 */
-#line 1322 "awkgram.y" /* yacc.c:1646 */
++#line 1323 "awkgram.y" /* yacc.c:1646 */
{
/* Ditto */
(yyval) = mk_expression_list((yyvsp[-2]), (yyvsp[0]));
}
- #line 3213 "awkgram.c" /* yacc.c:1646 */
-#line 3223 "awkgram.c" /* yacc.c:1646 */
++#line 3224 "awkgram.c" /* yacc.c:1646 */
break;
case 109:
- #line 1317 "awkgram.y" /* yacc.c:1646 */
-#line 1327 "awkgram.y" /* yacc.c:1646 */
++#line 1328 "awkgram.y" /* yacc.c:1646 */
{
/* Ditto */
(yyval) = (yyvsp[-2]);
}
- #line 3222 "awkgram.c" /* yacc.c:1646 */
-#line 3232 "awkgram.c" /* yacc.c:1646 */
++#line 3233 "awkgram.c" /* yacc.c:1646 */
break;
case 110:
- #line 1326 "awkgram.y" /* yacc.c:1646 */
-#line 1336 "awkgram.y" /* yacc.c:1646 */
++#line 1337 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint && (yyvsp[0])->lasti->opcode == Op_match_rec)
lintwarn_ln((yyvsp[-1])->source_line,
_("regular expression on right of assignment"));
(yyval) = mk_assignment((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1]));
}
- #line 3233 "awkgram.c" /* yacc.c:1646 */
-#line 3243 "awkgram.c" /* yacc.c:1646 */
++#line 3244 "awkgram.c" /* yacc.c:1646 */
break;
case 111:
- #line 1333 "awkgram.y" /* yacc.c:1646 */
-#line 1343 "awkgram.y" /* yacc.c:1646 */
++#line 1344 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_boolean((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3239 "awkgram.c" /* yacc.c:1646 */
-#line 3249 "awkgram.c" /* yacc.c:1646 */
++#line 3250 "awkgram.c" /* yacc.c:1646 */
break;
case 112:
- #line 1335 "awkgram.y" /* yacc.c:1646 */
-#line 1345 "awkgram.y" /* yacc.c:1646 */
++#line 1346 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_boolean((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3245 "awkgram.c" /* yacc.c:1646 */
-#line 3255 "awkgram.c" /* yacc.c:1646 */
++#line 3256 "awkgram.c" /* yacc.c:1646 */
break;
case 113:
- #line 1337 "awkgram.y" /* yacc.c:1646 */
-#line 1347 "awkgram.y" /* yacc.c:1646 */
++#line 1348 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-2])->lasti->opcode == Op_match_rec)
warning_ln((yyvsp[-1])->source_line,
@@@ -3261,11 -3271,11 +3272,11 @@@
(yyval) = list_append(list_merge((yyvsp[-2]),
(yyvsp[0])), (yyvsp[-1]));
}
}
- #line 3265 "awkgram.c" /* yacc.c:1646 */
-#line 3275 "awkgram.c" /* yacc.c:1646 */
++#line 3276 "awkgram.c" /* yacc.c:1646 */
break;
case 114:
- #line 1353 "awkgram.y" /* yacc.c:1646 */
-#line 1363 "awkgram.y" /* yacc.c:1646 */
++#line 1364 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint_old)
warning_ln((yyvsp[-1])->source_line,
@@@ -3275,91 -3285,91 +3286,91 @@@
(yyvsp[-1])->expr_count = 1;
(yyval) = list_append(list_merge((yyvsp[-2]), (yyvsp[0])),
(yyvsp[-1]));
}
- #line 3279 "awkgram.c" /* yacc.c:1646 */
-#line 3289 "awkgram.c" /* yacc.c:1646 */
++#line 3290 "awkgram.c" /* yacc.c:1646 */
break;
case 115:
- #line 1363 "awkgram.y" /* yacc.c:1646 */
-#line 1373 "awkgram.y" /* yacc.c:1646 */
++#line 1374 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint && (yyvsp[0])->lasti->opcode == Op_match_rec)
lintwarn_ln((yyvsp[-1])->source_line,
_("regular expression on right of comparison"));
(yyval) = list_append(list_merge((yyvsp[-2]), (yyvsp[0])),
(yyvsp[-1]));
}
- #line 3290 "awkgram.c" /* yacc.c:1646 */
-#line 3300 "awkgram.c" /* yacc.c:1646 */
++#line 3301 "awkgram.c" /* yacc.c:1646 */
break;
case 116:
- #line 1370 "awkgram.y" /* yacc.c:1646 */
-#line 1380 "awkgram.y" /* yacc.c:1646 */
++#line 1381 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_condition((yyvsp[-4]), (yyvsp[-3]), (yyvsp[-2]),
(yyvsp[-1]), (yyvsp[0])); }
- #line 3296 "awkgram.c" /* yacc.c:1646 */
-#line 3306 "awkgram.c" /* yacc.c:1646 */
++#line 3307 "awkgram.c" /* yacc.c:1646 */
break;
case 117:
- #line 1372 "awkgram.y" /* yacc.c:1646 */
-#line 1382 "awkgram.y" /* yacc.c:1646 */
++#line 1383 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3302 "awkgram.c" /* yacc.c:1646 */
-#line 3312 "awkgram.c" /* yacc.c:1646 */
++#line 3313 "awkgram.c" /* yacc.c:1646 */
break;
case 118:
- #line 1377 "awkgram.y" /* yacc.c:1646 */
-#line 1387 "awkgram.y" /* yacc.c:1646 */
++#line 1388 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3308 "awkgram.c" /* yacc.c:1646 */
-#line 3318 "awkgram.c" /* yacc.c:1646 */
++#line 3319 "awkgram.c" /* yacc.c:1646 */
break;
case 119:
- #line 1379 "awkgram.y" /* yacc.c:1646 */
-#line 1389 "awkgram.y" /* yacc.c:1646 */
++#line 1390 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3314 "awkgram.c" /* yacc.c:1646 */
-#line 3324 "awkgram.c" /* yacc.c:1646 */
++#line 3325 "awkgram.c" /* yacc.c:1646 */
break;
case 120:
- #line 1381 "awkgram.y" /* yacc.c:1646 */
-#line 1391 "awkgram.y" /* yacc.c:1646 */
++#line 1392 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_assign_quotient;
(yyval) = (yyvsp[0]);
}
- #line 3323 "awkgram.c" /* yacc.c:1646 */
-#line 3333 "awkgram.c" /* yacc.c:1646 */
++#line 3334 "awkgram.c" /* yacc.c:1646 */
break;
case 121:
- #line 1389 "awkgram.y" /* yacc.c:1646 */
-#line 1399 "awkgram.y" /* yacc.c:1646 */
++#line 1400 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3329 "awkgram.c" /* yacc.c:1646 */
-#line 3339 "awkgram.c" /* yacc.c:1646 */
++#line 3340 "awkgram.c" /* yacc.c:1646 */
break;
case 122:
- #line 1391 "awkgram.y" /* yacc.c:1646 */
-#line 1401 "awkgram.y" /* yacc.c:1646 */
++#line 1402 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3335 "awkgram.c" /* yacc.c:1646 */
-#line 3345 "awkgram.c" /* yacc.c:1646 */
++#line 3346 "awkgram.c" /* yacc.c:1646 */
break;
case 123:
- #line 1396 "awkgram.y" /* yacc.c:1646 */
-#line 1406 "awkgram.y" /* yacc.c:1646 */
++#line 1407 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3341 "awkgram.c" /* yacc.c:1646 */
-#line 3351 "awkgram.c" /* yacc.c:1646 */
++#line 3352 "awkgram.c" /* yacc.c:1646 */
break;
case 124:
- #line 1398 "awkgram.y" /* yacc.c:1646 */
-#line 1408 "awkgram.y" /* yacc.c:1646 */
++#line 1409 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3347 "awkgram.c" /* yacc.c:1646 */
-#line 3357 "awkgram.c" /* yacc.c:1646 */
++#line 3358 "awkgram.c" /* yacc.c:1646 */
break;
case 125:
- #line 1403 "awkgram.y" /* yacc.c:1646 */
-#line 1413 "awkgram.y" /* yacc.c:1646 */
++#line 1414 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3353 "awkgram.c" /* yacc.c:1646 */
-#line 3363 "awkgram.c" /* yacc.c:1646 */
++#line 3364 "awkgram.c" /* yacc.c:1646 */
break;
case 126:
- #line 1405 "awkgram.y" /* yacc.c:1646 */
-#line 1415 "awkgram.y" /* yacc.c:1646 */
++#line 1416 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3359 "awkgram.c" /* yacc.c:1646 */
-#line 3369 "awkgram.c" /* yacc.c:1646 */
++#line 3370 "awkgram.c" /* yacc.c:1646 */
break;
case 127:
- #line 1407 "awkgram.y" /* yacc.c:1646 */
-#line 1417 "awkgram.y" /* yacc.c:1646 */
++#line 1418 "awkgram.y" /* yacc.c:1646 */
{
int count = 2;
bool is_simple_var = false;
@@@ -3406,47 -3416,47 +3417,47 @@@
max_args = count;
}
}
- #line 3410 "awkgram.c" /* yacc.c:1646 */
-#line 3420 "awkgram.c" /* yacc.c:1646 */
++#line 3421 "awkgram.c" /* yacc.c:1646 */
break;
case 129:
- #line 1459 "awkgram.y" /* yacc.c:1646 */
-#line 1469 "awkgram.y" /* yacc.c:1646 */
++#line 1470 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3416 "awkgram.c" /* yacc.c:1646 */
-#line 3426 "awkgram.c" /* yacc.c:1646 */
++#line 3427 "awkgram.c" /* yacc.c:1646 */
break;
case 130:
- #line 1461 "awkgram.y" /* yacc.c:1646 */
-#line 1471 "awkgram.y" /* yacc.c:1646 */
++#line 1472 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3422 "awkgram.c" /* yacc.c:1646 */
-#line 3432 "awkgram.c" /* yacc.c:1646 */
++#line 3433 "awkgram.c" /* yacc.c:1646 */
break;
case 131:
- #line 1463 "awkgram.y" /* yacc.c:1646 */
-#line 1473 "awkgram.y" /* yacc.c:1646 */
++#line 1474 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3428 "awkgram.c" /* yacc.c:1646 */
-#line 3438 "awkgram.c" /* yacc.c:1646 */
++#line 3439 "awkgram.c" /* yacc.c:1646 */
break;
case 132:
- #line 1465 "awkgram.y" /* yacc.c:1646 */
-#line 1475 "awkgram.y" /* yacc.c:1646 */
++#line 1476 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3434 "awkgram.c" /* yacc.c:1646 */
-#line 3444 "awkgram.c" /* yacc.c:1646 */
++#line 3445 "awkgram.c" /* yacc.c:1646 */
break;
case 133:
- #line 1467 "awkgram.y" /* yacc.c:1646 */
-#line 1477 "awkgram.y" /* yacc.c:1646 */
++#line 1478 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3440 "awkgram.c" /* yacc.c:1646 */
-#line 3450 "awkgram.c" /* yacc.c:1646 */
++#line 3451 "awkgram.c" /* yacc.c:1646 */
break;
case 134:
- #line 1469 "awkgram.y" /* yacc.c:1646 */
-#line 1479 "awkgram.y" /* yacc.c:1646 */
++#line 1480 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3446 "awkgram.c" /* yacc.c:1646 */
-#line 3456 "awkgram.c" /* yacc.c:1646 */
++#line 3457 "awkgram.c" /* yacc.c:1646 */
break;
case 135:
- #line 1471 "awkgram.y" /* yacc.c:1646 */
-#line 1481 "awkgram.y" /* yacc.c:1646 */
++#line 1482 "awkgram.y" /* yacc.c:1646 */
{
/*
* In BEGINFILE/ENDFILE, allow `getline [var] < file'
@@@ -3460,29 -3470,29 +3471,29 @@@
_("non-redirected `getline' undefined inside
END action"));
(yyval) = mk_getline((yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]),
redirect_input);
}
- #line 3464 "awkgram.c" /* yacc.c:1646 */
-#line 3474 "awkgram.c" /* yacc.c:1646 */
++#line 3475 "awkgram.c" /* yacc.c:1646 */
break;
case 136:
- #line 1485 "awkgram.y" /* yacc.c:1646 */
-#line 1495 "awkgram.y" /* yacc.c:1646 */
++#line 1496 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postincrement;
(yyval) = mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
- #line 3473 "awkgram.c" /* yacc.c:1646 */
-#line 3483 "awkgram.c" /* yacc.c:1646 */
++#line 3484 "awkgram.c" /* yacc.c:1646 */
break;
case 137:
- #line 1490 "awkgram.y" /* yacc.c:1646 */
-#line 1500 "awkgram.y" /* yacc.c:1646 */
++#line 1501 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postdecrement;
(yyval) = mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
- #line 3482 "awkgram.c" /* yacc.c:1646 */
-#line 3492 "awkgram.c" /* yacc.c:1646 */
++#line 3493 "awkgram.c" /* yacc.c:1646 */
break;
case 138:
- #line 1495 "awkgram.y" /* yacc.c:1646 */
-#line 1505 "awkgram.y" /* yacc.c:1646 */
++#line 1506 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint_old) {
warning_ln((yyvsp[-1])->source_line,
@@@ -3502,64 -3512,64 +3513,64 @@@
(yyval) = list_append(list_merge(t, (yyvsp[0])),
(yyvsp[-1]));
}
}
- #line 3506 "awkgram.c" /* yacc.c:1646 */
-#line 3516 "awkgram.c" /* yacc.c:1646 */
++#line 3517 "awkgram.c" /* yacc.c:1646 */
break;
case 139:
- #line 1520 "awkgram.y" /* yacc.c:1646 */
-#line 1530 "awkgram.y" /* yacc.c:1646 */
++#line 1531 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_getline((yyvsp[-1]), (yyvsp[0]), (yyvsp[-3]),
(yyvsp[-2])->redir_type);
bcfree((yyvsp[-2]));
}
- #line 3515 "awkgram.c" /* yacc.c:1646 */
-#line 3525 "awkgram.c" /* yacc.c:1646 */
++#line 3526 "awkgram.c" /* yacc.c:1646 */
break;
case 140:
- #line 1526 "awkgram.y" /* yacc.c:1646 */
-#line 1536 "awkgram.y" /* yacc.c:1646 */
++#line 1537 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3521 "awkgram.c" /* yacc.c:1646 */
-#line 3531 "awkgram.c" /* yacc.c:1646 */
++#line 3532 "awkgram.c" /* yacc.c:1646 */
break;
case 141:
- #line 1528 "awkgram.y" /* yacc.c:1646 */
-#line 1538 "awkgram.y" /* yacc.c:1646 */
++#line 1539 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3527 "awkgram.c" /* yacc.c:1646 */
-#line 3537 "awkgram.c" /* yacc.c:1646 */
++#line 3538 "awkgram.c" /* yacc.c:1646 */
break;
case 142:
- #line 1530 "awkgram.y" /* yacc.c:1646 */
-#line 1540 "awkgram.y" /* yacc.c:1646 */
++#line 1541 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3533 "awkgram.c" /* yacc.c:1646 */
-#line 3543 "awkgram.c" /* yacc.c:1646 */
++#line 3544 "awkgram.c" /* yacc.c:1646 */
break;
case 143:
- #line 1532 "awkgram.y" /* yacc.c:1646 */
-#line 1542 "awkgram.y" /* yacc.c:1646 */
++#line 1543 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3539 "awkgram.c" /* yacc.c:1646 */
-#line 3549 "awkgram.c" /* yacc.c:1646 */
++#line 3550 "awkgram.c" /* yacc.c:1646 */
break;
case 144:
- #line 1534 "awkgram.y" /* yacc.c:1646 */
-#line 1544 "awkgram.y" /* yacc.c:1646 */
++#line 1545 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3545 "awkgram.c" /* yacc.c:1646 */
-#line 3555 "awkgram.c" /* yacc.c:1646 */
++#line 3556 "awkgram.c" /* yacc.c:1646 */
break;
case 145:
- #line 1536 "awkgram.y" /* yacc.c:1646 */
-#line 1546 "awkgram.y" /* yacc.c:1646 */
++#line 1547 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3551 "awkgram.c" /* yacc.c:1646 */
-#line 3561 "awkgram.c" /* yacc.c:1646 */
++#line 3562 "awkgram.c" /* yacc.c:1646 */
break;
case 146:
- #line 1541 "awkgram.y" /* yacc.c:1646 */
-#line 1551 "awkgram.y" /* yacc.c:1646 */
++#line 1552 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_create((yyvsp[0]));
}
- #line 3559 "awkgram.c" /* yacc.c:1646 */
-#line 3569 "awkgram.c" /* yacc.c:1646 */
++#line 3570 "awkgram.c" /* yacc.c:1646 */
break;
case 147:
- #line 1545 "awkgram.y" /* yacc.c:1646 */
-#line 1555 "awkgram.y" /* yacc.c:1646 */
++#line 1556 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[0])->opcode == Op_match_rec) {
(yyvsp[0])->opcode = Op_nomatch;
@@@ -3591,37 -3601,37 +3602,37 @@@
}
}
}
- #line 3595 "awkgram.c" /* yacc.c:1646 */
-#line 3605 "awkgram.c" /* yacc.c:1646 */
++#line 3606 "awkgram.c" /* yacc.c:1646 */
break;
case 148:
- #line 1577 "awkgram.y" /* yacc.c:1646 */
-#line 1587 "awkgram.y" /* yacc.c:1646 */
++#line 1588 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3601 "awkgram.c" /* yacc.c:1646 */
-#line 3611 "awkgram.c" /* yacc.c:1646 */
++#line 3612 "awkgram.c" /* yacc.c:1646 */
break;
case 149:
- #line 1579 "awkgram.y" /* yacc.c:1646 */
-#line 1589 "awkgram.y" /* yacc.c:1646 */
++#line 1590 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = snode((yyvsp[-1]), (yyvsp[-3]));
if ((yyval) == NULL)
YYABORT;
}
- #line 3611 "awkgram.c" /* yacc.c:1646 */
-#line 3621 "awkgram.c" /* yacc.c:1646 */
++#line 3622 "awkgram.c" /* yacc.c:1646 */
break;
case 150:
- #line 1585 "awkgram.y" /* yacc.c:1646 */
-#line 1595 "awkgram.y" /* yacc.c:1646 */
++#line 1596 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = snode((yyvsp[-1]), (yyvsp[-3]));
if ((yyval) == NULL)
YYABORT;
}
- #line 3621 "awkgram.c" /* yacc.c:1646 */
-#line 3631 "awkgram.c" /* yacc.c:1646 */
++#line 3632 "awkgram.c" /* yacc.c:1646 */
break;
case 151:
- #line 1591 "awkgram.y" /* yacc.c:1646 */
-#line 1601 "awkgram.y" /* yacc.c:1646 */
++#line 1602 "awkgram.y" /* yacc.c:1646 */
{
static bool warned = false;
@@@ -3634,45 -3644,45 +3645,45 @@@
if ((yyval) == NULL)
YYABORT;
}
- #line 3638 "awkgram.c" /* yacc.c:1646 */
-#line 3648 "awkgram.c" /* yacc.c:1646 */
++#line 3649 "awkgram.c" /* yacc.c:1646 */
break;
case 154:
- #line 1606 "awkgram.y" /* yacc.c:1646 */
-#line 1616 "awkgram.y" /* yacc.c:1646 */
++#line 1617 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[-1])->opcode = Op_preincrement;
(yyval) = mk_assignment((yyvsp[0]), NULL, (yyvsp[-1]));
}
- #line 3647 "awkgram.c" /* yacc.c:1646 */
-#line 3657 "awkgram.c" /* yacc.c:1646 */
++#line 3658 "awkgram.c" /* yacc.c:1646 */
break;
case 155:
- #line 1611 "awkgram.y" /* yacc.c:1646 */
-#line 1621 "awkgram.y" /* yacc.c:1646 */
++#line 1622 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[-1])->opcode = Op_predecrement;
(yyval) = mk_assignment((yyvsp[0]), NULL, (yyvsp[-1]));
}
- #line 3656 "awkgram.c" /* yacc.c:1646 */
-#line 3666 "awkgram.c" /* yacc.c:1646 */
++#line 3667 "awkgram.c" /* yacc.c:1646 */
break;
case 156:
- #line 1616 "awkgram.y" /* yacc.c:1646 */
-#line 1626 "awkgram.y" /* yacc.c:1646 */
++#line 1627 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_create((yyvsp[0]));
}
- #line 3664 "awkgram.c" /* yacc.c:1646 */
-#line 3674 "awkgram.c" /* yacc.c:1646 */
++#line 3675 "awkgram.c" /* yacc.c:1646 */
break;
case 157:
- #line 1620 "awkgram.y" /* yacc.c:1646 */
-#line 1630 "awkgram.y" /* yacc.c:1646 */
++#line 1631 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_create((yyvsp[0]));
}
- #line 3672 "awkgram.c" /* yacc.c:1646 */
-#line 3682 "awkgram.c" /* yacc.c:1646 */
++#line 3683 "awkgram.c" /* yacc.c:1646 */
break;
case 158:
- #line 1624 "awkgram.y" /* yacc.c:1646 */
-#line 1634 "awkgram.y" /* yacc.c:1646 */
++#line 1635 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[0])->lasti->opcode == Op_push_i
&& ((yyvsp[0])->lasti->memory->flags & (STRCUR|STRING))
== 0
@@@ -3687,11 -3697,11 +3698,11 @@@
(yyval) = list_append((yyvsp[0]), (yyvsp[-1]));
}
}
- #line 3691 "awkgram.c" /* yacc.c:1646 */
-#line 3701 "awkgram.c" /* yacc.c:1646 */
++#line 3702 "awkgram.c" /* yacc.c:1646 */
break;
case 159:
- #line 1639 "awkgram.y" /* yacc.c:1646 */
-#line 1649 "awkgram.y" /* yacc.c:1646 */
++#line 1650 "awkgram.y" /* yacc.c:1646 */
{
/*
* was: $$ = $2
@@@ -3701,20 -3711,20 +3712,20 @@@
(yyvsp[-1])->memory = make_number(0.0);
(yyval) = list_append((yyvsp[0]), (yyvsp[-1]));
}
- #line 3705 "awkgram.c" /* yacc.c:1646 */
-#line 3715 "awkgram.c" /* yacc.c:1646 */
++#line 3716 "awkgram.c" /* yacc.c:1646 */
break;
case 160:
- #line 1652 "awkgram.y" /* yacc.c:1646 */
-#line 1662 "awkgram.y" /* yacc.c:1646 */
++#line 1663 "awkgram.y" /* yacc.c:1646 */
{
func_use((yyvsp[0])->lasti->func_name, FUNC_USE);
(yyval) = (yyvsp[0]);
}
- #line 3714 "awkgram.c" /* yacc.c:1646 */
-#line 3724 "awkgram.c" /* yacc.c:1646 */
++#line 3725 "awkgram.c" /* yacc.c:1646 */
break;
case 161:
- #line 1657 "awkgram.y" /* yacc.c:1646 */
-#line 1667 "awkgram.y" /* yacc.c:1646 */
++#line 1668 "awkgram.y" /* yacc.c:1646 */
{
/* indirect function call */
INSTRUCTION *f, *t;
@@@ -3747,11 -3757,11 +3758,11 @@@
(yyval) = list_prepend((yyvsp[0]), t);
}
- #line 3751 "awkgram.c" /* yacc.c:1646 */
-#line 3761 "awkgram.c" /* yacc.c:1646 */
++#line 3762 "awkgram.c" /* yacc.c:1646 */
break;
case 162:
- #line 1693 "awkgram.y" /* yacc.c:1646 */
-#line 1703 "awkgram.y" /* yacc.c:1646 */
++#line 1704 "awkgram.y" /* yacc.c:1646 */
{
param_sanity((yyvsp[-1]));
(yyvsp[-3])->opcode = Op_func_call;
@@@ -3765,49 -3775,49 +3776,49 @@@
(yyval) = list_append(t, (yyvsp[-3]));
}
}
- #line 3769 "awkgram.c" /* yacc.c:1646 */
-#line 3779 "awkgram.c" /* yacc.c:1646 */
++#line 3780 "awkgram.c" /* yacc.c:1646 */
break;
case 163:
- #line 1710 "awkgram.y" /* yacc.c:1646 */
-#line 1720 "awkgram.y" /* yacc.c:1646 */
++#line 1721 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3775 "awkgram.c" /* yacc.c:1646 */
-#line 3785 "awkgram.c" /* yacc.c:1646 */
++#line 3786 "awkgram.c" /* yacc.c:1646 */
break;
case 164:
- #line 1712 "awkgram.y" /* yacc.c:1646 */
-#line 1722 "awkgram.y" /* yacc.c:1646 */
++#line 1723 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3781 "awkgram.c" /* yacc.c:1646 */
-#line 3791 "awkgram.c" /* yacc.c:1646 */
++#line 3792 "awkgram.c" /* yacc.c:1646 */
break;
case 165:
- #line 1717 "awkgram.y" /* yacc.c:1646 */
-#line 1727 "awkgram.y" /* yacc.c:1646 */
++#line 1728 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3787 "awkgram.c" /* yacc.c:1646 */
-#line 3797 "awkgram.c" /* yacc.c:1646 */
++#line 3798 "awkgram.c" /* yacc.c:1646 */
break;
case 166:
- #line 1719 "awkgram.y" /* yacc.c:1646 */
-#line 1729 "awkgram.y" /* yacc.c:1646 */
++#line 1730 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3793 "awkgram.c" /* yacc.c:1646 */
-#line 3803 "awkgram.c" /* yacc.c:1646 */
++#line 3804 "awkgram.c" /* yacc.c:1646 */
break;
case 167:
- #line 1724 "awkgram.y" /* yacc.c:1646 */
-#line 1734 "awkgram.y" /* yacc.c:1646 */
++#line 1735 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3799 "awkgram.c" /* yacc.c:1646 */
-#line 3809 "awkgram.c" /* yacc.c:1646 */
++#line 3810 "awkgram.c" /* yacc.c:1646 */
break;
case 168:
- #line 1726 "awkgram.y" /* yacc.c:1646 */
-#line 1736 "awkgram.y" /* yacc.c:1646 */
++#line 1737 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
- #line 3807 "awkgram.c" /* yacc.c:1646 */
-#line 3817 "awkgram.c" /* yacc.c:1646 */
++#line 3818 "awkgram.c" /* yacc.c:1646 */
break;
case 169:
- #line 1733 "awkgram.y" /* yacc.c:1646 */
-#line 1743 "awkgram.y" /* yacc.c:1646 */
++#line 1744 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *ip = (yyvsp[0])->lasti;
int count = ip->sub_count; /* # of SUBSEP-seperated
expressions */
@@@ -3821,11 -3831,11 +3832,11 @@@
sub_counter++; /* count # of dimensions */
(yyval) = (yyvsp[0]);
}
- #line 3825 "awkgram.c" /* yacc.c:1646 */
-#line 3835 "awkgram.c" /* yacc.c:1646 */
++#line 3836 "awkgram.c" /* yacc.c:1646 */
break;
case 170:
- #line 1750 "awkgram.y" /* yacc.c:1646 */
-#line 1760 "awkgram.y" /* yacc.c:1646 */
++#line 1761 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *t = (yyvsp[-1]);
if ((yyvsp[-1]) == NULL) {
@@@ -3839,31 -3849,31 +3850,31 @@@
(yyvsp[0])->sub_count = count_expressions(&t, false);
(yyval) = list_append(t, (yyvsp[0]));
}
- #line 3843 "awkgram.c" /* yacc.c:1646 */
-#line 3853 "awkgram.c" /* yacc.c:1646 */
++#line 3854 "awkgram.c" /* yacc.c:1646 */
break;
case 171:
- #line 1767 "awkgram.y" /* yacc.c:1646 */
-#line 1777 "awkgram.y" /* yacc.c:1646 */
++#line 1778 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3849 "awkgram.c" /* yacc.c:1646 */
-#line 3859 "awkgram.c" /* yacc.c:1646 */
++#line 3860 "awkgram.c" /* yacc.c:1646 */
break;
case 172:
- #line 1769 "awkgram.y" /* yacc.c:1646 */
-#line 1779 "awkgram.y" /* yacc.c:1646 */
++#line 1780 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
- #line 3857 "awkgram.c" /* yacc.c:1646 */
-#line 3867 "awkgram.c" /* yacc.c:1646 */
++#line 3868 "awkgram.c" /* yacc.c:1646 */
break;
case 173:
- #line 1776 "awkgram.y" /* yacc.c:1646 */
-#line 1786 "awkgram.y" /* yacc.c:1646 */
++#line 1787 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3863 "awkgram.c" /* yacc.c:1646 */
-#line 3873 "awkgram.c" /* yacc.c:1646 */
++#line 3874 "awkgram.c" /* yacc.c:1646 */
break;
case 174:
- #line 1781 "awkgram.y" /* yacc.c:1646 */
-#line 1791 "awkgram.y" /* yacc.c:1646 */
++#line 1792 "awkgram.y" /* yacc.c:1646 */
{
char *var_name = (yyvsp[0])->lextok;
@@@ -3871,22 -3881,22 +3882,22 @@@
(yyvsp[0])->memory = variable((yyvsp[0])->source_line,
var_name, Node_var_new);
(yyval) = list_create((yyvsp[0]));
}
- #line 3875 "awkgram.c" /* yacc.c:1646 */
-#line 3885 "awkgram.c" /* yacc.c:1646 */
++#line 3886 "awkgram.c" /* yacc.c:1646 */
break;
case 175:
- #line 1789 "awkgram.y" /* yacc.c:1646 */
-#line 1799 "awkgram.y" /* yacc.c:1646 */
++#line 1800 "awkgram.y" /* yacc.c:1646 */
{
char *arr = (yyvsp[-1])->lextok;
(yyvsp[-1])->memory = variable((yyvsp[-1])->source_line, arr,
Node_var_new);
(yyvsp[-1])->opcode = Op_push_array;
(yyval) = list_prepend((yyvsp[0]), (yyvsp[-1]));
}
- #line 3886 "awkgram.c" /* yacc.c:1646 */
-#line 3896 "awkgram.c" /* yacc.c:1646 */
++#line 3897 "awkgram.c" /* yacc.c:1646 */
break;
case 176:
- #line 1799 "awkgram.y" /* yacc.c:1646 */
-#line 1809 "awkgram.y" /* yacc.c:1646 */
++#line 1810 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *ip = (yyvsp[0])->nexti;
if (ip->opcode == Op_push
@@@ -3898,73 -3908,73 +3909,73 @@@
} else
(yyval) = (yyvsp[0]);
}
- #line 3902 "awkgram.c" /* yacc.c:1646 */
-#line 3912 "awkgram.c" /* yacc.c:1646 */
++#line 3913 "awkgram.c" /* yacc.c:1646 */
break;
case 177:
- #line 1811 "awkgram.y" /* yacc.c:1646 */
-#line 1821 "awkgram.y" /* yacc.c:1646 */
++#line 1822 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_append((yyvsp[-1]), (yyvsp[-2]));
if ((yyvsp[0]) != NULL)
mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
- #line 3912 "awkgram.c" /* yacc.c:1646 */
-#line 3922 "awkgram.c" /* yacc.c:1646 */
++#line 3923 "awkgram.c" /* yacc.c:1646 */
break;
case 178:
- #line 1820 "awkgram.y" /* yacc.c:1646 */
-#line 1830 "awkgram.y" /* yacc.c:1646 */
++#line 1831 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postincrement;
}
- #line 3920 "awkgram.c" /* yacc.c:1646 */
-#line 3930 "awkgram.c" /* yacc.c:1646 */
++#line 3931 "awkgram.c" /* yacc.c:1646 */
break;
case 179:
- #line 1824 "awkgram.y" /* yacc.c:1646 */
-#line 1834 "awkgram.y" /* yacc.c:1646 */
++#line 1835 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postdecrement;
}
- #line 3928 "awkgram.c" /* yacc.c:1646 */
-#line 3938 "awkgram.c" /* yacc.c:1646 */
++#line 3939 "awkgram.c" /* yacc.c:1646 */
break;
case 180:
- #line 1827 "awkgram.y" /* yacc.c:1646 */
-#line 1837 "awkgram.y" /* yacc.c:1646 */
++#line 1838 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3934 "awkgram.c" /* yacc.c:1646 */
-#line 3944 "awkgram.c" /* yacc.c:1646 */
++#line 3945 "awkgram.c" /* yacc.c:1646 */
break;
case 182:
- #line 1835 "awkgram.y" /* yacc.c:1646 */
-#line 1845 "awkgram.y" /* yacc.c:1646 */
++#line 1846 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3940 "awkgram.c" /* yacc.c:1646 */
-#line 3950 "awkgram.c" /* yacc.c:1646 */
++#line 3951 "awkgram.c" /* yacc.c:1646 */
break;
case 183:
- #line 1839 "awkgram.y" /* yacc.c:1646 */
-#line 1849 "awkgram.y" /* yacc.c:1646 */
++#line 1850 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3946 "awkgram.c" /* yacc.c:1646 */
-#line 3956 "awkgram.c" /* yacc.c:1646 */
++#line 3957 "awkgram.c" /* yacc.c:1646 */
break;
case 186:
- #line 1848 "awkgram.y" /* yacc.c:1646 */
-#line 1858 "awkgram.y" /* yacc.c:1646 */
++#line 1859 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3952 "awkgram.c" /* yacc.c:1646 */
-#line 3962 "awkgram.c" /* yacc.c:1646 */
++#line 3963 "awkgram.c" /* yacc.c:1646 */
break;
case 187:
- #line 1852 "awkgram.y" /* yacc.c:1646 */
-#line 1862 "awkgram.y" /* yacc.c:1646 */
++#line 1863 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); yyerrok; }
- #line 3958 "awkgram.c" /* yacc.c:1646 */
-#line 3968 "awkgram.c" /* yacc.c:1646 */
++#line 3969 "awkgram.c" /* yacc.c:1646 */
break;
case 188:
- #line 1856 "awkgram.y" /* yacc.c:1646 */
-#line 1866 "awkgram.y" /* yacc.c:1646 */
++#line 1867 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3964 "awkgram.c" /* yacc.c:1646 */
-#line 3974 "awkgram.c" /* yacc.c:1646 */
++#line 3975 "awkgram.c" /* yacc.c:1646 */
break;
- #line 3968 "awkgram.c" /* yacc.c:1646 */
-#line 3978 "awkgram.c" /* yacc.c:1646 */
++#line 3979 "awkgram.c" /* yacc.c:1646 */
default: break;
}
/* User semantic actions sometimes alter yychar, and that requires
@@@ -4192,7 -4202,7 +4203,7 @@@ yyreturn
#endif
return yyresult;
}
- #line 1858 "awkgram.y" /* yacc.c:1906 */
-#line 1868 "awkgram.y" /* yacc.c:1906 */
++#line 1869 "awkgram.y" /* yacc.c:1906 */
struct token {
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=22e48cd552efd3b47b257bb980fc0e85036266f4
commit 22e48cd552efd3b47b257bb980fc0e85036266f4
Merge: aa716a5 d312241
Author: Arnold D. Robbins <address@hidden>
Date: Sat Nov 15 20:52:34 2014 +0200
Merge branch 'master' into async-events
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=aa716a589768e07aebc8cd3fa0efbac389c27f10
commit aa716a589768e07aebc8cd3fa0efbac389c27f10
Merge: 419ab94 b7f2322
Author: Arnold D. Robbins <address@hidden>
Date: Tue Oct 28 21:34:00 2014 +0200
Merge branch 'master' into async-events
diff --cc awk.h
index 5852d37,c59c4bf..23a9389
--- a/awk.h
+++ b/awk.h
@@@ -668,9 -668,9 +668,10 @@@ typedef enum opcodeval
Op_func,
+ Op_comment, /* for pretty printing */
Op_exec_count,
Op_breakpoint,
+ Op_end_stmt, /* sync point, end of statement */
Op_lint,
Op_atexit,
Op_stop,
diff --cc awkgram.c
index 314313e,a79f9a3..b90b354
--- a/awkgram.c
+++ b/awkgram.c
@@@ -651,25 -658,25 +658,25 @@@ static const yytype_uint8 yytranslate[
/* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
static const yytype_uint16 yyrline[] =
{
- 0, 198, 198, 200, 205, 206, 212, 224, 228, 239,
- 245, 250, 258, 266, 268, 273, 281, 283, 289, 290,
- 292, 318, 329, 340, 346, 355, 365, 367, 369, 375,
- 380, 381, 385, 404, 403, 437, 439, 444, 445, 459,
- 464, 465, 469, 471, 473, 480, 570, 612, 654, 767,
- 774, 781, 791, 800, 809, 818, 829, 845, 844, 868,
- 880, 880, 978, 978, 1011, 1041, 1047, 1048, 1054, 1055,
- 1062, 1067, 1079, 1093, 1095, 1103, 1108, 1110, 1118, 1120,
- 1129, 1130, 1138, 1143, 1143, 1154, 1158, 1166, 1167, 1170,
- 1172, 1177, 1178, 1187, 1188, 1193, 1198, 1204, 1206, 1208,
- 1215, 1216, 1222, 1223, 1228, 1230, 1235, 1237, 1245, 1250,
- 1259, 1266, 1268, 1270, 1286, 1296, 1303, 1305, 1310, 1312,
- 1314, 1322, 1324, 1329, 1331, 1336, 1338, 1340, 1390, 1392,
- 1394, 1396, 1398, 1400, 1402, 1404, 1418, 1423, 1428, 1453,
- 1459, 1461, 1463, 1465, 1467, 1469, 1474, 1478, 1510, 1512,
- 1518, 1524, 1537, 1538, 1539, 1544, 1549, 1553, 1557, 1572,
- 1585, 1590, 1626, 1644, 1645, 1651, 1652, 1657, 1659, 1666,
- 1683, 1700, 1702, 1709, 1714, 1722, 1732, 1744, 1753, 1757,
- 1761, 1765, 1769, 1773, 1776, 1778, 1782, 1786, 1790
+ 0, 205, 205, 207, 212, 213, 219, 231, 235, 246,
+ 252, 257, 265, 273, 275, 280, 288, 290, 296, 304,
+ 314, 340, 353, 366, 373, 383, 395, 397, 399, 405,
- 410, 411, 415, 450, 449, 483, 485, 490, 496, 524,
- 529, 530, 534, 536, 538, 545, 635, 677, 719, 832,
- 839, 846, 856, 865, 874, 883, 894, 910, 909, 933,
- 945, 945, 1043, 1043, 1076, 1106, 1112, 1113, 1119, 1120,
- 1127, 1132, 1144, 1158, 1160, 1168, 1173, 1175, 1183, 1185,
- 1194, 1195, 1203, 1208, 1208, 1219, 1223, 1231, 1232, 1235,
- 1237, 1242, 1243, 1252, 1253, 1258, 1263, 1269, 1271, 1273,
- 1280, 1281, 1287, 1288, 1293, 1295, 1300, 1302, 1310, 1315,
- 1324, 1331, 1333, 1335, 1351, 1361, 1368, 1370, 1375, 1377,
- 1379, 1387, 1389, 1394, 1396, 1401, 1403, 1405, 1455, 1457,
- 1459, 1461, 1463, 1465, 1467, 1469, 1483, 1488, 1493, 1518,
- 1524, 1526, 1528, 1530, 1532, 1534, 1539, 1543, 1575, 1577,
- 1583, 1589, 1602, 1603, 1604, 1609, 1614, 1618, 1622, 1637,
- 1650, 1655, 1691, 1709, 1710, 1716, 1717, 1722, 1724, 1731,
- 1748, 1765, 1767, 1774, 1779, 1787, 1797, 1809, 1818, 1822,
- 1826, 1830, 1834, 1838, 1841, 1843, 1847, 1851, 1855
++ 410, 411, 415, 450, 449, 483, 485, 490, 496, 525,
++ 530, 531, 535, 537, 539, 546, 636, 678, 720, 833,
++ 840, 847, 857, 866, 875, 884, 895, 911, 910, 934,
++ 946, 946, 1044, 1044, 1077, 1107, 1113, 1114, 1120, 1121,
++ 1128, 1133, 1145, 1159, 1161, 1169, 1174, 1176, 1184, 1186,
++ 1195, 1196, 1204, 1209, 1209, 1220, 1224, 1232, 1233, 1236,
++ 1238, 1243, 1244, 1253, 1254, 1259, 1264, 1270, 1272, 1274,
++ 1281, 1282, 1288, 1289, 1294, 1296, 1301, 1303, 1311, 1316,
++ 1325, 1332, 1334, 1336, 1352, 1362, 1369, 1371, 1376, 1378,
++ 1380, 1388, 1390, 1395, 1397, 1402, 1404, 1406, 1456, 1458,
++ 1460, 1462, 1464, 1466, 1468, 1470, 1484, 1489, 1494, 1519,
++ 1525, 1527, 1529, 1531, 1533, 1535, 1540, 1544, 1576, 1578,
++ 1584, 1590, 1603, 1604, 1605, 1610, 1615, 1619, 1623, 1638,
++ 1651, 1656, 1692, 1710, 1711, 1717, 1718, 1723, 1725, 1732,
++ 1749, 1766, 1768, 1775, 1780, 1788, 1798, 1810, 1819, 1823,
++ 1827, 1831, 1835, 1839, 1842, 1844, 1848, 1852, 1856
};
#endif
@@@ -2170,54 -2220,68 +2220,69 @@@ yyreduce
break;
case 38:
- #line 446 "awkgram.y" /* yacc.c:1646 */
+ #line 497 "awkgram.y" /* yacc.c:1646 */
{
- if ((yyvsp[0]) == NULL)
- (yyval) = (yyvsp[-1]);
- else {
+ if ((yyvsp[0]) == NULL) {
+ if (comment == NULL)
+ (yyval) = (yyvsp[-1]);
+ else {
+ (yyval) = list_append((yyvsp[-1]), comment);
+ comment = NULL;
+ }
+ } else {
add_lint((yyvsp[0]), LINT_no_effect);
- if ((yyvsp[-1]) == NULL)
- (yyval) = (yyvsp[0]);
- else
+ if ((yyvsp[-1]) == NULL) {
+ if (comment == NULL)
+ (yyval) = (yyvsp[0]);
+ else {
+ (yyval) = list_append((yyvsp[0]),
comment);
+ comment = NULL;
+ }
+ } else {
+ if (comment != NULL) {
+ list_append((yyvsp[0]), comment);
+ comment = NULL;
+ }
(yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
+ }
}
+ list_append((yyval), instruction(Op_end_stmt));
- yyerrok;
+ yyerrok;
}
- #line 2188 "awkgram.c" /* yacc.c:1646 */
-#line 2252 "awkgram.c" /* yacc.c:1646 */
++#line 2253 "awkgram.c" /* yacc.c:1646 */
break;
case 39:
- #line 460 "awkgram.y" /* yacc.c:1646 */
-#line 525 "awkgram.y" /* yacc.c:1646 */
++#line 526 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2194 "awkgram.c" /* yacc.c:1646 */
-#line 2258 "awkgram.c" /* yacc.c:1646 */
++#line 2259 "awkgram.c" /* yacc.c:1646 */
break;
case 42:
- #line 470 "awkgram.y" /* yacc.c:1646 */
-#line 535 "awkgram.y" /* yacc.c:1646 */
++#line 536 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2200 "awkgram.c" /* yacc.c:1646 */
-#line 2264 "awkgram.c" /* yacc.c:1646 */
++#line 2265 "awkgram.c" /* yacc.c:1646 */
break;
case 43:
- #line 472 "awkgram.y" /* yacc.c:1646 */
-#line 537 "awkgram.y" /* yacc.c:1646 */
++#line 538 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 2206 "awkgram.c" /* yacc.c:1646 */
-#line 2270 "awkgram.c" /* yacc.c:1646 */
++#line 2271 "awkgram.c" /* yacc.c:1646 */
break;
case 44:
- #line 474 "awkgram.y" /* yacc.c:1646 */
-#line 539 "awkgram.y" /* yacc.c:1646 */
++#line 540 "awkgram.y" /* yacc.c:1646 */
{
if (do_pretty_print)
(yyval) = list_prepend((yyvsp[0]),
instruction(Op_exec_count));
else
(yyval) = (yyvsp[0]);
}
- #line 2217 "awkgram.c" /* yacc.c:1646 */
-#line 2281 "awkgram.c" /* yacc.c:1646 */
++#line 2282 "awkgram.c" /* yacc.c:1646 */
break;
case 45:
- #line 481 "awkgram.y" /* yacc.c:1646 */
-#line 546 "awkgram.y" /* yacc.c:1646 */
++#line 547 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *dflt, *curr = NULL, *cexp, *cstmt;
INSTRUCTION *ip, *nextc, *tbreak;
@@@ -2307,11 -2371,11 +2372,11 @@@
break_allowed--;
fix_break_continue(ip, tbreak, NULL);
}
- #line 2311 "awkgram.c" /* yacc.c:1646 */
-#line 2375 "awkgram.c" /* yacc.c:1646 */
++#line 2376 "awkgram.c" /* yacc.c:1646 */
break;
case 46:
- #line 571 "awkgram.y" /* yacc.c:1646 */
-#line 636 "awkgram.y" /* yacc.c:1646 */
++#line 637 "awkgram.y" /* yacc.c:1646 */
{
/*
* -----------------
@@@ -2353,11 -2417,11 +2418,11 @@@
continue_allowed--;
fix_break_continue(ip, tbreak, tcont);
}
- #line 2357 "awkgram.c" /* yacc.c:1646 */
-#line 2421 "awkgram.c" /* yacc.c:1646 */
++#line 2422 "awkgram.c" /* yacc.c:1646 */
break;
case 47:
- #line 613 "awkgram.y" /* yacc.c:1646 */
-#line 678 "awkgram.y" /* yacc.c:1646 */
++#line 679 "awkgram.y" /* yacc.c:1646 */
{
/*
* -----------------
@@@ -2399,11 -2463,11 +2464,11 @@@
} /* else
$1 and $4 are NULLs */
}
- #line 2403 "awkgram.c" /* yacc.c:1646 */
-#line 2467 "awkgram.c" /* yacc.c:1646 */
++#line 2468 "awkgram.c" /* yacc.c:1646 */
break;
case 48:
- #line 655 "awkgram.y" /* yacc.c:1646 */
-#line 720 "awkgram.y" /* yacc.c:1646 */
++#line 721 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *ip;
char *var_name = (yyvsp[-5])->lextok;
@@@ -2516,44 -2580,44 +2581,44 @@@ regular_loop
break_allowed--;
continue_allowed--;
}
- #line 2520 "awkgram.c" /* yacc.c:1646 */
-#line 2584 "awkgram.c" /* yacc.c:1646 */
++#line 2585 "awkgram.c" /* yacc.c:1646 */
break;
case 49:
- #line 768 "awkgram.y" /* yacc.c:1646 */
-#line 833 "awkgram.y" /* yacc.c:1646 */
++#line 834 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_for_loop((yyvsp[-11]), (yyvsp[-9]), (yyvsp[-6]),
(yyvsp[-3]), (yyvsp[0]));
break_allowed--;
continue_allowed--;
}
- #line 2531 "awkgram.c" /* yacc.c:1646 */
-#line 2595 "awkgram.c" /* yacc.c:1646 */
++#line 2596 "awkgram.c" /* yacc.c:1646 */
break;
case 50:
- #line 775 "awkgram.y" /* yacc.c:1646 */
-#line 840 "awkgram.y" /* yacc.c:1646 */
++#line 841 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_for_loop((yyvsp[-10]), (yyvsp[-8]), (INSTRUCTION
*) NULL, (yyvsp[-3]), (yyvsp[0]));
break_allowed--;
continue_allowed--;
}
- #line 2542 "awkgram.c" /* yacc.c:1646 */
-#line 2606 "awkgram.c" /* yacc.c:1646 */
++#line 2607 "awkgram.c" /* yacc.c:1646 */
break;
case 51:
- #line 782 "awkgram.y" /* yacc.c:1646 */
-#line 847 "awkgram.y" /* yacc.c:1646 */
++#line 848 "awkgram.y" /* yacc.c:1646 */
{
if (do_pretty_print)
(yyval) = list_prepend((yyvsp[0]),
instruction(Op_exec_count));
else
(yyval) = (yyvsp[0]);
}
- #line 2553 "awkgram.c" /* yacc.c:1646 */
-#line 2617 "awkgram.c" /* yacc.c:1646 */
++#line 2618 "awkgram.c" /* yacc.c:1646 */
break;
case 52:
- #line 792 "awkgram.y" /* yacc.c:1646 */
-#line 857 "awkgram.y" /* yacc.c:1646 */
++#line 858 "awkgram.y" /* yacc.c:1646 */
{
if (! break_allowed)
error_ln((yyvsp[-1])->source_line,
@@@ -2562,11 -2626,11 +2627,11 @@@
(yyval) = list_create((yyvsp[-1]));
}
- #line 2566 "awkgram.c" /* yacc.c:1646 */
-#line 2630 "awkgram.c" /* yacc.c:1646 */
++#line 2631 "awkgram.c" /* yacc.c:1646 */
break;
case 53:
- #line 801 "awkgram.y" /* yacc.c:1646 */
-#line 866 "awkgram.y" /* yacc.c:1646 */
++#line 867 "awkgram.y" /* yacc.c:1646 */
{
if (! continue_allowed)
error_ln((yyvsp[-1])->source_line,
@@@ -2575,11 -2639,11 +2640,11 @@@
(yyval) = list_create((yyvsp[-1]));
}
- #line 2579 "awkgram.c" /* yacc.c:1646 */
-#line 2643 "awkgram.c" /* yacc.c:1646 */
++#line 2644 "awkgram.c" /* yacc.c:1646 */
break;
case 54:
- #line 810 "awkgram.y" /* yacc.c:1646 */
-#line 875 "awkgram.y" /* yacc.c:1646 */
++#line 876 "awkgram.y" /* yacc.c:1646 */
{
/* if inside function (rule = 0), resolve context at run-time */
if (rule && rule != Rule)
@@@ -2588,11 -2652,11 +2653,11 @@@
(yyvsp[-1])->target_jmp = ip_rec;
(yyval) = list_create((yyvsp[-1]));
}
- #line 2592 "awkgram.c" /* yacc.c:1646 */
-#line 2656 "awkgram.c" /* yacc.c:1646 */
++#line 2657 "awkgram.c" /* yacc.c:1646 */
break;
case 55:
- #line 819 "awkgram.y" /* yacc.c:1646 */
-#line 884 "awkgram.y" /* yacc.c:1646 */
++#line 885 "awkgram.y" /* yacc.c:1646 */
{
/* if inside function (rule = 0), resolve context at run-time */
if (rule == BEGIN || rule == END || rule == ENDFILE)
@@@ -2603,11 -2667,11 +2668,11 @@@
(yyvsp[-1])->target_endfile = ip_endfile;
(yyval) = list_create((yyvsp[-1]));
}
- #line 2607 "awkgram.c" /* yacc.c:1646 */
-#line 2671 "awkgram.c" /* yacc.c:1646 */
++#line 2672 "awkgram.c" /* yacc.c:1646 */
break;
case 56:
- #line 830 "awkgram.y" /* yacc.c:1646 */
-#line 895 "awkgram.y" /* yacc.c:1646 */
++#line 896 "awkgram.y" /* yacc.c:1646 */
{
/* Initialize the two possible jump targets, the actual target
* is resolved at run-time.
@@@ -2622,20 -2686,20 +2687,20 @@@
} else
(yyval) = list_append((yyvsp[-1]), (yyvsp[-2]));
}
- #line 2626 "awkgram.c" /* yacc.c:1646 */
-#line 2690 "awkgram.c" /* yacc.c:1646 */
++#line 2691 "awkgram.c" /* yacc.c:1646 */
break;
case 57:
- #line 845 "awkgram.y" /* yacc.c:1646 */
-#line 910 "awkgram.y" /* yacc.c:1646 */
++#line 911 "awkgram.y" /* yacc.c:1646 */
{
if (! in_function)
yyerror(_("`return' used outside function context"));
}
- #line 2635 "awkgram.c" /* yacc.c:1646 */
-#line 2699 "awkgram.c" /* yacc.c:1646 */
++#line 2700 "awkgram.c" /* yacc.c:1646 */
break;
case 58:
- #line 848 "awkgram.y" /* yacc.c:1646 */
-#line 913 "awkgram.y" /* yacc.c:1646 */
++#line 914 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-1]) == NULL) {
(yyval) = list_create((yyvsp[-3]));
@@@ -2656,17 -2720,17 +2721,17 @@@
(yyval) = list_append((yyvsp[-1]), (yyvsp[-3]));
}
}
- #line 2660 "awkgram.c" /* yacc.c:1646 */
-#line 2724 "awkgram.c" /* yacc.c:1646 */
++#line 2725 "awkgram.c" /* yacc.c:1646 */
break;
case 60:
- #line 880 "awkgram.y" /* yacc.c:1646 */
-#line 945 "awkgram.y" /* yacc.c:1646 */
++#line 946 "awkgram.y" /* yacc.c:1646 */
{ in_print = true; in_parens = 0; }
- #line 2666 "awkgram.c" /* yacc.c:1646 */
-#line 2730 "awkgram.c" /* yacc.c:1646 */
++#line 2731 "awkgram.c" /* yacc.c:1646 */
break;
case 61:
- #line 881 "awkgram.y" /* yacc.c:1646 */
-#line 946 "awkgram.y" /* yacc.c:1646 */
++#line 947 "awkgram.y" /* yacc.c:1646 */
{
/*
* Optimization: plain `print' has no expression list, so $3 is
null.
@@@ -2763,17 -2827,17 +2828,17 @@@ regular_print
}
}
}
- #line 2767 "awkgram.c" /* yacc.c:1646 */
-#line 2831 "awkgram.c" /* yacc.c:1646 */
++#line 2832 "awkgram.c" /* yacc.c:1646 */
break;
case 62:
- #line 978 "awkgram.y" /* yacc.c:1646 */
-#line 1043 "awkgram.y" /* yacc.c:1646 */
++#line 1044 "awkgram.y" /* yacc.c:1646 */
{ sub_counter = 0; }
- #line 2773 "awkgram.c" /* yacc.c:1646 */
-#line 2837 "awkgram.c" /* yacc.c:1646 */
++#line 2838 "awkgram.c" /* yacc.c:1646 */
break;
case 63:
- #line 979 "awkgram.y" /* yacc.c:1646 */
-#line 1044 "awkgram.y" /* yacc.c:1646 */
++#line 1045 "awkgram.y" /* yacc.c:1646 */
{
char *arr = (yyvsp[-2])->lextok;
@@@ -2806,11 -2870,11 +2871,11 @@@
(yyval) = list_append(list_append((yyvsp[0]),
(yyvsp[-2])), (yyvsp[-3]));
}
}
- #line 2810 "awkgram.c" /* yacc.c:1646 */
-#line 2874 "awkgram.c" /* yacc.c:1646 */
++#line 2875 "awkgram.c" /* yacc.c:1646 */
break;
case 64:
- #line 1016 "awkgram.y" /* yacc.c:1646 */
-#line 1081 "awkgram.y" /* yacc.c:1646 */
++#line 1082 "awkgram.y" /* yacc.c:1646 */
{
static bool warned = false;
char *arr = (yyvsp[-1])->lextok;
@@@ -2836,52 -2900,52 +2901,52 @@@
fatal(_("`delete' is not allowed with
FUNCTAB"));
}
}
- #line 2840 "awkgram.c" /* yacc.c:1646 */
-#line 2904 "awkgram.c" /* yacc.c:1646 */
++#line 2905 "awkgram.c" /* yacc.c:1646 */
break;
case 65:
- #line 1042 "awkgram.y" /* yacc.c:1646 */
-#line 1107 "awkgram.y" /* yacc.c:1646 */
++#line 1108 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = optimize_assignment((yyvsp[0])); }
- #line 2846 "awkgram.c" /* yacc.c:1646 */
-#line 2910 "awkgram.c" /* yacc.c:1646 */
++#line 2911 "awkgram.c" /* yacc.c:1646 */
break;
case 66:
- #line 1047 "awkgram.y" /* yacc.c:1646 */
-#line 1112 "awkgram.y" /* yacc.c:1646 */
++#line 1113 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2852 "awkgram.c" /* yacc.c:1646 */
-#line 2916 "awkgram.c" /* yacc.c:1646 */
++#line 2917 "awkgram.c" /* yacc.c:1646 */
break;
case 67:
- #line 1049 "awkgram.y" /* yacc.c:1646 */
-#line 1114 "awkgram.y" /* yacc.c:1646 */
++#line 1115 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2858 "awkgram.c" /* yacc.c:1646 */
-#line 2922 "awkgram.c" /* yacc.c:1646 */
++#line 2923 "awkgram.c" /* yacc.c:1646 */
break;
case 68:
- #line 1054 "awkgram.y" /* yacc.c:1646 */
-#line 1119 "awkgram.y" /* yacc.c:1646 */
++#line 1120 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2864 "awkgram.c" /* yacc.c:1646 */
-#line 2928 "awkgram.c" /* yacc.c:1646 */
++#line 2929 "awkgram.c" /* yacc.c:1646 */
break;
case 69:
- #line 1056 "awkgram.y" /* yacc.c:1646 */
-#line 1121 "awkgram.y" /* yacc.c:1646 */
++#line 1122 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-1]) == NULL)
(yyval) = list_create((yyvsp[0]));
else
(yyval) = list_prepend((yyvsp[-1]), (yyvsp[0]));
}
- #line 2875 "awkgram.c" /* yacc.c:1646 */
-#line 2939 "awkgram.c" /* yacc.c:1646 */
++#line 2940 "awkgram.c" /* yacc.c:1646 */
break;
case 70:
- #line 1063 "awkgram.y" /* yacc.c:1646 */
-#line 1128 "awkgram.y" /* yacc.c:1646 */
++#line 1129 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2881 "awkgram.c" /* yacc.c:1646 */
-#line 2945 "awkgram.c" /* yacc.c:1646 */
++#line 2946 "awkgram.c" /* yacc.c:1646 */
break;
case 71:
- #line 1068 "awkgram.y" /* yacc.c:1646 */
-#line 1133 "awkgram.y" /* yacc.c:1646 */
++#line 1134 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *casestmt = (yyvsp[0]);
if ((yyvsp[0]) == NULL)
@@@ -2893,11 -2957,11 +2958,11 @@@
bcfree((yyvsp[-2]));
(yyval) = (yyvsp[-4]);
}
- #line 2897 "awkgram.c" /* yacc.c:1646 */
-#line 2961 "awkgram.c" /* yacc.c:1646 */
++#line 2962 "awkgram.c" /* yacc.c:1646 */
break;
case 72:
- #line 1080 "awkgram.y" /* yacc.c:1646 */
-#line 1145 "awkgram.y" /* yacc.c:1646 */
++#line 1146 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *casestmt = (yyvsp[0]);
if ((yyvsp[0]) == NULL)
@@@ -2908,17 -2972,17 +2973,17 @@@
(yyvsp[-3])->case_stmt = casestmt;
(yyval) = (yyvsp[-3]);
}
- #line 2912 "awkgram.c" /* yacc.c:1646 */
-#line 2976 "awkgram.c" /* yacc.c:1646 */
++#line 2977 "awkgram.c" /* yacc.c:1646 */
break;
case 73:
- #line 1094 "awkgram.y" /* yacc.c:1646 */
-#line 1159 "awkgram.y" /* yacc.c:1646 */
++#line 1160 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2918 "awkgram.c" /* yacc.c:1646 */
-#line 2982 "awkgram.c" /* yacc.c:1646 */
++#line 2983 "awkgram.c" /* yacc.c:1646 */
break;
case 74:
- #line 1096 "awkgram.y" /* yacc.c:1646 */
-#line 1161 "awkgram.y" /* yacc.c:1646 */
++#line 1162 "awkgram.y" /* yacc.c:1646 */
{
NODE *n = (yyvsp[0])->memory;
(void) force_number(n);
@@@ -2926,71 -2990,71 +2991,71 @@@
bcfree((yyvsp[-1]));
(yyval) = (yyvsp[0]);
}
- #line 2930 "awkgram.c" /* yacc.c:1646 */
-#line 2994 "awkgram.c" /* yacc.c:1646 */
++#line 2995 "awkgram.c" /* yacc.c:1646 */
break;
case 75:
- #line 1104 "awkgram.y" /* yacc.c:1646 */
-#line 1169 "awkgram.y" /* yacc.c:1646 */
++#line 1170 "awkgram.y" /* yacc.c:1646 */
{
bcfree((yyvsp[-1]));
(yyval) = (yyvsp[0]);
}
- #line 2939 "awkgram.c" /* yacc.c:1646 */
-#line 3003 "awkgram.c" /* yacc.c:1646 */
++#line 3004 "awkgram.c" /* yacc.c:1646 */
break;
case 76:
- #line 1109 "awkgram.y" /* yacc.c:1646 */
-#line 1174 "awkgram.y" /* yacc.c:1646 */
++#line 1175 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2945 "awkgram.c" /* yacc.c:1646 */
-#line 3009 "awkgram.c" /* yacc.c:1646 */
++#line 3010 "awkgram.c" /* yacc.c:1646 */
break;
case 77:
- #line 1111 "awkgram.y" /* yacc.c:1646 */
-#line 1176 "awkgram.y" /* yacc.c:1646 */
++#line 1177 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_push_re;
(yyval) = (yyvsp[0]);
}
- #line 2954 "awkgram.c" /* yacc.c:1646 */
-#line 3018 "awkgram.c" /* yacc.c:1646 */
++#line 3019 "awkgram.c" /* yacc.c:1646 */
break;
case 78:
- #line 1119 "awkgram.y" /* yacc.c:1646 */
-#line 1184 "awkgram.y" /* yacc.c:1646 */
++#line 1185 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2960 "awkgram.c" /* yacc.c:1646 */
-#line 3024 "awkgram.c" /* yacc.c:1646 */
++#line 3025 "awkgram.c" /* yacc.c:1646 */
break;
case 79:
- #line 1121 "awkgram.y" /* yacc.c:1646 */
-#line 1186 "awkgram.y" /* yacc.c:1646 */
++#line 1187 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2966 "awkgram.c" /* yacc.c:1646 */
-#line 3030 "awkgram.c" /* yacc.c:1646 */
++#line 3031 "awkgram.c" /* yacc.c:1646 */
break;
case 81:
- #line 1131 "awkgram.y" /* yacc.c:1646 */
-#line 1196 "awkgram.y" /* yacc.c:1646 */
++#line 1197 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = (yyvsp[-1]);
}
- #line 2974 "awkgram.c" /* yacc.c:1646 */
-#line 3038 "awkgram.c" /* yacc.c:1646 */
++#line 3039 "awkgram.c" /* yacc.c:1646 */
break;
case 82:
- #line 1138 "awkgram.y" /* yacc.c:1646 */
-#line 1203 "awkgram.y" /* yacc.c:1646 */
++#line 1204 "awkgram.y" /* yacc.c:1646 */
{
in_print = false;
in_parens = 0;
(yyval) = NULL;
}
- #line 2984 "awkgram.c" /* yacc.c:1646 */
-#line 3048 "awkgram.c" /* yacc.c:1646 */
++#line 3049 "awkgram.c" /* yacc.c:1646 */
break;
case 83:
- #line 1143 "awkgram.y" /* yacc.c:1646 */
-#line 1208 "awkgram.y" /* yacc.c:1646 */
++#line 1209 "awkgram.y" /* yacc.c:1646 */
{ in_print = false; in_parens = 0; }
- #line 2990 "awkgram.c" /* yacc.c:1646 */
-#line 3054 "awkgram.c" /* yacc.c:1646 */
++#line 3055 "awkgram.c" /* yacc.c:1646 */
break;
case 84:
- #line 1144 "awkgram.y" /* yacc.c:1646 */
-#line 1209 "awkgram.y" /* yacc.c:1646 */
++#line 1210 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-2])->redir_type == redirect_twoway
&& (yyvsp[0])->lasti->opcode == Op_K_getline_redir
@@@ -2998,136 -3062,136 +3063,136 @@@
yyerror(_("multistage two-way pipelines don't work"));
(yyval) = list_prepend((yyvsp[0]), (yyvsp[-2]));
}
- #line 3002 "awkgram.c" /* yacc.c:1646 */
-#line 3066 "awkgram.c" /* yacc.c:1646 */
++#line 3067 "awkgram.c" /* yacc.c:1646 */
break;
case 85:
- #line 1155 "awkgram.y" /* yacc.c:1646 */
-#line 1220 "awkgram.y" /* yacc.c:1646 */
++#line 1221 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_condition((yyvsp[-3]), (yyvsp[-5]), (yyvsp[0]),
NULL, NULL);
}
- #line 3010 "awkgram.c" /* yacc.c:1646 */
-#line 3074 "awkgram.c" /* yacc.c:1646 */
++#line 3075 "awkgram.c" /* yacc.c:1646 */
break;
case 86:
- #line 1160 "awkgram.y" /* yacc.c:1646 */
-#line 1225 "awkgram.y" /* yacc.c:1646 */
++#line 1226 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_condition((yyvsp[-6]), (yyvsp[-8]), (yyvsp[-3]),
(yyvsp[-2]), (yyvsp[0]));
}
- #line 3018 "awkgram.c" /* yacc.c:1646 */
-#line 3082 "awkgram.c" /* yacc.c:1646 */
++#line 3083 "awkgram.c" /* yacc.c:1646 */
break;
case 91:
- #line 1177 "awkgram.y" /* yacc.c:1646 */
-#line 1242 "awkgram.y" /* yacc.c:1646 */
++#line 1243 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3024 "awkgram.c" /* yacc.c:1646 */
-#line 3088 "awkgram.c" /* yacc.c:1646 */
++#line 3089 "awkgram.c" /* yacc.c:1646 */
break;
case 92:
- #line 1179 "awkgram.y" /* yacc.c:1646 */
-#line 1244 "awkgram.y" /* yacc.c:1646 */
++#line 1245 "awkgram.y" /* yacc.c:1646 */
{
bcfree((yyvsp[-1]));
(yyval) = (yyvsp[0]);
}
- #line 3033 "awkgram.c" /* yacc.c:1646 */
-#line 3097 "awkgram.c" /* yacc.c:1646 */
++#line 3098 "awkgram.c" /* yacc.c:1646 */
break;
case 93:
- #line 1187 "awkgram.y" /* yacc.c:1646 */
-#line 1252 "awkgram.y" /* yacc.c:1646 */
++#line 1253 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3039 "awkgram.c" /* yacc.c:1646 */
-#line 3103 "awkgram.c" /* yacc.c:1646 */
++#line 3104 "awkgram.c" /* yacc.c:1646 */
break;
case 94:
- #line 1189 "awkgram.y" /* yacc.c:1646 */
- { (yyval) = (yyvsp[0]) ; }
- #line 3045 "awkgram.c" /* yacc.c:1646 */
-#line 1254 "awkgram.y" /* yacc.c:1646 */
++#line 1255 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3109 "awkgram.c" /* yacc.c:1646 */
++#line 3110 "awkgram.c" /* yacc.c:1646 */
break;
case 95:
- #line 1194 "awkgram.y" /* yacc.c:1646 */
-#line 1259 "awkgram.y" /* yacc.c:1646 */
++#line 1260 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->param_count = 0;
(yyval) = list_create((yyvsp[0]));
}
- #line 3054 "awkgram.c" /* yacc.c:1646 */
-#line 3118 "awkgram.c" /* yacc.c:1646 */
++#line 3119 "awkgram.c" /* yacc.c:1646 */
break;
case 96:
- #line 1199 "awkgram.y" /* yacc.c:1646 */
-#line 1264 "awkgram.y" /* yacc.c:1646 */
++#line 1265 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->param_count = (yyvsp[-2])->lasti->param_count + 1;
(yyval) = list_append((yyvsp[-2]), (yyvsp[0]));
yyerrok;
}
- #line 3064 "awkgram.c" /* yacc.c:1646 */
-#line 3128 "awkgram.c" /* yacc.c:1646 */
++#line 3129 "awkgram.c" /* yacc.c:1646 */
break;
case 97:
- #line 1205 "awkgram.y" /* yacc.c:1646 */
-#line 1270 "awkgram.y" /* yacc.c:1646 */
++#line 1271 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3070 "awkgram.c" /* yacc.c:1646 */
-#line 3134 "awkgram.c" /* yacc.c:1646 */
++#line 3135 "awkgram.c" /* yacc.c:1646 */
break;
case 98:
- #line 1207 "awkgram.y" /* yacc.c:1646 */
-#line 1272 "awkgram.y" /* yacc.c:1646 */
++#line 1273 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3076 "awkgram.c" /* yacc.c:1646 */
-#line 3140 "awkgram.c" /* yacc.c:1646 */
++#line 3141 "awkgram.c" /* yacc.c:1646 */
break;
case 99:
- #line 1209 "awkgram.y" /* yacc.c:1646 */
-#line 1274 "awkgram.y" /* yacc.c:1646 */
++#line 1275 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-2]); }
- #line 3082 "awkgram.c" /* yacc.c:1646 */
-#line 3146 "awkgram.c" /* yacc.c:1646 */
++#line 3147 "awkgram.c" /* yacc.c:1646 */
break;
case 100:
- #line 1215 "awkgram.y" /* yacc.c:1646 */
-#line 1280 "awkgram.y" /* yacc.c:1646 */
++#line 1281 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3088 "awkgram.c" /* yacc.c:1646 */
-#line 3152 "awkgram.c" /* yacc.c:1646 */
++#line 3153 "awkgram.c" /* yacc.c:1646 */
break;
case 101:
- #line 1217 "awkgram.y" /* yacc.c:1646 */
-#line 1282 "awkgram.y" /* yacc.c:1646 */
++#line 1283 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3094 "awkgram.c" /* yacc.c:1646 */
-#line 3158 "awkgram.c" /* yacc.c:1646 */
++#line 3159 "awkgram.c" /* yacc.c:1646 */
break;
case 102:
- #line 1222 "awkgram.y" /* yacc.c:1646 */
-#line 1287 "awkgram.y" /* yacc.c:1646 */
++#line 1288 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3100 "awkgram.c" /* yacc.c:1646 */
-#line 3164 "awkgram.c" /* yacc.c:1646 */
++#line 3165 "awkgram.c" /* yacc.c:1646 */
break;
case 103:
- #line 1224 "awkgram.y" /* yacc.c:1646 */
-#line 1289 "awkgram.y" /* yacc.c:1646 */
++#line 1290 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3106 "awkgram.c" /* yacc.c:1646 */
-#line 3170 "awkgram.c" /* yacc.c:1646 */
++#line 3171 "awkgram.c" /* yacc.c:1646 */
break;
case 104:
- #line 1229 "awkgram.y" /* yacc.c:1646 */
-#line 1294 "awkgram.y" /* yacc.c:1646 */
++#line 1295 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_expression_list(NULL, (yyvsp[0])); }
- #line 3112 "awkgram.c" /* yacc.c:1646 */
-#line 3176 "awkgram.c" /* yacc.c:1646 */
++#line 3177 "awkgram.c" /* yacc.c:1646 */
break;
case 105:
- #line 1231 "awkgram.y" /* yacc.c:1646 */
-#line 1296 "awkgram.y" /* yacc.c:1646 */
++#line 1297 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_expression_list((yyvsp[-2]), (yyvsp[0]));
yyerrok;
}
- #line 3121 "awkgram.c" /* yacc.c:1646 */
-#line 3185 "awkgram.c" /* yacc.c:1646 */
++#line 3186 "awkgram.c" /* yacc.c:1646 */
break;
case 106:
- #line 1236 "awkgram.y" /* yacc.c:1646 */
-#line 1301 "awkgram.y" /* yacc.c:1646 */
++#line 1302 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3127 "awkgram.c" /* yacc.c:1646 */
-#line 3191 "awkgram.c" /* yacc.c:1646 */
++#line 3192 "awkgram.c" /* yacc.c:1646 */
break;
case 107:
- #line 1238 "awkgram.y" /* yacc.c:1646 */
-#line 1303 "awkgram.y" /* yacc.c:1646 */
++#line 1304 "awkgram.y" /* yacc.c:1646 */
{
/*
* Returning the expression list instead of NULL lets
@@@ -3135,52 -3199,52 +3200,52 @@@
*/
(yyval) = (yyvsp[-1]);
}
- #line 3139 "awkgram.c" /* yacc.c:1646 */
-#line 3203 "awkgram.c" /* yacc.c:1646 */
++#line 3204 "awkgram.c" /* yacc.c:1646 */
break;
case 108:
- #line 1246 "awkgram.y" /* yacc.c:1646 */
-#line 1311 "awkgram.y" /* yacc.c:1646 */
++#line 1312 "awkgram.y" /* yacc.c:1646 */
{
/* Ditto */
(yyval) = mk_expression_list((yyvsp[-2]), (yyvsp[0]));
}
- #line 3148 "awkgram.c" /* yacc.c:1646 */
-#line 3212 "awkgram.c" /* yacc.c:1646 */
++#line 3213 "awkgram.c" /* yacc.c:1646 */
break;
case 109:
- #line 1251 "awkgram.y" /* yacc.c:1646 */
-#line 1316 "awkgram.y" /* yacc.c:1646 */
++#line 1317 "awkgram.y" /* yacc.c:1646 */
{
/* Ditto */
(yyval) = (yyvsp[-2]);
}
- #line 3157 "awkgram.c" /* yacc.c:1646 */
-#line 3221 "awkgram.c" /* yacc.c:1646 */
++#line 3222 "awkgram.c" /* yacc.c:1646 */
break;
case 110:
- #line 1260 "awkgram.y" /* yacc.c:1646 */
-#line 1325 "awkgram.y" /* yacc.c:1646 */
++#line 1326 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint && (yyvsp[0])->lasti->opcode == Op_match_rec)
lintwarn_ln((yyvsp[-1])->source_line,
_("regular expression on right of assignment"));
(yyval) = mk_assignment((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1]));
}
- #line 3168 "awkgram.c" /* yacc.c:1646 */
-#line 3232 "awkgram.c" /* yacc.c:1646 */
++#line 3233 "awkgram.c" /* yacc.c:1646 */
break;
case 111:
- #line 1267 "awkgram.y" /* yacc.c:1646 */
-#line 1332 "awkgram.y" /* yacc.c:1646 */
++#line 1333 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_boolean((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3174 "awkgram.c" /* yacc.c:1646 */
-#line 3238 "awkgram.c" /* yacc.c:1646 */
++#line 3239 "awkgram.c" /* yacc.c:1646 */
break;
case 112:
- #line 1269 "awkgram.y" /* yacc.c:1646 */
-#line 1334 "awkgram.y" /* yacc.c:1646 */
++#line 1335 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_boolean((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3180 "awkgram.c" /* yacc.c:1646 */
-#line 3244 "awkgram.c" /* yacc.c:1646 */
++#line 3245 "awkgram.c" /* yacc.c:1646 */
break;
case 113:
- #line 1271 "awkgram.y" /* yacc.c:1646 */
-#line 1336 "awkgram.y" /* yacc.c:1646 */
++#line 1337 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-2])->lasti->opcode == Op_match_rec)
warning_ln((yyvsp[-1])->source_line,
@@@ -3196,11 -3260,11 +3261,11 @@@
(yyval) = list_append(list_merge((yyvsp[-2]),
(yyvsp[0])), (yyvsp[-1]));
}
}
- #line 3200 "awkgram.c" /* yacc.c:1646 */
-#line 3264 "awkgram.c" /* yacc.c:1646 */
++#line 3265 "awkgram.c" /* yacc.c:1646 */
break;
case 114:
- #line 1287 "awkgram.y" /* yacc.c:1646 */
-#line 1352 "awkgram.y" /* yacc.c:1646 */
++#line 1353 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint_old)
warning_ln((yyvsp[-1])->source_line,
@@@ -3210,91 -3274,91 +3275,91 @@@
(yyvsp[-1])->expr_count = 1;
(yyval) = list_append(list_merge((yyvsp[-2]), (yyvsp[0])),
(yyvsp[-1]));
}
- #line 3214 "awkgram.c" /* yacc.c:1646 */
-#line 3278 "awkgram.c" /* yacc.c:1646 */
++#line 3279 "awkgram.c" /* yacc.c:1646 */
break;
case 115:
- #line 1297 "awkgram.y" /* yacc.c:1646 */
-#line 1362 "awkgram.y" /* yacc.c:1646 */
++#line 1363 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint && (yyvsp[0])->lasti->opcode == Op_match_rec)
lintwarn_ln((yyvsp[-1])->source_line,
_("regular expression on right of comparison"));
(yyval) = list_append(list_merge((yyvsp[-2]), (yyvsp[0])),
(yyvsp[-1]));
}
- #line 3225 "awkgram.c" /* yacc.c:1646 */
-#line 3289 "awkgram.c" /* yacc.c:1646 */
++#line 3290 "awkgram.c" /* yacc.c:1646 */
break;
case 116:
- #line 1304 "awkgram.y" /* yacc.c:1646 */
-#line 1369 "awkgram.y" /* yacc.c:1646 */
++#line 1370 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_condition((yyvsp[-4]), (yyvsp[-3]), (yyvsp[-2]),
(yyvsp[-1]), (yyvsp[0])); }
- #line 3231 "awkgram.c" /* yacc.c:1646 */
-#line 3295 "awkgram.c" /* yacc.c:1646 */
++#line 3296 "awkgram.c" /* yacc.c:1646 */
break;
case 117:
- #line 1306 "awkgram.y" /* yacc.c:1646 */
-#line 1371 "awkgram.y" /* yacc.c:1646 */
++#line 1372 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3237 "awkgram.c" /* yacc.c:1646 */
-#line 3301 "awkgram.c" /* yacc.c:1646 */
++#line 3302 "awkgram.c" /* yacc.c:1646 */
break;
case 118:
- #line 1311 "awkgram.y" /* yacc.c:1646 */
-#line 1376 "awkgram.y" /* yacc.c:1646 */
++#line 1377 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3243 "awkgram.c" /* yacc.c:1646 */
-#line 3307 "awkgram.c" /* yacc.c:1646 */
++#line 3308 "awkgram.c" /* yacc.c:1646 */
break;
case 119:
- #line 1313 "awkgram.y" /* yacc.c:1646 */
-#line 1378 "awkgram.y" /* yacc.c:1646 */
++#line 1379 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3249 "awkgram.c" /* yacc.c:1646 */
-#line 3313 "awkgram.c" /* yacc.c:1646 */
++#line 3314 "awkgram.c" /* yacc.c:1646 */
break;
case 120:
- #line 1315 "awkgram.y" /* yacc.c:1646 */
-#line 1380 "awkgram.y" /* yacc.c:1646 */
++#line 1381 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_assign_quotient;
(yyval) = (yyvsp[0]);
}
- #line 3258 "awkgram.c" /* yacc.c:1646 */
-#line 3322 "awkgram.c" /* yacc.c:1646 */
++#line 3323 "awkgram.c" /* yacc.c:1646 */
break;
case 121:
- #line 1323 "awkgram.y" /* yacc.c:1646 */
-#line 1388 "awkgram.y" /* yacc.c:1646 */
++#line 1389 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3264 "awkgram.c" /* yacc.c:1646 */
-#line 3328 "awkgram.c" /* yacc.c:1646 */
++#line 3329 "awkgram.c" /* yacc.c:1646 */
break;
case 122:
- #line 1325 "awkgram.y" /* yacc.c:1646 */
-#line 1390 "awkgram.y" /* yacc.c:1646 */
++#line 1391 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3270 "awkgram.c" /* yacc.c:1646 */
-#line 3334 "awkgram.c" /* yacc.c:1646 */
++#line 3335 "awkgram.c" /* yacc.c:1646 */
break;
case 123:
- #line 1330 "awkgram.y" /* yacc.c:1646 */
-#line 1395 "awkgram.y" /* yacc.c:1646 */
++#line 1396 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3276 "awkgram.c" /* yacc.c:1646 */
-#line 3340 "awkgram.c" /* yacc.c:1646 */
++#line 3341 "awkgram.c" /* yacc.c:1646 */
break;
case 124:
- #line 1332 "awkgram.y" /* yacc.c:1646 */
-#line 1397 "awkgram.y" /* yacc.c:1646 */
++#line 1398 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3282 "awkgram.c" /* yacc.c:1646 */
-#line 3346 "awkgram.c" /* yacc.c:1646 */
++#line 3347 "awkgram.c" /* yacc.c:1646 */
break;
case 125:
- #line 1337 "awkgram.y" /* yacc.c:1646 */
-#line 1402 "awkgram.y" /* yacc.c:1646 */
++#line 1403 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3288 "awkgram.c" /* yacc.c:1646 */
-#line 3352 "awkgram.c" /* yacc.c:1646 */
++#line 3353 "awkgram.c" /* yacc.c:1646 */
break;
case 126:
- #line 1339 "awkgram.y" /* yacc.c:1646 */
-#line 1404 "awkgram.y" /* yacc.c:1646 */
++#line 1405 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3294 "awkgram.c" /* yacc.c:1646 */
-#line 3358 "awkgram.c" /* yacc.c:1646 */
++#line 3359 "awkgram.c" /* yacc.c:1646 */
break;
case 127:
- #line 1341 "awkgram.y" /* yacc.c:1646 */
-#line 1406 "awkgram.y" /* yacc.c:1646 */
++#line 1407 "awkgram.y" /* yacc.c:1646 */
{
int count = 2;
bool is_simple_var = false;
@@@ -3341,47 -3405,47 +3406,47 @@@
max_args = count;
}
}
- #line 3345 "awkgram.c" /* yacc.c:1646 */
-#line 3409 "awkgram.c" /* yacc.c:1646 */
++#line 3410 "awkgram.c" /* yacc.c:1646 */
break;
case 129:
- #line 1393 "awkgram.y" /* yacc.c:1646 */
-#line 1458 "awkgram.y" /* yacc.c:1646 */
++#line 1459 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3351 "awkgram.c" /* yacc.c:1646 */
-#line 3415 "awkgram.c" /* yacc.c:1646 */
++#line 3416 "awkgram.c" /* yacc.c:1646 */
break;
case 130:
- #line 1395 "awkgram.y" /* yacc.c:1646 */
-#line 1460 "awkgram.y" /* yacc.c:1646 */
++#line 1461 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3357 "awkgram.c" /* yacc.c:1646 */
-#line 3421 "awkgram.c" /* yacc.c:1646 */
++#line 3422 "awkgram.c" /* yacc.c:1646 */
break;
case 131:
- #line 1397 "awkgram.y" /* yacc.c:1646 */
-#line 1462 "awkgram.y" /* yacc.c:1646 */
++#line 1463 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3363 "awkgram.c" /* yacc.c:1646 */
-#line 3427 "awkgram.c" /* yacc.c:1646 */
++#line 3428 "awkgram.c" /* yacc.c:1646 */
break;
case 132:
- #line 1399 "awkgram.y" /* yacc.c:1646 */
-#line 1464 "awkgram.y" /* yacc.c:1646 */
++#line 1465 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3369 "awkgram.c" /* yacc.c:1646 */
-#line 3433 "awkgram.c" /* yacc.c:1646 */
++#line 3434 "awkgram.c" /* yacc.c:1646 */
break;
case 133:
- #line 1401 "awkgram.y" /* yacc.c:1646 */
-#line 1466 "awkgram.y" /* yacc.c:1646 */
++#line 1467 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3375 "awkgram.c" /* yacc.c:1646 */
-#line 3439 "awkgram.c" /* yacc.c:1646 */
++#line 3440 "awkgram.c" /* yacc.c:1646 */
break;
case 134:
- #line 1403 "awkgram.y" /* yacc.c:1646 */
-#line 1468 "awkgram.y" /* yacc.c:1646 */
++#line 1469 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3381 "awkgram.c" /* yacc.c:1646 */
-#line 3445 "awkgram.c" /* yacc.c:1646 */
++#line 3446 "awkgram.c" /* yacc.c:1646 */
break;
case 135:
- #line 1405 "awkgram.y" /* yacc.c:1646 */
-#line 1470 "awkgram.y" /* yacc.c:1646 */
++#line 1471 "awkgram.y" /* yacc.c:1646 */
{
/*
* In BEGINFILE/ENDFILE, allow `getline [var] < file'
@@@ -3395,29 -3459,29 +3460,29 @@@
_("non-redirected `getline' undefined inside
END action"));
(yyval) = mk_getline((yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]),
redirect_input);
}
- #line 3399 "awkgram.c" /* yacc.c:1646 */
-#line 3463 "awkgram.c" /* yacc.c:1646 */
++#line 3464 "awkgram.c" /* yacc.c:1646 */
break;
case 136:
- #line 1419 "awkgram.y" /* yacc.c:1646 */
-#line 1484 "awkgram.y" /* yacc.c:1646 */
++#line 1485 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postincrement;
(yyval) = mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
- #line 3408 "awkgram.c" /* yacc.c:1646 */
-#line 3472 "awkgram.c" /* yacc.c:1646 */
++#line 3473 "awkgram.c" /* yacc.c:1646 */
break;
case 137:
- #line 1424 "awkgram.y" /* yacc.c:1646 */
-#line 1489 "awkgram.y" /* yacc.c:1646 */
++#line 1490 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postdecrement;
(yyval) = mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
- #line 3417 "awkgram.c" /* yacc.c:1646 */
-#line 3481 "awkgram.c" /* yacc.c:1646 */
++#line 3482 "awkgram.c" /* yacc.c:1646 */
break;
case 138:
- #line 1429 "awkgram.y" /* yacc.c:1646 */
-#line 1494 "awkgram.y" /* yacc.c:1646 */
++#line 1495 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint_old) {
warning_ln((yyvsp[-1])->source_line,
@@@ -3437,64 -3501,64 +3502,64 @@@
(yyval) = list_append(list_merge(t, (yyvsp[0])),
(yyvsp[-1]));
}
}
- #line 3441 "awkgram.c" /* yacc.c:1646 */
-#line 3505 "awkgram.c" /* yacc.c:1646 */
++#line 3506 "awkgram.c" /* yacc.c:1646 */
break;
case 139:
- #line 1454 "awkgram.y" /* yacc.c:1646 */
-#line 1519 "awkgram.y" /* yacc.c:1646 */
++#line 1520 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_getline((yyvsp[-1]), (yyvsp[0]), (yyvsp[-3]),
(yyvsp[-2])->redir_type);
bcfree((yyvsp[-2]));
}
- #line 3450 "awkgram.c" /* yacc.c:1646 */
-#line 3514 "awkgram.c" /* yacc.c:1646 */
++#line 3515 "awkgram.c" /* yacc.c:1646 */
break;
case 140:
- #line 1460 "awkgram.y" /* yacc.c:1646 */
-#line 1525 "awkgram.y" /* yacc.c:1646 */
++#line 1526 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3456 "awkgram.c" /* yacc.c:1646 */
-#line 3520 "awkgram.c" /* yacc.c:1646 */
++#line 3521 "awkgram.c" /* yacc.c:1646 */
break;
case 141:
- #line 1462 "awkgram.y" /* yacc.c:1646 */
-#line 1527 "awkgram.y" /* yacc.c:1646 */
++#line 1528 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3462 "awkgram.c" /* yacc.c:1646 */
-#line 3526 "awkgram.c" /* yacc.c:1646 */
++#line 3527 "awkgram.c" /* yacc.c:1646 */
break;
case 142:
- #line 1464 "awkgram.y" /* yacc.c:1646 */
-#line 1529 "awkgram.y" /* yacc.c:1646 */
++#line 1530 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3468 "awkgram.c" /* yacc.c:1646 */
-#line 3532 "awkgram.c" /* yacc.c:1646 */
++#line 3533 "awkgram.c" /* yacc.c:1646 */
break;
case 143:
- #line 1466 "awkgram.y" /* yacc.c:1646 */
-#line 1531 "awkgram.y" /* yacc.c:1646 */
++#line 1532 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3474 "awkgram.c" /* yacc.c:1646 */
-#line 3538 "awkgram.c" /* yacc.c:1646 */
++#line 3539 "awkgram.c" /* yacc.c:1646 */
break;
case 144:
- #line 1468 "awkgram.y" /* yacc.c:1646 */
-#line 1533 "awkgram.y" /* yacc.c:1646 */
++#line 1534 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3480 "awkgram.c" /* yacc.c:1646 */
-#line 3544 "awkgram.c" /* yacc.c:1646 */
++#line 3545 "awkgram.c" /* yacc.c:1646 */
break;
case 145:
- #line 1470 "awkgram.y" /* yacc.c:1646 */
-#line 1535 "awkgram.y" /* yacc.c:1646 */
++#line 1536 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3486 "awkgram.c" /* yacc.c:1646 */
-#line 3550 "awkgram.c" /* yacc.c:1646 */
++#line 3551 "awkgram.c" /* yacc.c:1646 */
break;
case 146:
- #line 1475 "awkgram.y" /* yacc.c:1646 */
-#line 1540 "awkgram.y" /* yacc.c:1646 */
++#line 1541 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_create((yyvsp[0]));
}
- #line 3494 "awkgram.c" /* yacc.c:1646 */
-#line 3558 "awkgram.c" /* yacc.c:1646 */
++#line 3559 "awkgram.c" /* yacc.c:1646 */
break;
case 147:
- #line 1479 "awkgram.y" /* yacc.c:1646 */
-#line 1544 "awkgram.y" /* yacc.c:1646 */
++#line 1545 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[0])->opcode == Op_match_rec) {
(yyvsp[0])->opcode = Op_nomatch;
@@@ -3526,37 -3590,37 +3591,37 @@@
}
}
}
- #line 3530 "awkgram.c" /* yacc.c:1646 */
-#line 3594 "awkgram.c" /* yacc.c:1646 */
++#line 3595 "awkgram.c" /* yacc.c:1646 */
break;
case 148:
- #line 1511 "awkgram.y" /* yacc.c:1646 */
-#line 1576 "awkgram.y" /* yacc.c:1646 */
++#line 1577 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3536 "awkgram.c" /* yacc.c:1646 */
-#line 3600 "awkgram.c" /* yacc.c:1646 */
++#line 3601 "awkgram.c" /* yacc.c:1646 */
break;
case 149:
- #line 1513 "awkgram.y" /* yacc.c:1646 */
-#line 1578 "awkgram.y" /* yacc.c:1646 */
++#line 1579 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = snode((yyvsp[-1]), (yyvsp[-3]));
if ((yyval) == NULL)
YYABORT;
}
- #line 3546 "awkgram.c" /* yacc.c:1646 */
-#line 3610 "awkgram.c" /* yacc.c:1646 */
++#line 3611 "awkgram.c" /* yacc.c:1646 */
break;
case 150:
- #line 1519 "awkgram.y" /* yacc.c:1646 */
-#line 1584 "awkgram.y" /* yacc.c:1646 */
++#line 1585 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = snode((yyvsp[-1]), (yyvsp[-3]));
if ((yyval) == NULL)
YYABORT;
}
- #line 3556 "awkgram.c" /* yacc.c:1646 */
-#line 3620 "awkgram.c" /* yacc.c:1646 */
++#line 3621 "awkgram.c" /* yacc.c:1646 */
break;
case 151:
- #line 1525 "awkgram.y" /* yacc.c:1646 */
-#line 1590 "awkgram.y" /* yacc.c:1646 */
++#line 1591 "awkgram.y" /* yacc.c:1646 */
{
static bool warned = false;
@@@ -3569,45 -3633,45 +3634,45 @@@
if ((yyval) == NULL)
YYABORT;
}
- #line 3573 "awkgram.c" /* yacc.c:1646 */
-#line 3637 "awkgram.c" /* yacc.c:1646 */
++#line 3638 "awkgram.c" /* yacc.c:1646 */
break;
case 154:
- #line 1540 "awkgram.y" /* yacc.c:1646 */
-#line 1605 "awkgram.y" /* yacc.c:1646 */
++#line 1606 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[-1])->opcode = Op_preincrement;
(yyval) = mk_assignment((yyvsp[0]), NULL, (yyvsp[-1]));
}
- #line 3582 "awkgram.c" /* yacc.c:1646 */
-#line 3646 "awkgram.c" /* yacc.c:1646 */
++#line 3647 "awkgram.c" /* yacc.c:1646 */
break;
case 155:
- #line 1545 "awkgram.y" /* yacc.c:1646 */
-#line 1610 "awkgram.y" /* yacc.c:1646 */
++#line 1611 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[-1])->opcode = Op_predecrement;
(yyval) = mk_assignment((yyvsp[0]), NULL, (yyvsp[-1]));
}
- #line 3591 "awkgram.c" /* yacc.c:1646 */
-#line 3655 "awkgram.c" /* yacc.c:1646 */
++#line 3656 "awkgram.c" /* yacc.c:1646 */
break;
case 156:
- #line 1550 "awkgram.y" /* yacc.c:1646 */
-#line 1615 "awkgram.y" /* yacc.c:1646 */
++#line 1616 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_create((yyvsp[0]));
}
- #line 3599 "awkgram.c" /* yacc.c:1646 */
-#line 3663 "awkgram.c" /* yacc.c:1646 */
++#line 3664 "awkgram.c" /* yacc.c:1646 */
break;
case 157:
- #line 1554 "awkgram.y" /* yacc.c:1646 */
-#line 1619 "awkgram.y" /* yacc.c:1646 */
++#line 1620 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_create((yyvsp[0]));
}
- #line 3607 "awkgram.c" /* yacc.c:1646 */
-#line 3671 "awkgram.c" /* yacc.c:1646 */
++#line 3672 "awkgram.c" /* yacc.c:1646 */
break;
case 158:
- #line 1558 "awkgram.y" /* yacc.c:1646 */
-#line 1623 "awkgram.y" /* yacc.c:1646 */
++#line 1624 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[0])->lasti->opcode == Op_push_i
&& ((yyvsp[0])->lasti->memory->flags & (STRCUR|STRING))
== 0
@@@ -3622,11 -3686,11 +3687,11 @@@
(yyval) = list_append((yyvsp[0]), (yyvsp[-1]));
}
}
- #line 3626 "awkgram.c" /* yacc.c:1646 */
-#line 3690 "awkgram.c" /* yacc.c:1646 */
++#line 3691 "awkgram.c" /* yacc.c:1646 */
break;
case 159:
- #line 1573 "awkgram.y" /* yacc.c:1646 */
-#line 1638 "awkgram.y" /* yacc.c:1646 */
++#line 1639 "awkgram.y" /* yacc.c:1646 */
{
/*
* was: $$ = $2
@@@ -3636,20 -3700,20 +3701,20 @@@
(yyvsp[-1])->memory = make_number(0.0);
(yyval) = list_append((yyvsp[0]), (yyvsp[-1]));
}
- #line 3640 "awkgram.c" /* yacc.c:1646 */
-#line 3704 "awkgram.c" /* yacc.c:1646 */
++#line 3705 "awkgram.c" /* yacc.c:1646 */
break;
case 160:
- #line 1586 "awkgram.y" /* yacc.c:1646 */
-#line 1651 "awkgram.y" /* yacc.c:1646 */
++#line 1652 "awkgram.y" /* yacc.c:1646 */
{
func_use((yyvsp[0])->lasti->func_name, FUNC_USE);
(yyval) = (yyvsp[0]);
}
- #line 3649 "awkgram.c" /* yacc.c:1646 */
-#line 3713 "awkgram.c" /* yacc.c:1646 */
++#line 3714 "awkgram.c" /* yacc.c:1646 */
break;
case 161:
- #line 1591 "awkgram.y" /* yacc.c:1646 */
-#line 1656 "awkgram.y" /* yacc.c:1646 */
++#line 1657 "awkgram.y" /* yacc.c:1646 */
{
/* indirect function call */
INSTRUCTION *f, *t;
@@@ -3682,11 -3746,11 +3747,11 @@@
(yyval) = list_prepend((yyvsp[0]), t);
}
- #line 3686 "awkgram.c" /* yacc.c:1646 */
-#line 3750 "awkgram.c" /* yacc.c:1646 */
++#line 3751 "awkgram.c" /* yacc.c:1646 */
break;
case 162:
- #line 1627 "awkgram.y" /* yacc.c:1646 */
-#line 1692 "awkgram.y" /* yacc.c:1646 */
++#line 1693 "awkgram.y" /* yacc.c:1646 */
{
param_sanity((yyvsp[-1]));
(yyvsp[-3])->opcode = Op_func_call;
@@@ -3700,49 -3764,49 +3765,49 @@@
(yyval) = list_append(t, (yyvsp[-3]));
}
}
- #line 3704 "awkgram.c" /* yacc.c:1646 */
-#line 3768 "awkgram.c" /* yacc.c:1646 */
++#line 3769 "awkgram.c" /* yacc.c:1646 */
break;
case 163:
- #line 1644 "awkgram.y" /* yacc.c:1646 */
-#line 1709 "awkgram.y" /* yacc.c:1646 */
++#line 1710 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3710 "awkgram.c" /* yacc.c:1646 */
-#line 3774 "awkgram.c" /* yacc.c:1646 */
++#line 3775 "awkgram.c" /* yacc.c:1646 */
break;
case 164:
- #line 1646 "awkgram.y" /* yacc.c:1646 */
-#line 1711 "awkgram.y" /* yacc.c:1646 */
++#line 1712 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3716 "awkgram.c" /* yacc.c:1646 */
-#line 3780 "awkgram.c" /* yacc.c:1646 */
++#line 3781 "awkgram.c" /* yacc.c:1646 */
break;
case 165:
- #line 1651 "awkgram.y" /* yacc.c:1646 */
-#line 1716 "awkgram.y" /* yacc.c:1646 */
++#line 1717 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3722 "awkgram.c" /* yacc.c:1646 */
-#line 3786 "awkgram.c" /* yacc.c:1646 */
++#line 3787 "awkgram.c" /* yacc.c:1646 */
break;
case 166:
- #line 1653 "awkgram.y" /* yacc.c:1646 */
-#line 1718 "awkgram.y" /* yacc.c:1646 */
++#line 1719 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3728 "awkgram.c" /* yacc.c:1646 */
-#line 3792 "awkgram.c" /* yacc.c:1646 */
++#line 3793 "awkgram.c" /* yacc.c:1646 */
break;
case 167:
- #line 1658 "awkgram.y" /* yacc.c:1646 */
-#line 1723 "awkgram.y" /* yacc.c:1646 */
++#line 1724 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3734 "awkgram.c" /* yacc.c:1646 */
-#line 3798 "awkgram.c" /* yacc.c:1646 */
++#line 3799 "awkgram.c" /* yacc.c:1646 */
break;
case 168:
- #line 1660 "awkgram.y" /* yacc.c:1646 */
-#line 1725 "awkgram.y" /* yacc.c:1646 */
++#line 1726 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
- #line 3742 "awkgram.c" /* yacc.c:1646 */
-#line 3806 "awkgram.c" /* yacc.c:1646 */
++#line 3807 "awkgram.c" /* yacc.c:1646 */
break;
case 169:
- #line 1667 "awkgram.y" /* yacc.c:1646 */
-#line 1732 "awkgram.y" /* yacc.c:1646 */
++#line 1733 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *ip = (yyvsp[0])->lasti;
int count = ip->sub_count; /* # of SUBSEP-seperated
expressions */
@@@ -3756,11 -3820,11 +3821,11 @@@
sub_counter++; /* count # of dimensions */
(yyval) = (yyvsp[0]);
}
- #line 3760 "awkgram.c" /* yacc.c:1646 */
-#line 3824 "awkgram.c" /* yacc.c:1646 */
++#line 3825 "awkgram.c" /* yacc.c:1646 */
break;
case 170:
- #line 1684 "awkgram.y" /* yacc.c:1646 */
-#line 1749 "awkgram.y" /* yacc.c:1646 */
++#line 1750 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *t = (yyvsp[-1]);
if ((yyvsp[-1]) == NULL) {
@@@ -3774,31 -3838,31 +3839,31 @@@
(yyvsp[0])->sub_count = count_expressions(&t, false);
(yyval) = list_append(t, (yyvsp[0]));
}
- #line 3778 "awkgram.c" /* yacc.c:1646 */
-#line 3842 "awkgram.c" /* yacc.c:1646 */
++#line 3843 "awkgram.c" /* yacc.c:1646 */
break;
case 171:
- #line 1701 "awkgram.y" /* yacc.c:1646 */
-#line 1766 "awkgram.y" /* yacc.c:1646 */
++#line 1767 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3784 "awkgram.c" /* yacc.c:1646 */
-#line 3848 "awkgram.c" /* yacc.c:1646 */
++#line 3849 "awkgram.c" /* yacc.c:1646 */
break;
case 172:
- #line 1703 "awkgram.y" /* yacc.c:1646 */
-#line 1768 "awkgram.y" /* yacc.c:1646 */
++#line 1769 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
- #line 3792 "awkgram.c" /* yacc.c:1646 */
-#line 3856 "awkgram.c" /* yacc.c:1646 */
++#line 3857 "awkgram.c" /* yacc.c:1646 */
break;
case 173:
- #line 1710 "awkgram.y" /* yacc.c:1646 */
-#line 1775 "awkgram.y" /* yacc.c:1646 */
++#line 1776 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3798 "awkgram.c" /* yacc.c:1646 */
-#line 3862 "awkgram.c" /* yacc.c:1646 */
++#line 3863 "awkgram.c" /* yacc.c:1646 */
break;
case 174:
- #line 1715 "awkgram.y" /* yacc.c:1646 */
-#line 1780 "awkgram.y" /* yacc.c:1646 */
++#line 1781 "awkgram.y" /* yacc.c:1646 */
{
char *var_name = (yyvsp[0])->lextok;
@@@ -3806,22 -3870,22 +3871,22 @@@
(yyvsp[0])->memory = variable((yyvsp[0])->source_line,
var_name, Node_var_new);
(yyval) = list_create((yyvsp[0]));
}
- #line 3810 "awkgram.c" /* yacc.c:1646 */
-#line 3874 "awkgram.c" /* yacc.c:1646 */
++#line 3875 "awkgram.c" /* yacc.c:1646 */
break;
case 175:
- #line 1723 "awkgram.y" /* yacc.c:1646 */
-#line 1788 "awkgram.y" /* yacc.c:1646 */
++#line 1789 "awkgram.y" /* yacc.c:1646 */
{
char *arr = (yyvsp[-1])->lextok;
(yyvsp[-1])->memory = variable((yyvsp[-1])->source_line, arr,
Node_var_new);
(yyvsp[-1])->opcode = Op_push_array;
(yyval) = list_prepend((yyvsp[0]), (yyvsp[-1]));
}
- #line 3821 "awkgram.c" /* yacc.c:1646 */
-#line 3885 "awkgram.c" /* yacc.c:1646 */
++#line 3886 "awkgram.c" /* yacc.c:1646 */
break;
case 176:
- #line 1733 "awkgram.y" /* yacc.c:1646 */
-#line 1798 "awkgram.y" /* yacc.c:1646 */
++#line 1799 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *ip = (yyvsp[0])->nexti;
if (ip->opcode == Op_push
@@@ -3833,73 -3897,73 +3898,73 @@@
} else
(yyval) = (yyvsp[0]);
}
- #line 3837 "awkgram.c" /* yacc.c:1646 */
-#line 3901 "awkgram.c" /* yacc.c:1646 */
++#line 3902 "awkgram.c" /* yacc.c:1646 */
break;
case 177:
- #line 1745 "awkgram.y" /* yacc.c:1646 */
-#line 1810 "awkgram.y" /* yacc.c:1646 */
++#line 1811 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_append((yyvsp[-1]), (yyvsp[-2]));
if ((yyvsp[0]) != NULL)
mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
- #line 3847 "awkgram.c" /* yacc.c:1646 */
-#line 3911 "awkgram.c" /* yacc.c:1646 */
++#line 3912 "awkgram.c" /* yacc.c:1646 */
break;
case 178:
- #line 1754 "awkgram.y" /* yacc.c:1646 */
-#line 1819 "awkgram.y" /* yacc.c:1646 */
++#line 1820 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postincrement;
}
- #line 3855 "awkgram.c" /* yacc.c:1646 */
-#line 3919 "awkgram.c" /* yacc.c:1646 */
++#line 3920 "awkgram.c" /* yacc.c:1646 */
break;
case 179:
- #line 1758 "awkgram.y" /* yacc.c:1646 */
-#line 1823 "awkgram.y" /* yacc.c:1646 */
++#line 1824 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postdecrement;
}
- #line 3863 "awkgram.c" /* yacc.c:1646 */
-#line 3927 "awkgram.c" /* yacc.c:1646 */
++#line 3928 "awkgram.c" /* yacc.c:1646 */
break;
case 180:
- #line 1761 "awkgram.y" /* yacc.c:1646 */
-#line 1826 "awkgram.y" /* yacc.c:1646 */
++#line 1827 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3869 "awkgram.c" /* yacc.c:1646 */
-#line 3933 "awkgram.c" /* yacc.c:1646 */
++#line 3934 "awkgram.c" /* yacc.c:1646 */
break;
case 182:
- #line 1769 "awkgram.y" /* yacc.c:1646 */
-#line 1834 "awkgram.y" /* yacc.c:1646 */
++#line 1835 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3875 "awkgram.c" /* yacc.c:1646 */
-#line 3939 "awkgram.c" /* yacc.c:1646 */
++#line 3940 "awkgram.c" /* yacc.c:1646 */
break;
case 183:
- #line 1773 "awkgram.y" /* yacc.c:1646 */
-#line 1838 "awkgram.y" /* yacc.c:1646 */
++#line 1839 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3881 "awkgram.c" /* yacc.c:1646 */
-#line 3945 "awkgram.c" /* yacc.c:1646 */
++#line 3946 "awkgram.c" /* yacc.c:1646 */
break;
case 186:
- #line 1782 "awkgram.y" /* yacc.c:1646 */
-#line 1847 "awkgram.y" /* yacc.c:1646 */
++#line 1848 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3887 "awkgram.c" /* yacc.c:1646 */
-#line 3951 "awkgram.c" /* yacc.c:1646 */
++#line 3952 "awkgram.c" /* yacc.c:1646 */
break;
case 187:
- #line 1786 "awkgram.y" /* yacc.c:1646 */
-#line 1851 "awkgram.y" /* yacc.c:1646 */
++#line 1852 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); yyerrok; }
- #line 3893 "awkgram.c" /* yacc.c:1646 */
-#line 3957 "awkgram.c" /* yacc.c:1646 */
++#line 3958 "awkgram.c" /* yacc.c:1646 */
break;
case 188:
- #line 1790 "awkgram.y" /* yacc.c:1646 */
-#line 1855 "awkgram.y" /* yacc.c:1646 */
++#line 1856 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3899 "awkgram.c" /* yacc.c:1646 */
-#line 3963 "awkgram.c" /* yacc.c:1646 */
++#line 3964 "awkgram.c" /* yacc.c:1646 */
break;
- #line 3903 "awkgram.c" /* yacc.c:1646 */
-#line 3967 "awkgram.c" /* yacc.c:1646 */
++#line 3968 "awkgram.c" /* yacc.c:1646 */
default: break;
}
/* User semantic actions sometimes alter yychar, and that requires
@@@ -4127,7 -4191,7 +4192,7 @@@ yyreturn
#endif
return yyresult;
}
- #line 1792 "awkgram.y" /* yacc.c:1906 */
-#line 1857 "awkgram.y" /* yacc.c:1906 */
++#line 1858 "awkgram.y" /* yacc.c:1906 */
struct token {
diff --cc awkgram.y
index e5b663d,64ed3c5..5ff334e
--- a/awkgram.y
+++ b/awkgram.y
@@@ -441,20 -487,39 +487,40 @@@ a_slas
statements
: /* empty */
- { $$ = NULL; }
+ {
+ if (comment != NULL) {
+ $$ = list_create(comment);
+ comment = NULL;
+ } else $$ = NULL;
+ }
| statements statement
{
- if ($2 == NULL)
- $$ = $1;
- else {
+ if ($2 == NULL) {
+ if (comment == NULL)
+ $$ = $1;
+ else {
+ $$ = list_append($1, comment);
+ comment = NULL;
+ }
+ } else {
add_lint($2, LINT_no_effect);
- if ($1 == NULL)
- $$ = $2;
- else
+ if ($1 == NULL) {
+ if (comment == NULL)
+ $$ = $2;
+ else {
+ $$ = list_append($2, comment);
+ comment = NULL;
+ }
+ } else {
+ if (comment != NULL) {
+ list_append($2, comment);
+ comment = NULL;
+ }
$$ = list_merge($1, $2);
+ }
}
+ list_append($$, instruction(Op_end_stmt));
- yyerrok;
+ yyerrok;
}
| statements error
{ $$ = NULL; }
diff --cc eval.c
index 23c4a2d,a9ff3b5..fd83f63
--- a/eval.c
+++ b/eval.c
@@@ -362,9 -362,9 +362,10 @@@ static struct optypetab
{ "Op_after_beginfile", NULL },
{ "Op_after_endfile", NULL },
{ "Op_func", NULL },
+ { "Op_comment", NULL },
{ "Op_exec_count", NULL },
{ "Op_breakpoint", NULL },
+ { "Op_end_stmt", NULL },
{ "Op_lint", NULL },
{ "Op_atexit", NULL },
{ "Op_stop", NULL },
diff --cc interpret.h
index 8df4bb1,23ce0c1..8292da6
--- a/interpret.h
+++ b/interpret.h
@@@ -1390,15 -1390,9 +1390,16 @@@ match_re
case Op_K_if:
case Op_K_else:
case Op_cond_exp:
+ case Op_comment:
break;
+ case Op_end_stmt:
+ if (async_pending) {
+ async_pending = false;
+ run_async_handlers();
+ }
+ break;
+
default:
fatal(_("Sorry, don't know how to interpret `%s'"),
opcode2str(op));
}
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=419ab94b01af48bd2f346a47f5611be4f89e6f74
commit 419ab94b01af48bd2f346a47f5611be4f89e6f74
Merge: 3552b18 dc51009
Author: Arnold D. Robbins <address@hidden>
Date: Tue Sep 16 20:32:35 2014 +0300
Merge branch 'master' into async-events
diff --cc awkgram.c
index d57a80b,4369666..314313e
--- a/awkgram.c
+++ b/awkgram.c
@@@ -653,25 -651,25 +651,25 @@@ static const yytype_uint8 yytranslate[
/* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
static const yytype_uint16 yyrline[] =
{
- 0, 200, 200, 202, 207, 208, 214, 226, 230, 241,
- 247, 252, 260, 268, 270, 275, 283, 285, 291, 292,
- 294, 320, 331, 342, 348, 357, 367, 369, 371, 377,
- 382, 383, 387, 406, 405, 439, 441, 446, 447, 461,
- 466, 467, 471, 473, 475, 482, 572, 614, 656, 769,
- 776, 783, 793, 802, 811, 820, 831, 847, 846, 870,
- 882, 882, 980, 980, 1013, 1043, 1049, 1050, 1056, 1057,
- 1064, 1069, 1081, 1095, 1097, 1105, 1110, 1112, 1120, 1122,
- 1131, 1132, 1140, 1145, 1145, 1156, 1160, 1168, 1169, 1172,
- 1174, 1179, 1180, 1189, 1190, 1195, 1200, 1206, 1208, 1210,
- 1217, 1218, 1224, 1225, 1230, 1232, 1237, 1239, 1247, 1252,
- 1261, 1268, 1270, 1272, 1288, 1298, 1305, 1307, 1312, 1314,
- 1316, 1324, 1326, 1331, 1333, 1338, 1340, 1342, 1392, 1394,
- 1396, 1398, 1400, 1402, 1404, 1406, 1429, 1434, 1439, 1464,
- 1470, 1472, 1474, 1476, 1478, 1480, 1485, 1489, 1521, 1523,
- 1529, 1535, 1548, 1549, 1550, 1555, 1560, 1564, 1568, 1583,
- 1596, 1601, 1637, 1655, 1656, 1662, 1663, 1668, 1670, 1677,
- 1694, 1711, 1713, 1720, 1725, 1733, 1743, 1755, 1764, 1768,
- 1772, 1776, 1780, 1784, 1787, 1789, 1793, 1797, 1801
+ 0, 198, 198, 200, 205, 206, 212, 224, 228, 239,
+ 245, 250, 258, 266, 268, 273, 281, 283, 289, 290,
+ 292, 318, 329, 340, 346, 355, 365, 367, 369, 375,
- 380, 381, 385, 404, 403, 437, 439, 444, 445, 458,
- 463, 464, 468, 470, 472, 479, 569, 611, 653, 766,
- 773, 780, 790, 799, 808, 817, 828, 844, 843, 867,
- 879, 879, 977, 977, 1010, 1040, 1046, 1047, 1053, 1054,
- 1061, 1066, 1078, 1092, 1094, 1102, 1107, 1109, 1117, 1119,
- 1128, 1129, 1137, 1142, 1142, 1153, 1157, 1165, 1166, 1169,
- 1171, 1176, 1177, 1186, 1187, 1192, 1197, 1203, 1205, 1207,
- 1214, 1215, 1221, 1222, 1227, 1229, 1234, 1236, 1244, 1249,
- 1258, 1265, 1267, 1269, 1285, 1295, 1302, 1304, 1309, 1311,
- 1313, 1321, 1323, 1328, 1330, 1335, 1337, 1339, 1389, 1391,
- 1393, 1395, 1397, 1399, 1401, 1403, 1417, 1422, 1427, 1452,
- 1458, 1460, 1462, 1464, 1466, 1468, 1473, 1477, 1509, 1511,
- 1517, 1523, 1536, 1537, 1538, 1543, 1548, 1552, 1556, 1571,
- 1584, 1589, 1625, 1643, 1644, 1650, 1651, 1656, 1658, 1665,
- 1682, 1699, 1701, 1708, 1713, 1721, 1731, 1743, 1752, 1756,
- 1760, 1764, 1768, 1772, 1775, 1777, 1781, 1785, 1789
++ 380, 381, 385, 404, 403, 437, 439, 444, 445, 459,
++ 464, 465, 469, 471, 473, 480, 570, 612, 654, 767,
++ 774, 781, 791, 800, 809, 818, 829, 845, 844, 868,
++ 880, 880, 978, 978, 1011, 1041, 1047, 1048, 1054, 1055,
++ 1062, 1067, 1079, 1093, 1095, 1103, 1108, 1110, 1118, 1120,
++ 1129, 1130, 1138, 1143, 1143, 1154, 1158, 1166, 1167, 1170,
++ 1172, 1177, 1178, 1187, 1188, 1193, 1198, 1204, 1206, 1208,
++ 1215, 1216, 1222, 1223, 1228, 1230, 1235, 1237, 1245, 1250,
++ 1259, 1266, 1268, 1270, 1286, 1296, 1303, 1305, 1310, 1312,
++ 1314, 1322, 1324, 1329, 1331, 1336, 1338, 1340, 1390, 1392,
++ 1394, 1396, 1398, 1400, 1402, 1404, 1418, 1423, 1428, 1453,
++ 1459, 1461, 1463, 1465, 1467, 1469, 1474, 1478, 1510, 1512,
++ 1518, 1524, 1537, 1538, 1539, 1544, 1549, 1553, 1557, 1572,
++ 1585, 1590, 1626, 1644, 1645, 1651, 1652, 1657, 1659, 1666,
++ 1683, 1700, 1702, 1709, 1714, 1722, 1732, 1744, 1753, 1757,
++ 1761, 1765, 1769, 1773, 1776, 1778, 1782, 1786, 1790
};
#endif
@@@ -2183,43 -2181,42 +2181,43 @@@ yyreduce
else
(yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
+ list_append((yyval), instruction(Op_end_stmt));
yyerrok;
}
- #line 2190 "awkgram.c" /* yacc.c:1646 */
-#line 2187 "awkgram.c" /* yacc.c:1646 */
++#line 2188 "awkgram.c" /* yacc.c:1646 */
break;
case 39:
- #line 462 "awkgram.y" /* yacc.c:1646 */
-#line 459 "awkgram.y" /* yacc.c:1646 */
++#line 460 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2196 "awkgram.c" /* yacc.c:1646 */
-#line 2193 "awkgram.c" /* yacc.c:1646 */
++#line 2194 "awkgram.c" /* yacc.c:1646 */
break;
case 42:
- #line 472 "awkgram.y" /* yacc.c:1646 */
-#line 469 "awkgram.y" /* yacc.c:1646 */
++#line 470 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2202 "awkgram.c" /* yacc.c:1646 */
-#line 2199 "awkgram.c" /* yacc.c:1646 */
++#line 2200 "awkgram.c" /* yacc.c:1646 */
break;
case 43:
- #line 474 "awkgram.y" /* yacc.c:1646 */
-#line 471 "awkgram.y" /* yacc.c:1646 */
++#line 472 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 2208 "awkgram.c" /* yacc.c:1646 */
-#line 2205 "awkgram.c" /* yacc.c:1646 */
++#line 2206 "awkgram.c" /* yacc.c:1646 */
break;
case 44:
- #line 476 "awkgram.y" /* yacc.c:1646 */
-#line 473 "awkgram.y" /* yacc.c:1646 */
++#line 474 "awkgram.y" /* yacc.c:1646 */
{
if (do_pretty_print)
(yyval) = list_prepend((yyvsp[0]),
instruction(Op_exec_count));
else
(yyval) = (yyvsp[0]);
}
- #line 2219 "awkgram.c" /* yacc.c:1646 */
-#line 2216 "awkgram.c" /* yacc.c:1646 */
++#line 2217 "awkgram.c" /* yacc.c:1646 */
break;
case 45:
- #line 483 "awkgram.y" /* yacc.c:1646 */
-#line 480 "awkgram.y" /* yacc.c:1646 */
++#line 481 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *dflt, *curr = NULL, *cexp, *cstmt;
INSTRUCTION *ip, *nextc, *tbreak;
@@@ -2309,11 -2306,11 +2307,11 @@@
break_allowed--;
fix_break_continue(ip, tbreak, NULL);
}
- #line 2313 "awkgram.c" /* yacc.c:1646 */
-#line 2310 "awkgram.c" /* yacc.c:1646 */
++#line 2311 "awkgram.c" /* yacc.c:1646 */
break;
case 46:
- #line 573 "awkgram.y" /* yacc.c:1646 */
-#line 570 "awkgram.y" /* yacc.c:1646 */
++#line 571 "awkgram.y" /* yacc.c:1646 */
{
/*
* -----------------
@@@ -2355,11 -2352,11 +2353,11 @@@
continue_allowed--;
fix_break_continue(ip, tbreak, tcont);
}
- #line 2359 "awkgram.c" /* yacc.c:1646 */
-#line 2356 "awkgram.c" /* yacc.c:1646 */
++#line 2357 "awkgram.c" /* yacc.c:1646 */
break;
case 47:
- #line 615 "awkgram.y" /* yacc.c:1646 */
-#line 612 "awkgram.y" /* yacc.c:1646 */
++#line 613 "awkgram.y" /* yacc.c:1646 */
{
/*
* -----------------
@@@ -2401,11 -2398,11 +2399,11 @@@
} /* else
$1 and $4 are NULLs */
}
- #line 2405 "awkgram.c" /* yacc.c:1646 */
-#line 2402 "awkgram.c" /* yacc.c:1646 */
++#line 2403 "awkgram.c" /* yacc.c:1646 */
break;
case 48:
- #line 657 "awkgram.y" /* yacc.c:1646 */
-#line 654 "awkgram.y" /* yacc.c:1646 */
++#line 655 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *ip;
char *var_name = (yyvsp[-5])->lextok;
@@@ -2518,44 -2515,44 +2516,44 @@@ regular_loop
break_allowed--;
continue_allowed--;
}
- #line 2522 "awkgram.c" /* yacc.c:1646 */
-#line 2519 "awkgram.c" /* yacc.c:1646 */
++#line 2520 "awkgram.c" /* yacc.c:1646 */
break;
case 49:
- #line 770 "awkgram.y" /* yacc.c:1646 */
-#line 767 "awkgram.y" /* yacc.c:1646 */
++#line 768 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_for_loop((yyvsp[-11]), (yyvsp[-9]), (yyvsp[-6]),
(yyvsp[-3]), (yyvsp[0]));
break_allowed--;
continue_allowed--;
}
- #line 2533 "awkgram.c" /* yacc.c:1646 */
-#line 2530 "awkgram.c" /* yacc.c:1646 */
++#line 2531 "awkgram.c" /* yacc.c:1646 */
break;
case 50:
- #line 777 "awkgram.y" /* yacc.c:1646 */
-#line 774 "awkgram.y" /* yacc.c:1646 */
++#line 775 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_for_loop((yyvsp[-10]), (yyvsp[-8]), (INSTRUCTION
*) NULL, (yyvsp[-3]), (yyvsp[0]));
break_allowed--;
continue_allowed--;
}
- #line 2544 "awkgram.c" /* yacc.c:1646 */
-#line 2541 "awkgram.c" /* yacc.c:1646 */
++#line 2542 "awkgram.c" /* yacc.c:1646 */
break;
case 51:
- #line 784 "awkgram.y" /* yacc.c:1646 */
-#line 781 "awkgram.y" /* yacc.c:1646 */
++#line 782 "awkgram.y" /* yacc.c:1646 */
{
if (do_pretty_print)
(yyval) = list_prepend((yyvsp[0]),
instruction(Op_exec_count));
else
(yyval) = (yyvsp[0]);
}
- #line 2555 "awkgram.c" /* yacc.c:1646 */
-#line 2552 "awkgram.c" /* yacc.c:1646 */
++#line 2553 "awkgram.c" /* yacc.c:1646 */
break;
case 52:
- #line 794 "awkgram.y" /* yacc.c:1646 */
-#line 791 "awkgram.y" /* yacc.c:1646 */
++#line 792 "awkgram.y" /* yacc.c:1646 */
{
if (! break_allowed)
error_ln((yyvsp[-1])->source_line,
@@@ -2564,11 -2561,11 +2562,11 @@@
(yyval) = list_create((yyvsp[-1]));
}
- #line 2568 "awkgram.c" /* yacc.c:1646 */
-#line 2565 "awkgram.c" /* yacc.c:1646 */
++#line 2566 "awkgram.c" /* yacc.c:1646 */
break;
case 53:
- #line 803 "awkgram.y" /* yacc.c:1646 */
-#line 800 "awkgram.y" /* yacc.c:1646 */
++#line 801 "awkgram.y" /* yacc.c:1646 */
{
if (! continue_allowed)
error_ln((yyvsp[-1])->source_line,
@@@ -2577,11 -2574,11 +2575,11 @@@
(yyval) = list_create((yyvsp[-1]));
}
- #line 2581 "awkgram.c" /* yacc.c:1646 */
-#line 2578 "awkgram.c" /* yacc.c:1646 */
++#line 2579 "awkgram.c" /* yacc.c:1646 */
break;
case 54:
- #line 812 "awkgram.y" /* yacc.c:1646 */
-#line 809 "awkgram.y" /* yacc.c:1646 */
++#line 810 "awkgram.y" /* yacc.c:1646 */
{
/* if inside function (rule = 0), resolve context at run-time */
if (rule && rule != Rule)
@@@ -2590,11 -2587,11 +2588,11 @@@
(yyvsp[-1])->target_jmp = ip_rec;
(yyval) = list_create((yyvsp[-1]));
}
- #line 2594 "awkgram.c" /* yacc.c:1646 */
-#line 2591 "awkgram.c" /* yacc.c:1646 */
++#line 2592 "awkgram.c" /* yacc.c:1646 */
break;
case 55:
- #line 821 "awkgram.y" /* yacc.c:1646 */
-#line 818 "awkgram.y" /* yacc.c:1646 */
++#line 819 "awkgram.y" /* yacc.c:1646 */
{
/* if inside function (rule = 0), resolve context at run-time */
if (rule == BEGIN || rule == END || rule == ENDFILE)
@@@ -2605,11 -2602,11 +2603,11 @@@
(yyvsp[-1])->target_endfile = ip_endfile;
(yyval) = list_create((yyvsp[-1]));
}
- #line 2609 "awkgram.c" /* yacc.c:1646 */
-#line 2606 "awkgram.c" /* yacc.c:1646 */
++#line 2607 "awkgram.c" /* yacc.c:1646 */
break;
case 56:
- #line 832 "awkgram.y" /* yacc.c:1646 */
-#line 829 "awkgram.y" /* yacc.c:1646 */
++#line 830 "awkgram.y" /* yacc.c:1646 */
{
/* Initialize the two possible jump targets, the actual target
* is resolved at run-time.
@@@ -2624,20 -2621,20 +2622,20 @@@
} else
(yyval) = list_append((yyvsp[-1]), (yyvsp[-2]));
}
- #line 2628 "awkgram.c" /* yacc.c:1646 */
-#line 2625 "awkgram.c" /* yacc.c:1646 */
++#line 2626 "awkgram.c" /* yacc.c:1646 */
break;
case 57:
- #line 847 "awkgram.y" /* yacc.c:1646 */
-#line 844 "awkgram.y" /* yacc.c:1646 */
++#line 845 "awkgram.y" /* yacc.c:1646 */
{
if (! in_function)
yyerror(_("`return' used outside function context"));
}
- #line 2637 "awkgram.c" /* yacc.c:1646 */
-#line 2634 "awkgram.c" /* yacc.c:1646 */
++#line 2635 "awkgram.c" /* yacc.c:1646 */
break;
case 58:
- #line 850 "awkgram.y" /* yacc.c:1646 */
-#line 847 "awkgram.y" /* yacc.c:1646 */
++#line 848 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-1]) == NULL) {
(yyval) = list_create((yyvsp[-3]));
@@@ -2658,17 -2655,17 +2656,17 @@@
(yyval) = list_append((yyvsp[-1]), (yyvsp[-3]));
}
}
- #line 2662 "awkgram.c" /* yacc.c:1646 */
-#line 2659 "awkgram.c" /* yacc.c:1646 */
++#line 2660 "awkgram.c" /* yacc.c:1646 */
break;
case 60:
- #line 882 "awkgram.y" /* yacc.c:1646 */
-#line 879 "awkgram.y" /* yacc.c:1646 */
++#line 880 "awkgram.y" /* yacc.c:1646 */
{ in_print = true; in_parens = 0; }
- #line 2668 "awkgram.c" /* yacc.c:1646 */
-#line 2665 "awkgram.c" /* yacc.c:1646 */
++#line 2666 "awkgram.c" /* yacc.c:1646 */
break;
case 61:
- #line 883 "awkgram.y" /* yacc.c:1646 */
-#line 880 "awkgram.y" /* yacc.c:1646 */
++#line 881 "awkgram.y" /* yacc.c:1646 */
{
/*
* Optimization: plain `print' has no expression list, so $3 is
null.
@@@ -2765,17 -2762,17 +2763,17 @@@ regular_print
}
}
}
- #line 2769 "awkgram.c" /* yacc.c:1646 */
-#line 2766 "awkgram.c" /* yacc.c:1646 */
++#line 2767 "awkgram.c" /* yacc.c:1646 */
break;
case 62:
- #line 980 "awkgram.y" /* yacc.c:1646 */
-#line 977 "awkgram.y" /* yacc.c:1646 */
++#line 978 "awkgram.y" /* yacc.c:1646 */
{ sub_counter = 0; }
- #line 2775 "awkgram.c" /* yacc.c:1646 */
-#line 2772 "awkgram.c" /* yacc.c:1646 */
++#line 2773 "awkgram.c" /* yacc.c:1646 */
break;
case 63:
- #line 981 "awkgram.y" /* yacc.c:1646 */
-#line 978 "awkgram.y" /* yacc.c:1646 */
++#line 979 "awkgram.y" /* yacc.c:1646 */
{
char *arr = (yyvsp[-2])->lextok;
@@@ -2808,11 -2805,11 +2806,11 @@@
(yyval) = list_append(list_append((yyvsp[0]),
(yyvsp[-2])), (yyvsp[-3]));
}
}
- #line 2812 "awkgram.c" /* yacc.c:1646 */
-#line 2809 "awkgram.c" /* yacc.c:1646 */
++#line 2810 "awkgram.c" /* yacc.c:1646 */
break;
case 64:
- #line 1018 "awkgram.y" /* yacc.c:1646 */
-#line 1015 "awkgram.y" /* yacc.c:1646 */
++#line 1016 "awkgram.y" /* yacc.c:1646 */
{
static bool warned = false;
char *arr = (yyvsp[-1])->lextok;
@@@ -2838,52 -2835,52 +2836,52 @@@
fatal(_("`delete' is not allowed with
FUNCTAB"));
}
}
- #line 2842 "awkgram.c" /* yacc.c:1646 */
-#line 2839 "awkgram.c" /* yacc.c:1646 */
++#line 2840 "awkgram.c" /* yacc.c:1646 */
break;
case 65:
- #line 1044 "awkgram.y" /* yacc.c:1646 */
-#line 1041 "awkgram.y" /* yacc.c:1646 */
++#line 1042 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = optimize_assignment((yyvsp[0])); }
- #line 2848 "awkgram.c" /* yacc.c:1646 */
-#line 2845 "awkgram.c" /* yacc.c:1646 */
++#line 2846 "awkgram.c" /* yacc.c:1646 */
break;
case 66:
- #line 1049 "awkgram.y" /* yacc.c:1646 */
-#line 1046 "awkgram.y" /* yacc.c:1646 */
++#line 1047 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2854 "awkgram.c" /* yacc.c:1646 */
-#line 2851 "awkgram.c" /* yacc.c:1646 */
++#line 2852 "awkgram.c" /* yacc.c:1646 */
break;
case 67:
- #line 1051 "awkgram.y" /* yacc.c:1646 */
-#line 1048 "awkgram.y" /* yacc.c:1646 */
++#line 1049 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2860 "awkgram.c" /* yacc.c:1646 */
-#line 2857 "awkgram.c" /* yacc.c:1646 */
++#line 2858 "awkgram.c" /* yacc.c:1646 */
break;
case 68:
- #line 1056 "awkgram.y" /* yacc.c:1646 */
-#line 1053 "awkgram.y" /* yacc.c:1646 */
++#line 1054 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2866 "awkgram.c" /* yacc.c:1646 */
-#line 2863 "awkgram.c" /* yacc.c:1646 */
++#line 2864 "awkgram.c" /* yacc.c:1646 */
break;
case 69:
- #line 1058 "awkgram.y" /* yacc.c:1646 */
-#line 1055 "awkgram.y" /* yacc.c:1646 */
++#line 1056 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-1]) == NULL)
(yyval) = list_create((yyvsp[0]));
else
(yyval) = list_prepend((yyvsp[-1]), (yyvsp[0]));
}
- #line 2877 "awkgram.c" /* yacc.c:1646 */
-#line 2874 "awkgram.c" /* yacc.c:1646 */
++#line 2875 "awkgram.c" /* yacc.c:1646 */
break;
case 70:
- #line 1065 "awkgram.y" /* yacc.c:1646 */
-#line 1062 "awkgram.y" /* yacc.c:1646 */
++#line 1063 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 2883 "awkgram.c" /* yacc.c:1646 */
-#line 2880 "awkgram.c" /* yacc.c:1646 */
++#line 2881 "awkgram.c" /* yacc.c:1646 */
break;
case 71:
- #line 1070 "awkgram.y" /* yacc.c:1646 */
-#line 1067 "awkgram.y" /* yacc.c:1646 */
++#line 1068 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *casestmt = (yyvsp[0]);
if ((yyvsp[0]) == NULL)
@@@ -2895,11 -2892,11 +2893,11 @@@
bcfree((yyvsp[-2]));
(yyval) = (yyvsp[-4]);
}
- #line 2899 "awkgram.c" /* yacc.c:1646 */
-#line 2896 "awkgram.c" /* yacc.c:1646 */
++#line 2897 "awkgram.c" /* yacc.c:1646 */
break;
case 72:
- #line 1082 "awkgram.y" /* yacc.c:1646 */
-#line 1079 "awkgram.y" /* yacc.c:1646 */
++#line 1080 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *casestmt = (yyvsp[0]);
if ((yyvsp[0]) == NULL)
@@@ -2910,17 -2907,17 +2908,17 @@@
(yyvsp[-3])->case_stmt = casestmt;
(yyval) = (yyvsp[-3]);
}
- #line 2914 "awkgram.c" /* yacc.c:1646 */
-#line 2911 "awkgram.c" /* yacc.c:1646 */
++#line 2912 "awkgram.c" /* yacc.c:1646 */
break;
case 73:
- #line 1096 "awkgram.y" /* yacc.c:1646 */
-#line 1093 "awkgram.y" /* yacc.c:1646 */
++#line 1094 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2920 "awkgram.c" /* yacc.c:1646 */
-#line 2917 "awkgram.c" /* yacc.c:1646 */
++#line 2918 "awkgram.c" /* yacc.c:1646 */
break;
case 74:
- #line 1098 "awkgram.y" /* yacc.c:1646 */
-#line 1095 "awkgram.y" /* yacc.c:1646 */
++#line 1096 "awkgram.y" /* yacc.c:1646 */
{
NODE *n = (yyvsp[0])->memory;
(void) force_number(n);
@@@ -2928,71 -2925,71 +2926,71 @@@
bcfree((yyvsp[-1]));
(yyval) = (yyvsp[0]);
}
- #line 2932 "awkgram.c" /* yacc.c:1646 */
-#line 2929 "awkgram.c" /* yacc.c:1646 */
++#line 2930 "awkgram.c" /* yacc.c:1646 */
break;
case 75:
- #line 1106 "awkgram.y" /* yacc.c:1646 */
-#line 1103 "awkgram.y" /* yacc.c:1646 */
++#line 1104 "awkgram.y" /* yacc.c:1646 */
{
bcfree((yyvsp[-1]));
(yyval) = (yyvsp[0]);
}
- #line 2941 "awkgram.c" /* yacc.c:1646 */
-#line 2938 "awkgram.c" /* yacc.c:1646 */
++#line 2939 "awkgram.c" /* yacc.c:1646 */
break;
case 76:
- #line 1111 "awkgram.y" /* yacc.c:1646 */
-#line 1108 "awkgram.y" /* yacc.c:1646 */
++#line 1109 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2947 "awkgram.c" /* yacc.c:1646 */
-#line 2944 "awkgram.c" /* yacc.c:1646 */
++#line 2945 "awkgram.c" /* yacc.c:1646 */
break;
case 77:
- #line 1113 "awkgram.y" /* yacc.c:1646 */
-#line 1110 "awkgram.y" /* yacc.c:1646 */
++#line 1111 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_push_re;
(yyval) = (yyvsp[0]);
}
- #line 2956 "awkgram.c" /* yacc.c:1646 */
-#line 2953 "awkgram.c" /* yacc.c:1646 */
++#line 2954 "awkgram.c" /* yacc.c:1646 */
break;
case 78:
- #line 1121 "awkgram.y" /* yacc.c:1646 */
-#line 1118 "awkgram.y" /* yacc.c:1646 */
++#line 1119 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2962 "awkgram.c" /* yacc.c:1646 */
-#line 2959 "awkgram.c" /* yacc.c:1646 */
++#line 2960 "awkgram.c" /* yacc.c:1646 */
break;
case 79:
- #line 1123 "awkgram.y" /* yacc.c:1646 */
-#line 1120 "awkgram.y" /* yacc.c:1646 */
++#line 1121 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 2968 "awkgram.c" /* yacc.c:1646 */
-#line 2965 "awkgram.c" /* yacc.c:1646 */
++#line 2966 "awkgram.c" /* yacc.c:1646 */
break;
case 81:
- #line 1133 "awkgram.y" /* yacc.c:1646 */
-#line 1130 "awkgram.y" /* yacc.c:1646 */
++#line 1131 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = (yyvsp[-1]);
}
- #line 2976 "awkgram.c" /* yacc.c:1646 */
-#line 2973 "awkgram.c" /* yacc.c:1646 */
++#line 2974 "awkgram.c" /* yacc.c:1646 */
break;
case 82:
- #line 1140 "awkgram.y" /* yacc.c:1646 */
-#line 1137 "awkgram.y" /* yacc.c:1646 */
++#line 1138 "awkgram.y" /* yacc.c:1646 */
{
in_print = false;
in_parens = 0;
(yyval) = NULL;
}
- #line 2986 "awkgram.c" /* yacc.c:1646 */
-#line 2983 "awkgram.c" /* yacc.c:1646 */
++#line 2984 "awkgram.c" /* yacc.c:1646 */
break;
case 83:
- #line 1145 "awkgram.y" /* yacc.c:1646 */
-#line 1142 "awkgram.y" /* yacc.c:1646 */
++#line 1143 "awkgram.y" /* yacc.c:1646 */
{ in_print = false; in_parens = 0; }
- #line 2992 "awkgram.c" /* yacc.c:1646 */
-#line 2989 "awkgram.c" /* yacc.c:1646 */
++#line 2990 "awkgram.c" /* yacc.c:1646 */
break;
case 84:
- #line 1146 "awkgram.y" /* yacc.c:1646 */
-#line 1143 "awkgram.y" /* yacc.c:1646 */
++#line 1144 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-2])->redir_type == redirect_twoway
&& (yyvsp[0])->lasti->opcode == Op_K_getline_redir
@@@ -3000,136 -2997,136 +2998,136 @@@
yyerror(_("multistage two-way pipelines don't work"));
(yyval) = list_prepend((yyvsp[0]), (yyvsp[-2]));
}
- #line 3004 "awkgram.c" /* yacc.c:1646 */
-#line 3001 "awkgram.c" /* yacc.c:1646 */
++#line 3002 "awkgram.c" /* yacc.c:1646 */
break;
case 85:
- #line 1157 "awkgram.y" /* yacc.c:1646 */
-#line 1154 "awkgram.y" /* yacc.c:1646 */
++#line 1155 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_condition((yyvsp[-3]), (yyvsp[-5]), (yyvsp[0]),
NULL, NULL);
}
- #line 3012 "awkgram.c" /* yacc.c:1646 */
-#line 3009 "awkgram.c" /* yacc.c:1646 */
++#line 3010 "awkgram.c" /* yacc.c:1646 */
break;
case 86:
- #line 1162 "awkgram.y" /* yacc.c:1646 */
-#line 1159 "awkgram.y" /* yacc.c:1646 */
++#line 1160 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_condition((yyvsp[-6]), (yyvsp[-8]), (yyvsp[-3]),
(yyvsp[-2]), (yyvsp[0]));
}
- #line 3020 "awkgram.c" /* yacc.c:1646 */
-#line 3017 "awkgram.c" /* yacc.c:1646 */
++#line 3018 "awkgram.c" /* yacc.c:1646 */
break;
case 91:
- #line 1179 "awkgram.y" /* yacc.c:1646 */
-#line 1176 "awkgram.y" /* yacc.c:1646 */
++#line 1177 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3026 "awkgram.c" /* yacc.c:1646 */
-#line 3023 "awkgram.c" /* yacc.c:1646 */
++#line 3024 "awkgram.c" /* yacc.c:1646 */
break;
case 92:
- #line 1181 "awkgram.y" /* yacc.c:1646 */
-#line 1178 "awkgram.y" /* yacc.c:1646 */
++#line 1179 "awkgram.y" /* yacc.c:1646 */
{
bcfree((yyvsp[-1]));
(yyval) = (yyvsp[0]);
}
- #line 3035 "awkgram.c" /* yacc.c:1646 */
-#line 3032 "awkgram.c" /* yacc.c:1646 */
++#line 3033 "awkgram.c" /* yacc.c:1646 */
break;
case 93:
- #line 1189 "awkgram.y" /* yacc.c:1646 */
-#line 1186 "awkgram.y" /* yacc.c:1646 */
++#line 1187 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3041 "awkgram.c" /* yacc.c:1646 */
-#line 3038 "awkgram.c" /* yacc.c:1646 */
++#line 3039 "awkgram.c" /* yacc.c:1646 */
break;
case 94:
- #line 1191 "awkgram.y" /* yacc.c:1646 */
-#line 1188 "awkgram.y" /* yacc.c:1646 */
++#line 1189 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]) ; }
- #line 3047 "awkgram.c" /* yacc.c:1646 */
-#line 3044 "awkgram.c" /* yacc.c:1646 */
++#line 3045 "awkgram.c" /* yacc.c:1646 */
break;
case 95:
- #line 1196 "awkgram.y" /* yacc.c:1646 */
-#line 1193 "awkgram.y" /* yacc.c:1646 */
++#line 1194 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->param_count = 0;
(yyval) = list_create((yyvsp[0]));
}
- #line 3056 "awkgram.c" /* yacc.c:1646 */
-#line 3053 "awkgram.c" /* yacc.c:1646 */
++#line 3054 "awkgram.c" /* yacc.c:1646 */
break;
case 96:
- #line 1201 "awkgram.y" /* yacc.c:1646 */
-#line 1198 "awkgram.y" /* yacc.c:1646 */
++#line 1199 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->param_count = (yyvsp[-2])->lasti->param_count + 1;
(yyval) = list_append((yyvsp[-2]), (yyvsp[0]));
yyerrok;
}
- #line 3066 "awkgram.c" /* yacc.c:1646 */
-#line 3063 "awkgram.c" /* yacc.c:1646 */
++#line 3064 "awkgram.c" /* yacc.c:1646 */
break;
case 97:
- #line 1207 "awkgram.y" /* yacc.c:1646 */
-#line 1204 "awkgram.y" /* yacc.c:1646 */
++#line 1205 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3072 "awkgram.c" /* yacc.c:1646 */
-#line 3069 "awkgram.c" /* yacc.c:1646 */
++#line 3070 "awkgram.c" /* yacc.c:1646 */
break;
case 98:
- #line 1209 "awkgram.y" /* yacc.c:1646 */
-#line 1206 "awkgram.y" /* yacc.c:1646 */
++#line 1207 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3078 "awkgram.c" /* yacc.c:1646 */
-#line 3075 "awkgram.c" /* yacc.c:1646 */
++#line 3076 "awkgram.c" /* yacc.c:1646 */
break;
case 99:
- #line 1211 "awkgram.y" /* yacc.c:1646 */
-#line 1208 "awkgram.y" /* yacc.c:1646 */
++#line 1209 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-2]); }
- #line 3084 "awkgram.c" /* yacc.c:1646 */
-#line 3081 "awkgram.c" /* yacc.c:1646 */
++#line 3082 "awkgram.c" /* yacc.c:1646 */
break;
case 100:
- #line 1217 "awkgram.y" /* yacc.c:1646 */
-#line 1214 "awkgram.y" /* yacc.c:1646 */
++#line 1215 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3090 "awkgram.c" /* yacc.c:1646 */
-#line 3087 "awkgram.c" /* yacc.c:1646 */
++#line 3088 "awkgram.c" /* yacc.c:1646 */
break;
case 101:
- #line 1219 "awkgram.y" /* yacc.c:1646 */
-#line 1216 "awkgram.y" /* yacc.c:1646 */
++#line 1217 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3096 "awkgram.c" /* yacc.c:1646 */
-#line 3093 "awkgram.c" /* yacc.c:1646 */
++#line 3094 "awkgram.c" /* yacc.c:1646 */
break;
case 102:
- #line 1224 "awkgram.y" /* yacc.c:1646 */
-#line 1221 "awkgram.y" /* yacc.c:1646 */
++#line 1222 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3102 "awkgram.c" /* yacc.c:1646 */
-#line 3099 "awkgram.c" /* yacc.c:1646 */
++#line 3100 "awkgram.c" /* yacc.c:1646 */
break;
case 103:
- #line 1226 "awkgram.y" /* yacc.c:1646 */
-#line 1223 "awkgram.y" /* yacc.c:1646 */
++#line 1224 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3108 "awkgram.c" /* yacc.c:1646 */
-#line 3105 "awkgram.c" /* yacc.c:1646 */
++#line 3106 "awkgram.c" /* yacc.c:1646 */
break;
case 104:
- #line 1231 "awkgram.y" /* yacc.c:1646 */
-#line 1228 "awkgram.y" /* yacc.c:1646 */
++#line 1229 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_expression_list(NULL, (yyvsp[0])); }
- #line 3114 "awkgram.c" /* yacc.c:1646 */
-#line 3111 "awkgram.c" /* yacc.c:1646 */
++#line 3112 "awkgram.c" /* yacc.c:1646 */
break;
case 105:
- #line 1233 "awkgram.y" /* yacc.c:1646 */
-#line 1230 "awkgram.y" /* yacc.c:1646 */
++#line 1231 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_expression_list((yyvsp[-2]), (yyvsp[0]));
yyerrok;
}
- #line 3123 "awkgram.c" /* yacc.c:1646 */
-#line 3120 "awkgram.c" /* yacc.c:1646 */
++#line 3121 "awkgram.c" /* yacc.c:1646 */
break;
case 106:
- #line 1238 "awkgram.y" /* yacc.c:1646 */
-#line 1235 "awkgram.y" /* yacc.c:1646 */
++#line 1236 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3129 "awkgram.c" /* yacc.c:1646 */
-#line 3126 "awkgram.c" /* yacc.c:1646 */
++#line 3127 "awkgram.c" /* yacc.c:1646 */
break;
case 107:
- #line 1240 "awkgram.y" /* yacc.c:1646 */
-#line 1237 "awkgram.y" /* yacc.c:1646 */
++#line 1238 "awkgram.y" /* yacc.c:1646 */
{
/*
* Returning the expression list instead of NULL lets
@@@ -3137,52 -3134,52 +3135,52 @@@
*/
(yyval) = (yyvsp[-1]);
}
- #line 3141 "awkgram.c" /* yacc.c:1646 */
-#line 3138 "awkgram.c" /* yacc.c:1646 */
++#line 3139 "awkgram.c" /* yacc.c:1646 */
break;
case 108:
- #line 1248 "awkgram.y" /* yacc.c:1646 */
-#line 1245 "awkgram.y" /* yacc.c:1646 */
++#line 1246 "awkgram.y" /* yacc.c:1646 */
{
/* Ditto */
(yyval) = mk_expression_list((yyvsp[-2]), (yyvsp[0]));
}
- #line 3150 "awkgram.c" /* yacc.c:1646 */
-#line 3147 "awkgram.c" /* yacc.c:1646 */
++#line 3148 "awkgram.c" /* yacc.c:1646 */
break;
case 109:
- #line 1253 "awkgram.y" /* yacc.c:1646 */
-#line 1250 "awkgram.y" /* yacc.c:1646 */
++#line 1251 "awkgram.y" /* yacc.c:1646 */
{
/* Ditto */
(yyval) = (yyvsp[-2]);
}
- #line 3159 "awkgram.c" /* yacc.c:1646 */
-#line 3156 "awkgram.c" /* yacc.c:1646 */
++#line 3157 "awkgram.c" /* yacc.c:1646 */
break;
case 110:
- #line 1262 "awkgram.y" /* yacc.c:1646 */
-#line 1259 "awkgram.y" /* yacc.c:1646 */
++#line 1260 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint && (yyvsp[0])->lasti->opcode == Op_match_rec)
lintwarn_ln((yyvsp[-1])->source_line,
_("regular expression on right of assignment"));
(yyval) = mk_assignment((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1]));
}
- #line 3170 "awkgram.c" /* yacc.c:1646 */
-#line 3167 "awkgram.c" /* yacc.c:1646 */
++#line 3168 "awkgram.c" /* yacc.c:1646 */
break;
case 111:
- #line 1269 "awkgram.y" /* yacc.c:1646 */
-#line 1266 "awkgram.y" /* yacc.c:1646 */
++#line 1267 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_boolean((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3176 "awkgram.c" /* yacc.c:1646 */
-#line 3173 "awkgram.c" /* yacc.c:1646 */
++#line 3174 "awkgram.c" /* yacc.c:1646 */
break;
case 112:
- #line 1271 "awkgram.y" /* yacc.c:1646 */
-#line 1268 "awkgram.y" /* yacc.c:1646 */
++#line 1269 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_boolean((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3182 "awkgram.c" /* yacc.c:1646 */
-#line 3179 "awkgram.c" /* yacc.c:1646 */
++#line 3180 "awkgram.c" /* yacc.c:1646 */
break;
case 113:
- #line 1273 "awkgram.y" /* yacc.c:1646 */
-#line 1270 "awkgram.y" /* yacc.c:1646 */
++#line 1271 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[-2])->lasti->opcode == Op_match_rec)
warning_ln((yyvsp[-1])->source_line,
@@@ -3198,11 -3195,11 +3196,11 @@@
(yyval) = list_append(list_merge((yyvsp[-2]),
(yyvsp[0])), (yyvsp[-1]));
}
}
- #line 3202 "awkgram.c" /* yacc.c:1646 */
-#line 3199 "awkgram.c" /* yacc.c:1646 */
++#line 3200 "awkgram.c" /* yacc.c:1646 */
break;
case 114:
- #line 1289 "awkgram.y" /* yacc.c:1646 */
-#line 1286 "awkgram.y" /* yacc.c:1646 */
++#line 1287 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint_old)
warning_ln((yyvsp[-1])->source_line,
@@@ -3212,91 -3209,91 +3210,91 @@@
(yyvsp[-1])->expr_count = 1;
(yyval) = list_append(list_merge((yyvsp[-2]), (yyvsp[0])),
(yyvsp[-1]));
}
- #line 3216 "awkgram.c" /* yacc.c:1646 */
-#line 3213 "awkgram.c" /* yacc.c:1646 */
++#line 3214 "awkgram.c" /* yacc.c:1646 */
break;
case 115:
- #line 1299 "awkgram.y" /* yacc.c:1646 */
-#line 1296 "awkgram.y" /* yacc.c:1646 */
++#line 1297 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint && (yyvsp[0])->lasti->opcode == Op_match_rec)
lintwarn_ln((yyvsp[-1])->source_line,
_("regular expression on right of comparison"));
(yyval) = list_append(list_merge((yyvsp[-2]), (yyvsp[0])),
(yyvsp[-1]));
}
- #line 3227 "awkgram.c" /* yacc.c:1646 */
-#line 3224 "awkgram.c" /* yacc.c:1646 */
++#line 3225 "awkgram.c" /* yacc.c:1646 */
break;
case 116:
- #line 1306 "awkgram.y" /* yacc.c:1646 */
-#line 1303 "awkgram.y" /* yacc.c:1646 */
++#line 1304 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_condition((yyvsp[-4]), (yyvsp[-3]), (yyvsp[-2]),
(yyvsp[-1]), (yyvsp[0])); }
- #line 3233 "awkgram.c" /* yacc.c:1646 */
-#line 3230 "awkgram.c" /* yacc.c:1646 */
++#line 3231 "awkgram.c" /* yacc.c:1646 */
break;
case 117:
- #line 1308 "awkgram.y" /* yacc.c:1646 */
-#line 1305 "awkgram.y" /* yacc.c:1646 */
++#line 1306 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3239 "awkgram.c" /* yacc.c:1646 */
-#line 3236 "awkgram.c" /* yacc.c:1646 */
++#line 3237 "awkgram.c" /* yacc.c:1646 */
break;
case 118:
- #line 1313 "awkgram.y" /* yacc.c:1646 */
-#line 1310 "awkgram.y" /* yacc.c:1646 */
++#line 1311 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3245 "awkgram.c" /* yacc.c:1646 */
-#line 3242 "awkgram.c" /* yacc.c:1646 */
++#line 3243 "awkgram.c" /* yacc.c:1646 */
break;
case 119:
- #line 1315 "awkgram.y" /* yacc.c:1646 */
-#line 1312 "awkgram.y" /* yacc.c:1646 */
++#line 1313 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3251 "awkgram.c" /* yacc.c:1646 */
-#line 3248 "awkgram.c" /* yacc.c:1646 */
++#line 3249 "awkgram.c" /* yacc.c:1646 */
break;
case 120:
- #line 1317 "awkgram.y" /* yacc.c:1646 */
-#line 1314 "awkgram.y" /* yacc.c:1646 */
++#line 1315 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_assign_quotient;
(yyval) = (yyvsp[0]);
}
- #line 3260 "awkgram.c" /* yacc.c:1646 */
-#line 3257 "awkgram.c" /* yacc.c:1646 */
++#line 3258 "awkgram.c" /* yacc.c:1646 */
break;
case 121:
- #line 1325 "awkgram.y" /* yacc.c:1646 */
-#line 1322 "awkgram.y" /* yacc.c:1646 */
++#line 1323 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3266 "awkgram.c" /* yacc.c:1646 */
-#line 3263 "awkgram.c" /* yacc.c:1646 */
++#line 3264 "awkgram.c" /* yacc.c:1646 */
break;
case 122:
- #line 1327 "awkgram.y" /* yacc.c:1646 */
-#line 1324 "awkgram.y" /* yacc.c:1646 */
++#line 1325 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3272 "awkgram.c" /* yacc.c:1646 */
-#line 3269 "awkgram.c" /* yacc.c:1646 */
++#line 3270 "awkgram.c" /* yacc.c:1646 */
break;
case 123:
- #line 1332 "awkgram.y" /* yacc.c:1646 */
-#line 1329 "awkgram.y" /* yacc.c:1646 */
++#line 1330 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3278 "awkgram.c" /* yacc.c:1646 */
-#line 3275 "awkgram.c" /* yacc.c:1646 */
++#line 3276 "awkgram.c" /* yacc.c:1646 */
break;
case 124:
- #line 1334 "awkgram.y" /* yacc.c:1646 */
-#line 1331 "awkgram.y" /* yacc.c:1646 */
++#line 1332 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3284 "awkgram.c" /* yacc.c:1646 */
-#line 3281 "awkgram.c" /* yacc.c:1646 */
++#line 3282 "awkgram.c" /* yacc.c:1646 */
break;
case 125:
- #line 1339 "awkgram.y" /* yacc.c:1646 */
-#line 1336 "awkgram.y" /* yacc.c:1646 */
++#line 1337 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3290 "awkgram.c" /* yacc.c:1646 */
-#line 3287 "awkgram.c" /* yacc.c:1646 */
++#line 3288 "awkgram.c" /* yacc.c:1646 */
break;
case 126:
- #line 1341 "awkgram.y" /* yacc.c:1646 */
-#line 1338 "awkgram.y" /* yacc.c:1646 */
++#line 1339 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3296 "awkgram.c" /* yacc.c:1646 */
-#line 3293 "awkgram.c" /* yacc.c:1646 */
++#line 3294 "awkgram.c" /* yacc.c:1646 */
break;
case 127:
- #line 1343 "awkgram.y" /* yacc.c:1646 */
-#line 1340 "awkgram.y" /* yacc.c:1646 */
++#line 1341 "awkgram.y" /* yacc.c:1646 */
{
int count = 2;
bool is_simple_var = false;
@@@ -3343,92 -3340,83 +3341,83 @@@
max_args = count;
}
}
- #line 3347 "awkgram.c" /* yacc.c:1646 */
-#line 3344 "awkgram.c" /* yacc.c:1646 */
++#line 3345 "awkgram.c" /* yacc.c:1646 */
break;
case 129:
- #line 1395 "awkgram.y" /* yacc.c:1646 */
-#line 1392 "awkgram.y" /* yacc.c:1646 */
++#line 1393 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3353 "awkgram.c" /* yacc.c:1646 */
-#line 3350 "awkgram.c" /* yacc.c:1646 */
++#line 3351 "awkgram.c" /* yacc.c:1646 */
break;
case 130:
- #line 1397 "awkgram.y" /* yacc.c:1646 */
-#line 1394 "awkgram.y" /* yacc.c:1646 */
++#line 1395 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3359 "awkgram.c" /* yacc.c:1646 */
-#line 3356 "awkgram.c" /* yacc.c:1646 */
++#line 3357 "awkgram.c" /* yacc.c:1646 */
break;
case 131:
- #line 1399 "awkgram.y" /* yacc.c:1646 */
-#line 1396 "awkgram.y" /* yacc.c:1646 */
++#line 1397 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3365 "awkgram.c" /* yacc.c:1646 */
-#line 3362 "awkgram.c" /* yacc.c:1646 */
++#line 3363 "awkgram.c" /* yacc.c:1646 */
break;
case 132:
- #line 1401 "awkgram.y" /* yacc.c:1646 */
-#line 1398 "awkgram.y" /* yacc.c:1646 */
++#line 1399 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3371 "awkgram.c" /* yacc.c:1646 */
-#line 3368 "awkgram.c" /* yacc.c:1646 */
++#line 3369 "awkgram.c" /* yacc.c:1646 */
break;
case 133:
- #line 1403 "awkgram.y" /* yacc.c:1646 */
-#line 1400 "awkgram.y" /* yacc.c:1646 */
++#line 1401 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3377 "awkgram.c" /* yacc.c:1646 */
-#line 3374 "awkgram.c" /* yacc.c:1646 */
++#line 3375 "awkgram.c" /* yacc.c:1646 */
break;
case 134:
- #line 1405 "awkgram.y" /* yacc.c:1646 */
-#line 1402 "awkgram.y" /* yacc.c:1646 */
++#line 1403 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3383 "awkgram.c" /* yacc.c:1646 */
-#line 3380 "awkgram.c" /* yacc.c:1646 */
++#line 3381 "awkgram.c" /* yacc.c:1646 */
break;
case 135:
- #line 1407 "awkgram.y" /* yacc.c:1646 */
-#line 1404 "awkgram.y" /* yacc.c:1646 */
++#line 1405 "awkgram.y" /* yacc.c:1646 */
{
/*
- * In BEGINFILE/ENDFILE, allow `getline var < file'
+ * In BEGINFILE/ENDFILE, allow `getline [var] < file'
*/
- if (rule == BEGINFILE || rule == ENDFILE) {
- if ((yyvsp[-1]) != NULL && (yyvsp[0]) != NULL)
- ; /* all ok */
- else {
- if ((yyvsp[-1]) != NULL)
- error_ln((yyvsp[-2])->source_line,
- _("`getline var' invalid inside
`%s' rule"), ruletab[rule]);
- else
- error_ln((yyvsp[-2])->source_line,
- _("`getline' invalid inside
`%s' rule"), ruletab[rule]);
- }
- }
+ if ((rule == BEGINFILE || rule == ENDFILE) && (yyvsp[0]) ==
NULL)
+ error_ln((yyvsp[-2])->source_line,
+ _("non-redirected `getline' invalid inside
`%s' rule"), ruletab[rule]);
if (do_lint && rule == END && (yyvsp[0]) == NULL)
lintwarn_ln((yyvsp[-2])->source_line,
_("non-redirected `getline' undefined inside
END action"));
(yyval) = mk_getline((yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]),
redirect_input);
}
- #line 3410 "awkgram.c" /* yacc.c:1646 */
-#line 3398 "awkgram.c" /* yacc.c:1646 */
++#line 3399 "awkgram.c" /* yacc.c:1646 */
break;
case 136:
- #line 1430 "awkgram.y" /* yacc.c:1646 */
-#line 1418 "awkgram.y" /* yacc.c:1646 */
++#line 1419 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postincrement;
(yyval) = mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
- #line 3419 "awkgram.c" /* yacc.c:1646 */
-#line 3407 "awkgram.c" /* yacc.c:1646 */
++#line 3408 "awkgram.c" /* yacc.c:1646 */
break;
case 137:
- #line 1435 "awkgram.y" /* yacc.c:1646 */
-#line 1423 "awkgram.y" /* yacc.c:1646 */
++#line 1424 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postdecrement;
(yyval) = mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
- #line 3428 "awkgram.c" /* yacc.c:1646 */
-#line 3416 "awkgram.c" /* yacc.c:1646 */
++#line 3417 "awkgram.c" /* yacc.c:1646 */
break;
case 138:
- #line 1440 "awkgram.y" /* yacc.c:1646 */
-#line 1428 "awkgram.y" /* yacc.c:1646 */
++#line 1429 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint_old) {
warning_ln((yyvsp[-1])->source_line,
@@@ -3448,64 -3436,64 +3437,64 @@@
(yyval) = list_append(list_merge(t, (yyvsp[0])),
(yyvsp[-1]));
}
}
- #line 3452 "awkgram.c" /* yacc.c:1646 */
-#line 3440 "awkgram.c" /* yacc.c:1646 */
++#line 3441 "awkgram.c" /* yacc.c:1646 */
break;
case 139:
- #line 1465 "awkgram.y" /* yacc.c:1646 */
-#line 1453 "awkgram.y" /* yacc.c:1646 */
++#line 1454 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = mk_getline((yyvsp[-1]), (yyvsp[0]), (yyvsp[-3]),
(yyvsp[-2])->redir_type);
bcfree((yyvsp[-2]));
}
- #line 3461 "awkgram.c" /* yacc.c:1646 */
-#line 3449 "awkgram.c" /* yacc.c:1646 */
++#line 3450 "awkgram.c" /* yacc.c:1646 */
break;
case 140:
- #line 1471 "awkgram.y" /* yacc.c:1646 */
-#line 1459 "awkgram.y" /* yacc.c:1646 */
++#line 1460 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3467 "awkgram.c" /* yacc.c:1646 */
-#line 3455 "awkgram.c" /* yacc.c:1646 */
++#line 3456 "awkgram.c" /* yacc.c:1646 */
break;
case 141:
- #line 1473 "awkgram.y" /* yacc.c:1646 */
-#line 1461 "awkgram.y" /* yacc.c:1646 */
++#line 1462 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3473 "awkgram.c" /* yacc.c:1646 */
-#line 3461 "awkgram.c" /* yacc.c:1646 */
++#line 3462 "awkgram.c" /* yacc.c:1646 */
break;
case 142:
- #line 1475 "awkgram.y" /* yacc.c:1646 */
-#line 1463 "awkgram.y" /* yacc.c:1646 */
++#line 1464 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3479 "awkgram.c" /* yacc.c:1646 */
-#line 3467 "awkgram.c" /* yacc.c:1646 */
++#line 3468 "awkgram.c" /* yacc.c:1646 */
break;
case 143:
- #line 1477 "awkgram.y" /* yacc.c:1646 */
-#line 1465 "awkgram.y" /* yacc.c:1646 */
++#line 1466 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3485 "awkgram.c" /* yacc.c:1646 */
-#line 3473 "awkgram.c" /* yacc.c:1646 */
++#line 3474 "awkgram.c" /* yacc.c:1646 */
break;
case 144:
- #line 1479 "awkgram.y" /* yacc.c:1646 */
-#line 1467 "awkgram.y" /* yacc.c:1646 */
++#line 1468 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3491 "awkgram.c" /* yacc.c:1646 */
-#line 3479 "awkgram.c" /* yacc.c:1646 */
++#line 3480 "awkgram.c" /* yacc.c:1646 */
break;
case 145:
- #line 1481 "awkgram.y" /* yacc.c:1646 */
-#line 1469 "awkgram.y" /* yacc.c:1646 */
++#line 1470 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
- #line 3497 "awkgram.c" /* yacc.c:1646 */
-#line 3485 "awkgram.c" /* yacc.c:1646 */
++#line 3486 "awkgram.c" /* yacc.c:1646 */
break;
case 146:
- #line 1486 "awkgram.y" /* yacc.c:1646 */
-#line 1474 "awkgram.y" /* yacc.c:1646 */
++#line 1475 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_create((yyvsp[0]));
}
- #line 3505 "awkgram.c" /* yacc.c:1646 */
-#line 3493 "awkgram.c" /* yacc.c:1646 */
++#line 3494 "awkgram.c" /* yacc.c:1646 */
break;
case 147:
- #line 1490 "awkgram.y" /* yacc.c:1646 */
-#line 1478 "awkgram.y" /* yacc.c:1646 */
++#line 1479 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[0])->opcode == Op_match_rec) {
(yyvsp[0])->opcode = Op_nomatch;
@@@ -3537,37 -3525,37 +3526,37 @@@
}
}
}
- #line 3541 "awkgram.c" /* yacc.c:1646 */
-#line 3529 "awkgram.c" /* yacc.c:1646 */
++#line 3530 "awkgram.c" /* yacc.c:1646 */
break;
case 148:
- #line 1522 "awkgram.y" /* yacc.c:1646 */
-#line 1510 "awkgram.y" /* yacc.c:1646 */
++#line 1511 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3547 "awkgram.c" /* yacc.c:1646 */
-#line 3535 "awkgram.c" /* yacc.c:1646 */
++#line 3536 "awkgram.c" /* yacc.c:1646 */
break;
case 149:
- #line 1524 "awkgram.y" /* yacc.c:1646 */
-#line 1512 "awkgram.y" /* yacc.c:1646 */
++#line 1513 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = snode((yyvsp[-1]), (yyvsp[-3]));
if ((yyval) == NULL)
YYABORT;
}
- #line 3557 "awkgram.c" /* yacc.c:1646 */
-#line 3545 "awkgram.c" /* yacc.c:1646 */
++#line 3546 "awkgram.c" /* yacc.c:1646 */
break;
case 150:
- #line 1530 "awkgram.y" /* yacc.c:1646 */
-#line 1518 "awkgram.y" /* yacc.c:1646 */
++#line 1519 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = snode((yyvsp[-1]), (yyvsp[-3]));
if ((yyval) == NULL)
YYABORT;
}
- #line 3567 "awkgram.c" /* yacc.c:1646 */
-#line 3555 "awkgram.c" /* yacc.c:1646 */
++#line 3556 "awkgram.c" /* yacc.c:1646 */
break;
case 151:
- #line 1536 "awkgram.y" /* yacc.c:1646 */
-#line 1524 "awkgram.y" /* yacc.c:1646 */
++#line 1525 "awkgram.y" /* yacc.c:1646 */
{
static bool warned = false;
@@@ -3580,45 -3568,45 +3569,45 @@@
if ((yyval) == NULL)
YYABORT;
}
- #line 3584 "awkgram.c" /* yacc.c:1646 */
-#line 3572 "awkgram.c" /* yacc.c:1646 */
++#line 3573 "awkgram.c" /* yacc.c:1646 */
break;
case 154:
- #line 1551 "awkgram.y" /* yacc.c:1646 */
-#line 1539 "awkgram.y" /* yacc.c:1646 */
++#line 1540 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[-1])->opcode = Op_preincrement;
(yyval) = mk_assignment((yyvsp[0]), NULL, (yyvsp[-1]));
}
- #line 3593 "awkgram.c" /* yacc.c:1646 */
-#line 3581 "awkgram.c" /* yacc.c:1646 */
++#line 3582 "awkgram.c" /* yacc.c:1646 */
break;
case 155:
- #line 1556 "awkgram.y" /* yacc.c:1646 */
-#line 1544 "awkgram.y" /* yacc.c:1646 */
++#line 1545 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[-1])->opcode = Op_predecrement;
(yyval) = mk_assignment((yyvsp[0]), NULL, (yyvsp[-1]));
}
- #line 3602 "awkgram.c" /* yacc.c:1646 */
-#line 3590 "awkgram.c" /* yacc.c:1646 */
++#line 3591 "awkgram.c" /* yacc.c:1646 */
break;
case 156:
- #line 1561 "awkgram.y" /* yacc.c:1646 */
-#line 1549 "awkgram.y" /* yacc.c:1646 */
++#line 1550 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_create((yyvsp[0]));
}
- #line 3610 "awkgram.c" /* yacc.c:1646 */
-#line 3598 "awkgram.c" /* yacc.c:1646 */
++#line 3599 "awkgram.c" /* yacc.c:1646 */
break;
case 157:
- #line 1565 "awkgram.y" /* yacc.c:1646 */
-#line 1553 "awkgram.y" /* yacc.c:1646 */
++#line 1554 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_create((yyvsp[0]));
}
- #line 3618 "awkgram.c" /* yacc.c:1646 */
-#line 3606 "awkgram.c" /* yacc.c:1646 */
++#line 3607 "awkgram.c" /* yacc.c:1646 */
break;
case 158:
- #line 1569 "awkgram.y" /* yacc.c:1646 */
-#line 1557 "awkgram.y" /* yacc.c:1646 */
++#line 1558 "awkgram.y" /* yacc.c:1646 */
{
if ((yyvsp[0])->lasti->opcode == Op_push_i
&& ((yyvsp[0])->lasti->memory->flags & (STRCUR|STRING))
== 0
@@@ -3633,11 -3621,11 +3622,11 @@@
(yyval) = list_append((yyvsp[0]), (yyvsp[-1]));
}
}
- #line 3637 "awkgram.c" /* yacc.c:1646 */
-#line 3625 "awkgram.c" /* yacc.c:1646 */
++#line 3626 "awkgram.c" /* yacc.c:1646 */
break;
case 159:
- #line 1584 "awkgram.y" /* yacc.c:1646 */
-#line 1572 "awkgram.y" /* yacc.c:1646 */
++#line 1573 "awkgram.y" /* yacc.c:1646 */
{
/*
* was: $$ = $2
@@@ -3647,20 -3635,20 +3636,20 @@@
(yyvsp[-1])->memory = make_number(0.0);
(yyval) = list_append((yyvsp[0]), (yyvsp[-1]));
}
- #line 3651 "awkgram.c" /* yacc.c:1646 */
-#line 3639 "awkgram.c" /* yacc.c:1646 */
++#line 3640 "awkgram.c" /* yacc.c:1646 */
break;
case 160:
- #line 1597 "awkgram.y" /* yacc.c:1646 */
-#line 1585 "awkgram.y" /* yacc.c:1646 */
++#line 1586 "awkgram.y" /* yacc.c:1646 */
{
func_use((yyvsp[0])->lasti->func_name, FUNC_USE);
(yyval) = (yyvsp[0]);
}
- #line 3660 "awkgram.c" /* yacc.c:1646 */
-#line 3648 "awkgram.c" /* yacc.c:1646 */
++#line 3649 "awkgram.c" /* yacc.c:1646 */
break;
case 161:
- #line 1602 "awkgram.y" /* yacc.c:1646 */
-#line 1590 "awkgram.y" /* yacc.c:1646 */
++#line 1591 "awkgram.y" /* yacc.c:1646 */
{
/* indirect function call */
INSTRUCTION *f, *t;
@@@ -3693,11 -3681,11 +3682,11 @@@
(yyval) = list_prepend((yyvsp[0]), t);
}
- #line 3697 "awkgram.c" /* yacc.c:1646 */
-#line 3685 "awkgram.c" /* yacc.c:1646 */
++#line 3686 "awkgram.c" /* yacc.c:1646 */
break;
case 162:
- #line 1638 "awkgram.y" /* yacc.c:1646 */
-#line 1626 "awkgram.y" /* yacc.c:1646 */
++#line 1627 "awkgram.y" /* yacc.c:1646 */
{
param_sanity((yyvsp[-1]));
(yyvsp[-3])->opcode = Op_func_call;
@@@ -3711,49 -3699,49 +3700,49 @@@
(yyval) = list_append(t, (yyvsp[-3]));
}
}
- #line 3715 "awkgram.c" /* yacc.c:1646 */
-#line 3703 "awkgram.c" /* yacc.c:1646 */
++#line 3704 "awkgram.c" /* yacc.c:1646 */
break;
case 163:
- #line 1655 "awkgram.y" /* yacc.c:1646 */
-#line 1643 "awkgram.y" /* yacc.c:1646 */
++#line 1644 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3721 "awkgram.c" /* yacc.c:1646 */
-#line 3709 "awkgram.c" /* yacc.c:1646 */
++#line 3710 "awkgram.c" /* yacc.c:1646 */
break;
case 164:
- #line 1657 "awkgram.y" /* yacc.c:1646 */
-#line 1645 "awkgram.y" /* yacc.c:1646 */
++#line 1646 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3727 "awkgram.c" /* yacc.c:1646 */
-#line 3715 "awkgram.c" /* yacc.c:1646 */
++#line 3716 "awkgram.c" /* yacc.c:1646 */
break;
case 165:
- #line 1662 "awkgram.y" /* yacc.c:1646 */
-#line 1650 "awkgram.y" /* yacc.c:1646 */
++#line 1651 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3733 "awkgram.c" /* yacc.c:1646 */
-#line 3721 "awkgram.c" /* yacc.c:1646 */
++#line 3722 "awkgram.c" /* yacc.c:1646 */
break;
case 166:
- #line 1664 "awkgram.y" /* yacc.c:1646 */
-#line 1652 "awkgram.y" /* yacc.c:1646 */
++#line 1653 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3739 "awkgram.c" /* yacc.c:1646 */
-#line 3727 "awkgram.c" /* yacc.c:1646 */
++#line 3728 "awkgram.c" /* yacc.c:1646 */
break;
case 167:
- #line 1669 "awkgram.y" /* yacc.c:1646 */
-#line 1657 "awkgram.y" /* yacc.c:1646 */
++#line 1658 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3745 "awkgram.c" /* yacc.c:1646 */
-#line 3733 "awkgram.c" /* yacc.c:1646 */
++#line 3734 "awkgram.c" /* yacc.c:1646 */
break;
case 168:
- #line 1671 "awkgram.y" /* yacc.c:1646 */
-#line 1659 "awkgram.y" /* yacc.c:1646 */
++#line 1660 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
- #line 3753 "awkgram.c" /* yacc.c:1646 */
-#line 3741 "awkgram.c" /* yacc.c:1646 */
++#line 3742 "awkgram.c" /* yacc.c:1646 */
break;
case 169:
- #line 1678 "awkgram.y" /* yacc.c:1646 */
-#line 1666 "awkgram.y" /* yacc.c:1646 */
++#line 1667 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *ip = (yyvsp[0])->lasti;
int count = ip->sub_count; /* # of SUBSEP-seperated
expressions */
@@@ -3767,11 -3755,11 +3756,11 @@@
sub_counter++; /* count # of dimensions */
(yyval) = (yyvsp[0]);
}
- #line 3771 "awkgram.c" /* yacc.c:1646 */
-#line 3759 "awkgram.c" /* yacc.c:1646 */
++#line 3760 "awkgram.c" /* yacc.c:1646 */
break;
case 170:
- #line 1695 "awkgram.y" /* yacc.c:1646 */
-#line 1683 "awkgram.y" /* yacc.c:1646 */
++#line 1684 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *t = (yyvsp[-1]);
if ((yyvsp[-1]) == NULL) {
@@@ -3785,31 -3773,31 +3774,31 @@@
(yyvsp[0])->sub_count = count_expressions(&t, false);
(yyval) = list_append(t, (yyvsp[0]));
}
- #line 3789 "awkgram.c" /* yacc.c:1646 */
-#line 3777 "awkgram.c" /* yacc.c:1646 */
++#line 3778 "awkgram.c" /* yacc.c:1646 */
break;
case 171:
- #line 1712 "awkgram.y" /* yacc.c:1646 */
-#line 1700 "awkgram.y" /* yacc.c:1646 */
++#line 1701 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); }
- #line 3795 "awkgram.c" /* yacc.c:1646 */
-#line 3783 "awkgram.c" /* yacc.c:1646 */
++#line 3784 "awkgram.c" /* yacc.c:1646 */
break;
case 172:
- #line 1714 "awkgram.y" /* yacc.c:1646 */
-#line 1702 "awkgram.y" /* yacc.c:1646 */
++#line 1703 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
- #line 3803 "awkgram.c" /* yacc.c:1646 */
-#line 3791 "awkgram.c" /* yacc.c:1646 */
++#line 3792 "awkgram.c" /* yacc.c:1646 */
break;
case 173:
- #line 1721 "awkgram.y" /* yacc.c:1646 */
-#line 1709 "awkgram.y" /* yacc.c:1646 */
++#line 1710 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[-1]); }
- #line 3809 "awkgram.c" /* yacc.c:1646 */
-#line 3797 "awkgram.c" /* yacc.c:1646 */
++#line 3798 "awkgram.c" /* yacc.c:1646 */
break;
case 174:
- #line 1726 "awkgram.y" /* yacc.c:1646 */
-#line 1714 "awkgram.y" /* yacc.c:1646 */
++#line 1715 "awkgram.y" /* yacc.c:1646 */
{
char *var_name = (yyvsp[0])->lextok;
@@@ -3817,22 -3805,22 +3806,22 @@@
(yyvsp[0])->memory = variable((yyvsp[0])->source_line,
var_name, Node_var_new);
(yyval) = list_create((yyvsp[0]));
}
- #line 3821 "awkgram.c" /* yacc.c:1646 */
-#line 3809 "awkgram.c" /* yacc.c:1646 */
++#line 3810 "awkgram.c" /* yacc.c:1646 */
break;
case 175:
- #line 1734 "awkgram.y" /* yacc.c:1646 */
-#line 1722 "awkgram.y" /* yacc.c:1646 */
++#line 1723 "awkgram.y" /* yacc.c:1646 */
{
char *arr = (yyvsp[-1])->lextok;
(yyvsp[-1])->memory = variable((yyvsp[-1])->source_line, arr,
Node_var_new);
(yyvsp[-1])->opcode = Op_push_array;
(yyval) = list_prepend((yyvsp[0]), (yyvsp[-1]));
}
- #line 3832 "awkgram.c" /* yacc.c:1646 */
-#line 3820 "awkgram.c" /* yacc.c:1646 */
++#line 3821 "awkgram.c" /* yacc.c:1646 */
break;
case 176:
- #line 1744 "awkgram.y" /* yacc.c:1646 */
-#line 1732 "awkgram.y" /* yacc.c:1646 */
++#line 1733 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *ip = (yyvsp[0])->nexti;
if (ip->opcode == Op_push
@@@ -3844,73 -3832,73 +3833,73 @@@
} else
(yyval) = (yyvsp[0]);
}
- #line 3848 "awkgram.c" /* yacc.c:1646 */
-#line 3836 "awkgram.c" /* yacc.c:1646 */
++#line 3837 "awkgram.c" /* yacc.c:1646 */
break;
case 177:
- #line 1756 "awkgram.y" /* yacc.c:1646 */
-#line 1744 "awkgram.y" /* yacc.c:1646 */
++#line 1745 "awkgram.y" /* yacc.c:1646 */
{
(yyval) = list_append((yyvsp[-1]), (yyvsp[-2]));
if ((yyvsp[0]) != NULL)
mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
- #line 3858 "awkgram.c" /* yacc.c:1646 */
-#line 3846 "awkgram.c" /* yacc.c:1646 */
++#line 3847 "awkgram.c" /* yacc.c:1646 */
break;
case 178:
- #line 1765 "awkgram.y" /* yacc.c:1646 */
-#line 1753 "awkgram.y" /* yacc.c:1646 */
++#line 1754 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postincrement;
}
- #line 3866 "awkgram.c" /* yacc.c:1646 */
-#line 3854 "awkgram.c" /* yacc.c:1646 */
++#line 3855 "awkgram.c" /* yacc.c:1646 */
break;
case 179:
- #line 1769 "awkgram.y" /* yacc.c:1646 */
-#line 1757 "awkgram.y" /* yacc.c:1646 */
++#line 1758 "awkgram.y" /* yacc.c:1646 */
{
(yyvsp[0])->opcode = Op_postdecrement;
}
- #line 3874 "awkgram.c" /* yacc.c:1646 */
-#line 3862 "awkgram.c" /* yacc.c:1646 */
++#line 3863 "awkgram.c" /* yacc.c:1646 */
break;
case 180:
- #line 1772 "awkgram.y" /* yacc.c:1646 */
-#line 1760 "awkgram.y" /* yacc.c:1646 */
++#line 1761 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
- #line 3880 "awkgram.c" /* yacc.c:1646 */
-#line 3868 "awkgram.c" /* yacc.c:1646 */
++#line 3869 "awkgram.c" /* yacc.c:1646 */
break;
case 182:
- #line 1780 "awkgram.y" /* yacc.c:1646 */
-#line 1768 "awkgram.y" /* yacc.c:1646 */
++#line 1769 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3886 "awkgram.c" /* yacc.c:1646 */
-#line 3874 "awkgram.c" /* yacc.c:1646 */
++#line 3875 "awkgram.c" /* yacc.c:1646 */
break;
case 183:
- #line 1784 "awkgram.y" /* yacc.c:1646 */
-#line 1772 "awkgram.y" /* yacc.c:1646 */
++#line 1773 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3892 "awkgram.c" /* yacc.c:1646 */
-#line 3880 "awkgram.c" /* yacc.c:1646 */
++#line 3881 "awkgram.c" /* yacc.c:1646 */
break;
case 186:
- #line 1793 "awkgram.y" /* yacc.c:1646 */
-#line 1781 "awkgram.y" /* yacc.c:1646 */
++#line 1782 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3898 "awkgram.c" /* yacc.c:1646 */
-#line 3886 "awkgram.c" /* yacc.c:1646 */
++#line 3887 "awkgram.c" /* yacc.c:1646 */
break;
case 187:
- #line 1797 "awkgram.y" /* yacc.c:1646 */
-#line 1785 "awkgram.y" /* yacc.c:1646 */
++#line 1786 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = (yyvsp[0]); yyerrok; }
- #line 3904 "awkgram.c" /* yacc.c:1646 */
-#line 3892 "awkgram.c" /* yacc.c:1646 */
++#line 3893 "awkgram.c" /* yacc.c:1646 */
break;
case 188:
- #line 1801 "awkgram.y" /* yacc.c:1646 */
-#line 1789 "awkgram.y" /* yacc.c:1646 */
++#line 1790 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
- #line 3910 "awkgram.c" /* yacc.c:1646 */
-#line 3898 "awkgram.c" /* yacc.c:1646 */
++#line 3899 "awkgram.c" /* yacc.c:1646 */
break;
- #line 3914 "awkgram.c" /* yacc.c:1646 */
-#line 3902 "awkgram.c" /* yacc.c:1646 */
++#line 3903 "awkgram.c" /* yacc.c:1646 */
default: break;
}
/* User semantic actions sometimes alter yychar, and that requires
@@@ -4138,7 -4126,7 +4127,7 @@@ yyreturn
#endif
return yyresult;
}
- #line 1803 "awkgram.y" /* yacc.c:1906 */
-#line 1791 "awkgram.y" /* yacc.c:1906 */
++#line 1792 "awkgram.y" /* yacc.c:1906 */
struct token {
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=3552b18ec54b984d6bc6d363a4135d300a606d85
commit 3552b18ec54b984d6bc6d363a4135d300a606d85
Merge: 8e303ac a4b59fa
Author: Arnold D. Robbins <address@hidden>
Date: Fri Apr 11 11:35:34 2014 +0300
Merge branch 'master' into async-events
diff --cc gawkapi.c
index 44c9812,bcf8d90..03ed0bf
--- a/gawkapi.c
+++ b/gawkapi.c
@@@ -1162,9 -1112,11 +1161,15 @@@ gawk_api_t api_impl =
api_flatten_array,
api_release_flattened_array,
+ /* Memory allocation */
+ malloc,
+ calloc,
+ realloc,
+ free,
++
+ /* Asynchronous callbacks */
+ api_register_async_callback,
+ api_notify_async_event,
};
/* init_ext_api --- init the extension API */
diff --cc gawkapi.h
index 7da6474,5ccadc2..1d34203
--- a/gawkapi.h
+++ b/gawkapi.h
@@@ -264,7 -263,7 +263,7 @@@ typedef struct awk_two_way_processor
/* Current version of the API. */
enum {
GAWK_API_MAJOR_VERSION = 1,
-- GAWK_API_MINOR_VERSION = 1
++ GAWK_API_MINOR_VERSION = 2
};
/* A number of typedefs related to different types of values. */
@@@ -673,12 -665,15 +672,22 @@@ typedef struct gawk_api
awk_array_t a_cookie,
awk_flat_array_t *data);
+ /*
+ * Hooks to provide access to gawk's memory allocation functions.
+ * This ensures that memory passed between gawk and the extension
+ * is allocated and released by the same library.
+ */
+ void *(*api_malloc)(size_t size);
+ void *(*api_calloc)(size_t nmemb, size_t size);
+ void *(*api_realloc)(void *ptr, size_t size);
+ void (*api_free)(void *ptr);
++
+ /* Handling async events */
+ /* Register a call back */
+ void (*api_register_async_callback)(awk_ext_id_t id,
awk_async_callback_t *callback);
+
+ /* Tell gawk that something happened, it will call us when it's ready */
+ void (*api_notify_async_event)(awk_ext_id_t id);
} gawk_api_t;
#ifndef GAWK /* these are not for the gawk code itself! */
@@@ -759,15 -759,9 +773,15 @@@
#define register_ext_version(version) \
(api->api_register_ext_version(ext_id, version))
+#define register_async_callback(callback) \
+ (api->api_register_async_callback)(ext_id, callback)
+
+#define notify_async_event() \
+ (api->api_notify_async_event)(awk_ext_id_t)
+
#define emalloc(pointer, type, size, message) \
do { \
- if ((pointer = (type) malloc(size)) == 0) \
+ if ((pointer = (type) gawk_malloc(size)) == 0) \
fatal(ext_id, "%s: malloc of %d bytes failed\n",
message, size); \
} while(0)
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=8e303acf253ef740abd08c1fe44faf1d7a72c9f7
commit 8e303acf253ef740abd08c1fe44faf1d7a72c9f7
Merge: 612b31c 0b8ef4f
Author: Arnold D. Robbins <address@hidden>
Date: Thu Feb 20 20:33:33 2014 +0200
Merge branch 'master' into async-events
diff --cc awkgram.c
index 98333f3,948e63b..ef3cde6
--- a/awkgram.c
+++ b/awkgram.c
@@@ -2376,55 -2172,53 +2172,54 @@@ yyreduce
break;
case 38:
- /* Line 1787 of yacc.c */
- #line 448 "awkgram.y"
+ #line 448 "awkgram.y" /* yacc.c:1646 */
{
- if ((yyvsp[(2) - (2)]) == NULL)
- (yyval) = (yyvsp[(1) - (2)]);
+ if ((yyvsp[0]) == NULL)
+ (yyval) = (yyvsp[-1]);
else {
- add_lint((yyvsp[(2) - (2)]), LINT_no_effect);
- if ((yyvsp[(1) - (2)]) == NULL)
- (yyval) = (yyvsp[(2) - (2)]);
+ add_lint((yyvsp[0]), LINT_no_effect);
+ if ((yyvsp[-1]) == NULL)
+ (yyval) = (yyvsp[0]);
else
- (yyval) = list_merge((yyvsp[(1) - (2)]),
(yyvsp[(2) - (2)]));
+ (yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
+ list_append((yyval), instruction(Op_end_stmt));
yyerrok;
}
-#line 2189 "awkgram.c" /* yacc.c:1646 */
++#line 2190 "awkgram.c" /* yacc.c:1646 */
break;
case 39:
- /* Line 1787 of yacc.c */
- #line 462 "awkgram.y"
-#line 461 "awkgram.y" /* yacc.c:1646 */
++#line 462 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 2195 "awkgram.c" /* yacc.c:1646 */
++#line 2196 "awkgram.c" /* yacc.c:1646 */
break;
case 42:
- /* Line 1787 of yacc.c */
- #line 472 "awkgram.y"
-#line 471 "awkgram.y" /* yacc.c:1646 */
++#line 472 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 2201 "awkgram.c" /* yacc.c:1646 */
++#line 2202 "awkgram.c" /* yacc.c:1646 */
break;
case 43:
- /* Line 1787 of yacc.c */
- #line 474 "awkgram.y"
- { (yyval) = (yyvsp[(2) - (3)]); }
-#line 473 "awkgram.y" /* yacc.c:1646 */
++#line 474 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[-1]); }
-#line 2207 "awkgram.c" /* yacc.c:1646 */
++#line 2208 "awkgram.c" /* yacc.c:1646 */
break;
case 44:
- /* Line 1787 of yacc.c */
- #line 476 "awkgram.y"
-#line 475 "awkgram.y" /* yacc.c:1646 */
++#line 476 "awkgram.y" /* yacc.c:1646 */
{
if (do_pretty_print)
- (yyval) = list_prepend((yyvsp[(1) - (1)]),
instruction(Op_exec_count));
+ (yyval) = list_prepend((yyvsp[0]),
instruction(Op_exec_count));
else
- (yyval) = (yyvsp[(1) - (1)]);
+ (yyval) = (yyvsp[0]);
}
-#line 2218 "awkgram.c" /* yacc.c:1646 */
++#line 2219 "awkgram.c" /* yacc.c:1646 */
break;
case 45:
- /* Line 1787 of yacc.c */
- #line 483 "awkgram.y"
-#line 482 "awkgram.y" /* yacc.c:1646 */
++#line 483 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *dflt, *curr = NULL, *cexp, *cstmt;
INSTRUCTION *ip, *nextc, *tbreak;
@@@ -2514,11 -2308,11 +2309,11 @@@
break_allowed--;
fix_break_continue(ip, tbreak, NULL);
}
-#line 2312 "awkgram.c" /* yacc.c:1646 */
++#line 2313 "awkgram.c" /* yacc.c:1646 */
break;
case 46:
- /* Line 1787 of yacc.c */
- #line 573 "awkgram.y"
-#line 572 "awkgram.y" /* yacc.c:1646 */
++#line 573 "awkgram.y" /* yacc.c:1646 */
{
/*
* -----------------
@@@ -2560,11 -2354,11 +2355,11 @@@
continue_allowed--;
fix_break_continue(ip, tbreak, tcont);
}
-#line 2358 "awkgram.c" /* yacc.c:1646 */
++#line 2359 "awkgram.c" /* yacc.c:1646 */
break;
case 47:
- /* Line 1787 of yacc.c */
- #line 615 "awkgram.y"
-#line 614 "awkgram.y" /* yacc.c:1646 */
++#line 615 "awkgram.y" /* yacc.c:1646 */
{
/*
* -----------------
@@@ -2606,21 -2400,21 +2401,21 @@@
} /* else
$1 and $4 are NULLs */
}
-#line 2404 "awkgram.c" /* yacc.c:1646 */
++#line 2405 "awkgram.c" /* yacc.c:1646 */
break;
case 48:
- /* Line 1787 of yacc.c */
- #line 657 "awkgram.y"
-#line 656 "awkgram.y" /* yacc.c:1646 */
++#line 657 "awkgram.y" /* yacc.c:1646 */
{
INSTRUCTION *ip;
- char *var_name = (yyvsp[(3) - (8)])->lextok;
-
- if ((yyvsp[(8) - (8)]) != NULL
- && (yyvsp[(8) - (8)])->lasti->opcode ==
Op_K_delete
- && (yyvsp[(8) - (8)])->lasti->expr_count == 1
- && (yyvsp[(8) - (8)])->nexti->opcode == Op_push
- && ((yyvsp[(8) - (8)])->nexti->memory->type !=
Node_var || !((yyvsp[(8) - (8)])->nexti->memory->var_update))
- && strcmp((yyvsp[(8) -
(8)])->nexti->memory->vname, var_name) == 0
+ char *var_name = (yyvsp[-5])->lextok;
+
+ if ((yyvsp[0]) != NULL
+ && (yyvsp[0])->lasti->opcode == Op_K_delete
+ && (yyvsp[0])->lasti->expr_count == 1
+ && (yyvsp[0])->nexti->opcode == Op_push
+ && ((yyvsp[0])->nexti->memory->type != Node_var
|| !((yyvsp[0])->nexti->memory->var_update))
+ && strcmp((yyvsp[0])->nexti->memory->vname,
var_name) == 0
) {
/* Efficiency hack. Recognize the special case of
@@@ -2723,98 -2517,98 +2518,98 @@@ regular_loop
break_allowed--;
continue_allowed--;
}
-#line 2521 "awkgram.c" /* yacc.c:1646 */
++#line 2522 "awkgram.c" /* yacc.c:1646 */
break;
case 49:
- /* Line 1787 of yacc.c */
- #line 770 "awkgram.y"
-#line 769 "awkgram.y" /* yacc.c:1646 */
++#line 770 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = mk_for_loop((yyvsp[(1) - (12)]), (yyvsp[(3) - (12)]),
(yyvsp[(6) - (12)]), (yyvsp[(9) - (12)]), (yyvsp[(12) - (12)]));
+ (yyval) = mk_for_loop((yyvsp[-11]), (yyvsp[-9]), (yyvsp[-6]),
(yyvsp[-3]), (yyvsp[0]));
break_allowed--;
continue_allowed--;
}
-#line 2532 "awkgram.c" /* yacc.c:1646 */
++#line 2533 "awkgram.c" /* yacc.c:1646 */
break;
case 50:
- /* Line 1787 of yacc.c */
- #line 777 "awkgram.y"
-#line 776 "awkgram.y" /* yacc.c:1646 */
++#line 777 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = mk_for_loop((yyvsp[(1) - (11)]), (yyvsp[(3) - (11)]),
(INSTRUCTION *) NULL, (yyvsp[(8) - (11)]), (yyvsp[(11) - (11)]));
+ (yyval) = mk_for_loop((yyvsp[-10]), (yyvsp[-8]), (INSTRUCTION
*) NULL, (yyvsp[-3]), (yyvsp[0]));
break_allowed--;
continue_allowed--;
}
-#line 2543 "awkgram.c" /* yacc.c:1646 */
++#line 2544 "awkgram.c" /* yacc.c:1646 */
break;
case 51:
- /* Line 1787 of yacc.c */
- #line 784 "awkgram.y"
-#line 783 "awkgram.y" /* yacc.c:1646 */
++#line 784 "awkgram.y" /* yacc.c:1646 */
{
if (do_pretty_print)
- (yyval) = list_prepend((yyvsp[(1) - (1)]),
instruction(Op_exec_count));
+ (yyval) = list_prepend((yyvsp[0]),
instruction(Op_exec_count));
else
- (yyval) = (yyvsp[(1) - (1)]);
+ (yyval) = (yyvsp[0]);
}
-#line 2554 "awkgram.c" /* yacc.c:1646 */
++#line 2555 "awkgram.c" /* yacc.c:1646 */
break;
case 52:
- /* Line 1787 of yacc.c */
- #line 794 "awkgram.y"
-#line 793 "awkgram.y" /* yacc.c:1646 */
++#line 794 "awkgram.y" /* yacc.c:1646 */
{
if (! break_allowed)
- error_ln((yyvsp[(1) - (2)])->source_line,
+ error_ln((yyvsp[-1])->source_line,
_("`break' is not allowed outside a loop or
switch"));
- (yyvsp[(1) - (2)])->target_jmp = NULL;
- (yyval) = list_create((yyvsp[(1) - (2)]));
+ (yyvsp[-1])->target_jmp = NULL;
+ (yyval) = list_create((yyvsp[-1]));
}
-#line 2567 "awkgram.c" /* yacc.c:1646 */
++#line 2568 "awkgram.c" /* yacc.c:1646 */
break;
case 53:
- /* Line 1787 of yacc.c */
- #line 803 "awkgram.y"
-#line 802 "awkgram.y" /* yacc.c:1646 */
++#line 803 "awkgram.y" /* yacc.c:1646 */
{
if (! continue_allowed)
- error_ln((yyvsp[(1) - (2)])->source_line,
+ error_ln((yyvsp[-1])->source_line,
_("`continue' is not allowed outside a loop"));
- (yyvsp[(1) - (2)])->target_jmp = NULL;
- (yyval) = list_create((yyvsp[(1) - (2)]));
+ (yyvsp[-1])->target_jmp = NULL;
+ (yyval) = list_create((yyvsp[-1]));
}
-#line 2580 "awkgram.c" /* yacc.c:1646 */
++#line 2581 "awkgram.c" /* yacc.c:1646 */
break;
case 54:
- /* Line 1787 of yacc.c */
- #line 812 "awkgram.y"
-#line 811 "awkgram.y" /* yacc.c:1646 */
++#line 812 "awkgram.y" /* yacc.c:1646 */
{
/* if inside function (rule = 0), resolve context at run-time */
if (rule && rule != Rule)
- error_ln((yyvsp[(1) - (2)])->source_line,
+ error_ln((yyvsp[-1])->source_line,
_("`next' used in %s action"), ruletab[rule]);
- (yyvsp[(1) - (2)])->target_jmp = ip_rec;
- (yyval) = list_create((yyvsp[(1) - (2)]));
+ (yyvsp[-1])->target_jmp = ip_rec;
+ (yyval) = list_create((yyvsp[-1]));
}
-#line 2593 "awkgram.c" /* yacc.c:1646 */
++#line 2594 "awkgram.c" /* yacc.c:1646 */
break;
case 55:
- /* Line 1787 of yacc.c */
- #line 821 "awkgram.y"
-#line 820 "awkgram.y" /* yacc.c:1646 */
++#line 821 "awkgram.y" /* yacc.c:1646 */
{
/* if inside function (rule = 0), resolve context at run-time */
if (rule == BEGIN || rule == END || rule == ENDFILE)
- error_ln((yyvsp[(1) - (2)])->source_line,
+ error_ln((yyvsp[-1])->source_line,
_("`nextfile' used in %s action"),
ruletab[rule]);
- (yyvsp[(1) - (2)])->target_newfile = ip_newfile;
- (yyvsp[(1) - (2)])->target_endfile = ip_endfile;
- (yyval) = list_create((yyvsp[(1) - (2)]));
+ (yyvsp[-1])->target_newfile = ip_newfile;
+ (yyvsp[-1])->target_endfile = ip_endfile;
+ (yyval) = list_create((yyvsp[-1]));
}
-#line 2608 "awkgram.c" /* yacc.c:1646 */
++#line 2609 "awkgram.c" /* yacc.c:1646 */
break;
case 56:
- /* Line 1787 of yacc.c */
- #line 832 "awkgram.y"
-#line 831 "awkgram.y" /* yacc.c:1646 */
++#line 832 "awkgram.y" /* yacc.c:1646 */
{
/* Initialize the two possible jump targets, the actual target
* is resolved at run-time.
@@@ -2827,25 -2621,25 +2622,25 @@@
(void) list_prepend((yyval), instruction(Op_push_i));
(yyval)->nexti->memory = dupnode(Nnull_string);
} else
- (yyval) = list_append((yyvsp[(2) - (3)]), (yyvsp[(1) -
(3)]));
+ (yyval) = list_append((yyvsp[-1]), (yyvsp[-2]));
}
-#line 2627 "awkgram.c" /* yacc.c:1646 */
++#line 2628 "awkgram.c" /* yacc.c:1646 */
break;
case 57:
- /* Line 1787 of yacc.c */
- #line 847 "awkgram.y"
-#line 846 "awkgram.y" /* yacc.c:1646 */
++#line 847 "awkgram.y" /* yacc.c:1646 */
{
if (! in_function)
yyerror(_("`return' used outside function context"));
}
-#line 2636 "awkgram.c" /* yacc.c:1646 */
++#line 2637 "awkgram.c" /* yacc.c:1646 */
break;
case 58:
- /* Line 1787 of yacc.c */
- #line 850 "awkgram.y"
-#line 849 "awkgram.y" /* yacc.c:1646 */
++#line 850 "awkgram.y" /* yacc.c:1646 */
{
- if ((yyvsp[(3) - (4)]) == NULL) {
- (yyval) = list_create((yyvsp[(1) - (4)]));
+ if ((yyvsp[-1]) == NULL) {
+ (yyval) = list_create((yyvsp[-3]));
(void) list_prepend((yyval), instruction(Op_push_i));
(yyval)->nexti->memory = dupnode(Nnull_string);
} else {
@@@ -2857,23 -2651,23 +2652,23 @@@
* call without a return value is recognized
* in mk_function().
*/
- ((yyvsp[(3) - (4)])->lasti + 1)->tail_call =
true;
+ ((yyvsp[-1])->lasti + 1)->tail_call = true;
}
- (yyval) = list_append((yyvsp[(3) - (4)]), (yyvsp[(1) -
(4)]));
+ (yyval) = list_append((yyvsp[-1]), (yyvsp[-3]));
}
}
-#line 2661 "awkgram.c" /* yacc.c:1646 */
++#line 2662 "awkgram.c" /* yacc.c:1646 */
break;
case 60:
- /* Line 1787 of yacc.c */
- #line 882 "awkgram.y"
-#line 881 "awkgram.y" /* yacc.c:1646 */
++#line 882 "awkgram.y" /* yacc.c:1646 */
{ in_print = true; in_parens = 0; }
-#line 2667 "awkgram.c" /* yacc.c:1646 */
++#line 2668 "awkgram.c" /* yacc.c:1646 */
break;
case 61:
- /* Line 1787 of yacc.c */
- #line 883 "awkgram.y"
-#line 882 "awkgram.y" /* yacc.c:1646 */
++#line 883 "awkgram.y" /* yacc.c:1646 */
{
/*
* Optimization: plain `print' has no expression list, so $3 is
null.
@@@ -2970,27 -2764,27 +2765,27 @@@ regular_print
}
}
}
-#line 2768 "awkgram.c" /* yacc.c:1646 */
++#line 2769 "awkgram.c" /* yacc.c:1646 */
break;
case 62:
- /* Line 1787 of yacc.c */
- #line 980 "awkgram.y"
-#line 979 "awkgram.y" /* yacc.c:1646 */
++#line 980 "awkgram.y" /* yacc.c:1646 */
{ sub_counter = 0; }
-#line 2774 "awkgram.c" /* yacc.c:1646 */
++#line 2775 "awkgram.c" /* yacc.c:1646 */
break;
case 63:
- /* Line 1787 of yacc.c */
- #line 981 "awkgram.y"
-#line 980 "awkgram.y" /* yacc.c:1646 */
++#line 981 "awkgram.y" /* yacc.c:1646 */
{
- char *arr = (yyvsp[(2) - (4)])->lextok;
+ char *arr = (yyvsp[-2])->lextok;
- (yyvsp[(2) - (4)])->opcode = Op_push_array;
- (yyvsp[(2) - (4)])->memory = variable((yyvsp[(2) -
(4)])->source_line, arr, Node_var_new);
+ (yyvsp[-2])->opcode = Op_push_array;
+ (yyvsp[-2])->memory = variable((yyvsp[-2])->source_line, arr,
Node_var_new);
if (! do_posix && ! do_traditional) {
- if ((yyvsp[(2) - (4)])->memory == symbol_table)
+ if ((yyvsp[-2])->memory == symbol_table)
fatal(_("`delete' is not allowed with SYMTAB"));
- else if ((yyvsp[(2) - (4)])->memory == func_table)
+ else if ((yyvsp[-2])->memory == func_table)
fatal(_("`delete' is not allowed with
FUNCTAB"));
}
@@@ -3006,21 -2800,21 +2801,21 @@@
* Also, since BWK awk supports it, we don't have to
* check do_traditional either.
*/
- (yyvsp[(1) - (4)])->expr_count = 0;
- (yyval) = list_append(list_create((yyvsp[(2) - (4)])),
(yyvsp[(1) - (4)]));
+ (yyvsp[-3])->expr_count = 0;
+ (yyval) = list_append(list_create((yyvsp[-2])),
(yyvsp[-3]));
} else {
- (yyvsp[(1) - (4)])->expr_count = sub_counter;
- (yyval) = list_append(list_append((yyvsp[(4) - (4)]),
(yyvsp[(2) - (4)])), (yyvsp[(1) - (4)]));
+ (yyvsp[-3])->expr_count = sub_counter;
+ (yyval) = list_append(list_append((yyvsp[0]),
(yyvsp[-2])), (yyvsp[-3]));
}
}
-#line 2811 "awkgram.c" /* yacc.c:1646 */
++#line 2812 "awkgram.c" /* yacc.c:1646 */
break;
case 64:
- /* Line 1787 of yacc.c */
- #line 1018 "awkgram.y"
-#line 1017 "awkgram.y" /* yacc.c:1646 */
++#line 1018 "awkgram.y" /* yacc.c:1646 */
{
static bool warned = false;
- char *arr = (yyvsp[(3) - (4)])->lextok;
+ char *arr = (yyvsp[-1])->lextok;
if (do_lint && ! warned) {
warned = true;
@@@ -3043,465 -2837,465 +2838,465 @@@
fatal(_("`delete' is not allowed with
FUNCTAB"));
}
}
-#line 2841 "awkgram.c" /* yacc.c:1646 */
++#line 2842 "awkgram.c" /* yacc.c:1646 */
break;
case 65:
- /* Line 1787 of yacc.c */
- #line 1044 "awkgram.y"
- { (yyval) = optimize_assignment((yyvsp[(1) - (1)])); }
-#line 1043 "awkgram.y" /* yacc.c:1646 */
++#line 1044 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = optimize_assignment((yyvsp[0])); }
-#line 2847 "awkgram.c" /* yacc.c:1646 */
++#line 2848 "awkgram.c" /* yacc.c:1646 */
break;
case 66:
- /* Line 1787 of yacc.c */
- #line 1049 "awkgram.y"
-#line 1048 "awkgram.y" /* yacc.c:1646 */
++#line 1049 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 2853 "awkgram.c" /* yacc.c:1646 */
++#line 2854 "awkgram.c" /* yacc.c:1646 */
break;
case 67:
- /* Line 1787 of yacc.c */
- #line 1051 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1050 "awkgram.y" /* yacc.c:1646 */
++#line 1051 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 2859 "awkgram.c" /* yacc.c:1646 */
++#line 2860 "awkgram.c" /* yacc.c:1646 */
break;
case 68:
- /* Line 1787 of yacc.c */
- #line 1056 "awkgram.y"
-#line 1055 "awkgram.y" /* yacc.c:1646 */
++#line 1056 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 2865 "awkgram.c" /* yacc.c:1646 */
++#line 2866 "awkgram.c" /* yacc.c:1646 */
break;
case 69:
- /* Line 1787 of yacc.c */
- #line 1058 "awkgram.y"
-#line 1057 "awkgram.y" /* yacc.c:1646 */
++#line 1058 "awkgram.y" /* yacc.c:1646 */
{
- if ((yyvsp[(1) - (2)]) == NULL)
- (yyval) = list_create((yyvsp[(2) - (2)]));
+ if ((yyvsp[-1]) == NULL)
+ (yyval) = list_create((yyvsp[0]));
else
- (yyval) = list_prepend((yyvsp[(1) - (2)]), (yyvsp[(2) -
(2)]));
+ (yyval) = list_prepend((yyvsp[-1]), (yyvsp[0]));
}
-#line 2876 "awkgram.c" /* yacc.c:1646 */
++#line 2877 "awkgram.c" /* yacc.c:1646 */
break;
case 70:
- /* Line 1787 of yacc.c */
- #line 1065 "awkgram.y"
-#line 1064 "awkgram.y" /* yacc.c:1646 */
++#line 1065 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 2882 "awkgram.c" /* yacc.c:1646 */
++#line 2883 "awkgram.c" /* yacc.c:1646 */
break;
case 71:
- /* Line 1787 of yacc.c */
- #line 1070 "awkgram.y"
-#line 1069 "awkgram.y" /* yacc.c:1646 */
++#line 1070 "awkgram.y" /* yacc.c:1646 */
{
- INSTRUCTION *casestmt = (yyvsp[(5) - (5)]);
- if ((yyvsp[(5) - (5)]) == NULL)
+ INSTRUCTION *casestmt = (yyvsp[0]);
+ if ((yyvsp[0]) == NULL)
casestmt = list_create(instruction(Op_no_op));
if (do_pretty_print)
(void) list_prepend(casestmt,
instruction(Op_exec_count));
- (yyvsp[(1) - (5)])->case_exp = (yyvsp[(2) - (5)]);
- (yyvsp[(1) - (5)])->case_stmt = casestmt;
- bcfree((yyvsp[(3) - (5)]));
- (yyval) = (yyvsp[(1) - (5)]);
+ (yyvsp[-4])->case_exp = (yyvsp[-3]);
+ (yyvsp[-4])->case_stmt = casestmt;
+ bcfree((yyvsp[-2]));
+ (yyval) = (yyvsp[-4]);
}
-#line 2898 "awkgram.c" /* yacc.c:1646 */
++#line 2899 "awkgram.c" /* yacc.c:1646 */
break;
case 72:
- /* Line 1787 of yacc.c */
- #line 1082 "awkgram.y"
-#line 1081 "awkgram.y" /* yacc.c:1646 */
++#line 1082 "awkgram.y" /* yacc.c:1646 */
{
- INSTRUCTION *casestmt = (yyvsp[(4) - (4)]);
- if ((yyvsp[(4) - (4)]) == NULL)
+ INSTRUCTION *casestmt = (yyvsp[0]);
+ if ((yyvsp[0]) == NULL)
casestmt = list_create(instruction(Op_no_op));
if (do_pretty_print)
(void) list_prepend(casestmt,
instruction(Op_exec_count));
- bcfree((yyvsp[(2) - (4)]));
- (yyvsp[(1) - (4)])->case_stmt = casestmt;
- (yyval) = (yyvsp[(1) - (4)]);
+ bcfree((yyvsp[-2]));
+ (yyvsp[-3])->case_stmt = casestmt;
+ (yyval) = (yyvsp[-3]);
}
-#line 2913 "awkgram.c" /* yacc.c:1646 */
++#line 2914 "awkgram.c" /* yacc.c:1646 */
break;
case 73:
- /* Line 1787 of yacc.c */
- #line 1096 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1095 "awkgram.y" /* yacc.c:1646 */
++#line 1096 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 2919 "awkgram.c" /* yacc.c:1646 */
++#line 2920 "awkgram.c" /* yacc.c:1646 */
break;
case 74:
- /* Line 1787 of yacc.c */
- #line 1098 "awkgram.y"
-#line 1097 "awkgram.y" /* yacc.c:1646 */
++#line 1098 "awkgram.y" /* yacc.c:1646 */
{
- NODE *n = (yyvsp[(2) - (2)])->memory;
+ NODE *n = (yyvsp[0])->memory;
(void) force_number(n);
negate_num(n);
- bcfree((yyvsp[(1) - (2)]));
- (yyval) = (yyvsp[(2) - (2)]);
+ bcfree((yyvsp[-1]));
+ (yyval) = (yyvsp[0]);
}
-#line 2931 "awkgram.c" /* yacc.c:1646 */
++#line 2932 "awkgram.c" /* yacc.c:1646 */
break;
case 75:
- /* Line 1787 of yacc.c */
- #line 1106 "awkgram.y"
-#line 1105 "awkgram.y" /* yacc.c:1646 */
++#line 1106 "awkgram.y" /* yacc.c:1646 */
{
- bcfree((yyvsp[(1) - (2)]));
- (yyval) = (yyvsp[(2) - (2)]);
+ bcfree((yyvsp[-1]));
+ (yyval) = (yyvsp[0]);
}
-#line 2940 "awkgram.c" /* yacc.c:1646 */
++#line 2941 "awkgram.c" /* yacc.c:1646 */
break;
case 76:
- /* Line 1787 of yacc.c */
- #line 1111 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1110 "awkgram.y" /* yacc.c:1646 */
++#line 1111 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 2946 "awkgram.c" /* yacc.c:1646 */
++#line 2947 "awkgram.c" /* yacc.c:1646 */
break;
case 77:
- /* Line 1787 of yacc.c */
- #line 1113 "awkgram.y"
-#line 1112 "awkgram.y" /* yacc.c:1646 */
++#line 1113 "awkgram.y" /* yacc.c:1646 */
{
- (yyvsp[(1) - (1)])->opcode = Op_push_re;
- (yyval) = (yyvsp[(1) - (1)]);
+ (yyvsp[0])->opcode = Op_push_re;
+ (yyval) = (yyvsp[0]);
}
-#line 2955 "awkgram.c" /* yacc.c:1646 */
++#line 2956 "awkgram.c" /* yacc.c:1646 */
break;
case 78:
- /* Line 1787 of yacc.c */
- #line 1121 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1120 "awkgram.y" /* yacc.c:1646 */
++#line 1121 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 2961 "awkgram.c" /* yacc.c:1646 */
++#line 2962 "awkgram.c" /* yacc.c:1646 */
break;
case 79:
- /* Line 1787 of yacc.c */
- #line 1123 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1122 "awkgram.y" /* yacc.c:1646 */
++#line 1123 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 2967 "awkgram.c" /* yacc.c:1646 */
++#line 2968 "awkgram.c" /* yacc.c:1646 */
break;
case 81:
- /* Line 1787 of yacc.c */
- #line 1133 "awkgram.y"
-#line 1132 "awkgram.y" /* yacc.c:1646 */
++#line 1133 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = (yyvsp[(2) - (3)]);
+ (yyval) = (yyvsp[-1]);
}
-#line 2975 "awkgram.c" /* yacc.c:1646 */
++#line 2976 "awkgram.c" /* yacc.c:1646 */
break;
case 82:
- /* Line 1787 of yacc.c */
- #line 1140 "awkgram.y"
-#line 1139 "awkgram.y" /* yacc.c:1646 */
++#line 1140 "awkgram.y" /* yacc.c:1646 */
{
in_print = false;
in_parens = 0;
(yyval) = NULL;
}
-#line 2985 "awkgram.c" /* yacc.c:1646 */
++#line 2986 "awkgram.c" /* yacc.c:1646 */
break;
case 83:
- /* Line 1787 of yacc.c */
- #line 1145 "awkgram.y"
-#line 1144 "awkgram.y" /* yacc.c:1646 */
++#line 1145 "awkgram.y" /* yacc.c:1646 */
{ in_print = false; in_parens = 0; }
-#line 2991 "awkgram.c" /* yacc.c:1646 */
++#line 2992 "awkgram.c" /* yacc.c:1646 */
break;
case 84:
- /* Line 1787 of yacc.c */
- #line 1146 "awkgram.y"
-#line 1145 "awkgram.y" /* yacc.c:1646 */
++#line 1146 "awkgram.y" /* yacc.c:1646 */
{
- if ((yyvsp[(1) - (3)])->redir_type == redirect_twoway
- && (yyvsp[(3) - (3)])->lasti->opcode ==
Op_K_getline_redir
- && (yyvsp[(3) - (3)])->lasti->redir_type ==
redirect_twoway)
+ if ((yyvsp[-2])->redir_type == redirect_twoway
+ && (yyvsp[0])->lasti->opcode == Op_K_getline_redir
+ && (yyvsp[0])->lasti->redir_type ==
redirect_twoway)
yyerror(_("multistage two-way pipelines don't work"));
- (yyval) = list_prepend((yyvsp[(3) - (3)]), (yyvsp[(1) - (3)]));
+ (yyval) = list_prepend((yyvsp[0]), (yyvsp[-2]));
}
-#line 3003 "awkgram.c" /* yacc.c:1646 */
++#line 3004 "awkgram.c" /* yacc.c:1646 */
break;
case 85:
- /* Line 1787 of yacc.c */
- #line 1157 "awkgram.y"
-#line 1156 "awkgram.y" /* yacc.c:1646 */
++#line 1157 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = mk_condition((yyvsp[(3) - (6)]), (yyvsp[(1) - (6)]),
(yyvsp[(6) - (6)]), NULL, NULL);
+ (yyval) = mk_condition((yyvsp[-3]), (yyvsp[-5]), (yyvsp[0]),
NULL, NULL);
}
-#line 3011 "awkgram.c" /* yacc.c:1646 */
++#line 3012 "awkgram.c" /* yacc.c:1646 */
break;
case 86:
- /* Line 1787 of yacc.c */
- #line 1162 "awkgram.y"
-#line 1161 "awkgram.y" /* yacc.c:1646 */
++#line 1162 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = mk_condition((yyvsp[(3) - (9)]), (yyvsp[(1) - (9)]),
(yyvsp[(6) - (9)]), (yyvsp[(7) - (9)]), (yyvsp[(9) - (9)]));
+ (yyval) = mk_condition((yyvsp[-6]), (yyvsp[-8]), (yyvsp[-3]),
(yyvsp[-2]), (yyvsp[0]));
}
-#line 3019 "awkgram.c" /* yacc.c:1646 */
++#line 3020 "awkgram.c" /* yacc.c:1646 */
break;
case 91:
- /* Line 1787 of yacc.c */
- #line 1179 "awkgram.y"
-#line 1178 "awkgram.y" /* yacc.c:1646 */
++#line 1179 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 3025 "awkgram.c" /* yacc.c:1646 */
++#line 3026 "awkgram.c" /* yacc.c:1646 */
break;
case 92:
- /* Line 1787 of yacc.c */
- #line 1181 "awkgram.y"
-#line 1180 "awkgram.y" /* yacc.c:1646 */
++#line 1181 "awkgram.y" /* yacc.c:1646 */
{
- bcfree((yyvsp[(1) - (2)]));
- (yyval) = (yyvsp[(2) - (2)]);
+ bcfree((yyvsp[-1]));
+ (yyval) = (yyvsp[0]);
}
-#line 3034 "awkgram.c" /* yacc.c:1646 */
++#line 3035 "awkgram.c" /* yacc.c:1646 */
break;
case 93:
- /* Line 1787 of yacc.c */
- #line 1189 "awkgram.y"
-#line 1188 "awkgram.y" /* yacc.c:1646 */
++#line 1189 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 3040 "awkgram.c" /* yacc.c:1646 */
++#line 3041 "awkgram.c" /* yacc.c:1646 */
break;
case 94:
- /* Line 1787 of yacc.c */
- #line 1191 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]) ; }
-#line 1190 "awkgram.y" /* yacc.c:1646 */
++#line 1191 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]) ; }
-#line 3046 "awkgram.c" /* yacc.c:1646 */
++#line 3047 "awkgram.c" /* yacc.c:1646 */
break;
case 95:
- /* Line 1787 of yacc.c */
- #line 1196 "awkgram.y"
-#line 1195 "awkgram.y" /* yacc.c:1646 */
++#line 1196 "awkgram.y" /* yacc.c:1646 */
{
- (yyvsp[(1) - (1)])->param_count = 0;
- (yyval) = list_create((yyvsp[(1) - (1)]));
+ (yyvsp[0])->param_count = 0;
+ (yyval) = list_create((yyvsp[0]));
}
-#line 3055 "awkgram.c" /* yacc.c:1646 */
++#line 3056 "awkgram.c" /* yacc.c:1646 */
break;
case 96:
- /* Line 1787 of yacc.c */
- #line 1201 "awkgram.y"
-#line 1200 "awkgram.y" /* yacc.c:1646 */
++#line 1201 "awkgram.y" /* yacc.c:1646 */
{
- (yyvsp[(3) - (3)])->param_count = (yyvsp[(1) -
(3)])->lasti->param_count + 1;
- (yyval) = list_append((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]));
+ (yyvsp[0])->param_count = (yyvsp[-2])->lasti->param_count + 1;
+ (yyval) = list_append((yyvsp[-2]), (yyvsp[0]));
yyerrok;
}
-#line 3065 "awkgram.c" /* yacc.c:1646 */
++#line 3066 "awkgram.c" /* yacc.c:1646 */
break;
case 97:
- /* Line 1787 of yacc.c */
- #line 1207 "awkgram.y"
-#line 1206 "awkgram.y" /* yacc.c:1646 */
++#line 1207 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 3071 "awkgram.c" /* yacc.c:1646 */
++#line 3072 "awkgram.c" /* yacc.c:1646 */
break;
case 98:
- /* Line 1787 of yacc.c */
- #line 1209 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (2)]); }
-#line 1208 "awkgram.y" /* yacc.c:1646 */
++#line 1209 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[-1]); }
-#line 3077 "awkgram.c" /* yacc.c:1646 */
++#line 3078 "awkgram.c" /* yacc.c:1646 */
break;
case 99:
- /* Line 1787 of yacc.c */
- #line 1211 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (3)]); }
-#line 1210 "awkgram.y" /* yacc.c:1646 */
++#line 1211 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[-2]); }
-#line 3083 "awkgram.c" /* yacc.c:1646 */
++#line 3084 "awkgram.c" /* yacc.c:1646 */
break;
case 100:
- /* Line 1787 of yacc.c */
- #line 1217 "awkgram.y"
-#line 1216 "awkgram.y" /* yacc.c:1646 */
++#line 1217 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 3089 "awkgram.c" /* yacc.c:1646 */
++#line 3090 "awkgram.c" /* yacc.c:1646 */
break;
case 101:
- /* Line 1787 of yacc.c */
- #line 1219 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1218 "awkgram.y" /* yacc.c:1646 */
++#line 1219 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3095 "awkgram.c" /* yacc.c:1646 */
++#line 3096 "awkgram.c" /* yacc.c:1646 */
break;
case 102:
- /* Line 1787 of yacc.c */
- #line 1224 "awkgram.y"
-#line 1223 "awkgram.y" /* yacc.c:1646 */
++#line 1224 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 3101 "awkgram.c" /* yacc.c:1646 */
++#line 3102 "awkgram.c" /* yacc.c:1646 */
break;
case 103:
- /* Line 1787 of yacc.c */
- #line 1226 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1225 "awkgram.y" /* yacc.c:1646 */
++#line 1226 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3107 "awkgram.c" /* yacc.c:1646 */
++#line 3108 "awkgram.c" /* yacc.c:1646 */
break;
case 104:
- /* Line 1787 of yacc.c */
- #line 1231 "awkgram.y"
- { (yyval) = mk_expression_list(NULL, (yyvsp[(1) - (1)])); }
-#line 1230 "awkgram.y" /* yacc.c:1646 */
++#line 1231 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_expression_list(NULL, (yyvsp[0])); }
-#line 3113 "awkgram.c" /* yacc.c:1646 */
++#line 3114 "awkgram.c" /* yacc.c:1646 */
break;
case 105:
- /* Line 1787 of yacc.c */
- #line 1233 "awkgram.y"
-#line 1232 "awkgram.y" /* yacc.c:1646 */
++#line 1233 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = mk_expression_list((yyvsp[(1) - (3)]), (yyvsp[(3) -
(3)]));
+ (yyval) = mk_expression_list((yyvsp[-2]), (yyvsp[0]));
yyerrok;
}
-#line 3122 "awkgram.c" /* yacc.c:1646 */
++#line 3123 "awkgram.c" /* yacc.c:1646 */
break;
case 106:
- /* Line 1787 of yacc.c */
- #line 1238 "awkgram.y"
-#line 1237 "awkgram.y" /* yacc.c:1646 */
++#line 1238 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 3128 "awkgram.c" /* yacc.c:1646 */
++#line 3129 "awkgram.c" /* yacc.c:1646 */
break;
case 107:
- /* Line 1787 of yacc.c */
- #line 1240 "awkgram.y"
-#line 1239 "awkgram.y" /* yacc.c:1646 */
++#line 1240 "awkgram.y" /* yacc.c:1646 */
{
/*
* Returning the expression list instead of NULL lets
* snode get a list of arguments that it can count.
*/
- (yyval) = (yyvsp[(1) - (2)]);
+ (yyval) = (yyvsp[-1]);
}
-#line 3140 "awkgram.c" /* yacc.c:1646 */
++#line 3141 "awkgram.c" /* yacc.c:1646 */
break;
case 108:
- /* Line 1787 of yacc.c */
- #line 1248 "awkgram.y"
-#line 1247 "awkgram.y" /* yacc.c:1646 */
++#line 1248 "awkgram.y" /* yacc.c:1646 */
{
/* Ditto */
- (yyval) = mk_expression_list((yyvsp[(1) - (3)]), (yyvsp[(3) -
(3)]));
+ (yyval) = mk_expression_list((yyvsp[-2]), (yyvsp[0]));
}
-#line 3149 "awkgram.c" /* yacc.c:1646 */
++#line 3150 "awkgram.c" /* yacc.c:1646 */
break;
case 109:
- /* Line 1787 of yacc.c */
- #line 1253 "awkgram.y"
-#line 1252 "awkgram.y" /* yacc.c:1646 */
++#line 1253 "awkgram.y" /* yacc.c:1646 */
{
/* Ditto */
- (yyval) = (yyvsp[(1) - (3)]);
+ (yyval) = (yyvsp[-2]);
}
-#line 3158 "awkgram.c" /* yacc.c:1646 */
++#line 3159 "awkgram.c" /* yacc.c:1646 */
break;
case 110:
- /* Line 1787 of yacc.c */
- #line 1262 "awkgram.y"
-#line 1261 "awkgram.y" /* yacc.c:1646 */
++#line 1262 "awkgram.y" /* yacc.c:1646 */
{
- if (do_lint && (yyvsp[(3) - (3)])->lasti->opcode ==
Op_match_rec)
- lintwarn_ln((yyvsp[(2) - (3)])->source_line,
+ if (do_lint && (yyvsp[0])->lasti->opcode == Op_match_rec)
+ lintwarn_ln((yyvsp[-1])->source_line,
_("regular expression on right of assignment"));
- (yyval) = mk_assignment((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]),
(yyvsp[(2) - (3)]));
+ (yyval) = mk_assignment((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1]));
}
-#line 3169 "awkgram.c" /* yacc.c:1646 */
++#line 3170 "awkgram.c" /* yacc.c:1646 */
break;
case 111:
- /* Line 1787 of yacc.c */
- #line 1269 "awkgram.y"
- { (yyval) = mk_boolean((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1268 "awkgram.y" /* yacc.c:1646 */
++#line 1269 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_boolean((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3175 "awkgram.c" /* yacc.c:1646 */
++#line 3176 "awkgram.c" /* yacc.c:1646 */
break;
case 112:
- /* Line 1787 of yacc.c */
- #line 1271 "awkgram.y"
- { (yyval) = mk_boolean((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1270 "awkgram.y" /* yacc.c:1646 */
++#line 1271 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_boolean((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3181 "awkgram.c" /* yacc.c:1646 */
++#line 3182 "awkgram.c" /* yacc.c:1646 */
break;
case 113:
- /* Line 1787 of yacc.c */
- #line 1273 "awkgram.y"
-#line 1272 "awkgram.y" /* yacc.c:1646 */
++#line 1273 "awkgram.y" /* yacc.c:1646 */
{
- if ((yyvsp[(1) - (3)])->lasti->opcode == Op_match_rec)
- warning_ln((yyvsp[(2) - (3)])->source_line,
+ if ((yyvsp[-2])->lasti->opcode == Op_match_rec)
+ warning_ln((yyvsp[-1])->source_line,
_("regular expression on left of `~' or `!~'
operator"));
- if ((yyvsp[(3) - (3)])->lasti == (yyvsp[(3) - (3)])->nexti &&
(yyvsp[(3) - (3)])->nexti->opcode == Op_match_rec) {
- (yyvsp[(2) - (3)])->memory = (yyvsp[(3) -
(3)])->nexti->memory;
- bcfree((yyvsp[(3) - (3)])->nexti); /* Op_match_rec
*/
- bcfree((yyvsp[(3) - (3)])); /*
Op_list */
- (yyval) = list_append((yyvsp[(1) - (3)]), (yyvsp[(2) -
(3)]));
+ if ((yyvsp[0])->lasti == (yyvsp[0])->nexti &&
(yyvsp[0])->nexti->opcode == Op_match_rec) {
+ (yyvsp[-1])->memory = (yyvsp[0])->nexti->memory;
+ bcfree((yyvsp[0])->nexti); /* Op_match_rec */
+ bcfree((yyvsp[0])); /* Op_list */
+ (yyval) = list_append((yyvsp[-2]), (yyvsp[-1]));
} else {
- (yyvsp[(2) - (3)])->memory =
make_regnode(Node_dynregex, NULL);
- (yyval) = list_append(list_merge((yyvsp[(1) - (3)]),
(yyvsp[(3) - (3)])), (yyvsp[(2) - (3)]));
+ (yyvsp[-1])->memory = make_regnode(Node_dynregex, NULL);
+ (yyval) = list_append(list_merge((yyvsp[-2]),
(yyvsp[0])), (yyvsp[-1]));
}
}
-#line 3201 "awkgram.c" /* yacc.c:1646 */
++#line 3202 "awkgram.c" /* yacc.c:1646 */
break;
case 114:
- /* Line 1787 of yacc.c */
- #line 1289 "awkgram.y"
-#line 1288 "awkgram.y" /* yacc.c:1646 */
++#line 1289 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint_old)
- warning_ln((yyvsp[(2) - (3)])->source_line,
+ warning_ln((yyvsp[-1])->source_line,
_("old awk does not support the keyword `in'
except after `for'"));
- (yyvsp[(3) - (3)])->nexti->opcode = Op_push_array;
- (yyvsp[(2) - (3)])->opcode = Op_in_array;
- (yyvsp[(2) - (3)])->expr_count = 1;
- (yyval) = list_append(list_merge((yyvsp[(1) - (3)]), (yyvsp[(3)
- (3)])), (yyvsp[(2) - (3)]));
+ (yyvsp[0])->nexti->opcode = Op_push_array;
+ (yyvsp[-1])->opcode = Op_in_array;
+ (yyvsp[-1])->expr_count = 1;
+ (yyval) = list_append(list_merge((yyvsp[-2]), (yyvsp[0])),
(yyvsp[-1]));
}
-#line 3215 "awkgram.c" /* yacc.c:1646 */
++#line 3216 "awkgram.c" /* yacc.c:1646 */
break;
case 115:
- /* Line 1787 of yacc.c */
- #line 1299 "awkgram.y"
-#line 1298 "awkgram.y" /* yacc.c:1646 */
++#line 1299 "awkgram.y" /* yacc.c:1646 */
{
- if (do_lint && (yyvsp[(3) - (3)])->lasti->opcode ==
Op_match_rec)
- lintwarn_ln((yyvsp[(2) - (3)])->source_line,
+ if (do_lint && (yyvsp[0])->lasti->opcode == Op_match_rec)
+ lintwarn_ln((yyvsp[-1])->source_line,
_("regular expression on right of comparison"));
- (yyval) = list_append(list_merge((yyvsp[(1) - (3)]), (yyvsp[(3)
- (3)])), (yyvsp[(2) - (3)]));
+ (yyval) = list_append(list_merge((yyvsp[-2]), (yyvsp[0])),
(yyvsp[-1]));
}
-#line 3226 "awkgram.c" /* yacc.c:1646 */
++#line 3227 "awkgram.c" /* yacc.c:1646 */
break;
case 116:
- /* Line 1787 of yacc.c */
- #line 1306 "awkgram.y"
- { (yyval) = mk_condition((yyvsp[(1) - (5)]), (yyvsp[(2) - (5)]),
(yyvsp[(3) - (5)]), (yyvsp[(4) - (5)]), (yyvsp[(5) - (5)])); }
-#line 1305 "awkgram.y" /* yacc.c:1646 */
++#line 1306 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_condition((yyvsp[-4]), (yyvsp[-3]), (yyvsp[-2]),
(yyvsp[-1]), (yyvsp[0])); }
-#line 3232 "awkgram.c" /* yacc.c:1646 */
++#line 3233 "awkgram.c" /* yacc.c:1646 */
break;
case 117:
- /* Line 1787 of yacc.c */
- #line 1308 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1307 "awkgram.y" /* yacc.c:1646 */
++#line 1308 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3238 "awkgram.c" /* yacc.c:1646 */
++#line 3239 "awkgram.c" /* yacc.c:1646 */
break;
case 118:
- /* Line 1787 of yacc.c */
- #line 1313 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1312 "awkgram.y" /* yacc.c:1646 */
++#line 1313 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3244 "awkgram.c" /* yacc.c:1646 */
++#line 3245 "awkgram.c" /* yacc.c:1646 */
break;
case 119:
- /* Line 1787 of yacc.c */
- #line 1315 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1314 "awkgram.y" /* yacc.c:1646 */
++#line 1315 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3250 "awkgram.c" /* yacc.c:1646 */
++#line 3251 "awkgram.c" /* yacc.c:1646 */
break;
case 120:
- /* Line 1787 of yacc.c */
- #line 1317 "awkgram.y"
-#line 1316 "awkgram.y" /* yacc.c:1646 */
++#line 1317 "awkgram.y" /* yacc.c:1646 */
{
- (yyvsp[(2) - (2)])->opcode = Op_assign_quotient;
- (yyval) = (yyvsp[(2) - (2)]);
+ (yyvsp[0])->opcode = Op_assign_quotient;
+ (yyval) = (yyvsp[0]);
}
-#line 3259 "awkgram.c" /* yacc.c:1646 */
++#line 3260 "awkgram.c" /* yacc.c:1646 */
break;
case 121:
- /* Line 1787 of yacc.c */
- #line 1325 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1324 "awkgram.y" /* yacc.c:1646 */
++#line 1325 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3265 "awkgram.c" /* yacc.c:1646 */
++#line 3266 "awkgram.c" /* yacc.c:1646 */
break;
case 122:
- /* Line 1787 of yacc.c */
- #line 1327 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1326 "awkgram.y" /* yacc.c:1646 */
++#line 1327 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3271 "awkgram.c" /* yacc.c:1646 */
++#line 3272 "awkgram.c" /* yacc.c:1646 */
break;
case 123:
- /* Line 1787 of yacc.c */
- #line 1332 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1331 "awkgram.y" /* yacc.c:1646 */
++#line 1332 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3277 "awkgram.c" /* yacc.c:1646 */
++#line 3278 "awkgram.c" /* yacc.c:1646 */
break;
case 124:
- /* Line 1787 of yacc.c */
- #line 1334 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1333 "awkgram.y" /* yacc.c:1646 */
++#line 1334 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3283 "awkgram.c" /* yacc.c:1646 */
++#line 3284 "awkgram.c" /* yacc.c:1646 */
break;
case 125:
- /* Line 1787 of yacc.c */
- #line 1339 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1338 "awkgram.y" /* yacc.c:1646 */
++#line 1339 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3289 "awkgram.c" /* yacc.c:1646 */
++#line 3290 "awkgram.c" /* yacc.c:1646 */
break;
case 126:
- /* Line 1787 of yacc.c */
- #line 1341 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1340 "awkgram.y" /* yacc.c:1646 */
++#line 1341 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3295 "awkgram.c" /* yacc.c:1646 */
++#line 3296 "awkgram.c" /* yacc.c:1646 */
break;
case 127:
- /* Line 1787 of yacc.c */
- #line 1343 "awkgram.y"
-#line 1342 "awkgram.y" /* yacc.c:1646 */
++#line 1343 "awkgram.y" /* yacc.c:1646 */
{
int count = 2;
bool is_simple_var = false;
@@@ -3548,47 -3342,47 +3343,47 @@@
max_args = count;
}
}
-#line 3346 "awkgram.c" /* yacc.c:1646 */
++#line 3347 "awkgram.c" /* yacc.c:1646 */
break;
case 129:
- /* Line 1787 of yacc.c */
- #line 1395 "awkgram.y"
- { (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1394 "awkgram.y" /* yacc.c:1646 */
++#line 1395 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3352 "awkgram.c" /* yacc.c:1646 */
++#line 3353 "awkgram.c" /* yacc.c:1646 */
break;
case 130:
- /* Line 1787 of yacc.c */
- #line 1397 "awkgram.y"
- { (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1396 "awkgram.y" /* yacc.c:1646 */
++#line 1397 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3358 "awkgram.c" /* yacc.c:1646 */
++#line 3359 "awkgram.c" /* yacc.c:1646 */
break;
case 131:
- /* Line 1787 of yacc.c */
- #line 1399 "awkgram.y"
- { (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1398 "awkgram.y" /* yacc.c:1646 */
++#line 1399 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3364 "awkgram.c" /* yacc.c:1646 */
++#line 3365 "awkgram.c" /* yacc.c:1646 */
break;
case 132:
- /* Line 1787 of yacc.c */
- #line 1401 "awkgram.y"
- { (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1400 "awkgram.y" /* yacc.c:1646 */
++#line 1401 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3370 "awkgram.c" /* yacc.c:1646 */
++#line 3371 "awkgram.c" /* yacc.c:1646 */
break;
case 133:
- /* Line 1787 of yacc.c */
- #line 1403 "awkgram.y"
- { (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1402 "awkgram.y" /* yacc.c:1646 */
++#line 1403 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3376 "awkgram.c" /* yacc.c:1646 */
++#line 3377 "awkgram.c" /* yacc.c:1646 */
break;
case 134:
- /* Line 1787 of yacc.c */
- #line 1405 "awkgram.y"
- { (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1404 "awkgram.y" /* yacc.c:1646 */
++#line 1405 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3382 "awkgram.c" /* yacc.c:1646 */
++#line 3383 "awkgram.c" /* yacc.c:1646 */
break;
case 135:
- /* Line 1787 of yacc.c */
- #line 1407 "awkgram.y"
-#line 1406 "awkgram.y" /* yacc.c:1646 */
++#line 1407 "awkgram.y" /* yacc.c:1646 */
{
/*
* In BEGINFILE/ENDFILE, allow `getline var < file'
@@@ -3606,124 -3400,124 +3401,124 @@@
_("`getline' invalid inside
`%s' rule"), ruletab[rule]);
}
}
- if (do_lint && rule == END && (yyvsp[(3) - (3)]) == NULL)
- lintwarn_ln((yyvsp[(1) - (3)])->source_line,
+ if (do_lint && rule == END && (yyvsp[0]) == NULL)
+ lintwarn_ln((yyvsp[-2])->source_line,
_("non-redirected `getline' undefined inside
END action"));
- (yyval) = mk_getline((yyvsp[(1) - (3)]), (yyvsp[(2) - (3)]),
(yyvsp[(3) - (3)]), redirect_input);
+ (yyval) = mk_getline((yyvsp[-2]), (yyvsp[-1]), (yyvsp[0]),
redirect_input);
}
-#line 3409 "awkgram.c" /* yacc.c:1646 */
++#line 3410 "awkgram.c" /* yacc.c:1646 */
break;
case 136:
- /* Line 1787 of yacc.c */
- #line 1430 "awkgram.y"
-#line 1429 "awkgram.y" /* yacc.c:1646 */
++#line 1430 "awkgram.y" /* yacc.c:1646 */
{
- (yyvsp[(2) - (2)])->opcode = Op_postincrement;
- (yyval) = mk_assignment((yyvsp[(1) - (2)]), NULL, (yyvsp[(2) -
(2)]));
+ (yyvsp[0])->opcode = Op_postincrement;
+ (yyval) = mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
-#line 3418 "awkgram.c" /* yacc.c:1646 */
++#line 3419 "awkgram.c" /* yacc.c:1646 */
break;
case 137:
- /* Line 1787 of yacc.c */
- #line 1435 "awkgram.y"
-#line 1434 "awkgram.y" /* yacc.c:1646 */
++#line 1435 "awkgram.y" /* yacc.c:1646 */
{
- (yyvsp[(2) - (2)])->opcode = Op_postdecrement;
- (yyval) = mk_assignment((yyvsp[(1) - (2)]), NULL, (yyvsp[(2) -
(2)]));
+ (yyvsp[0])->opcode = Op_postdecrement;
+ (yyval) = mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
-#line 3427 "awkgram.c" /* yacc.c:1646 */
++#line 3428 "awkgram.c" /* yacc.c:1646 */
break;
case 138:
- /* Line 1787 of yacc.c */
- #line 1440 "awkgram.y"
-#line 1439 "awkgram.y" /* yacc.c:1646 */
++#line 1440 "awkgram.y" /* yacc.c:1646 */
{
if (do_lint_old) {
- warning_ln((yyvsp[(4) - (5)])->source_line,
+ warning_ln((yyvsp[-1])->source_line,
_("old awk does not support the keyword `in'
except after `for'"));
- warning_ln((yyvsp[(4) - (5)])->source_line,
+ warning_ln((yyvsp[-1])->source_line,
_("old awk does not support multidimensional
arrays"));
}
- (yyvsp[(5) - (5)])->nexti->opcode = Op_push_array;
- (yyvsp[(4) - (5)])->opcode = Op_in_array;
- if ((yyvsp[(2) - (5)]) == NULL) { /* error */
+ (yyvsp[0])->nexti->opcode = Op_push_array;
+ (yyvsp[-1])->opcode = Op_in_array;
+ if ((yyvsp[-3]) == NULL) { /* error */
errcount++;
- (yyvsp[(4) - (5)])->expr_count = 0;
- (yyval) = list_merge((yyvsp[(5) - (5)]), (yyvsp[(4) -
(5)]));
+ (yyvsp[-1])->expr_count = 0;
+ (yyval) = list_merge((yyvsp[0]), (yyvsp[-1]));
} else {
- INSTRUCTION *t = (yyvsp[(2) - (5)]);
- (yyvsp[(4) - (5)])->expr_count = count_expressions(&t,
false);
- (yyval) = list_append(list_merge(t, (yyvsp[(5) -
(5)])), (yyvsp[(4) - (5)]));
+ INSTRUCTION *t = (yyvsp[-3]);
+ (yyvsp[-1])->expr_count = count_expressions(&t, false);
+ (yyval) = list_append(list_merge(t, (yyvsp[0])),
(yyvsp[-1]));
}
}
-#line 3451 "awkgram.c" /* yacc.c:1646 */
++#line 3452 "awkgram.c" /* yacc.c:1646 */
break;
case 139:
- /* Line 1787 of yacc.c */
- #line 1465 "awkgram.y"
-#line 1464 "awkgram.y" /* yacc.c:1646 */
++#line 1465 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = mk_getline((yyvsp[(3) - (4)]), (yyvsp[(4) - (4)]),
(yyvsp[(1) - (4)]), (yyvsp[(2) - (4)])->redir_type);
- bcfree((yyvsp[(2) - (4)]));
+ (yyval) = mk_getline((yyvsp[-1]), (yyvsp[0]), (yyvsp[-3]),
(yyvsp[-2])->redir_type);
+ bcfree((yyvsp[-2]));
}
-#line 3460 "awkgram.c" /* yacc.c:1646 */
++#line 3461 "awkgram.c" /* yacc.c:1646 */
break;
case 140:
- /* Line 1787 of yacc.c */
- #line 1471 "awkgram.y"
- { (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1470 "awkgram.y" /* yacc.c:1646 */
++#line 1471 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3466 "awkgram.c" /* yacc.c:1646 */
++#line 3467 "awkgram.c" /* yacc.c:1646 */
break;
case 141:
- /* Line 1787 of yacc.c */
- #line 1473 "awkgram.y"
- { (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1472 "awkgram.y" /* yacc.c:1646 */
++#line 1473 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3472 "awkgram.c" /* yacc.c:1646 */
++#line 3473 "awkgram.c" /* yacc.c:1646 */
break;
case 142:
- /* Line 1787 of yacc.c */
- #line 1475 "awkgram.y"
- { (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1474 "awkgram.y" /* yacc.c:1646 */
++#line 1475 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3478 "awkgram.c" /* yacc.c:1646 */
++#line 3479 "awkgram.c" /* yacc.c:1646 */
break;
case 143:
- /* Line 1787 of yacc.c */
- #line 1477 "awkgram.y"
- { (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1476 "awkgram.y" /* yacc.c:1646 */
++#line 1477 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3484 "awkgram.c" /* yacc.c:1646 */
++#line 3485 "awkgram.c" /* yacc.c:1646 */
break;
case 144:
- /* Line 1787 of yacc.c */
- #line 1479 "awkgram.y"
- { (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1478 "awkgram.y" /* yacc.c:1646 */
++#line 1479 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3490 "awkgram.c" /* yacc.c:1646 */
++#line 3491 "awkgram.c" /* yacc.c:1646 */
break;
case 145:
- /* Line 1787 of yacc.c */
- #line 1481 "awkgram.y"
- { (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
-#line 1480 "awkgram.y" /* yacc.c:1646 */
++#line 1481 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = mk_binary((yyvsp[-2]), (yyvsp[0]), (yyvsp[-1])); }
-#line 3496 "awkgram.c" /* yacc.c:1646 */
++#line 3497 "awkgram.c" /* yacc.c:1646 */
break;
case 146:
- /* Line 1787 of yacc.c */
- #line 1486 "awkgram.y"
-#line 1485 "awkgram.y" /* yacc.c:1646 */
++#line 1486 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = list_create((yyvsp[(1) - (1)]));
+ (yyval) = list_create((yyvsp[0]));
}
-#line 3504 "awkgram.c" /* yacc.c:1646 */
++#line 3505 "awkgram.c" /* yacc.c:1646 */
break;
case 147:
- /* Line 1787 of yacc.c */
- #line 1490 "awkgram.y"
-#line 1489 "awkgram.y" /* yacc.c:1646 */
++#line 1490 "awkgram.y" /* yacc.c:1646 */
{
- if ((yyvsp[(2) - (2)])->opcode == Op_match_rec) {
- (yyvsp[(2) - (2)])->opcode = Op_nomatch;
- (yyvsp[(1) - (2)])->opcode = Op_push_i;
- (yyvsp[(1) - (2)])->memory = make_number(0.0);
- (yyval) =
list_append(list_append(list_create((yyvsp[(1) - (2)])),
- instruction(Op_field_spec)),
(yyvsp[(2) - (2)]));
+ if ((yyvsp[0])->opcode == Op_match_rec) {
+ (yyvsp[0])->opcode = Op_nomatch;
+ (yyvsp[-1])->opcode = Op_push_i;
+ (yyvsp[-1])->memory = make_number(0.0);
+ (yyval) =
list_append(list_append(list_create((yyvsp[-1])),
+ instruction(Op_field_spec)),
(yyvsp[0]));
} else {
- if (do_optimize && (yyvsp[(2) - (2)])->nexti ==
(yyvsp[(2) - (2)])->lasti
- && (yyvsp[(2) - (2)])->nexti->opcode ==
Op_push_i
- && ((yyvsp[(2) -
(2)])->nexti->memory->flags & (MPFN|MPZN)) == 0
+ if (do_optimize && (yyvsp[0])->nexti ==
(yyvsp[0])->lasti
+ && (yyvsp[0])->nexti->opcode ==
Op_push_i
+ && ((yyvsp[0])->nexti->memory->flags &
(MPFN|MPZN)) == 0
) {
- NODE *n = (yyvsp[(2) - (2)])->nexti->memory;
+ NODE *n = (yyvsp[0])->nexti->memory;
if ((n->flags & (STRCUR|STRING)) != 0) {
n->numbr = (AWKNUM) (n->stlen == 0);
n->flags &= ~(STRCUR|STRING);
@@@ -3742,37 -3536,37 +3537,37 @@@
}
}
}
-#line 3540 "awkgram.c" /* yacc.c:1646 */
++#line 3541 "awkgram.c" /* yacc.c:1646 */
break;
case 148:
- /* Line 1787 of yacc.c */
- #line 1522 "awkgram.y"
- { (yyval) = (yyvsp[(2) - (3)]); }
-#line 1521 "awkgram.y" /* yacc.c:1646 */
++#line 1522 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[-1]); }
-#line 3546 "awkgram.c" /* yacc.c:1646 */
++#line 3547 "awkgram.c" /* yacc.c:1646 */
break;
case 149:
- /* Line 1787 of yacc.c */
- #line 1524 "awkgram.y"
-#line 1523 "awkgram.y" /* yacc.c:1646 */
++#line 1524 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = snode((yyvsp[(3) - (4)]), (yyvsp[(1) - (4)]));
+ (yyval) = snode((yyvsp[-1]), (yyvsp[-3]));
if ((yyval) == NULL)
YYABORT;
}
-#line 3556 "awkgram.c" /* yacc.c:1646 */
++#line 3557 "awkgram.c" /* yacc.c:1646 */
break;
case 150:
- /* Line 1787 of yacc.c */
- #line 1530 "awkgram.y"
-#line 1529 "awkgram.y" /* yacc.c:1646 */
++#line 1530 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = snode((yyvsp[(3) - (4)]), (yyvsp[(1) - (4)]));
+ (yyval) = snode((yyvsp[-1]), (yyvsp[-3]));
if ((yyval) == NULL)
YYABORT;
}
-#line 3566 "awkgram.c" /* yacc.c:1646 */
++#line 3567 "awkgram.c" /* yacc.c:1646 */
break;
case 151:
- /* Line 1787 of yacc.c */
- #line 1536 "awkgram.y"
-#line 1535 "awkgram.y" /* yacc.c:1646 */
++#line 1536 "awkgram.y" /* yacc.c:1646 */
{
static bool warned = false;
@@@ -3785,87 -3579,87 +3580,87 @@@
if ((yyval) == NULL)
YYABORT;
}
-#line 3583 "awkgram.c" /* yacc.c:1646 */
++#line 3584 "awkgram.c" /* yacc.c:1646 */
break;
case 154:
- /* Line 1787 of yacc.c */
- #line 1551 "awkgram.y"
-#line 1550 "awkgram.y" /* yacc.c:1646 */
++#line 1551 "awkgram.y" /* yacc.c:1646 */
{
- (yyvsp[(1) - (2)])->opcode = Op_preincrement;
- (yyval) = mk_assignment((yyvsp[(2) - (2)]), NULL, (yyvsp[(1) -
(2)]));
+ (yyvsp[-1])->opcode = Op_preincrement;
+ (yyval) = mk_assignment((yyvsp[0]), NULL, (yyvsp[-1]));
}
-#line 3592 "awkgram.c" /* yacc.c:1646 */
++#line 3593 "awkgram.c" /* yacc.c:1646 */
break;
case 155:
- /* Line 1787 of yacc.c */
- #line 1556 "awkgram.y"
-#line 1555 "awkgram.y" /* yacc.c:1646 */
++#line 1556 "awkgram.y" /* yacc.c:1646 */
{
- (yyvsp[(1) - (2)])->opcode = Op_predecrement;
- (yyval) = mk_assignment((yyvsp[(2) - (2)]), NULL, (yyvsp[(1) -
(2)]));
+ (yyvsp[-1])->opcode = Op_predecrement;
+ (yyval) = mk_assignment((yyvsp[0]), NULL, (yyvsp[-1]));
}
-#line 3601 "awkgram.c" /* yacc.c:1646 */
++#line 3602 "awkgram.c" /* yacc.c:1646 */
break;
case 156:
- /* Line 1787 of yacc.c */
- #line 1561 "awkgram.y"
-#line 1560 "awkgram.y" /* yacc.c:1646 */
++#line 1561 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = list_create((yyvsp[(1) - (1)]));
+ (yyval) = list_create((yyvsp[0]));
}
-#line 3609 "awkgram.c" /* yacc.c:1646 */
++#line 3610 "awkgram.c" /* yacc.c:1646 */
break;
case 157:
- /* Line 1787 of yacc.c */
- #line 1565 "awkgram.y"
-#line 1564 "awkgram.y" /* yacc.c:1646 */
++#line 1565 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = list_create((yyvsp[(1) - (1)]));
+ (yyval) = list_create((yyvsp[0]));
}
-#line 3617 "awkgram.c" /* yacc.c:1646 */
++#line 3618 "awkgram.c" /* yacc.c:1646 */
break;
case 158:
- /* Line 1787 of yacc.c */
- #line 1569 "awkgram.y"
-#line 1568 "awkgram.y" /* yacc.c:1646 */
++#line 1569 "awkgram.y" /* yacc.c:1646 */
{
- if ((yyvsp[(2) - (2)])->lasti->opcode == Op_push_i
- && ((yyvsp[(2) - (2)])->lasti->memory->flags &
(STRCUR|STRING)) == 0
+ if ((yyvsp[0])->lasti->opcode == Op_push_i
+ && ((yyvsp[0])->lasti->memory->flags & (STRCUR|STRING))
== 0
) {
- NODE *n = (yyvsp[(2) - (2)])->lasti->memory;
+ NODE *n = (yyvsp[0])->lasti->memory;
(void) force_number(n);
negate_num(n);
- (yyval) = (yyvsp[(2) - (2)]);
- bcfree((yyvsp[(1) - (2)]));
+ (yyval) = (yyvsp[0]);
+ bcfree((yyvsp[-1]));
} else {
- (yyvsp[(1) - (2)])->opcode = Op_unary_minus;
- (yyval) = list_append((yyvsp[(2) - (2)]), (yyvsp[(1) -
(2)]));
+ (yyvsp[-1])->opcode = Op_unary_minus;
+ (yyval) = list_append((yyvsp[0]), (yyvsp[-1]));
}
}
-#line 3636 "awkgram.c" /* yacc.c:1646 */
++#line 3637 "awkgram.c" /* yacc.c:1646 */
break;
case 159:
- /* Line 1787 of yacc.c */
- #line 1584 "awkgram.y"
-#line 1583 "awkgram.y" /* yacc.c:1646 */
++#line 1584 "awkgram.y" /* yacc.c:1646 */
{
/*
* was: $$ = $2
* POSIX semantics: force a conversion to numeric type
*/
- (yyvsp[(1) - (2)])->opcode = Op_plus_i;
- (yyvsp[(1) - (2)])->memory = make_number(0.0);
- (yyval) = list_append((yyvsp[(2) - (2)]), (yyvsp[(1) - (2)]));
+ (yyvsp[-1])->opcode = Op_plus_i;
+ (yyvsp[-1])->memory = make_number(0.0);
+ (yyval) = list_append((yyvsp[0]), (yyvsp[-1]));
}
-#line 3650 "awkgram.c" /* yacc.c:1646 */
++#line 3651 "awkgram.c" /* yacc.c:1646 */
break;
case 160:
- /* Line 1787 of yacc.c */
- #line 1597 "awkgram.y"
-#line 1596 "awkgram.y" /* yacc.c:1646 */
++#line 1597 "awkgram.y" /* yacc.c:1646 */
{
- func_use((yyvsp[(1) - (1)])->lasti->func_name, FUNC_USE);
- (yyval) = (yyvsp[(1) - (1)]);
+ func_use((yyvsp[0])->lasti->func_name, FUNC_USE);
+ (yyval) = (yyvsp[0]);
}
-#line 3659 "awkgram.c" /* yacc.c:1646 */
++#line 3660 "awkgram.c" /* yacc.c:1646 */
break;
case 161:
- /* Line 1787 of yacc.c */
- #line 1602 "awkgram.y"
-#line 1601 "awkgram.y" /* yacc.c:1646 */
++#line 1602 "awkgram.y" /* yacc.c:1646 */
{
/* indirect function call */
INSTRUCTION *f, *t;
@@@ -3896,71 -3690,71 +3691,71 @@@
* @f(f="real_fun")
*/
- (yyval) = list_prepend((yyvsp[(2) - (2)]), t);
+ (yyval) = list_prepend((yyvsp[0]), t);
}
-#line 3696 "awkgram.c" /* yacc.c:1646 */
++#line 3697 "awkgram.c" /* yacc.c:1646 */
break;
case 162:
- /* Line 1787 of yacc.c */
- #line 1638 "awkgram.y"
-#line 1637 "awkgram.y" /* yacc.c:1646 */
++#line 1638 "awkgram.y" /* yacc.c:1646 */
{
- param_sanity((yyvsp[(3) - (4)]));
- (yyvsp[(1) - (4)])->opcode = Op_func_call;
- (yyvsp[(1) - (4)])->func_body = NULL;
- if ((yyvsp[(3) - (4)]) == NULL) { /* no argument or error
*/
- ((yyvsp[(1) - (4)]) + 1)->expr_count = 0;
- (yyval) = list_create((yyvsp[(1) - (4)]));
+ param_sanity((yyvsp[-1]));
+ (yyvsp[-3])->opcode = Op_func_call;
+ (yyvsp[-3])->func_body = NULL;
+ if ((yyvsp[-1]) == NULL) { /* no argument or error */
+ ((yyvsp[-3]) + 1)->expr_count = 0;
+ (yyval) = list_create((yyvsp[-3]));
} else {
- INSTRUCTION *t = (yyvsp[(3) - (4)]);
- ((yyvsp[(1) - (4)]) + 1)->expr_count =
count_expressions(&t, true);
- (yyval) = list_append(t, (yyvsp[(1) - (4)]));
+ INSTRUCTION *t = (yyvsp[-1]);
+ ((yyvsp[-3]) + 1)->expr_count = count_expressions(&t,
true);
+ (yyval) = list_append(t, (yyvsp[-3]));
}
}
-#line 3714 "awkgram.c" /* yacc.c:1646 */
++#line 3715 "awkgram.c" /* yacc.c:1646 */
break;
case 163:
- /* Line 1787 of yacc.c */
- #line 1655 "awkgram.y"
-#line 1654 "awkgram.y" /* yacc.c:1646 */
++#line 1655 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 3720 "awkgram.c" /* yacc.c:1646 */
++#line 3721 "awkgram.c" /* yacc.c:1646 */
break;
case 164:
- /* Line 1787 of yacc.c */
- #line 1657 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1656 "awkgram.y" /* yacc.c:1646 */
++#line 1657 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3726 "awkgram.c" /* yacc.c:1646 */
++#line 3727 "awkgram.c" /* yacc.c:1646 */
break;
case 165:
- /* Line 1787 of yacc.c */
- #line 1662 "awkgram.y"
-#line 1661 "awkgram.y" /* yacc.c:1646 */
++#line 1662 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 3732 "awkgram.c" /* yacc.c:1646 */
++#line 3733 "awkgram.c" /* yacc.c:1646 */
break;
case 166:
- /* Line 1787 of yacc.c */
- #line 1664 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (2)]); }
-#line 1663 "awkgram.y" /* yacc.c:1646 */
++#line 1664 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[-1]); }
-#line 3738 "awkgram.c" /* yacc.c:1646 */
++#line 3739 "awkgram.c" /* yacc.c:1646 */
break;
case 167:
- /* Line 1787 of yacc.c */
- #line 1669 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1668 "awkgram.y" /* yacc.c:1646 */
++#line 1669 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3744 "awkgram.c" /* yacc.c:1646 */
++#line 3745 "awkgram.c" /* yacc.c:1646 */
break;
case 168:
- /* Line 1787 of yacc.c */
- #line 1671 "awkgram.y"
-#line 1670 "awkgram.y" /* yacc.c:1646 */
++#line 1671 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = list_merge((yyvsp[(1) - (2)]), (yyvsp[(2) - (2)]));
+ (yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
-#line 3752 "awkgram.c" /* yacc.c:1646 */
++#line 3753 "awkgram.c" /* yacc.c:1646 */
break;
case 169:
- /* Line 1787 of yacc.c */
- #line 1678 "awkgram.y"
-#line 1677 "awkgram.y" /* yacc.c:1646 */
++#line 1678 "awkgram.y" /* yacc.c:1646 */
{
- INSTRUCTION *ip = (yyvsp[(1) - (1)])->lasti;
+ INSTRUCTION *ip = (yyvsp[0])->lasti;
int count = ip->sub_count; /* # of SUBSEP-seperated
expressions */
if (count > 1) {
/* change Op_subscript or Op_sub_array to Op_concat */
@@@ -3970,152 -3764,152 +3765,152 @@@
} else
ip->opcode = Op_no_op;
sub_counter++; /* count # of dimensions */
- (yyval) = (yyvsp[(1) - (1)]);
+ (yyval) = (yyvsp[0]);
}
-#line 3770 "awkgram.c" /* yacc.c:1646 */
++#line 3771 "awkgram.c" /* yacc.c:1646 */
break;
case 170:
- /* Line 1787 of yacc.c */
- #line 1695 "awkgram.y"
-#line 1694 "awkgram.y" /* yacc.c:1646 */
++#line 1695 "awkgram.y" /* yacc.c:1646 */
{
- INSTRUCTION *t = (yyvsp[(2) - (3)]);
- if ((yyvsp[(2) - (3)]) == NULL) {
- error_ln((yyvsp[(3) - (3)])->source_line,
+ INSTRUCTION *t = (yyvsp[-1]);
+ if ((yyvsp[-1]) == NULL) {
+ error_ln((yyvsp[0])->source_line,
_("invalid subscript expression"));
/* install Null string as subscript. */
t = list_create(instruction(Op_push_i));
t->nexti->memory = dupnode(Nnull_string);
- (yyvsp[(3) - (3)])->sub_count = 1;
+ (yyvsp[0])->sub_count = 1;
} else
- (yyvsp[(3) - (3)])->sub_count = count_expressions(&t,
false);
- (yyval) = list_append(t, (yyvsp[(3) - (3)]));
+ (yyvsp[0])->sub_count = count_expressions(&t, false);
+ (yyval) = list_append(t, (yyvsp[0]));
}
-#line 3788 "awkgram.c" /* yacc.c:1646 */
++#line 3789 "awkgram.c" /* yacc.c:1646 */
break;
case 171:
- /* Line 1787 of yacc.c */
- #line 1712 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); }
-#line 1711 "awkgram.y" /* yacc.c:1646 */
++#line 1712 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); }
-#line 3794 "awkgram.c" /* yacc.c:1646 */
++#line 3795 "awkgram.c" /* yacc.c:1646 */
break;
case 172:
- /* Line 1787 of yacc.c */
- #line 1714 "awkgram.y"
-#line 1713 "awkgram.y" /* yacc.c:1646 */
++#line 1714 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = list_merge((yyvsp[(1) - (2)]), (yyvsp[(2) - (2)]));
+ (yyval) = list_merge((yyvsp[-1]), (yyvsp[0]));
}
-#line 3802 "awkgram.c" /* yacc.c:1646 */
++#line 3803 "awkgram.c" /* yacc.c:1646 */
break;
case 173:
- /* Line 1787 of yacc.c */
- #line 1721 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (2)]); }
-#line 1720 "awkgram.y" /* yacc.c:1646 */
++#line 1721 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[-1]); }
-#line 3808 "awkgram.c" /* yacc.c:1646 */
++#line 3809 "awkgram.c" /* yacc.c:1646 */
break;
case 174:
- /* Line 1787 of yacc.c */
- #line 1726 "awkgram.y"
-#line 1725 "awkgram.y" /* yacc.c:1646 */
++#line 1726 "awkgram.y" /* yacc.c:1646 */
{
- char *var_name = (yyvsp[(1) - (1)])->lextok;
+ char *var_name = (yyvsp[0])->lextok;
- (yyvsp[(1) - (1)])->opcode = Op_push;
- (yyvsp[(1) - (1)])->memory = variable((yyvsp[(1) -
(1)])->source_line, var_name, Node_var_new);
- (yyval) = list_create((yyvsp[(1) - (1)]));
+ (yyvsp[0])->opcode = Op_push;
+ (yyvsp[0])->memory = variable((yyvsp[0])->source_line,
var_name, Node_var_new);
+ (yyval) = list_create((yyvsp[0]));
}
-#line 3820 "awkgram.c" /* yacc.c:1646 */
++#line 3821 "awkgram.c" /* yacc.c:1646 */
break;
case 175:
- /* Line 1787 of yacc.c */
- #line 1734 "awkgram.y"
-#line 1733 "awkgram.y" /* yacc.c:1646 */
++#line 1734 "awkgram.y" /* yacc.c:1646 */
{
- char *arr = (yyvsp[(1) - (2)])->lextok;
- (yyvsp[(1) - (2)])->memory = variable((yyvsp[(1) -
(2)])->source_line, arr, Node_var_new);
- (yyvsp[(1) - (2)])->opcode = Op_push_array;
- (yyval) = list_prepend((yyvsp[(2) - (2)]), (yyvsp[(1) - (2)]));
+ char *arr = (yyvsp[-1])->lextok;
+ (yyvsp[-1])->memory = variable((yyvsp[-1])->source_line, arr,
Node_var_new);
+ (yyvsp[-1])->opcode = Op_push_array;
+ (yyval) = list_prepend((yyvsp[0]), (yyvsp[-1]));
}
-#line 3831 "awkgram.c" /* yacc.c:1646 */
++#line 3832 "awkgram.c" /* yacc.c:1646 */
break;
case 176:
- /* Line 1787 of yacc.c */
- #line 1744 "awkgram.y"
-#line 1743 "awkgram.y" /* yacc.c:1646 */
++#line 1744 "awkgram.y" /* yacc.c:1646 */
{
- INSTRUCTION *ip = (yyvsp[(1) - (1)])->nexti;
+ INSTRUCTION *ip = (yyvsp[0])->nexti;
if (ip->opcode == Op_push
&& ip->memory->type == Node_var
&& ip->memory->var_update
) {
- (yyval) = list_prepend((yyvsp[(1) - (1)]),
instruction(Op_var_update));
+ (yyval) = list_prepend((yyvsp[0]),
instruction(Op_var_update));
(yyval)->nexti->update_var = ip->memory->var_update;
} else
- (yyval) = (yyvsp[(1) - (1)]);
+ (yyval) = (yyvsp[0]);
}
-#line 3847 "awkgram.c" /* yacc.c:1646 */
++#line 3848 "awkgram.c" /* yacc.c:1646 */
break;
case 177:
- /* Line 1787 of yacc.c */
- #line 1756 "awkgram.y"
-#line 1755 "awkgram.y" /* yacc.c:1646 */
++#line 1756 "awkgram.y" /* yacc.c:1646 */
{
- (yyval) = list_append((yyvsp[(2) - (3)]), (yyvsp[(1) - (3)]));
- if ((yyvsp[(3) - (3)]) != NULL)
- mk_assignment((yyvsp[(2) - (3)]), NULL, (yyvsp[(3) -
(3)]));
+ (yyval) = list_append((yyvsp[-1]), (yyvsp[-2]));
+ if ((yyvsp[0]) != NULL)
+ mk_assignment((yyvsp[-1]), NULL, (yyvsp[0]));
}
-#line 3857 "awkgram.c" /* yacc.c:1646 */
++#line 3858 "awkgram.c" /* yacc.c:1646 */
break;
case 178:
- /* Line 1787 of yacc.c */
- #line 1765 "awkgram.y"
-#line 1764 "awkgram.y" /* yacc.c:1646 */
++#line 1765 "awkgram.y" /* yacc.c:1646 */
{
- (yyvsp[(1) - (1)])->opcode = Op_postincrement;
+ (yyvsp[0])->opcode = Op_postincrement;
}
-#line 3865 "awkgram.c" /* yacc.c:1646 */
++#line 3866 "awkgram.c" /* yacc.c:1646 */
break;
case 179:
- /* Line 1787 of yacc.c */
- #line 1769 "awkgram.y"
-#line 1768 "awkgram.y" /* yacc.c:1646 */
++#line 1769 "awkgram.y" /* yacc.c:1646 */
{
- (yyvsp[(1) - (1)])->opcode = Op_postdecrement;
+ (yyvsp[0])->opcode = Op_postdecrement;
}
-#line 3873 "awkgram.c" /* yacc.c:1646 */
++#line 3874 "awkgram.c" /* yacc.c:1646 */
break;
case 180:
- /* Line 1787 of yacc.c */
- #line 1772 "awkgram.y"
-#line 1771 "awkgram.y" /* yacc.c:1646 */
++#line 1772 "awkgram.y" /* yacc.c:1646 */
{ (yyval) = NULL; }
-#line 3879 "awkgram.c" /* yacc.c:1646 */
++#line 3880 "awkgram.c" /* yacc.c:1646 */
break;
case 182:
- /* Line 1787 of yacc.c */
- #line 1780 "awkgram.y"
-#line 1779 "awkgram.y" /* yacc.c:1646 */
++#line 1780 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
-#line 3885 "awkgram.c" /* yacc.c:1646 */
++#line 3886 "awkgram.c" /* yacc.c:1646 */
break;
case 183:
- /* Line 1787 of yacc.c */
- #line 1784 "awkgram.y"
-#line 1783 "awkgram.y" /* yacc.c:1646 */
++#line 1784 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
-#line 3891 "awkgram.c" /* yacc.c:1646 */
++#line 3892 "awkgram.c" /* yacc.c:1646 */
break;
case 186:
- /* Line 1787 of yacc.c */
- #line 1793 "awkgram.y"
-#line 1792 "awkgram.y" /* yacc.c:1646 */
++#line 1793 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
-#line 3897 "awkgram.c" /* yacc.c:1646 */
++#line 3898 "awkgram.c" /* yacc.c:1646 */
break;
case 187:
- /* Line 1787 of yacc.c */
- #line 1797 "awkgram.y"
- { (yyval) = (yyvsp[(1) - (1)]); yyerrok; }
-#line 1796 "awkgram.y" /* yacc.c:1646 */
++#line 1797 "awkgram.y" /* yacc.c:1646 */
+ { (yyval) = (yyvsp[0]); yyerrok; }
-#line 3903 "awkgram.c" /* yacc.c:1646 */
++#line 3904 "awkgram.c" /* yacc.c:1646 */
break;
case 188:
- /* Line 1787 of yacc.c */
- #line 1801 "awkgram.y"
-#line 1800 "awkgram.y" /* yacc.c:1646 */
++#line 1801 "awkgram.y" /* yacc.c:1646 */
{ yyerrok; }
-#line 3909 "awkgram.c" /* yacc.c:1646 */
++#line 3910 "awkgram.c" /* yacc.c:1646 */
break;
- /* Line 1787 of yacc.c */
- #line 4119 "awkgram.c"
-#line 3913 "awkgram.c" /* yacc.c:1646 */
++#line 3914 "awkgram.c" /* yacc.c:1646 */
default: break;
}
/* User semantic actions sometimes alter yychar, and that requires
@@@ -4341,13 -4135,9 +4136,9 @@@ yyreturn
if (yymsg != yymsgbuf)
YYSTACK_FREE (yymsg);
#endif
- /* Make sure YYID is used. */
- return YYID (yyresult);
+ return yyresult;
}
-
-
- /* Line 2050 of yacc.c */
- #line 1803 "awkgram.y"
-#line 1802 "awkgram.y" /* yacc.c:1906 */
++#line 1803 "awkgram.y" /* yacc.c:1906 */
struct token {
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=612b31c0e68843be0d39fc7f97b081456a71cb25
commit 612b31c0e68843be0d39fc7f97b081456a71cb25
Merge: 866fc6f f934f21
Author: Arnold D. Robbins <address@hidden>
Date: Sun Jan 12 20:31:01 2014 +0200
Merge branch 'master' into async-events
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=866fc6f036a902da4a8648340a8308b74ef83a9a
commit 866fc6f036a902da4a8648340a8308b74ef83a9a
Merge: 8f3e09f 8aa14c5
Author: Arnold D. Robbins <address@hidden>
Date: Sun Sep 22 16:57:31 2013 +0300
Merge branch 'master' into async-events
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=8f3e09f427923c2f4b903261b388cae3527649d2
commit 8f3e09f427923c2f4b903261b388cae3527649d2
Merge: a8d13c8 b9a7f4a
Author: Arnold D. Robbins <address@hidden>
Date: Thu Jul 4 11:59:33 2013 +0300
Merge branch 'master' into async-events
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=a8d13c878fe50e22d34695ba352ce34d229f31eb
commit a8d13c878fe50e22d34695ba352ce34d229f31eb
Merge: b18d519 ddd5dad
Author: Arnold D. Robbins <address@hidden>
Date: Thu Jul 4 11:41:30 2013 +0300
Merge branch 'master' into async-events
diff --cc ChangeLog
index 631436f,c6a32d6..67f2b98
--- a/ChangeLog
+++ b/ChangeLog
@@@ -1,23 -1,16 +1,34 @@@
+ 2013-07-04 Arnold D. Robbins <address@hidden>
+
+ * builtin.c (format_tree): Fixes for %c with multibyte characters
+ and field width > 1. Bugs reported by Nethox <address@hidden>.
+
+ 2013-07-02 Arnold D. Robbins <address@hidden>
+
+ * profile.c (pp_string): Add a call to chksize and fix another.
+ Avoids valgrind errors on profile5 test. Thanks to Andrew
+ Schorr for the report.
+
2013-06-27 Arnold D. Robbins <address@hidden>
+ * awk.h (Op_end_stmt): New opcode.
+ (async_pending, run_async_handlers): Add declarations.
+ * awkgram.y (statements): Append Op_end_stmt op code at end of
statement.
+ * eval.c (optypetab): Add entry for Op_end_stmt.
+ * gawkapi.c (async_pending): New variable.
+ (api_register_async_callback, api_notify_async_event,
run_async_handlers):
+ New routines.
+ (api_impl): Add entries for new fields.
+ * gawkapi.h (GAWK_API_MINOR_VERSION): Bump up to 1.
+ (awk_async_callback_t): New type.
+ (struct gawk_api): Add two new fields: api_register_async_callback,
+ and api_notify_async_event.
+ (register_async_callback, notify_async_event): New macros.
+ * interpret.h (r_interpret): Add case for Op_end_stmt.
+ * profile.c (pprint): Ditto.
+
+2013-06-27 Arnold D. Robbins <address@hidden>
+
* awkgram.y: Minor whitespace cleanup, remove redundant ifdef.
2013-06-24 Arnold D. Robbins <address@hidden>
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=b18d519584d9a92d382bbb73825bed5fbb87a954
commit b18d519584d9a92d382bbb73825bed5fbb87a954
Merge: 8d2212b d128c19
Author: Arnold D. Robbins <address@hidden>
Date: Thu Jun 27 15:13:49 2013 +0300
Merge branch 'master' into async-events
diff --cc ChangeLog
index c570a1b,9cdaf0b..631436f
--- a/ChangeLog
+++ b/ChangeLog
@@@ -1,21 -1,6 +1,24 @@@
2013-06-27 Arnold D. Robbins <address@hidden>
+ * awk.h (Op_end_stmt): New opcode.
+ (async_pending, run_async_handlers): Add declarations.
+ * awkgram.y (statements): Append Op_end_stmt op code at end of
statement.
+ * eval.c (optypetab): Add entry for Op_end_stmt.
+ * gawkapi.c (async_pending): New variable.
+ (api_register_async_callback, api_notify_async_event,
run_async_handlers):
+ New routines.
+ (api_impl): Add entries for new fields.
+ * gawkapi.h (GAWK_API_MINOR_VERSION): Bump up to 1.
+ (awk_async_callback_t): New type.
+ (struct gawk_api): Add two new fields: api_register_async_callback,
+ and api_notify_async_event.
+ (register_async_callback, notify_async_event): New macros.
+ * interpret.h (r_interpret): Add case for Op_end_stmt.
+ * profile.c (pprint): Ditto.
+
++2013-06-27 Arnold D. Robbins <address@hidden>
++
+ * awkgram.y: Minor whitespace cleanup, remove redundant ifdef.
2013-06-24 Arnold D. Robbins <address@hidden>
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=8d2212b137df2193607a649d0f9239cf64a289de
commit 8d2212b137df2193607a649d0f9239cf64a289de
Author: Arnold D. Robbins <address@hidden>
Date: Thu Jun 27 12:14:53 2013 +0300
Add Op_end_stmt and async_event callbacks in API.
diff --git a/ChangeLog b/ChangeLog
index 33f2d31..c570a1b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,22 @@
+2013-06-27 Arnold D. Robbins <address@hidden>
+
+ * awk.h (Op_end_stmt): New opcode.
+ (async_pending, run_async_handlers): Add declarations.
+ * awkgram.y (statements): Append Op_end_stmt op code at end of
statement.
+ * eval.c (optypetab): Add entry for Op_end_stmt.
+ * gawkapi.c (async_pending): New variable.
+ (api_register_async_callback, api_notify_async_event,
run_async_handlers):
+ New routines.
+ (api_impl): Add entries for new fields.
+ * gawkapi.h (GAWK_API_MINOR_VERSION): Bump up to 1.
+ (awk_async_callback_t): New type.
+ (struct gawk_api): Add two new fields: api_register_async_callback,
+ and api_notify_async_event.
+ (register_async_callback, notify_async_event): New macros.
+ * interpret.h (r_interpret): Add case for Op_end_stmt.
+ * profile.c (pprint): Ditto.
+
+
2013-06-24 Arnold D. Robbins <address@hidden>
* dfa.c (copytoks): Rewrite to call addtok_mb() directly. Avoids
diff --git a/awk.h b/awk.h
index b9d3a1b..12af605 100644
--- a/awk.h
+++ b/awk.h
@@ -675,6 +675,7 @@ typedef enum opcodeval {
Op_exec_count,
Op_breakpoint,
+ Op_end_stmt, /* sync point, end of statement */
Op_lint,
Op_atexit,
Op_stop,
@@ -1491,6 +1492,8 @@ extern void update_ext_api(void);
extern NODE *awk_value_to_node(const awk_value_t *);
extern void run_ext_exit_handlers(int exitval);
extern void print_ext_versions(void);
+extern void run_async_handlers(void);
+extern volatile bool async_pending;
/* gawkmisc.c */
extern char *gawk_name(const char *filespec);
diff --git a/awkgram.c b/awkgram.c
index 10fd421..fac6702 100644
--- a/awkgram.c
+++ b/awkgram.c
@@ -747,22 +747,22 @@ static const yytype_uint16 yyrline[] =
0, 200, 200, 202, 207, 208, 214, 226, 230, 241,
247, 252, 260, 268, 270, 275, 283, 285, 291, 292,
294, 320, 331, 342, 348, 357, 367, 369, 371, 377,
- 382, 383, 387, 406, 405, 439, 441, 446, 447, 460,
- 465, 466, 470, 472, 474, 481, 571, 613, 655, 768,
- 775, 782, 792, 801, 810, 819, 830, 846, 845, 869,
- 881, 881, 979, 979, 1012, 1042, 1048, 1049, 1055, 1056,
- 1063, 1068, 1080, 1094, 1096, 1104, 1109, 1111, 1119, 1121,
- 1130, 1131, 1139, 1144, 1144, 1155, 1159, 1167, 1168, 1171,
- 1173, 1178, 1179, 1188, 1189, 1194, 1199, 1205, 1207, 1209,
- 1216, 1217, 1223, 1224, 1229, 1231, 1236, 1238, 1246, 1251,
- 1260, 1267, 1269, 1271, 1287, 1297, 1304, 1306, 1311, 1313,
- 1315, 1323, 1325, 1330, 1332, 1337, 1339, 1341, 1391, 1393,
- 1395, 1397, 1399, 1401, 1403, 1405, 1428, 1433, 1438, 1463,
- 1469, 1471, 1473, 1475, 1477, 1479, 1484, 1488, 1520, 1522,
- 1528, 1534, 1547, 1548, 1549, 1554, 1559, 1563, 1567, 1582,
- 1595, 1600, 1636, 1654, 1655, 1661, 1662, 1667, 1669, 1676,
- 1693, 1710, 1712, 1719, 1724, 1732, 1742, 1754, 1763, 1767,
- 1771, 1775, 1779, 1783, 1786, 1788, 1792, 1796, 1800
+ 382, 383, 387, 406, 405, 439, 441, 446, 447, 461,
+ 466, 467, 471, 473, 475, 482, 572, 614, 656, 769,
+ 776, 783, 793, 802, 811, 820, 831, 847, 846, 870,
+ 882, 882, 980, 980, 1013, 1043, 1049, 1050, 1056, 1057,
+ 1064, 1069, 1081, 1095, 1097, 1105, 1110, 1112, 1120, 1122,
+ 1131, 1132, 1140, 1145, 1145, 1156, 1160, 1168, 1169, 1172,
+ 1174, 1179, 1180, 1189, 1190, 1195, 1200, 1206, 1208, 1210,
+ 1217, 1218, 1224, 1225, 1230, 1232, 1237, 1239, 1247, 1252,
+ 1261, 1268, 1270, 1272, 1288, 1298, 1305, 1307, 1312, 1314,
+ 1316, 1324, 1326, 1331, 1333, 1338, 1340, 1342, 1392, 1394,
+ 1396, 1398, 1400, 1402, 1404, 1406, 1429, 1434, 1439, 1464,
+ 1470, 1472, 1474, 1476, 1478, 1480, 1485, 1489, 1521, 1523,
+ 1529, 1535, 1548, 1549, 1550, 1555, 1560, 1564, 1568, 1583,
+ 1596, 1601, 1637, 1655, 1656, 1662, 1663, 1668, 1670, 1677,
+ 1694, 1711, 1713, 1720, 1725, 1733, 1743, 1755, 1764, 1768,
+ 1772, 1776, 1780, 1784, 1787, 1789, 1793, 1797, 1801
};
#endif
@@ -2388,31 +2388,32 @@ yyreduce:
else
(yyval) = list_merge((yyvsp[(1) - (2)]),
(yyvsp[(2) - (2)]));
}
+ list_append((yyval), instruction(Op_end_stmt));
yyerrok;
}
break;
case 39:
/* Line 1787 of yacc.c */
-#line 461 "awkgram.y"
+#line 462 "awkgram.y"
{ (yyval) = NULL; }
break;
case 42:
/* Line 1787 of yacc.c */
-#line 471 "awkgram.y"
+#line 472 "awkgram.y"
{ (yyval) = NULL; }
break;
case 43:
/* Line 1787 of yacc.c */
-#line 473 "awkgram.y"
+#line 474 "awkgram.y"
{ (yyval) = (yyvsp[(2) - (3)]); }
break;
case 44:
/* Line 1787 of yacc.c */
-#line 475 "awkgram.y"
+#line 476 "awkgram.y"
{
if (do_pretty_print)
(yyval) = list_prepend((yyvsp[(1) - (1)]),
instruction(Op_exec_count));
@@ -2423,7 +2424,7 @@ yyreduce:
case 45:
/* Line 1787 of yacc.c */
-#line 482 "awkgram.y"
+#line 483 "awkgram.y"
{
INSTRUCTION *dflt, *curr = NULL, *cexp, *cstmt;
INSTRUCTION *ip, *nextc, *tbreak;
@@ -2517,7 +2518,7 @@ yyreduce:
case 46:
/* Line 1787 of yacc.c */
-#line 572 "awkgram.y"
+#line 573 "awkgram.y"
{
/*
* -----------------
@@ -2563,7 +2564,7 @@ yyreduce:
case 47:
/* Line 1787 of yacc.c */
-#line 614 "awkgram.y"
+#line 615 "awkgram.y"
{
/*
* -----------------
@@ -2609,7 +2610,7 @@ yyreduce:
case 48:
/* Line 1787 of yacc.c */
-#line 656 "awkgram.y"
+#line 657 "awkgram.y"
{
INSTRUCTION *ip;
char *var_name = (yyvsp[(3) - (8)])->lextok;
@@ -2726,7 +2727,7 @@ regular_loop:
case 49:
/* Line 1787 of yacc.c */
-#line 769 "awkgram.y"
+#line 770 "awkgram.y"
{
(yyval) = mk_for_loop((yyvsp[(1) - (12)]), (yyvsp[(3) - (12)]),
(yyvsp[(6) - (12)]), (yyvsp[(9) - (12)]), (yyvsp[(12) - (12)]));
@@ -2737,7 +2738,7 @@ regular_loop:
case 50:
/* Line 1787 of yacc.c */
-#line 776 "awkgram.y"
+#line 777 "awkgram.y"
{
(yyval) = mk_for_loop((yyvsp[(1) - (11)]), (yyvsp[(3) - (11)]),
(INSTRUCTION *) NULL, (yyvsp[(8) - (11)]), (yyvsp[(11) - (11)]));
@@ -2748,7 +2749,7 @@ regular_loop:
case 51:
/* Line 1787 of yacc.c */
-#line 783 "awkgram.y"
+#line 784 "awkgram.y"
{
if (do_pretty_print)
(yyval) = list_prepend((yyvsp[(1) - (1)]),
instruction(Op_exec_count));
@@ -2759,7 +2760,7 @@ regular_loop:
case 52:
/* Line 1787 of yacc.c */
-#line 793 "awkgram.y"
+#line 794 "awkgram.y"
{
if (! break_allowed)
error_ln((yyvsp[(1) - (2)])->source_line,
@@ -2772,7 +2773,7 @@ regular_loop:
case 53:
/* Line 1787 of yacc.c */
-#line 802 "awkgram.y"
+#line 803 "awkgram.y"
{
if (! continue_allowed)
error_ln((yyvsp[(1) - (2)])->source_line,
@@ -2785,7 +2786,7 @@ regular_loop:
case 54:
/* Line 1787 of yacc.c */
-#line 811 "awkgram.y"
+#line 812 "awkgram.y"
{
/* if inside function (rule = 0), resolve context at run-time */
if (rule && rule != Rule)
@@ -2798,7 +2799,7 @@ regular_loop:
case 55:
/* Line 1787 of yacc.c */
-#line 820 "awkgram.y"
+#line 821 "awkgram.y"
{
/* if inside function (rule = 0), resolve context at run-time */
if (rule == BEGIN || rule == END || rule == ENDFILE)
@@ -2813,7 +2814,7 @@ regular_loop:
case 56:
/* Line 1787 of yacc.c */
-#line 831 "awkgram.y"
+#line 832 "awkgram.y"
{
/* Initialize the two possible jump targets, the actual target
* is resolved at run-time.
@@ -2832,7 +2833,7 @@ regular_loop:
case 57:
/* Line 1787 of yacc.c */
-#line 846 "awkgram.y"
+#line 847 "awkgram.y"
{
if (! in_function)
yyerror(_("`return' used outside function context"));
@@ -2841,7 +2842,7 @@ regular_loop:
case 58:
/* Line 1787 of yacc.c */
-#line 849 "awkgram.y"
+#line 850 "awkgram.y"
{
if ((yyvsp[(3) - (4)]) == NULL) {
(yyval) = list_create((yyvsp[(1) - (4)]));
@@ -2866,13 +2867,13 @@ regular_loop:
case 60:
/* Line 1787 of yacc.c */
-#line 881 "awkgram.y"
+#line 882 "awkgram.y"
{ in_print = true; in_parens = 0; }
break;
case 61:
/* Line 1787 of yacc.c */
-#line 882 "awkgram.y"
+#line 883 "awkgram.y"
{
/*
* Optimization: plain `print' has no expression list, so $3 is
null.
@@ -2973,13 +2974,13 @@ regular_print:
case 62:
/* Line 1787 of yacc.c */
-#line 979 "awkgram.y"
+#line 980 "awkgram.y"
{ sub_counter = 0; }
break;
case 63:
/* Line 1787 of yacc.c */
-#line 980 "awkgram.y"
+#line 981 "awkgram.y"
{
char *arr = (yyvsp[(2) - (4)])->lextok;
@@ -3016,7 +3017,7 @@ regular_print:
case 64:
/* Line 1787 of yacc.c */
-#line 1017 "awkgram.y"
+#line 1018 "awkgram.y"
{
static bool warned = false;
char *arr = (yyvsp[(3) - (4)])->lextok;
@@ -3046,31 +3047,31 @@ regular_print:
case 65:
/* Line 1787 of yacc.c */
-#line 1043 "awkgram.y"
+#line 1044 "awkgram.y"
{ (yyval) = optimize_assignment((yyvsp[(1) - (1)])); }
break;
case 66:
/* Line 1787 of yacc.c */
-#line 1048 "awkgram.y"
+#line 1049 "awkgram.y"
{ (yyval) = NULL; }
break;
case 67:
/* Line 1787 of yacc.c */
-#line 1050 "awkgram.y"
+#line 1051 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 68:
/* Line 1787 of yacc.c */
-#line 1055 "awkgram.y"
+#line 1056 "awkgram.y"
{ (yyval) = NULL; }
break;
case 69:
/* Line 1787 of yacc.c */
-#line 1057 "awkgram.y"
+#line 1058 "awkgram.y"
{
if ((yyvsp[(1) - (2)]) == NULL)
(yyval) = list_create((yyvsp[(2) - (2)]));
@@ -3081,13 +3082,13 @@ regular_print:
case 70:
/* Line 1787 of yacc.c */
-#line 1064 "awkgram.y"
+#line 1065 "awkgram.y"
{ (yyval) = NULL; }
break;
case 71:
/* Line 1787 of yacc.c */
-#line 1069 "awkgram.y"
+#line 1070 "awkgram.y"
{
INSTRUCTION *casestmt = (yyvsp[(5) - (5)]);
if ((yyvsp[(5) - (5)]) == NULL)
@@ -3103,7 +3104,7 @@ regular_print:
case 72:
/* Line 1787 of yacc.c */
-#line 1081 "awkgram.y"
+#line 1082 "awkgram.y"
{
INSTRUCTION *casestmt = (yyvsp[(4) - (4)]);
if ((yyvsp[(4) - (4)]) == NULL)
@@ -3118,13 +3119,13 @@ regular_print:
case 73:
/* Line 1787 of yacc.c */
-#line 1095 "awkgram.y"
+#line 1096 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 74:
/* Line 1787 of yacc.c */
-#line 1097 "awkgram.y"
+#line 1098 "awkgram.y"
{
NODE *n = (yyvsp[(2) - (2)])->memory;
(void) force_number(n);
@@ -3136,7 +3137,7 @@ regular_print:
case 75:
/* Line 1787 of yacc.c */
-#line 1105 "awkgram.y"
+#line 1106 "awkgram.y"
{
bcfree((yyvsp[(1) - (2)]));
(yyval) = (yyvsp[(2) - (2)]);
@@ -3145,13 +3146,13 @@ regular_print:
case 76:
/* Line 1787 of yacc.c */
-#line 1110 "awkgram.y"
+#line 1111 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 77:
/* Line 1787 of yacc.c */
-#line 1112 "awkgram.y"
+#line 1113 "awkgram.y"
{
(yyvsp[(1) - (1)])->opcode = Op_push_re;
(yyval) = (yyvsp[(1) - (1)]);
@@ -3160,19 +3161,19 @@ regular_print:
case 78:
/* Line 1787 of yacc.c */
-#line 1120 "awkgram.y"
+#line 1121 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 79:
/* Line 1787 of yacc.c */
-#line 1122 "awkgram.y"
+#line 1123 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 81:
/* Line 1787 of yacc.c */
-#line 1132 "awkgram.y"
+#line 1133 "awkgram.y"
{
(yyval) = (yyvsp[(2) - (3)]);
}
@@ -3180,7 +3181,7 @@ regular_print:
case 82:
/* Line 1787 of yacc.c */
-#line 1139 "awkgram.y"
+#line 1140 "awkgram.y"
{
in_print = false;
in_parens = 0;
@@ -3190,13 +3191,13 @@ regular_print:
case 83:
/* Line 1787 of yacc.c */
-#line 1144 "awkgram.y"
+#line 1145 "awkgram.y"
{ in_print = false; in_parens = 0; }
break;
case 84:
/* Line 1787 of yacc.c */
-#line 1145 "awkgram.y"
+#line 1146 "awkgram.y"
{
if ((yyvsp[(1) - (3)])->redir_type == redirect_twoway
&& (yyvsp[(3) - (3)])->lasti->opcode ==
Op_K_getline_redir
@@ -3208,7 +3209,7 @@ regular_print:
case 85:
/* Line 1787 of yacc.c */
-#line 1156 "awkgram.y"
+#line 1157 "awkgram.y"
{
(yyval) = mk_condition((yyvsp[(3) - (6)]), (yyvsp[(1) - (6)]),
(yyvsp[(6) - (6)]), NULL, NULL);
}
@@ -3216,7 +3217,7 @@ regular_print:
case 86:
/* Line 1787 of yacc.c */
-#line 1161 "awkgram.y"
+#line 1162 "awkgram.y"
{
(yyval) = mk_condition((yyvsp[(3) - (9)]), (yyvsp[(1) - (9)]),
(yyvsp[(6) - (9)]), (yyvsp[(7) - (9)]), (yyvsp[(9) - (9)]));
}
@@ -3224,13 +3225,13 @@ regular_print:
case 91:
/* Line 1787 of yacc.c */
-#line 1178 "awkgram.y"
+#line 1179 "awkgram.y"
{ (yyval) = NULL; }
break;
case 92:
/* Line 1787 of yacc.c */
-#line 1180 "awkgram.y"
+#line 1181 "awkgram.y"
{
bcfree((yyvsp[(1) - (2)]));
(yyval) = (yyvsp[(2) - (2)]);
@@ -3239,19 +3240,19 @@ regular_print:
case 93:
/* Line 1787 of yacc.c */
-#line 1188 "awkgram.y"
+#line 1189 "awkgram.y"
{ (yyval) = NULL; }
break;
case 94:
/* Line 1787 of yacc.c */
-#line 1190 "awkgram.y"
+#line 1191 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]) ; }
break;
case 95:
/* Line 1787 of yacc.c */
-#line 1195 "awkgram.y"
+#line 1196 "awkgram.y"
{
(yyvsp[(1) - (1)])->param_count = 0;
(yyval) = list_create((yyvsp[(1) - (1)]));
@@ -3260,7 +3261,7 @@ regular_print:
case 96:
/* Line 1787 of yacc.c */
-#line 1200 "awkgram.y"
+#line 1201 "awkgram.y"
{
(yyvsp[(3) - (3)])->param_count = (yyvsp[(1) -
(3)])->lasti->param_count + 1;
(yyval) = list_append((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]));
@@ -3270,55 +3271,55 @@ regular_print:
case 97:
/* Line 1787 of yacc.c */
-#line 1206 "awkgram.y"
+#line 1207 "awkgram.y"
{ (yyval) = NULL; }
break;
case 98:
/* Line 1787 of yacc.c */
-#line 1208 "awkgram.y"
+#line 1209 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (2)]); }
break;
case 99:
/* Line 1787 of yacc.c */
-#line 1210 "awkgram.y"
+#line 1211 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (3)]); }
break;
case 100:
/* Line 1787 of yacc.c */
-#line 1216 "awkgram.y"
+#line 1217 "awkgram.y"
{ (yyval) = NULL; }
break;
case 101:
/* Line 1787 of yacc.c */
-#line 1218 "awkgram.y"
+#line 1219 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 102:
/* Line 1787 of yacc.c */
-#line 1223 "awkgram.y"
+#line 1224 "awkgram.y"
{ (yyval) = NULL; }
break;
case 103:
/* Line 1787 of yacc.c */
-#line 1225 "awkgram.y"
+#line 1226 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 104:
/* Line 1787 of yacc.c */
-#line 1230 "awkgram.y"
+#line 1231 "awkgram.y"
{ (yyval) = mk_expression_list(NULL, (yyvsp[(1) - (1)])); }
break;
case 105:
/* Line 1787 of yacc.c */
-#line 1232 "awkgram.y"
+#line 1233 "awkgram.y"
{
(yyval) = mk_expression_list((yyvsp[(1) - (3)]), (yyvsp[(3) -
(3)]));
yyerrok;
@@ -3327,13 +3328,13 @@ regular_print:
case 106:
/* Line 1787 of yacc.c */
-#line 1237 "awkgram.y"
+#line 1238 "awkgram.y"
{ (yyval) = NULL; }
break;
case 107:
/* Line 1787 of yacc.c */
-#line 1239 "awkgram.y"
+#line 1240 "awkgram.y"
{
/*
* Returning the expression list instead of NULL lets
@@ -3345,7 +3346,7 @@ regular_print:
case 108:
/* Line 1787 of yacc.c */
-#line 1247 "awkgram.y"
+#line 1248 "awkgram.y"
{
/* Ditto */
(yyval) = mk_expression_list((yyvsp[(1) - (3)]), (yyvsp[(3) -
(3)]));
@@ -3354,7 +3355,7 @@ regular_print:
case 109:
/* Line 1787 of yacc.c */
-#line 1252 "awkgram.y"
+#line 1253 "awkgram.y"
{
/* Ditto */
(yyval) = (yyvsp[(1) - (3)]);
@@ -3363,7 +3364,7 @@ regular_print:
case 110:
/* Line 1787 of yacc.c */
-#line 1261 "awkgram.y"
+#line 1262 "awkgram.y"
{
if (do_lint && (yyvsp[(3) - (3)])->lasti->opcode ==
Op_match_rec)
lintwarn_ln((yyvsp[(2) - (3)])->source_line,
@@ -3374,19 +3375,19 @@ regular_print:
case 111:
/* Line 1787 of yacc.c */
-#line 1268 "awkgram.y"
+#line 1269 "awkgram.y"
{ (yyval) = mk_boolean((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
break;
case 112:
/* Line 1787 of yacc.c */
-#line 1270 "awkgram.y"
+#line 1271 "awkgram.y"
{ (yyval) = mk_boolean((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2)
- (3)])); }
break;
case 113:
/* Line 1787 of yacc.c */
-#line 1272 "awkgram.y"
+#line 1273 "awkgram.y"
{
if ((yyvsp[(1) - (3)])->lasti->opcode == Op_match_rec)
warning_ln((yyvsp[(2) - (3)])->source_line,
@@ -3406,7 +3407,7 @@ regular_print:
case 114:
/* Line 1787 of yacc.c */
-#line 1288 "awkgram.y"
+#line 1289 "awkgram.y"
{
if (do_lint_old)
warning_ln((yyvsp[(2) - (3)])->source_line,
@@ -3420,7 +3421,7 @@ regular_print:
case 115:
/* Line 1787 of yacc.c */
-#line 1298 "awkgram.y"
+#line 1299 "awkgram.y"
{
if (do_lint && (yyvsp[(3) - (3)])->lasti->opcode ==
Op_match_rec)
lintwarn_ln((yyvsp[(2) - (3)])->source_line,
@@ -3431,31 +3432,31 @@ regular_print:
case 116:
/* Line 1787 of yacc.c */
-#line 1305 "awkgram.y"
+#line 1306 "awkgram.y"
{ (yyval) = mk_condition((yyvsp[(1) - (5)]), (yyvsp[(2) - (5)]),
(yyvsp[(3) - (5)]), (yyvsp[(4) - (5)]), (yyvsp[(5) - (5)])); }
break;
case 117:
/* Line 1787 of yacc.c */
-#line 1307 "awkgram.y"
+#line 1308 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 118:
/* Line 1787 of yacc.c */
-#line 1312 "awkgram.y"
+#line 1313 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 119:
/* Line 1787 of yacc.c */
-#line 1314 "awkgram.y"
+#line 1315 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 120:
/* Line 1787 of yacc.c */
-#line 1316 "awkgram.y"
+#line 1317 "awkgram.y"
{
(yyvsp[(2) - (2)])->opcode = Op_assign_quotient;
(yyval) = (yyvsp[(2) - (2)]);
@@ -3464,43 +3465,43 @@ regular_print:
case 121:
/* Line 1787 of yacc.c */
-#line 1324 "awkgram.y"
+#line 1325 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 122:
/* Line 1787 of yacc.c */
-#line 1326 "awkgram.y"
+#line 1327 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 123:
/* Line 1787 of yacc.c */
-#line 1331 "awkgram.y"
+#line 1332 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 124:
/* Line 1787 of yacc.c */
-#line 1333 "awkgram.y"
+#line 1334 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 125:
/* Line 1787 of yacc.c */
-#line 1338 "awkgram.y"
+#line 1339 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 126:
/* Line 1787 of yacc.c */
-#line 1340 "awkgram.y"
+#line 1341 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 127:
/* Line 1787 of yacc.c */
-#line 1342 "awkgram.y"
+#line 1343 "awkgram.y"
{
int count = 2;
bool is_simple_var = false;
@@ -3551,43 +3552,43 @@ regular_print:
case 129:
/* Line 1787 of yacc.c */
-#line 1394 "awkgram.y"
+#line 1395 "awkgram.y"
{ (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2) -
(3)])); }
break;
case 130:
/* Line 1787 of yacc.c */
-#line 1396 "awkgram.y"
+#line 1397 "awkgram.y"
{ (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2) -
(3)])); }
break;
case 131:
/* Line 1787 of yacc.c */
-#line 1398 "awkgram.y"
+#line 1399 "awkgram.y"
{ (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2) -
(3)])); }
break;
case 132:
/* Line 1787 of yacc.c */
-#line 1400 "awkgram.y"
+#line 1401 "awkgram.y"
{ (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2) -
(3)])); }
break;
case 133:
/* Line 1787 of yacc.c */
-#line 1402 "awkgram.y"
+#line 1403 "awkgram.y"
{ (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2) -
(3)])); }
break;
case 134:
/* Line 1787 of yacc.c */
-#line 1404 "awkgram.y"
+#line 1405 "awkgram.y"
{ (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2) -
(3)])); }
break;
case 135:
/* Line 1787 of yacc.c */
-#line 1406 "awkgram.y"
+#line 1407 "awkgram.y"
{
/*
* In BEGINFILE/ENDFILE, allow `getline var < file'
@@ -3614,7 +3615,7 @@ regular_print:
case 136:
/* Line 1787 of yacc.c */
-#line 1429 "awkgram.y"
+#line 1430 "awkgram.y"
{
(yyvsp[(2) - (2)])->opcode = Op_postincrement;
(yyval) = mk_assignment((yyvsp[(1) - (2)]), NULL, (yyvsp[(2) -
(2)]));
@@ -3623,7 +3624,7 @@ regular_print:
case 137:
/* Line 1787 of yacc.c */
-#line 1434 "awkgram.y"
+#line 1435 "awkgram.y"
{
(yyvsp[(2) - (2)])->opcode = Op_postdecrement;
(yyval) = mk_assignment((yyvsp[(1) - (2)]), NULL, (yyvsp[(2) -
(2)]));
@@ -3632,7 +3633,7 @@ regular_print:
case 138:
/* Line 1787 of yacc.c */
-#line 1439 "awkgram.y"
+#line 1440 "awkgram.y"
{
if (do_lint_old) {
warning_ln((yyvsp[(4) - (5)])->source_line,
@@ -3656,7 +3657,7 @@ regular_print:
case 139:
/* Line 1787 of yacc.c */
-#line 1464 "awkgram.y"
+#line 1465 "awkgram.y"
{
(yyval) = mk_getline((yyvsp[(3) - (4)]), (yyvsp[(4) - (4)]),
(yyvsp[(1) - (4)]), (yyvsp[(2) - (4)])->redir_type);
bcfree((yyvsp[(2) - (4)]));
@@ -3665,43 +3666,43 @@ regular_print:
case 140:
/* Line 1787 of yacc.c */
-#line 1470 "awkgram.y"
+#line 1471 "awkgram.y"
{ (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2) -
(3)])); }
break;
case 141:
/* Line 1787 of yacc.c */
-#line 1472 "awkgram.y"
+#line 1473 "awkgram.y"
{ (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2) -
(3)])); }
break;
case 142:
/* Line 1787 of yacc.c */
-#line 1474 "awkgram.y"
+#line 1475 "awkgram.y"
{ (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2) -
(3)])); }
break;
case 143:
/* Line 1787 of yacc.c */
-#line 1476 "awkgram.y"
+#line 1477 "awkgram.y"
{ (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2) -
(3)])); }
break;
case 144:
/* Line 1787 of yacc.c */
-#line 1478 "awkgram.y"
+#line 1479 "awkgram.y"
{ (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2) -
(3)])); }
break;
case 145:
/* Line 1787 of yacc.c */
-#line 1480 "awkgram.y"
+#line 1481 "awkgram.y"
{ (yyval) = mk_binary((yyvsp[(1) - (3)]), (yyvsp[(3) - (3)]), (yyvsp[(2) -
(3)])); }
break;
case 146:
/* Line 1787 of yacc.c */
-#line 1485 "awkgram.y"
+#line 1486 "awkgram.y"
{
(yyval) = list_create((yyvsp[(1) - (1)]));
}
@@ -3709,7 +3710,7 @@ regular_print:
case 147:
/* Line 1787 of yacc.c */
-#line 1489 "awkgram.y"
+#line 1490 "awkgram.y"
{
if ((yyvsp[(2) - (2)])->opcode == Op_match_rec) {
(yyvsp[(2) - (2)])->opcode = Op_nomatch;
@@ -3745,13 +3746,13 @@ regular_print:
case 148:
/* Line 1787 of yacc.c */
-#line 1521 "awkgram.y"
+#line 1522 "awkgram.y"
{ (yyval) = (yyvsp[(2) - (3)]); }
break;
case 149:
/* Line 1787 of yacc.c */
-#line 1523 "awkgram.y"
+#line 1524 "awkgram.y"
{
(yyval) = snode((yyvsp[(3) - (4)]), (yyvsp[(1) - (4)]));
if ((yyval) == NULL)
@@ -3761,7 +3762,7 @@ regular_print:
case 150:
/* Line 1787 of yacc.c */
-#line 1529 "awkgram.y"
+#line 1530 "awkgram.y"
{
(yyval) = snode((yyvsp[(3) - (4)]), (yyvsp[(1) - (4)]));
if ((yyval) == NULL)
@@ -3771,7 +3772,7 @@ regular_print:
case 151:
/* Line 1787 of yacc.c */
-#line 1535 "awkgram.y"
+#line 1536 "awkgram.y"
{
static bool warned = false;
@@ -3788,7 +3789,7 @@ regular_print:
case 154:
/* Line 1787 of yacc.c */
-#line 1550 "awkgram.y"
+#line 1551 "awkgram.y"
{
(yyvsp[(1) - (2)])->opcode = Op_preincrement;
(yyval) = mk_assignment((yyvsp[(2) - (2)]), NULL, (yyvsp[(1) -
(2)]));
@@ -3797,7 +3798,7 @@ regular_print:
case 155:
/* Line 1787 of yacc.c */
-#line 1555 "awkgram.y"
+#line 1556 "awkgram.y"
{
(yyvsp[(1) - (2)])->opcode = Op_predecrement;
(yyval) = mk_assignment((yyvsp[(2) - (2)]), NULL, (yyvsp[(1) -
(2)]));
@@ -3806,7 +3807,7 @@ regular_print:
case 156:
/* Line 1787 of yacc.c */
-#line 1560 "awkgram.y"
+#line 1561 "awkgram.y"
{
(yyval) = list_create((yyvsp[(1) - (1)]));
}
@@ -3814,7 +3815,7 @@ regular_print:
case 157:
/* Line 1787 of yacc.c */
-#line 1564 "awkgram.y"
+#line 1565 "awkgram.y"
{
(yyval) = list_create((yyvsp[(1) - (1)]));
}
@@ -3822,7 +3823,7 @@ regular_print:
case 158:
/* Line 1787 of yacc.c */
-#line 1568 "awkgram.y"
+#line 1569 "awkgram.y"
{
if ((yyvsp[(2) - (2)])->lasti->opcode == Op_push_i
&& ((yyvsp[(2) - (2)])->lasti->memory->flags &
(STRCUR|STRING)) == 0
@@ -3841,7 +3842,7 @@ regular_print:
case 159:
/* Line 1787 of yacc.c */
-#line 1583 "awkgram.y"
+#line 1584 "awkgram.y"
{
/*
* was: $$ = $2
@@ -3855,7 +3856,7 @@ regular_print:
case 160:
/* Line 1787 of yacc.c */
-#line 1596 "awkgram.y"
+#line 1597 "awkgram.y"
{
func_use((yyvsp[(1) - (1)])->lasti->func_name, FUNC_USE);
(yyval) = (yyvsp[(1) - (1)]);
@@ -3864,7 +3865,7 @@ regular_print:
case 161:
/* Line 1787 of yacc.c */
-#line 1601 "awkgram.y"
+#line 1602 "awkgram.y"
{
/* indirect function call */
INSTRUCTION *f, *t;
@@ -3901,7 +3902,7 @@ regular_print:
case 162:
/* Line 1787 of yacc.c */
-#line 1637 "awkgram.y"
+#line 1638 "awkgram.y"
{
param_sanity((yyvsp[(3) - (4)]));
(yyvsp[(1) - (4)])->opcode = Op_func_call;
@@ -3919,37 +3920,37 @@ regular_print:
case 163:
/* Line 1787 of yacc.c */
-#line 1654 "awkgram.y"
+#line 1655 "awkgram.y"
{ (yyval) = NULL; }
break;
case 164:
/* Line 1787 of yacc.c */
-#line 1656 "awkgram.y"
+#line 1657 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 165:
/* Line 1787 of yacc.c */
-#line 1661 "awkgram.y"
+#line 1662 "awkgram.y"
{ (yyval) = NULL; }
break;
case 166:
/* Line 1787 of yacc.c */
-#line 1663 "awkgram.y"
+#line 1664 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (2)]); }
break;
case 167:
/* Line 1787 of yacc.c */
-#line 1668 "awkgram.y"
+#line 1669 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 168:
/* Line 1787 of yacc.c */
-#line 1670 "awkgram.y"
+#line 1671 "awkgram.y"
{
(yyval) = list_merge((yyvsp[(1) - (2)]), (yyvsp[(2) - (2)]));
}
@@ -3957,7 +3958,7 @@ regular_print:
case 169:
/* Line 1787 of yacc.c */
-#line 1677 "awkgram.y"
+#line 1678 "awkgram.y"
{
INSTRUCTION *ip = (yyvsp[(1) - (1)])->lasti;
int count = ip->sub_count; /* # of SUBSEP-seperated
expressions */
@@ -3975,7 +3976,7 @@ regular_print:
case 170:
/* Line 1787 of yacc.c */
-#line 1694 "awkgram.y"
+#line 1695 "awkgram.y"
{
INSTRUCTION *t = (yyvsp[(2) - (3)]);
if ((yyvsp[(2) - (3)]) == NULL) {
@@ -3993,13 +3994,13 @@ regular_print:
case 171:
/* Line 1787 of yacc.c */
-#line 1711 "awkgram.y"
+#line 1712 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); }
break;
case 172:
/* Line 1787 of yacc.c */
-#line 1713 "awkgram.y"
+#line 1714 "awkgram.y"
{
(yyval) = list_merge((yyvsp[(1) - (2)]), (yyvsp[(2) - (2)]));
}
@@ -4007,13 +4008,13 @@ regular_print:
case 173:
/* Line 1787 of yacc.c */
-#line 1720 "awkgram.y"
+#line 1721 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (2)]); }
break;
case 174:
/* Line 1787 of yacc.c */
-#line 1725 "awkgram.y"
+#line 1726 "awkgram.y"
{
char *var_name = (yyvsp[(1) - (1)])->lextok;
@@ -4025,7 +4026,7 @@ regular_print:
case 175:
/* Line 1787 of yacc.c */
-#line 1733 "awkgram.y"
+#line 1734 "awkgram.y"
{
char *arr = (yyvsp[(1) - (2)])->lextok;
(yyvsp[(1) - (2)])->memory = variable((yyvsp[(1) -
(2)])->source_line, arr, Node_var_new);
@@ -4036,7 +4037,7 @@ regular_print:
case 176:
/* Line 1787 of yacc.c */
-#line 1743 "awkgram.y"
+#line 1744 "awkgram.y"
{
INSTRUCTION *ip = (yyvsp[(1) - (1)])->nexti;
if (ip->opcode == Op_push
@@ -4052,7 +4053,7 @@ regular_print:
case 177:
/* Line 1787 of yacc.c */
-#line 1755 "awkgram.y"
+#line 1756 "awkgram.y"
{
(yyval) = list_append((yyvsp[(2) - (3)]), (yyvsp[(1) - (3)]));
if ((yyvsp[(3) - (3)]) != NULL)
@@ -4062,7 +4063,7 @@ regular_print:
case 178:
/* Line 1787 of yacc.c */
-#line 1764 "awkgram.y"
+#line 1765 "awkgram.y"
{
(yyvsp[(1) - (1)])->opcode = Op_postincrement;
}
@@ -4070,7 +4071,7 @@ regular_print:
case 179:
/* Line 1787 of yacc.c */
-#line 1768 "awkgram.y"
+#line 1769 "awkgram.y"
{
(yyvsp[(1) - (1)])->opcode = Op_postdecrement;
}
@@ -4078,43 +4079,43 @@ regular_print:
case 180:
/* Line 1787 of yacc.c */
-#line 1771 "awkgram.y"
+#line 1772 "awkgram.y"
{ (yyval) = NULL; }
break;
case 182:
/* Line 1787 of yacc.c */
-#line 1779 "awkgram.y"
+#line 1780 "awkgram.y"
{ yyerrok; }
break;
case 183:
/* Line 1787 of yacc.c */
-#line 1783 "awkgram.y"
+#line 1784 "awkgram.y"
{ yyerrok; }
break;
case 186:
/* Line 1787 of yacc.c */
-#line 1792 "awkgram.y"
+#line 1793 "awkgram.y"
{ yyerrok; }
break;
case 187:
/* Line 1787 of yacc.c */
-#line 1796 "awkgram.y"
+#line 1797 "awkgram.y"
{ (yyval) = (yyvsp[(1) - (1)]); yyerrok; }
break;
case 188:
/* Line 1787 of yacc.c */
-#line 1800 "awkgram.y"
+#line 1801 "awkgram.y"
{ yyerrok; }
break;
/* Line 1787 of yacc.c */
-#line 4118 "awkgram.c"
+#line 4119 "awkgram.c"
default: break;
}
/* User semantic actions sometimes alter yychar, and that requires
@@ -4346,7 +4347,7 @@ yyreturn:
/* Line 2050 of yacc.c */
-#line 1802 "awkgram.y"
+#line 1803 "awkgram.y"
struct token {
diff --git a/awkgram.y b/awkgram.y
index 6864722..e5ffe9e 100644
--- a/awkgram.y
+++ b/awkgram.y
@@ -455,6 +455,7 @@ statements
else
$$ = list_merge($1, $2);
}
+ list_append($$, instruction(Op_end_stmt));
yyerrok;
}
| statements error
diff --git a/eval.c b/eval.c
index cf2264b..a1910a2 100644
--- a/eval.c
+++ b/eval.c
@@ -362,6 +362,7 @@ static struct optypetab {
{ "Op_func", NULL },
{ "Op_exec_count", NULL },
{ "Op_breakpoint", NULL },
+ { "Op_end_stmt", NULL },
{ "Op_lint", NULL },
{ "Op_atexit", NULL },
{ "Op_stop", NULL },
diff --git a/gawkapi.c b/gawkapi.c
index 61f91e8..4651b37 100644
--- a/gawkapi.c
+++ b/gawkapi.c
@@ -1057,6 +1057,55 @@ api_register_ext_version(awk_ext_id_t id, const char
*version)
vi_head = info;
}
+volatile bool async_pending = false;
+
+struct async_list {
+ awk_ext_id_t id;
+ awk_async_callback_t *callback;
+ struct async_list *next;
+};
+
+static struct async_list *async_head = NULL;
+
+/* api_register_async_callback --- register an asynchronous callback function
*/
+static void
+api_register_async_callback(awk_ext_id_t id, awk_async_callback_t *callback)
+{
+ struct async_list *lp;
+
+ if (callback == NULL)
+ return;
+
+ emalloc(lp, struct async_list *, sizeof(struct async_list),
"register_async_callback");
+ lp->id = id; // for future use
+ lp->callback = callback;
+ lp->next = async_head;
+ async_head = lp;
+}
+
+/* api_notify_async_event --- tell gawk that something happened */
+
+static void
+api_notify_async_event(awk_ext_id_t id)
+{
+ async_pending = true;
+}
+
+/* run_aysnc_handlers --- execute the async handlers */
+
+void
+run_async_handlers(void)
+{
+ struct async_list *lp;
+
+ for (lp = async_head; lp != NULL; lp = lp->next) {
+ if (lp->callback->needs_calling) {
+ lp->callback->needs_calling = false;
+ lp->callback->callback_fn(lp->callback->data);
+ }
+ }
+}
+
/* the struct api */
gawk_api_t api_impl = {
/* data */
@@ -1107,6 +1156,10 @@ gawk_api_t api_impl = {
api_clear_array,
api_flatten_array,
api_release_flattened_array,
+
+ /* Asynchronous callbacks */
+ api_register_async_callback,
+ api_notify_async_event,
};
/* init_ext_api --- init the extension API */
diff --git a/gawkapi.h b/gawkapi.h
index cc50bba..6ee8917 100644
--- a/gawkapi.h
+++ b/gawkapi.h
@@ -264,7 +264,7 @@ typedef struct awk_two_way_processor {
/* Current version of the API. */
enum {
GAWK_API_MAJOR_VERSION = 1,
- GAWK_API_MINOR_VERSION = 0
+ GAWK_API_MINOR_VERSION = 1
};
/* A number of typedefs related to different types of values. */
@@ -381,6 +381,13 @@ typedef struct awk_ext_func {
typedef void *awk_ext_id_t; /* opaque type for extension id */
+/* Information for asynchronous callbacks */
+typedef struct awk_async_callback {
+ awk_bool_t needs_calling;
+ void *data;
+ void (*callback_fn)(void *data);
+} awk_async_callback_t;
+
/*
* The API into gawk. Lots of functions here. We hope that they are
* logically organized.
@@ -665,6 +672,13 @@ typedef struct gawk_api {
awk_bool_t (*api_release_flattened_array)(awk_ext_id_t id,
awk_array_t a_cookie,
awk_flat_array_t *data);
+
+ /* Handling async events */
+ /* Register a call back */
+ void (*api_register_async_callback)(awk_ext_id_t id,
awk_async_callback_t *callback);
+
+ /* Tell gawk that something happened, it will call us when it's ready */
+ void (*api_notify_async_event)(awk_ext_id_t id);
} gawk_api_t;
#ifndef GAWK /* these are not for the gawk code itself! */
@@ -745,6 +759,12 @@ typedef struct gawk_api {
#define register_ext_version(version) \
(api->api_register_ext_version(ext_id, version))
+#define register_async_callback(callback) \
+ (api->api_register_async_callback)(ext_id, callback)
+
+#define notify_async_event() \
+ (api->api_notify_async_event)(awk_ext_id_t)
+
#define emalloc(pointer, type, size, message) \
do { \
if ((pointer = (type) malloc(size)) == 0) \
diff --git a/interpret.h b/interpret.h
index ba70cf0..2da7d97 100644
--- a/interpret.h
+++ b/interpret.h
@@ -1358,6 +1358,13 @@ match_re:
case Op_cond_exp:
break;
+ case Op_end_stmt:
+ if (async_pending) {
+ async_pending = false;
+ run_async_handlers();
+ }
+ break;
+
default:
fatal(_("Sorry, don't know how to interpret `%s'"),
opcode2str(op));
}
diff --git a/profile.c b/profile.c
index 223a4e3..e7b3dbc 100644
--- a/profile.c
+++ b/profile.c
@@ -501,6 +501,7 @@ cleanup:
case Op_cond_pair:
case Op_after_beginfile:
case Op_after_endfile:
+ case Op_end_stmt:
break;
case Op_sub_builtin:
-----------------------------------------------------------------------
hooks/post-receive
--
gawk
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [gawk-diffs] [SCM] gawk branch, dead-branches/async-events, created. gawk-4.1.0-1270-g2ffb0a4,
Arnold Robbins <=