Also let variable symbols carry their eval function

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

lib/libvcl/vcc_compile.c

@@ -568,6 +568,7 @@ vcc_CompileSource(const struct vcc *tl0, struct vsb *sb, struct source *sp)
 		sym = VCC_AddSymbolStr(tl, v->name, SYM_VAR);
 		sym->var = v;
 		sym->fmt = v->fmt;
+		sym->eval = vcc_Expr_Var;
 		sym->r_methods = v->r_methods;
 		if (v->fmt == HEADER)
 			sym->wildcard = 1;

lib/libvcl/vcc_compile.h

@@ -239,6 +239,7 @@ unsigned vcc_UintVal(struct vcc *tl);
 double vcc_DoubleVal(struct vcc *tl);
 void vcc_Expr(struct vcc *tl, enum var_type typ);
 void vcc_Expr_Call(struct vcc *tl, const struct symbol *sym);
+sym_expr_t vcc_Expr_Var;
 sym_expr_t vcc_Expr_Func;
 
 /* vcc_dir_dns.c */

lib/libvcl/vcc_expr.c

@@ -413,6 +413,26 @@ vcc_arg_type(const char **p)
 	return (VOID);
 }
 
+/*--------------------------------------------------------------------
+ */
+
+void
+vcc_Expr_Var(struct vcc *tl, struct expr **e, const struct symbol *sym)
+{
+	const struct var *vp;
+
+	assert(sym->kind == SYM_VAR);
+	vcc_AddUses(tl, tl->t, sym->r_methods, "Not available");
+	vp = vcc_FindVar(tl, tl->t, 0, "cannot be read");
+	ERRCHK(tl);
+	assert(vp != NULL);
+	vsb_printf((*e)->vsb, "%s", vp->rname);
+	(*e)->fmt = vp->fmt;
+	vcc_NextToken(tl);
+	vsb_finish((*e)->vsb);
+	AZ(vsb_overflowed((*e)->vsb));
+}
+
 /*--------------------------------------------------------------------
  */
 
@@ -424,8 +444,7 @@ vcc_Expr_Func(struct vcc *tl, struct expr **e, const struct symbol *sym)
 	enum var_type fmt;
 	char buf[32];
 
-	(void)tl;
-	(void)e;
+	assert(sym->kind == SYM_FUNC || sym->kind == SYM_PROC);
 	AN(sym->cfunc);
 	AN(sym->args);
 	SkipToken(tl, ID);
@@ -565,14 +584,8 @@ vcc_expr4(struct vcc *tl, struct expr **e, enum var_type fmt)
 
 		switch(sym->kind) {
 		case SYM_VAR:
-			vcc_AddUses(tl, tl->t, sym->r_methods, "Not available");
-			vp = vcc_FindVar(tl, tl->t, 0, "cannot be read");
-			ERRCHK(tl);
-			assert(vp != NULL);
-			vsb_printf(e1->vsb, "%s", vp->rname);
-			e1->fmt = vp->fmt;
-			vcc_NextToken(tl);
-			break;
+			ErrInternal(tl);
+			return;
 		case SYM_FUNC:
 			ErrInternal(tl);
 			return;