loader: Correct overly strict startup checks.
[asterisk/asterisk.git] / main / ast_expr2.c
index df75567..b7b45da 100644 (file)
@@ -1,14 +1,15 @@
-/* A Bison parser, made by GNU Bison 2.3.  */
+
+/* A Bison parser, made by GNU Bison 2.4.1.  */
 
 /* Skeleton implementation for Bison's Yacc-like parsers in C
 
-   Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
+      Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
    Free Software Foundation, Inc.
 
-   This program is free software; you can redistribute it and/or modify
+   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 2, or (at your option)
-   any later version.
+   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
@@ -16,9 +17,7 @@
    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, write to the Free Software
-   Foundation, Inc., 51 Franklin Street, Fifth Floor,
-   Boston, MA 02110-1301, USA.  */
+   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
@@ -47,7 +46,7 @@
 #define YYBISON 1
 
 /* Bison version.  */
-#define YYBISON_VERSION "2.3"
+#define YYBISON_VERSION "2.4.1"
 
 /* Skeleton name.  */
 #define YYSKELETON_NAME "yacc.c"
 /* Pure parsers.  */
 #define YYPURE 1
 
+/* Push parsers.  */
+#define YYPUSH 0
+
+/* Pull parsers.  */
+#define YYPULL 1
+
 /* Using locations.  */
 #define YYLSP_NEEDED 1
 
 /* Substitute the variable and function names.  */
-#define yyparse ast_yyparse
-#define yylex   ast_yylex
-#define yyerror ast_yyerror
-#define yylval  ast_yylval
-#define yychar  ast_yychar
-#define yydebug ast_yydebug
-#define yynerrs ast_yynerrs
-#define yylloc ast_yylloc
-
-/* Tokens.  */
-#ifndef YYTOKENTYPE
-# define YYTOKENTYPE
-   /* Put the tokens into the symbol table, so that GDB and other debuggers
-      know about them.  */
-   enum yytokentype {
-     TOK_COMMA = 258,
-     TOK_COLONCOLON = 259,
-     TOK_COND = 260,
-     TOK_OR = 261,
-     TOK_AND = 262,
-     TOK_NE = 263,
-     TOK_LE = 264,
-     TOK_GE = 265,
-     TOK_LT = 266,
-     TOK_GT = 267,
-     TOK_EQ = 268,
-     TOK_MINUS = 269,
-     TOK_PLUS = 270,
-     TOK_MOD = 271,
-     TOK_DIV = 272,
-     TOK_MULT = 273,
-     TOK_COMPL = 274,
-     TOK_TILDETILDE = 275,
-     TOK_EQTILDE = 276,
-     TOK_COLON = 277,
-     TOK_LP = 278,
-     TOK_RP = 279,
-     TOKEN = 280
-   };
-#endif
-/* Tokens.  */
-#define TOK_COMMA 258
-#define TOK_COLONCOLON 259
-#define TOK_COND 260
-#define TOK_OR 261
-#define TOK_AND 262
-#define TOK_NE 263
-#define TOK_LE 264
-#define TOK_GE 265
-#define TOK_LT 266
-#define TOK_GT 267
-#define TOK_EQ 268
-#define TOK_MINUS 269
-#define TOK_PLUS 270
-#define TOK_MOD 271
-#define TOK_DIV 272
-#define TOK_MULT 273
-#define TOK_COMPL 274
-#define TOK_TILDETILDE 275
-#define TOK_EQTILDE 276
-#define TOK_COLON 277
-#define TOK_LP 278
-#define TOK_RP 279
-#define TOKEN 280
-
-
-
+#define yyparse         ast_yyparse
+#define yylex           ast_yylex
+#define yyerror         ast_yyerror
+#define yylval          ast_yylval
+#define yychar          ast_yychar
+#define yydebug         ast_yydebug
+#define yynerrs         ast_yynerrs
+#define yylloc          ast_yylloc
 
 /* Copy the first part of user declarations.  */
+
+/* Line 189 of yacc.c  */
 #line 1 "ast_expr2.y"
 
-/* Written by Pace Willisson (pace@blitz.com) 
+/* Written by Pace Willisson (pace@blitz.com)
  * and placed in the public domain.
  *
  * Largely rewritten by J.T. Conklin (jtc@wimsey.com)
  *
  * And then overhauled twice by Steve Murphy (murf@digium.com)
  * to add double-quoted strings, allow mult. spaces, improve
- * error messages, and then to fold in a flex scanner for the 
+ * error messages, and then to fold in a flex scanner for the
  * yylex operation.
  *
  * $FreeBSD: src/bin/expr/expr.y,v 1.16 2000/07/22 10:59:36 se Exp $
  */
 
+#define ASTMM_LIBC ASTMM_REDIRECT
 #include "asterisk.h"
 
+#include <sys/cdefs.h>
 #include <sys/types.h>
 #include <stdio.h>
 
-#if !defined(STANDALONE) && !defined(STANDALONE2)      \
-       
-ASTERISK_FILE_VERSION(__FILE__, "$Revision$")
-#else
+#if defined(STANDALONE) || defined(STANDALONE2)
 #ifndef __USE_ISOC99
 #define __USE_ISOC99 1
 #endif
@@ -388,7 +335,7 @@ enum node_type {
        AST_EXPR_NODE_COMMA, AST_EXPR_NODE_STRING, AST_EXPR_NODE_VAL
 } ;
 
-struct expr_node 
+struct expr_node
 {
        enum node_type type;
        struct val *val;
@@ -406,7 +353,7 @@ struct parse_io
        yyscan_t scanner;
        struct ast_channel *chan;
 };
+
 static int             chk_div __P((FP___TYPE, FP___TYPE));
 static int             chk_minus __P((FP___TYPE, FP___TYPE, FP___TYPE));
 static int             chk_plus __P((FP___TYPE, FP___TYPE, FP___TYPE));
@@ -458,7 +405,7 @@ typedef struct yyltype
    define it here, we have no definition yet for YYSTYPE. */
 
 int            ast_yyerror(const char *,YYLTYPE *, struct parse_io *);
