osmocom
/
wireshark
14
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Die stating why when a file could no be opened. 

svn path=/trunk/; revision=25042
This commit is contained in:
Luis Ontanon 2008-04-15 10:22:39 +00:00
parent 0ce8d6c354
commit 602de4d33c
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
epan/wslua/make-init-lua.pl
View File

@ -64,7 +64,7 @@ close TEMPLATE;
$wtap_encaps_table = "-- Wiretap encapsulations\nwtap = {\n";
open WTAP_H, "< $WSROOT/wiretap/wtap.h";
open WTAP_H, "< $WSROOT/wiretap/wtap.h" or die "cannot open '$WSROOT/wiretap/wtap.h'";
while(<WTAP_H>) {
if ( /^#define WTAP_ENCAP_([A-Z0-9_]+)\s+(\d+)/ ) {
@ -82,7 +82,7 @@ $ft_types_table = " -- Field Types\nftypes = {\n";
my $ftype_num = 0;
open FTYPES_H, "< $WSROOT/epan/ftypes/ftypes.h";
open FTYPES_H, "< $WSROOT/epan/ftypes/ftypes.h" or die "cannot open '$WSROOT/epan/ftypes/ftypes.h'";
while(<FTYPES_H>) {
if ( /^\s+FT_([A-Z0-9a-z_]+)\s*,/ ) {
$ft_types_table .= "\t[\"$1\"] = $ftype_num,\n";
@ -104,7 +104,7 @@ $expert_pi = "-- Expert flags and facilities\n";
my $base_num = 0;
open PROTO_H, "< $WSROOT/epan/proto.h";
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";
@ -122,9 +122,10 @@ close PROTO_H;
$menu_groups .= "-- menu groups for register_menu \n";
$menu_groups .= "-- values obtained from $WSROOT/stat_menu.h \n";
my $menu_i = 0;
open STAT_MENU, "< $WSROOT/stat_menu.h";
open STAT_MENU, "< $WSROOT/stat_menu.h" or die "cannot open '$WSROOT/stat_menu.h'";
while(<STAT_MENU>) {
if (/REGISTER_([A-Z]+)_GROUP_([A-Z]+)/) {
$menu_groups .= "MENU_$1_$2 = $menu_i\n";