diff options
author | Stig Bjørlykke <stig@bjorlykke.org> | 2013-12-20 13:38:36 +0000 |
---|---|---|
committer | Stig Bjørlykke <stig@bjorlykke.org> | 2013-12-20 13:38:36 +0000 |
commit | de2bcb2c8edf69f53b02fa619ae94c54017f830f (patch) | |
tree | b213081ff9abf944a5e03b6ec1d3a1e3bbe93cdc /epan/wslua | |
parent | db3c476e6cb92ce778e6b424a7686e2d8dbf05d1 (diff) |
Build correct base table in init.lua after changes in epan/proto.h
svn path=/trunk/; revision=54293
Diffstat (limited to 'epan/wslua')
-rwxr-xr-x | epan/wslua/make-init-lua.pl | 7 |
1 files changed, 2 insertions, 5 deletions
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(<PROTO_H>) { - 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]+)/ ) { |