diff options
author | Luis Ontanon <luis.ontanon@gmail.com> | 2006-09-27 17:12:42 +0000 |
---|---|---|
committer | Luis Ontanon <luis.ontanon@gmail.com> | 2006-09-27 17:12:42 +0000 |
commit | 2e7726b3ffd6ec3d87742219ad944645ebc24edb (patch) | |
tree | 21aaca41aab6c93abea5ea9532f92244ddf88bbe /epan/wslua/make-init-lua.pl | |
parent | e21c2fe5b5fcab0ab732cb7962afa6720eb50306 (diff) |
* rename REGISTER_STAT_GROUP_E -> register_stat_group_t
* Add a "Tools" menu
* allow wslua's register_menu to register menu items into more menus
svn path=/trunk/; revision=19338
Diffstat (limited to 'epan/wslua/make-init-lua.pl')
-rwxr-xr-x | epan/wslua/make-init-lua.pl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/epan/wslua/make-init-lua.pl b/epan/wslua/make-init-lua.pl index 23fbe3601b..06dd7d4190 100755 --- a/epan/wslua/make-init-lua.pl +++ b/epan/wslua/make-init-lua.pl @@ -34,12 +34,14 @@ my $wtap_encaps_table = ''; my $ft_types_table = ''; my $bases_table = ''; my $expert_pi = ''; +my $menu_groups = ''; my %replacements = %{{ WTAP_ENCAPS => \$wtap_encaps_table, FT_TYPES => \$ft_types_table, BASES => \$bases_table, EXPERT => \$expert_pi, + MENU_GROUPS => \$menu_groups, }}; @@ -110,6 +112,23 @@ while(<PROTO_H>) { } close PROTO_H; +# register_stat_group_t + + +$menu_groups .= "-- menu groups for register_menu \n"; +my $menu_i = 0; + +open STAT_MENU, "< $WSROOT/stat_menu.h"; +while(<STAT_MENU>) { + if (/REGISTER_([A-Z]+)_GROUP_([A-Z]+)/) { + $menu_groups .= "MENU_$1_$2 = $menu_i\n"; + $menu_groups =~ s/_NONE//; + $menu_i++; + } +} +close STAT_MENU; + + $bases_table .= "}\n\n"; $expert_pi .= "\n\n"; |