+
 /* I wanted to add args to the yyerror routine, so I could print out
    some useful info about the error. Not as easy as it looks, but it
    is possible. */
@@ -466,6 +413,9 @@ int         ast_yyerror(const char *,YYLTYPE *, struct parse_io *);
 #define DESTROY(x) {if((x)->type == AST_EXPR_numeric_string || (x)->type == AST_EXPR_string) free((x)->u.s); (x)->u.s = 0; free(x);}
 
 
+/* Line 189 of yacc.c  */
+#line 419 "ast_expr2.c"
+
 /* Enabling traces.  */
 #ifndef YYDEBUG
 # define YYDEBUG 0
@@ -484,19 +434,59 @@ int               ast_yyerror(const char *,YYLTYPE *, struct parse_io *);
 # define YYTOKEN_TABLE 0
 #endif
 
+
+/* Tokens.  */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+   /* Put the tokens into the symbol table, so that GDB and other debuggers
+      know about them.  */
+   enum yytokentype {
+     TOK_COMMA = 258,
+     TOK_COLONCOLON = 259,
+     TOK_COND = 260,
+     TOK_OR = 261,
+     TOK_AND = 262,
+     TOK_NE = 263,
+     TOK_LE = 264,
+     TOK_GE = 265,
+     TOK_LT = 266,
+     TOK_GT = 267,
+     TOK_EQ = 268,
+     TOK_MINUS = 269,
+     TOK_PLUS = 270,
+     TOK_MOD = 271,
+     TOK_DIV = 272,
+     TOK_MULT = 273,
+     TOK_COMPL = 274,
+     TOK_TILDETILDE = 275,
+     TOK_EQTILDE = 276,
+     TOK_COLON = 277,
+     TOK_LP = 278,
+     TOK_RP = 279,
+     TOKEN = 280
+   };
+#endif
+
+
+
 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
 typedef union YYSTYPE
-#line 345 "ast_expr2.y"
 {
+
+/* Line 214 of yacc.c  */
+#line 345 "ast_expr2.y"
+
        struct val *val;
        struct expr_node *arglist;
-}
-/* Line 187 of yacc.c.  */
-#line 496 "ast_expr2.c"
-       YYSTYPE;
+
+
+
+/* Line 214 of yacc.c  */
+#line 487 "ast_expr2.c"
+} YYSTYPE;
+# define YYSTYPE_IS_TRIVIAL 1
 # define yystype YYSTYPE /* obsolescent; will be withdrawn */
 # define YYSTYPE_IS_DECLARED 1
-# define YYSTYPE_IS_TRIVIAL 1
 #endif
 
 #if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED
@@ -514,13 +504,15 @@ typedef struct YYLTYPE
 
 
 /* Copy the second part of user declarations.  */
+
+/* Line 264 of yacc.c  */
 #line 350 "ast_expr2.y"
 
 extern int             ast_yylex __P((YYSTYPE *, YYLTYPE *, yyscan_t));
 
 
-/* Line 216 of yacc.c.  */
-#line 524 "ast_expr2.c"
+/* Line 264 of yacc.c  */
+#line 517 "ast_expr2.c"
 
 #ifdef short
 # undef short
@@ -595,14 +587,14 @@ typedef short int yytype_int16;
 #if (defined __STDC__ || defined __C99__FUNC__ \
      || defined __cplusplus || defined _MSC_VER)
 static int
-YYID (int i)
+YYID (int yyi)
 #else
 static int
-YYID (i)
-    int i;
+YYID (yyi)
+    int yyi;
 #endif
 {
-  return i;
+  return yyi;
 }
 #endif
 
@@ -684,9 +676,9 @@ void free (void *); /* INFRINGES ON USER NAME SPACE */
 /* A type that is properly aligned for any stack member.  */
 union yyalloc
 {
-  yytype_int16 yyss;
-  YYSTYPE yyvs;
-    YYLTYPE yyls;
+  yytype_int16 yyss_alloc;
+  YYSTYPE yyvs_alloc;
+  YYLTYPE yyls_alloc;
 };
 
 /* The size of the maximum gap between one aligned stack and the next.  */
@@ -721,12 +713,12 @@ union yyalloc
    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)                                       \
+# define YYSTACK_RELOCATE(Stack_alloc, Stack)                          \
     do                                                                 \
       {                                                                        \
        YYSIZE_T yynewbytes;                                            \
-       YYCOPY (&yyptr->Stack, Stack, yysize);                          \
-       Stack = &yyptr->Stack;                                          \
+       YYCOPY (&yyptr->Stack_alloc, Stack, yysize);                    \
+       Stack = &yyptr->Stack_alloc;                                    \
        yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
        yyptr += yynewbytes / sizeof (*yyptr);                          \
       }                                                                        \
@@ -1146,17 +1138,20 @@ yy_symbol_print (yyoutput, yytype, yyvaluep, yylocationp)
 #if (defined __STDC__ || defined __C99__FUNC__ \
      || defined __cplusplus || defined _MSC_VER)
 static void
-yy_stack_print (yytype_int16 *bottom, yytype_int16 *top)
+yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
 #else
 static void
-yy_stack_print (bottom, top)
-    yytype_int16 *bottom;
-    yytype_int16 *top;
+yy_stack_print (yybottom, yytop)
+    yytype_int16 *yybottom;
+    yytype_int16 *yytop;
 #endif
 {
   YYFPRINTF (stderr, "Stack now");
-  for (; bottom <= top; ++bottom)
-    YYFPRINTF (stderr, " %d", *bottom);
+  for (; yybottom <= yytop; yybottom++)
+    {
+      int yybot = *yybottom;
+      YYFPRINTF (stderr, " %d", yybot);
+    }
   YYFPRINTF (stderr, "\n");
 }
 
