feedc0de/qt-creator
1
0
Fork 0
forked from qt-creator/qt-creator
Code Pull Requests Activity

make fixnavi recognize \example as an alias for \page

Browse Source 
examples are just pages as far as the markup is concerned.

Change-Id: I1ed2908f6f818e7d15f3514795f3d13d9b15875a
Reviewed-by: Leena Miettinen <riitta-leena.miettinen@theqtcompany.com>
This commit is contained in:
Oswald Buddenhagen
2015-09-21 16:07:50 +02:00
parent b711b3d6e7
commit b5c2cabca8
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
doc/fixnavi.pl
View File

@@ -42,6 +42,7 @@ for (@ARGV) {
int(@files) or die "usage: $0 [-D<define>]... <qdoc-file>...\n"; int(@files) or die "usage: $0 [-D<define>]... <qdoc-file>...\n";
my @toc = (); my @toc = ();
my %title2type = ();
my %title2page = (); my %title2page = ();
my $doctitle = ""; my $doctitle = "";
my %prev_skips = (); my %prev_skips = ();
@@ -51,7 +52,7 @@ my %next_define_skips = ();
my %prev_polarity_skips = (); my %prev_polarity_skips = ();
my %next_polarity_skips = (); my %next_polarity_skips = ();
for my $file (@files) { for my $file (@files) {
my ($curpage, $inhdr, $havetoc, $intoc, $inif) = ("", 0, 0, 0, 0); my ($curtype, $curpage, $inhdr, $havetoc, $intoc, $inif) = ("", 0, 0, 0, 0);
my ($define_skip, $polarity_skip, $skipping) = ("", 0, 0); my ($define_skip, $polarity_skip, $skipping) = ("", 0, 0);
my ($prev_define_skip, $prev_polarity_skip, $prev_skip, my ($prev_define_skip, $prev_polarity_skip, $prev_skip,
$next_define_skip, $next_polarity_skip, $next_skip) = ("", 0, "", "", 0, ""); $next_define_skip, $next_polarity_skip, $next_skip) = ("", 0, "", "", 0, "");
@@ -90,11 +91,12 @@ for my $file (@files) {
} elsif (/^\h*\\nextpage\h+(\H+)/) { } elsif (/^\h*\\nextpage\h+(\H+)/) {
$next_skip = $1 if ($skipping); $next_skip = $1 if ($skipping);
($next_define_skip, $next_polarity_skip) = ($define_skip, $polarity_skip); ($next_define_skip, $next_polarity_skip) = ($define_skip, $polarity_skip);
} elsif (/^\h*\\page\h+(\H+)/) { } elsif (/^\h*\\(page|example)\h+(\H+)/) {
$curpage = $1; $curtype = $1;
$curpage = $2;
} elsif (/^\h*\\title\h+(.+)$/) { } elsif (/^\h*\\title\h+(.+)$/) {
if ($curpage eq "") { if ($curpage eq "") {
die "Title '$1' appears in no \\page.\n"; die "Title '$1' appears in no \\page or \\example.\n";
} }
if (length($prev_define_skip)) { if (length($prev_define_skip)) {
($prev_define_skips{$1}, $prev_polarity_skips{$1}, $prev_skips{$1}) = ($prev_define_skips{$1}, $prev_polarity_skips{$1}, $prev_skips{$1}) =
@@ -106,6 +108,7 @@ for my $file (@files) {
($next_define_skip, $next_polarity_skip, $next_skip); ($next_define_skip, $next_polarity_skip, $next_skip);
$next_define_skip = $next_skip = ""; $next_define_skip = $next_skip = "";
} }
$title2type{$1} = $curtype;
$title2page{$1} = $curpage; $title2page{$1} = $curpage;
$doctitle = $1 if (!$doctitle); $doctitle = $1 if (!$doctitle);
$curpage = ""; $curpage = "";
@@ -129,7 +132,7 @@ my $last = $doctitle;
my $lastpage = $title2page{$last}; my $lastpage = $title2page{$last};
for my $title (@toc) { for my $title (@toc) {
my $page = $title2page{$title}; my $page = $title2page{$title};
defined($page) or die "TOC refers to unknown page '$title'.\n"; defined($page) or die "TOC refers to unknown page/example '$title'.\n";
$next{$last} = $page; $next{$last} = $page;
$prev{$title} = $lastpage; $prev{$title} = $lastpage;
$last = $title; $last = $title;
@@ -162,7 +165,7 @@ for my $file (@files) {
} }
print OUT " \\endif\n"; print OUT " \\endif\n";
} }
print OUT " \\page ".$title2page{$1}; print OUT " \\".$title2type{$1}." ".$title2page{$1};
if (defined($next_define_skips{$1})) { if (defined($next_define_skips{$1})) {
print OUT " \\if defined(".$next_define_skips{$1}.")\n"; print OUT " \\if defined(".$next_define_skips{$1}.")\n";
if ($next_polarity_skips{$1}) { if ($next_polarity_skips{$1}) {