Use ExpectErr() instead of Expect, so that we get compiler error messages

rather than panics.



git-svn-id: http://www.varnish-cache.org/svn/trunk/varnish-cache@4971 d4fa192b-c00b-0410-8231-f00ffab90ce4

lib/libvcl/vcc_action.c

@@ -283,7 +283,7 @@ parse_purge(struct tokenlist *tl)
 
 	vcc_NextToken(tl);
 
-	Expect(tl, '(');
+	ExpectErr(tl, '(');
 	vcc_NextToken(tl);
 
 	if (tl->t->tok == VAR) {
@@ -352,7 +352,7 @@ parse_purge(struct tokenlist *tl)
 		Fb(tl, 0, "vrt_magic_string_end);\n");
 	}
 
-	Expect(tl, ')');
+	ExpectErr(tl, ')');
 	vcc_NextToken(tl);
 }
 
@@ -363,7 +363,7 @@ parse_purge_url(struct tokenlist *tl)
 {
 
 	vcc_NextToken(tl);
-	Expect(tl, '(');
+	ExpectErr(tl, '(');
 	vcc_NextToken(tl);
 
 	Fb(tl, 1, "VRT_ban(sp, \"req.url\", \"~\", ");
@@ -371,7 +371,7 @@ parse_purge_url(struct tokenlist *tl)
 		vcc_ExpectedStringval(tl);
 		return;
 	}
-	Expect(tl, ')');
+	ExpectErr(tl, ')');
 	vcc_NextToken(tl);
 	Fb(tl, 0, ", 0);\n");
 }
@@ -423,9 +423,9 @@ parse_return(struct tokenlist *tl)
 	int retval = 0;
 
 	vcc_NextToken(tl);
-	Expect(tl, '(');
+	ExpectErr(tl, '(');
 	vcc_NextToken(tl);
-	Expect(tl, ID);
+	ExpectErr(tl, ID);
 
 #define VCL_RET_MAC(l, U)						\
 	do {								\
@@ -443,7 +443,7 @@ parse_return(struct tokenlist *tl)
 		ERRCHK(tl);
 	}
 	vcc_NextToken(tl);
-	Expect(tl, ')');
+	ExpectErr(tl, ')');
 	vcc_NextToken(tl);
 }
 

lib/libvcl/vcc_parse.c

@@ -34,6 +34,7 @@ SVNID("$Id$")
 
 #include <stdio.h>
 #include <string.h>
+#include <math.h>
 
 #include "vsb.h"
 
@@ -153,6 +154,8 @@ vcc_DoubleVal(struct tokenlist *tl)
 	const char *p;
 
 	Expect(tl, CNUM);
+	if (tl->err)
+		return (NAN);
 	for (p = tl->t->b; p < tl->t->e; p++) {
 		d *= 10;
 		d += *p - '0';