@@ -1191,11 +1186,11 @@ yy_reduce_print (yyvsp, yylsp, yyrule)
   /* The symbols being reduced.  */
   for (yyi = 0; yyi < yynrhs; yyi++)
     {
-      fprintf (stderr, "   $%d = ", yyi + 1);
+      YYFPRINTF (stderr, "   $%d = ", yyi + 1);
       yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
                       &(yyvsp[(yyi + 1) - (yynrhs)])
                       , &(yylsp[(yyi + 1) - (yynrhs)])                );
-      fprintf (stderr, "\n");
+      YYFPRINTF (stderr, "\n");
     }
 }
 
@@ -1232,7 +1227,7 @@ int yydebug;
 # define YYMAXDEPTH 10000
 #endif
 
-\f
+
 
 #if YYERROR_VERBOSE
 
@@ -1443,7 +1438,7 @@ yysyntax_error (char *yyresult, int yystate, int yychar)
     }
 }
 #endif /* YYERROR_VERBOSE */
-\f
+
 
 /*-----------------------------------------------.
 | Release the memory associated to this symbol.  |
@@ -1473,129 +1468,219 @@ yydestruct (yymsg, yytype, yyvaluep, yylocationp)
   switch (yytype)
     {
       case 4: /* "TOK_COLONCOLON" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
+
+/* Line 1000 of yacc.c  */
 #line 1479 "ast_expr2.c"
        break;
       case 5: /* "TOK_COND" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1484 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1488 "ast_expr2.c"
        break;
       case 6: /* "TOK_OR" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1489 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1497 "ast_expr2.c"
        break;
       case 7: /* "TOK_AND" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1494 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1506 "ast_expr2.c"
        break;
       case 8: /* "TOK_NE" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1499 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1515 "ast_expr2.c"
        break;
       case 9: /* "TOK_LE" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1504 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1524 "ast_expr2.c"
        break;
       case 10: /* "TOK_GE" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1509 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1533 "ast_expr2.c"
        break;
       case 11: /* "TOK_LT" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1514 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1542 "ast_expr2.c"
        break;
       case 12: /* "TOK_GT" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1519 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1551 "ast_expr2.c"
        break;
       case 13: /* "TOK_EQ" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1524 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1560 "ast_expr2.c"
        break;
       case 14: /* "TOK_MINUS" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1529 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1569 "ast_expr2.c"
        break;
       case 15: /* "TOK_PLUS" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1534 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1578 "ast_expr2.c"
        break;
       case 16: /* "TOK_MOD" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1539 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1587 "ast_expr2.c"
        break;
       case 17: /* "TOK_DIV" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1544 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1596 "ast_expr2.c"
        break;
       case 18: /* "TOK_MULT" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1549 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1605 "ast_expr2.c"
        break;
       case 19: /* "TOK_COMPL" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1554 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1614 "ast_expr2.c"
        break;
       case 20: /* "TOK_TILDETILDE" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1559 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1623 "ast_expr2.c"
        break;
       case 21: /* "TOK_EQTILDE" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1564 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1632 "ast_expr2.c"
        break;
       case 22: /* "TOK_COLON" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1569 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1641 "ast_expr2.c"
        break;
       case 23: /* "TOK_LP" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1574 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1650 "ast_expr2.c"
        break;
       case 24: /* "TOK_RP" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1579 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1659 "ast_expr2.c"
        break;
       case 25: /* "TOKEN" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1584 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1668 "ast_expr2.c"
        break;
       case 29: /* "expr" */
+
+/* Line 1000 of yacc.c  */
 #line 368 "ast_expr2.y"
        {  free_value((yyvaluep->val)); };
-#line 1589 "ast_expr2.c"
+
+/* Line 1000 of yacc.c  */
+#line 1677 "ast_expr2.c"
        break;
 
       default:
        break;
     }
 }
-\f
 
 /* Prevent warnings from -Wmissing-prototypes.  */
-
 #ifdef YYPARSE_PARAM
 #if defined __STDC__ || defined __cplusplus
 int yyparse (void *YYPARSE_PARAM);
@@ -1614,10 +1699,9 @@ int yyparse ();
 
 
 
-
-/*----------.
-| yyparse.  |
-`----------*/
+/*-------------------------.
+| yyparse or yypush_parse.  |
+`-------------------------*/
 
 #ifdef YYPARSE_PARAM
 #if (defined __STDC__ || defined __C99__FUNC__ \
