133 |
my $srcdir = $ARGV[0] || "."; |
my $srcdir = $ARGV[0] || "."; |
134 |
|
|
135 |
verbose "srcdir = $srcdir"; |
verbose "srcdir = $srcdir"; |
136 |
chdir $srcdir || die "$me: cannot cd to $srcdir: $!\n"; |
chdir $srcdir || error "cannot cd to $srcdir: $!"; |
137 |
} |
} |
138 |
|
|
139 |
|
|
164 |
if /^\s*$/ || /^\s*\#/; |
if /^\s*$/ || /^\s*\#/; |
165 |
unless (/^(\S+)\s+(\S.*)$/ || /^(\S+)\s*$/) |
unless (/^(\S+)\s+(\S.*)$/ || /^(\S+)\s*$/) |
166 |
{ |
{ |
167 |
die "$me: cannot parse definition in $file:\n$_\n"; |
error "cannot parse definition in $file:\n$_"; |
168 |
} |
} |
169 |
my $word = $1; |
my $word = $1; |
170 |
my $macro = $2 || $generic_macro{$kind}; |
my $macro = $2 || $generic_macro{$kind}; |
185 |
$table->close; |
$table->close; |
186 |
} |
} |
187 |
|
|
188 |
die "$me: some tables are inconsistent\n" |
error "some tables are inconsistent" |
189 |
if !$tables_are_consistent; |
if !$tables_are_consistent; |
190 |
} |
} |
191 |
|
|