add function name to index

This fixes #98
This commit is contained in:
Steffen Jaeckel 2017-12-18 23:43:26 +01:00
parent a768850525
commit 2bf7d3a432
1 changed files with 5 additions and 1 deletions

View File

@ -85,8 +85,12 @@ while (<$in>) {
my $line = 0;
my $tmp = $m[1];
my $fun = $tmp;
$tmp =~ s/_/"\\_"/ge;
print {$out} "\\vspace{+3mm}\\begin{small}\n\\hspace{-5.1mm}{\\bf File}: $tmp\n\\vspace{-3mm}\n\\begin{alltt}\n";
$fun =~ s/^bn_//;
$fun =~ s/\.c$//;
$fun =~ s/_/"\\_"/ge;
print {$out} "\\index{$fun}\\vspace{+3mm}\\begin{small}\n\\hspace{-5.1mm}{\\bf File}: $tmp\n\\vspace{-3mm}\n\\begin{alltt}\n";
$wroteline += 5;
if ($skipheader == 1) {