@@ -1641,88 +1725,97 @@ yyparse ()
 #endif
 #endif
 {
-  /* The look-ahead symbol.  */
+/* The lookahead symbol.  */
 int yychar;
 
-/* The semantic value of the look-ahead symbol.  */
+/* The semantic value of the lookahead symbol.  */
 YYSTYPE yylval;
 
-/* Number of syntax errors so far.  */
-int yynerrs;
-/* Location data for the look-ahead symbol.  */
+/* Location data for the lookahead symbol.  */
 YYLTYPE yylloc;
 
-  int yystate;
-  int yyn;
-  int yyresult;
-  /* Number of tokens to shift before error messages enabled.  */
-  int yyerrstatus;
-  /* Look-ahead token as an internal (translated) token number.  */
-  int yytoken = 0;
-#if YYERROR_VERBOSE
-  /* Buffer for error messages, and its allocated size.  */
-  char yymsgbuf[128];
-  char *yymsg = yymsgbuf;
-  YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
-#endif
+    /* Number of syntax errors so far.  */
+    int yynerrs;
+
+    int yystate;
+    /* Number of tokens to shift before error messages enabled.  */
+    int yyerrstatus;
 
-  /* Three stacks and their tools:
-     `yyss': related to states,
-     `yyvs': related to semantic values,
-     `yyls': related to locations.
+    /* The stacks and their tools:
+       `yyss': related to states.
+       `yyvs': related to semantic values.
+       `yyls': related to locations.
 
-     Refer to the stacks thru separate pointers, to allow yyoverflow
-     to reallocate them elsewhere.  */
+       Refer to the stacks thru separate pointers, to allow yyoverflow
+       to reallocate them elsewhere.  */
 
-  /* The state stack.  */
-  yytype_int16 yyssa[YYINITDEPTH];
-  yytype_int16 *yyss = yyssa;
-  yytype_int16 *yyssp;
+    /* The state stack.  */
+    yytype_int16 yyssa[YYINITDEPTH];
+    yytype_int16 *yyss;
+    yytype_int16 *yyssp;
 
-  /* The semantic value stack.  */
-  YYSTYPE yyvsa[YYINITDEPTH];
-  YYSTYPE *yyvs = yyvsa;
-  YYSTYPE *yyvsp;
+    /* The semantic value stack.  */
+    YYSTYPE yyvsa[YYINITDEPTH];
+    YYSTYPE *yyvs;
+    YYSTYPE *yyvsp;
 
-  /* The location stack.  */
-  YYLTYPE yylsa[YYINITDEPTH];
-  YYLTYPE *yyls = yylsa;
-  YYLTYPE *yylsp;
-  /* The locations where the error started and ended.  */
-  YYLTYPE yyerror_range[2];
+    /* The location stack.  */
+    YYLTYPE yylsa[YYINITDEPTH];
+    YYLTYPE *yyls;
+    YYLTYPE *yylsp;
 
-#define YYPOPSTACK(N)   (yyvsp -= (N), yyssp -= (N), yylsp -= (N))
+    /* The locations where the error started and ended.  */
+    YYLTYPE yyerror_range[2];
 
-  YYSIZE_T yystacksize = YYINITDEPTH;
+    YYSIZE_T yystacksize;
 
+  int yyn;
+  int yyresult;
+  /* Lookahead token as an internal (translated) token number.  */
+  int yytoken;
   /* The variables used to return semantic value and location from the
      action routines.  */
   YYSTYPE yyval;
   YYLTYPE yyloc;
 
+#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), yylsp -= (N))
+
   /* The number of symbols on the RHS of the reduced rule.
      Keep to zero when no symbol should be popped.  */
   int yylen = 0;
 
+  yytoken = 0;
+  yyss = yyssa;
+  yyvs = yyvsa;
+  yyls = yylsa;
+  yystacksize = YYINITDEPTH;
+
   YYDPRINTF ((stderr, "Starting parse\n"));
 
   yystate = 0;
   yyerrstatus = 0;
   yynerrs = 0;
-  yychar = YYEMPTY;            /* Cause a token to be read.  */
+  yychar = YYEMPTY; /* Cause a token to be read.  */
 
   /* Initialize stack pointers.
      Waste one element of value and location stack
      so that they stay on the same level as the state stack.
      The wasted elements are never initialized.  */
-
   yyssp = yyss;
   yyvsp = yyvs;
   yylsp = yyls;
+
 #if YYLTYPE_IS_TRIVIAL
   /* Initialize the default location before parsing starts.  */
   yylloc.first_line   = yylloc.last_line   = 1;
-  yylloc.first_column = yylloc.last_column = 0;
+  yylloc.first_column = yylloc.last_column = 1;
 #endif
 
   goto yysetstate;
@@ -1761,6 +1854,7 @@ YYLTYPE yylloc;
                    &yyvs1, yysize * sizeof (*yyvsp),
                    &yyls1, yysize * sizeof (*yylsp),
                    &yystacksize);
+
        yyls = yyls1;
        yyss = yyss1;
        yyvs = yyvs1;
