r3484 - trunk/varnish-cache/lib/libvcl

phk at projects.linpro.no phk at projects.linpro.no
Sun Dec 21 18:01:58 CET 2008


Author: phk
Date: 2008-12-21 18:01:58 +0100 (Sun, 21 Dec 2008)
New Revision: 3484

Modified:
   trunk/varnish-cache/lib/libvcl/vcc_gen_fixed_token.tcl
Log:
Generate VCL_RET_* as enumbering instead of bitmap, compensate
elsewhere as required.

Remove unecessary args to VCL_[RM]ET_MAC().

Rely on VCL_RET_* definition in vcl.h



Modified: trunk/varnish-cache/lib/libvcl/vcc_gen_fixed_token.tcl
===================================================================
--- trunk/varnish-cache/lib/libvcl/vcc_gen_fixed_token.tcl	2008-12-21 16:19:14 UTC (rev 3483)
+++ trunk/varnish-cache/lib/libvcl/vcc_gen_fixed_token.tcl	2008-12-21 17:01:58 UTC (rev 3484)
@@ -144,7 +144,7 @@
 puts $fo "/* VCL Returns */"
 set i 0
 foreach k $returns {
-	puts $fo "#define VCL_RET_[string toupper $k]\t\t(1 << $i)"
+	puts $fo "#define VCL_RET_[string toupper $k]\t\t$i"
 	incr i
 }
 puts $fo "\n#define VCL_RET_MAX\t\t$i\n"
@@ -186,11 +186,9 @@
 foreach k $returns {
 	set u [string toupper $k]
 	if {$k == "error"} {
-		puts $for "#ifdef VCL_RET_MAC_E"
-		puts $for "VCL_RET_MAC_E($k, $u, (1 << $i), $i)"
-		puts $for "#endif"
+		puts $for "VCL_RET_MAC($k, $u)"
 	} else {
-		puts $for "VCL_RET_MAC($k, $u, (1 << $i), $i)"
+		puts $for "VCL_RET_MAC($k, $u)"
 	}
 	incr i
 }
@@ -202,12 +200,12 @@
 	puts -nonewline $for "VCL_MET_MAC([lindex $m 0]"
 	puts -nonewline $for ",[string toupper [lindex $m 0]]"
 	set l [lindex $m 1]
-	puts -nonewline $for ",\n    (VCL_RET_[string toupper [lindex $l 0]]"
+	puts $for ","
+	puts $for "     ((1 << VCL_RET_[string toupper [lindex $l 0]])"
 	foreach r [lrange $l 1 end] {
-		puts -nonewline $for "|VCL_RET_[string toupper $r]"
+		puts $for "    | (1 << VCL_RET_[string toupper $r])"
 	}
-	puts -nonewline $for ")"
-	puts $for ")"
+	puts $for "))"
 	incr u
 }
 puts $for "#endif"
@@ -400,12 +398,6 @@
 puts $fo "void"
 puts $fo "vcl_output_lang_h(struct vsb *sb)"
 puts $fo "{"
-set i 0
-foreach k $returns {
-	set u [string toupper $k]
-	puts $fo "\tvsb_cat(sb, \"#define VCL_RET_$u  (1 << $i)\\n\");"
-	incr i
-}
 
 copy_include ../../include/vcl.h
 copy_include ../../include/vrt.h



More information about the varnish-commit mailing list