From de2bcb2c8edf69f53b02fa619ae94c54017f830f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Stig=20Bj=C3=B8rlykke?= Date: Fri, 20 Dec 2013 13:38:36 +0000 Subject: Build correct base table in init.lua after changes in epan/proto.h svn path=/trunk/; revision=54293 --- epan/wslua/make-init-lua.pl | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'epan/wslua') diff --git a/epan/wslua/make-init-lua.pl b/epan/wslua/make-init-lua.pl index 878faf542b..1d06023ba8 100755 --- a/epan/wslua/make-init-lua.pl +++ b/epan/wslua/make-init-lua.pl @@ -118,13 +118,10 @@ $bases_table = "-- Display Bases\n base = {\n"; $encodings = "-- Encodings\n"; $expert_pi = "-- Expert flags and facilities\n"; -my $base_num = 0; - open PROTO_H, "< $WSROOT/epan/proto.h" or die "cannot open '$WSROOT/epan/proto.h': $!"; while() { - if (/^\s+BASE_([A-Z_]+),/ ) { - $bases_table .= "\t[\"$1\"] = $base_num,\n"; - $base_num++; + if (/^\s+BASE_([A-Z_]+)[ ]*=[ ]*([0-9]+),/ ) { + $bases_table .= "\t[\"$1\"] = $2,\n"; } if ( /^.define\s+(PI_[A-Z_]+)\s+((0x)?[0-9A-Fa-f]+)/ ) { -- cgit v1.2.3