@@ -1782,9 +1876,9 @@ YYLTYPE yylloc;
          (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
        if (! yyptr)
          goto yyexhaustedlab;
-       YYSTACK_RELOCATE (yyss);
-       YYSTACK_RELOCATE (yyvs);
-       YYSTACK_RELOCATE (yyls);
+       YYSTACK_RELOCATE (yyss_alloc, yyss);
+       YYSTACK_RELOCATE (yyvs_alloc, yyvs);
+       YYSTACK_RELOCATE (yyls_alloc, yyls);
 #  undef YYSTACK_RELOCATE
        if (yyss1 != yyssa)
          YYSTACK_FREE (yyss1);
@@ -1805,6 +1899,9 @@ YYLTYPE yylloc;
 
   YYDPRINTF ((stderr, "Entering state %d\n", yystate));
 
+  if (yystate == YYFINAL)
+    YYACCEPT;
+
   goto yybackup;
 
 /*-----------.
@@ -1813,16 +1910,16 @@ YYLTYPE yylloc;
 yybackup:
 
   /* Do appropriate processing given the current state.  Read a
-     look-ahead token if we need one and don't already have one.  */
+     lookahead token if we need one and don't already have one.  */
 
-  /* First try to decide what to do without reference to look-ahead token.  */
+  /* First try to decide what to do without reference to lookahead token.  */
   yyn = yypact[yystate];
   if (yyn == YYPACT_NINF)
     goto yydefault;
 
-  /* Not known => get a look-ahead token if don't already have one.  */
+  /* Not known => get a lookahead token if don't already have one.  */
 
-  /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol.  */
+  /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol.  */
   if (yychar == YYEMPTY)
     {
       YYDPRINTF ((stderr, "Reading a token: "));
@@ -1854,20 +1951,16 @@ yybackup:
       goto yyreduce;
     }
 
-  if (yyn == YYFINAL)
-    YYACCEPT;
-
   /* Count tokens shifted since error; after three, turn off error
      status.  */
   if (yyerrstatus)
     yyerrstatus--;
 
-  /* Shift the look-ahead token.  */
+  /* Shift the lookahead token.  */
   YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
 
-  /* Discard the shifted token unless it is eof.  */
-  if (yychar != YYEOF)
-    yychar = YYEMPTY;
+  /* Discard the shifted token.  */
+  yychar = YYEMPTY;
 
   yystate = yyn;
   *++yyvsp = yylval;
@@ -1908,31 +2001,39 @@ yyreduce:
   switch (yyn)
     {
         case 2:
+
+/* Line 1455 of yacc.c  */
 #line 374 "ast_expr2.y"
     { ((struct parse_io *)parseio)->val = (struct val *)calloc(sizeof(struct val),1);
               ((struct parse_io *)parseio)->val->type = (yyvsp[(1) - (1)].val)->type;
               if( (yyvsp[(1) - (1)].val)->type == AST_EXPR_number )
                                  ((struct parse_io *)parseio)->val->u.i = (yyvsp[(1) - (1)].val)->u.i;
               else
-                                 ((struct parse_io *)parseio)->val->u.s = (yyvsp[(1) - (1)].val)->u.s; 
+                                 ((struct parse_io *)parseio)->val->u.s = (yyvsp[(1) - (1)].val)->u.s;
                          free((yyvsp[(1) - (1)].val));
                        ;}
     break;
 
   case 3:
+
+/* Line 1455 of yacc.c  */
 #line 382 "ast_expr2.y"
     {/* nothing */ ((struct parse_io *)parseio)->val = (struct val *)calloc(sizeof(struct val),1);
               ((struct parse_io *)parseio)->val->type = AST_EXPR_string;
-                         ((struct parse_io *)parseio)->val->u.s = strdup(""); 
+                         ((struct parse_io *)parseio)->val->u.s = strdup("");
                        ;}
     break;
 
   case 4:
+
+/* Line 1455 of yacc.c  */
 #line 389 "ast_expr2.y"
     { (yyval.arglist) = alloc_expr_node(AST_EXPR_NODE_VAL); (yyval.arglist)->val = (yyvsp[(1) - (1)].val);;}
     break;
 
   case 5:
+
+/* Line 1455 of yacc.c  */
 #line 390 "ast_expr2.y"
     {struct expr_node *x = alloc_expr_node(AST_EXPR_NODE_VAL);
                                  struct expr_node *t;
@@ -1943,6 +2044,8 @@ yyreduce:
     break;
 
   case 6:
+
+/* Line 1455 of yacc.c  */
 #line 396 "ast_expr2.y"
     {struct expr_node *x = alloc_expr_node(AST_EXPR_NODE_VAL);
                                  struct expr_node *t;  /* NULL args should OK */
@@ -1953,6 +2056,8 @@ yyreduce:
     break;
 
   case 7:
+
+/* Line 1455 of yacc.c  */
 #line 405 "ast_expr2.y"
     { (yyval.val) = op_func((yyvsp[(1) - (4)].val),(yyvsp[(3) - (4)].arglist), ((struct parse_io *)parseio)->chan);
                                            DESTROY((yyvsp[(2) - (4)].val));
@@ -1963,174 +2068,217 @@ yyreduce:
     break;
 
   case 8:
+
+/* Line 1455 of yacc.c  */
 #line 411 "ast_expr2.y"
     {(yyval.val) = (yyvsp[(1) - (1)].val);;}
     break;
 
   case 9:
+
+/* Line 1455 of yacc.c  */
 #line 412 "ast_expr2.y"
     { (yyval.val) = (yyvsp[(2) - (3)].val);
-                              (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+                              (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                   (yyloc).first_line=0; (yyloc).last_line=0;
                                                        DESTROY((yyvsp[(1) - (3)].val)); DESTROY((yyvsp[(3) - (3)].val)); ;}
     break;
 
   case 10:
+
+/* Line 1455 of yacc.c  */
 #line 416 "ast_expr2.y"
     { (yyval.val) = op_or ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                         (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                         (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                 (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 11:
+
+/* Line 1455 of yacc.c  */
 #line 420 "ast_expr2.y"
-    { (yyval.val) = op_and ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); 
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                             (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+    { (yyval.val) = op_and ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                             (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                           (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 12:
+
+/* Line 1455 of yacc.c  */
 #line 424 "ast_expr2.y"
     { (yyval.val) = op_eq ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
-                                               DESTROY((yyvsp[(2) - (3)].val));        
+                                               DESTROY((yyvsp[(2) - (3)].val));
                             (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                 (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 13:
+
+/* Line 1455 of yacc.c  */
 #line 428 "ast_expr2.y"
     { (yyval.val) = op_gt ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
-                                               DESTROY((yyvsp[(2) - (3)].val));        
+                                               DESTROY((yyvsp[(2) - (3)].val));
                          (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                 (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 14:
+
+/* Line 1455 of yacc.c  */
 #line 432 "ast_expr2.y"
-    { (yyval.val) = op_lt ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); 
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                            (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+    { (yyval.val) = op_lt ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                            (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                 (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 15:
+
+/* Line 1455 of yacc.c  */
 #line 436 "ast_expr2.y"
-    { (yyval.val) = op_ge ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); 
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                             (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+    { (yyval.val) = op_ge ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                             (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                  (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 16:
+
+/* Line 1455 of yacc.c  */
 #line 440 "ast_expr2.y"
-    { (yyval.val) = op_le ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); 
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                             (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+    { (yyval.val) = op_le ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                             (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                  (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 17:
+
+/* Line 1455 of yacc.c  */
 #line 444 "ast_expr2.y"
-    { (yyval.val) = op_ne ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); 
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                             (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+    { (yyval.val) = op_ne ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                             (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                  (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 18:
+
+/* Line 1455 of yacc.c  */
 #line 448 "ast_expr2.y"
-    { (yyval.val) = op_plus ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); 
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                              (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+    { (yyval.val) = op_plus ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                              (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                   (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 19:
+
+/* Line 1455 of yacc.c  */
 #line 452 "ast_expr2.y"
-    { (yyval.val) = op_minus ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); 
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                               (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+    { (yyval.val) = op_minus ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                               (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                        (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 20:
+
+/* Line 1455 of yacc.c  */
 #line 456 "ast_expr2.y"
-    { (yyval.val) = op_negate ((yyvsp[(2) - (2)].val)); 
-                                               DESTROY((yyvsp[(1) - (2)].val));        
-                               (yyloc).first_column = (yylsp[(1) - (2)]).first_column; (yyloc).last_column = (yylsp[(2) - (2)]).last_column; 
+    { (yyval.val) = op_negate ((yyvsp[(2) - (2)].val));
+                                               DESTROY((yyvsp[(1) - (2)].val));
+                               (yyloc).first_column = (yylsp[(1) - (2)]).first_column; (yyloc).last_column = (yylsp[(2) - (2)]).last_column;
                                                        (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 21:
+
+/* Line 1455 of yacc.c  */
 #line 460 "ast_expr2.y"
-    { (yyval.val) = op_compl ((yyvsp[(2) - (2)].val)); 
-                                               DESTROY((yyvsp[(1) - (2)].val));        
-                               (yyloc).first_column = (yylsp[(1) - (2)]).first_column; (yyloc).last_column = (yylsp[(2) - (2)]).last_column; 
+    { (yyval.val) = op_compl ((yyvsp[(2) - (2)].val));
+                                               DESTROY((yyvsp[(1) - (2)].val));
+                               (yyloc).first_column = (yylsp[(1) - (2)]).first_column; (yyloc).last_column = (yylsp[(2) - (2)]).last_column;
                                                        (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 22:
+
+/* Line 1455 of yacc.c  */
 #line 464 "ast_expr2.y"
-    { (yyval.val) = op_times ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); 
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                              (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+    { (yyval.val) = op_times ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                              (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                   (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 23:
+
+/* Line 1455 of yacc.c  */
 #line 468 "ast_expr2.y"
-    { (yyval.val) = op_div ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); 
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                             (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+    { (yyval.val) = op_div ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                             (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                  (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 24:
+
+/* Line 1455 of yacc.c  */
 #line 472 "ast_expr2.y"
-    { (yyval.val) = op_rem ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); 
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                             (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+    { (yyval.val) = op_rem ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                             (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                  (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 25:
+
+/* Line 1455 of yacc.c  */
 #line 476 "ast_expr2.y"
-    { (yyval.val) = op_colon ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); 
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                               (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+    { (yyval.val) = op_colon ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                               (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                        (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 26:
+
+/* Line 1455 of yacc.c  */
 #line 480 "ast_expr2.y"
-    { (yyval.val) = op_eqtilde ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); 
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                               (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+    { (yyval.val) = op_eqtilde ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                               (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                        (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 27:
+
+/* Line 1455 of yacc.c  */
 #line 484 "ast_expr2.y"
-    { (yyval.val) = op_cond ((yyvsp[(1) - (5)].val), (yyvsp[(3) - (5)].val), (yyvsp[(5) - (5)].val)); 
-                                               DESTROY((yyvsp[(2) - (5)].val));        
-                                               DESTROY((yyvsp[(4) - (5)].val));        
-                               (yyloc).first_column = (yylsp[(1) - (5)]).first_column; (yyloc).last_column = (yylsp[(3) - (5)]).last_column; 
+    { (yyval.val) = op_cond ((yyvsp[(1) - (5)].val), (yyvsp[(3) - (5)].val), (yyvsp[(5) - (5)].val));
+                                               DESTROY((yyvsp[(2) - (5)].val));
+                                               DESTROY((yyvsp[(4) - (5)].val));
+                               (yyloc).first_column = (yylsp[(1) - (5)]).first_column; (yyloc).last_column = (yylsp[(3) - (5)]).last_column;
                                                        (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
   case 28:
+
+/* Line 1455 of yacc.c  */
 #line 489 "ast_expr2.y"
-    { (yyval.val) = op_tildetilde ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val)); 
-                                               DESTROY((yyvsp[(2) - (3)].val));        
-                               (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column; 
+    { (yyval.val) = op_tildetilde ((yyvsp[(1) - (3)].val), (yyvsp[(3) - (3)].val));
+                                               DESTROY((yyvsp[(2) - (3)].val));
+                               (yyloc).first_column = (yylsp[(1) - (3)]).first_column; (yyloc).last_column = (yylsp[(3) - (3)]).last_column;
                                                        (yyloc).first_line=0; (yyloc).last_line=0;;}
     break;
 
 
-/* Line 1267 of yacc.c.  */
-#line 2134 "ast_expr2.c"
+
+/* Line 1455 of yacc.c  */
+#line 2283 "ast_expr2.c"
       default: break;
     }
   YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
@@ -2206,7 +2354,7 @@ yyerrlab:
 
   if (yyerrstatus == 3)
     {
-      /* If just tried and failed to reuse look-ahead token after an
+      /* If just tried and failed to reuse lookahead token after an
         error, discard it.  */
 
       if (yychar <= YYEOF)
@@ -2223,7 +2371,7 @@ yyerrlab:
        }
     }
 
-  /* Else will try to reuse look-ahead token after shifting the error
+  /* Else will try to reuse lookahead token after shifting the error
      token.  */
   goto yyerrlab1;
 
@@ -2281,14 +2429,11 @@ yyerrlab1:
       YY_STACK_PRINT (yyss, yyssp);
     }
 
-  if (yyn == YYFINAL)
-    YYACCEPT;
-
   *++yyvsp = yylval;
 
   yyerror_range[1] = yylloc;
   /* Using YYLLOC is tempting, but would change the location of
-     the look-ahead.  YYLOC is available though.  */
+     the lookahead.  YYLOC is available though.  */
   YYLLOC_DEFAULT (yyloc, (yyerror_range - 1), 2);
   *++yylsp = yyloc;
 
@@ -2313,7 +2458,7 @@ yyabortlab:
   yyresult = 1;
   goto yyreturn;
 
-#ifndef yyoverflow
+#if !defined(yyoverflow) || YYERROR_VERBOSE
 /*-------------------------------------------------.
 | yyexhaustedlab -- memory exhaustion comes here.  |
 `-------------------------------------------------*/
@@ -2324,7 +2469,7 @@ yyexhaustedlab:
 #endif
 
 yyreturn:
-  if (yychar != YYEOF && yychar != YYEMPTY)
+  if (yychar != YYEMPTY)
      yydestruct ("Cleanup: discarding lookahead",
                 yytoken, &yylval, &yylloc);
   /* Do not reclaim the symbols of the rule which action triggered
@@ -2350,6 +2495,8 @@ yyreturn:
 }
 
 
+
+/* Line 1675 of yacc.c  */
 #line 495 "ast_expr2.y"
 
 
@@ -2379,7 +2526,7 @@ make_number (FP___TYPE i)
 
        vp->type = AST_EXPR_number;
        vp->u.i  = i;
-       return vp; 
+       return vp;
 }
 
 static struct val *
@@ -2391,6 +2538,9 @@ make_str (const char *s)
 
        vp = (struct val *) malloc (sizeof (*vp));
        if (vp == NULL || ((vp->u.s = strdup (s)) == NULL)) {
+               if (vp) {
+                       free(vp);
+               }
                ast_log(LOG_WARNING,"malloc() failed\n");
                return(NULL);
        }
@@ -2404,7 +2554,7 @@ make_str (const char *s)
        }
        if (isint)
                vp->type = AST_EXPR_numeric_string;
-       else    
+       else
                vp->type = AST_EXPR_string;
 
        return vp;
@@ -2413,12 +2563,12 @@ make_str (const char *s)
 
 static void
 free_value (struct val *vp)
-{      
+{
        if (vp==NULL) {
                return;
        }
        if (vp->type == AST_EXPR_string || vp->type == AST_EXPR_numeric_string)
-               free (vp->u.s); 
+               free (vp->u.s);
        free(vp);
 }
 
@@ -2427,7 +2577,7 @@ static int
 to_number (struct val *vp)
 {
        FP___TYPE i;
-       
+
        if (vp == NULL) {
                ast_log(LOG_WARNING,"vp==NULL in to_number()\n");
                return(0);
@@ -2459,13 +2609,13 @@ strip_quotes(struct val *vp)
 {
        if (vp->type != AST_EXPR_string && vp->type != AST_EXPR_numeric_string)
                return;
-       
+
        if( vp->u.s[0] == '"' && vp->u.s[strlen(vp->u.s)-1] == '"' )
        {
                char *f, *t;
                f = vp->u.s;
                t = vp->u.s;
-               
+
                while( *f )
                {
                        if( *f  && *f != '"' )
@@ -2485,13 +2635,11 @@ to_string (struct val *vp)
        if (vp->type == AST_EXPR_string || vp->type == AST_EXPR_numeric_string)
                return;
 
-       tmp = malloc ((size_t)25);
-       if (tmp == NULL) {
-               ast_log(LOG_WARNING,"malloc() failed\n");
+       if (asprintf(&tmp, FP___PRINTF, vp->u.i) == -1) {
+               ast_log(LOG_WARNING, "asprintf() failed\n");
                return;
        }
 
-       sprintf(tmp, FP___PRINTF, vp->u.i);
        vp->type = AST_EXPR_string;
        vp->u.s  = tmp;
 }
@@ -2522,7 +2670,7 @@ void ast_log(int level, const char *file, int line, const char *function, const
 {
        va_list vars;
        va_start(vars,fmt);
-       
+
         printf("LOG: lev:%d file:%s  line:%d func: %s  ",
                    level, file, line, function);
        vprintf(fmt, vars);
@@ -2535,14 +2683,14 @@ int main(int argc,char **argv) {
        char s[4096];
        char out[4096];
        FILE *infile;
-       
+
        if( !argv[1] )
                exit(20);
-       
+
        if( access(argv[1],F_OK)== 0 )
        {
                int ret;
-               
+
                infile = fopen(argv[1],"r");
                if( !infile )
                {
@@ -2553,7 +2701,7 @@ int main(int argc,char **argv) {
                {
                        if( s[strlen(s)-1] == '\n' )
                                s[strlen(s)-1] = 0;
-                       
+
                        ret = ast_expr(s, out, sizeof(out), NULL);
                        printf("Expression: %s    Result: [%d] '%s'\n",
                                   s, ret, out);
@@ -2583,7 +2731,7 @@ int main(int argc,char **argv) {
 static void destroy_arglist(struct expr_node *arglist)
 {
        struct expr_node *arglist_next;
-       
+
        while (arglist)
        {
                arglist_next = arglist->right;
@@ -2602,7 +2750,7 @@ static char *compose_func_args(struct expr_node *arglist)
        struct expr_node *t = arglist;
        char *argbuf;
        int total_len = 0;
-       
+
        while (t) {
                if (t != arglist)
                        total_len += 1; /* for the sep */
@@ -2612,7 +2760,7 @@ static char *compose_func_args(struct expr_node *arglist)
                        else
                                total_len += strlen(t->val->u.s);
                }
-               
+
                t = t->right;
        }
        total_len++; /* for the null */
@@ -2622,10 +2770,10 @@ static char *compose_func_args(struct expr_node *arglist)
        t = arglist;
        while (t) {
                char numbuf[30];
-               
+
                if (t != arglist)
                        strcat(argbuf,",");
-               
+
                if (t->val) {
                        if (t->val->type == AST_EXPR_number) {
                                sprintf(numbuf,FP___PRINTF,t->val->u.i);
@@ -2888,6 +3036,15 @@ static struct val *op_func(struct val *funcname, struct expr_node *arglist, stru
                                return make_number(0.0);
                        }
 #endif
+               } else if (strcmp(funcname->u.s, "ABS") == 0) {
+                       if (arglist && !arglist->right && arglist->val) {
+                               to_number(arglist->val);
+                               result = make_number(arglist->val->u.i < 0 ? arglist->val->u.i * -1 : arglist->val->u.i);
+                               return result;
+                       } else {
+                               ast_log(LOG_WARNING, "Wrong args to %s() function\n", funcname->u.s);
+                               return make_number(0.0);
+                       }
                } else {
                        /* is this a custom function we should execute and collect the results of? */
 #if !defined(STANDALONE) && !defined(STANDALONE2)
@@ -2896,7 +3053,7 @@ static struct val *op_func(struct val *funcname, struct expr_node *arglist, stru
                                ast_log(LOG_WARNING,"Hey! chan is NULL.\n");
                        if (!f)
                                ast_log(LOG_WARNING,"Hey! could not find func %s.\n", funcname->u.s);
-                       
+
                        if (f && chan) {
                                if (f->read) {
                                        char workspace[512];
@@ -2911,20 +3068,20 @@ static struct val *op_func(struct val *funcname, struct expr_node *arglist, stru
                                        ast_log(LOG_ERROR,"Error! Function '%s' cannot be read!\n", funcname->u.s);
                                        return (make_number ((FP___TYPE)0.0));
                                }
-                               
+
                        } else {
-                               ast_log(LOG_ERROR,"Error! '%s' doesn't appear to be an available function!", funcname->u.s);
+                               ast_log(LOG_ERROR, "Error! '%s' doesn't appear to be an available function!\n", funcname->u.s);
                                return (make_number ((FP___TYPE)0.0));
                        }
 #else
-                       ast_log(LOG_ERROR,"Error! '%s' is not available in the standalone version!", funcname->u.s);
+                       ast_log(LOG_ERROR, "Error! '%s' is not available in the standalone version!\n", funcname->u.s);
                        return (make_number ((FP___TYPE)0.0));
 #endif
                }
        }
        else
        {
-               ast_log(LOG_ERROR,"Error! '%s' is not possibly a function name!", funcname->u.s);
+               ast_log(LOG_ERROR, "Error! '%s' is not possibly a function name!\n", funcname->u.s);
                return (make_number ((FP___TYPE)0.0));
        }
        return (make_number ((FP___TYPE)0.0));
@@ -2942,7 +3099,7 @@ op_or (struct val *a, struct val *b)
                return (a);
        }
 }
-               
+
 static struct val *
 op_and (struct val *a, struct val *b)
 {
@@ -2959,11 +3116,11 @@ op_and (struct val *a, struct val *b)
 static struct val *
 op_eq (struct val *a, struct val *b)
 {
-       struct val *r; 
+       struct val *r;
 
        if (isstring (a) || isstring (b)) {
                to_string (a);
-               to_string (b);  
+               to_string (b);
                r = make_number ((FP___TYPE)(strcoll (a->u.s, b->u.s) == 0));
        } else {
 #ifdef DEBUG_FOR_CONVERSIONS
@@ -3238,7 +3395,7 @@ op_compl (struct val *a)
 {
        int v1 = 1;
        struct val *r;
-       
+
        if( !a )
        {
                v1 = 0;
@@ -3251,7 +3408,7 @@ op_compl (struct val *a)
                        if( a->u.i == 0 )
                                v1 = 0;
                        break;
-                       
+
                case AST_EXPR_string:
                        if( a->u.s == 0 )
                                v1 = 0;
@@ -3261,9 +3418,11 @@ op_compl (struct val *a)
                                        v1 = 0;
                                else if (strlen(a->u.s) == 1 && a->u.s[0] == '0' )
                                        v1 = 0;
+                               else
+                                       v1 = atoi(a->u.s);
                        }
                        break;
-                       
+
                case AST_EXPR_numeric_string:
                        if( a->u.s == 0 )
                                v1 = 0;
@@ -3273,11 +3432,13 @@ op_compl (struct val *a)
                                        v1 = 0;
                                else if (strlen(a->u.s) == 1 && a->u.s[0] == '0' )
                                        v1 = 0;
+                               else
+                                       v1 = atoi(a->u.s);
                        }
                        break;
                }
        }
-       
+
        r = make_number (!v1);
        free_value (a);
        return r;
@@ -3348,7 +3509,7 @@ op_div (struct val *a, struct val *b)
        }
 
        if (b->u.i == 0) {
-               ast_log(LOG_WARNING, "division by zero\n");             
+               ast_log(LOG_WARNING, "division by zero\n");
                free_value(a);
                free_value(b);
                return make_number(INT_MAX);
@@ -3362,7 +3523,7 @@ op_div (struct val *a, struct val *b)
        free_value (b);
        return r;
 }
-       
+
 static struct val *
 op_rem (struct val *a, struct val *b)
 {
@@ -3388,7 +3549,7 @@ op_rem (struct val *a, struct val *b)
        free_value (b);
        return r;
 }
-       
+
 
 static struct val *
 op_colon (struct val *a, struct val *b)
@@ -3408,10 +3569,10 @@ op_colon (struct val *a, struct val *b)
        /* compile regular expression */
        if ((eval = regcomp (&rp, b->u.s, REG_EXTENDED)) != 0) {
                regerror (eval, &rp, errbuf, sizeof(errbuf));
-               ast_log(LOG_WARNING,"regcomp() error : %s",errbuf);
+               ast_log(LOG_WARNING, "regcomp() error : %s\n", errbuf);
                free_value(a);
                free_value(b);
-               return make_str("");            
+               return make_str("");
        }
 
        /* compare string against pattern */
@@ -3439,7 +3600,7 @@ op_colon (struct val *a, struct val *b)
 
        return v;
 }
-       
+
 
 static struct val *
 op_eqtilde (struct val *a, struct val *b)
@@ -3459,10 +3620,10 @@ op_eqtilde (struct val *a, struct val *b)
        /* compile regular expression */
        if ((eval = regcomp (&rp, b->u.s, REG_EXTENDED)) != 0) {
                regerror (eval, &rp, errbuf, sizeof(errbuf));
-               ast_log(LOG_WARNING,"regcomp() error : %s",errbuf);
+               ast_log(LOG_WARNING, "regcomp() error : %s\n", errbuf);
                free_value(a);
                free_value(b);
-               return make_str("");            
+               return make_str("");
        }
 
        /* compare string against pattern */
@@ -3503,17 +3664,25 @@ op_tildetilde (struct val *a, struct val *b)
        /* strip double quotes from both -- */
        strip_quotes(a);
        strip_quotes(b);
-       
+
        vs = malloc(strlen(a->u.s)+strlen(b->u.s)+1);
+       if (vs == NULL) {
+               ast_log(LOG_WARNING, "malloc() failed\n");
+               free_value(a);
+               free_value(b);
+               return NULL;
+       }
+
        strcpy(vs,a->u.s);
        strcat(vs,b->u.s);
 
        v = make_str(vs);
 
+       free(vs);
+
        /* free arguments */
        free_value(a);
        free_value(b);
 
        return v;
 }
-