mirror of
https://github.com/QuasarApp/installer-framework.git
synced 2025-04-27 14:04:32 +00:00
c9d11cc991
Change-Id: I6426c4e8f932cf26c6c638dec18d0c12e22972d1 Reviewed-by: Janne Anttila <janne.anttila@theqtcompany.com>
213 lines
7.5 KiB
Perl
213 lines
7.5 KiB
Perl
#!/usr/bin/env perl
|
|
#############################################################################
|
|
##
|
|
## Copyright (C) 2017 The Qt Company Ltd.
|
|
## Contact: https://www.qt.io/licensing/
|
|
##
|
|
## This file is part of the Qt Installer Framework.
|
|
##
|
|
## $QT_BEGIN_LICENSE:GPL-EXCEPT$
|
|
## Commercial License Usage
|
|
## Licensees holding valid commercial Qt licenses may use this file in
|
|
## accordance with the commercial license agreement provided with the
|
|
## Software or, alternatively, in accordance with the terms contained in
|
|
## a written agreement between you and The Qt Company. For licensing terms
|
|
## and conditions see https://www.qt.io/terms-conditions. For further
|
|
## information use the contact form at https://www.qt.io/contact-us.
|
|
##
|
|
## GNU General Public License Usage
|
|
## Alternatively, this file may be used under the terms of the GNU
|
|
## General Public License version 3 as published by the Free Software
|
|
## Foundation with exceptions as appearing in the file LICENSE.GPL3-EXCEPT
|
|
## included in the packaging of this file. Please review the following
|
|
## information to ensure the GNU General Public License requirements will
|
|
## be met: https://www.gnu.org/licenses/gpl-3.0.html.
|
|
##
|
|
## $QT_END_LICENSE$
|
|
##
|
|
#############################################################################
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
sub visitDir($)
|
|
{
|
|
my ($dir) = @_;
|
|
my @ret = ();
|
|
my @subret = ();
|
|
opendir DIR, $dir or die "$dir: $!\n";
|
|
my @ents = readdir DIR;
|
|
closedir DIR;
|
|
for my $ent (grep !/^\./, @ents) {
|
|
my $ret = $dir."/".$ent;
|
|
if (-d $ret) {
|
|
push @subret, &visitDir($ret);
|
|
} elsif ($ret =~ /\.qdoc$/) {
|
|
push @ret, $ret;
|
|
}
|
|
}
|
|
return @ret, @subret;
|
|
}
|
|
|
|
my @files = ();
|
|
my %defines = ();
|
|
for (@ARGV) {
|
|
if (/^-D(.*)$/) {
|
|
$defines{$1} = 1;
|
|
} elsif (/^-/) {
|
|
printf STDERR "Unknown option '".$_."'\n";
|
|
exit 1;
|
|
} else {
|
|
if (-d $_) {
|
|
push @files, visitDir($_);
|
|
} else {
|
|
push @files, $_;
|
|
}
|
|
}
|
|
}
|
|
|
|
int(@files) or die "usage: $0 [-D<define>]... <qdoc-file>...\n";
|
|
|
|
my @toc = ();
|
|
my %title2page = ();
|
|
my $doctitle = "";
|
|
my %prev_skips = ();
|
|
my %next_skips = ();
|
|
my %prev_define_skips = ();
|
|
my %next_define_skips = ();
|
|
my %prev_polarity_skips = ();
|
|
my %next_polarity_skips = ();
|
|
for my $file (@files) {
|
|
my ($curpage, $inhdr, $intoc, $inif) = ("", 0, 0, 0);
|
|
my ($define_skip, $polarity_skip, $skipping) = ("", 0, 0);
|
|
my ($prev_define_skip, $prev_polarity_skip, $prev_skip,
|
|
$next_define_skip, $next_polarity_skip, $next_skip) = ("", 0, "", "", 0, "");
|
|
open FILE, $file or die "File $file cannot be opened.\n";
|
|
while (<FILE>) {
|
|
if (/^\h*\\if\h+defined\h*\(\h*(\H+)\h*\)/) {
|
|
die "Nested \\if at $file:$.\n" if ($inif);
|
|
$inif = 1;
|
|
$skipping = !defined($defines{$1});
|
|
if ($inhdr) {
|
|
$define_skip = $1;
|
|
$polarity_skip = $skipping;
|
|
}
|
|
} elsif (/^\h*\\else/) {
|
|
die "Unmatched \\else in $file:$.\n" if (!$inif);
|
|
$skipping = 1 - $skipping;
|
|
} elsif (/^\h*\\endif/) {
|
|
die "Unmatched \\endif in $file:$.\n" if (!$inif);
|
|
$inif = 0;
|
|
$skipping = 0;
|
|
$define_skip = "";
|
|
} elsif (keys(%title2page) == 1 && /^\h*\\list/) {
|
|
$intoc++;
|
|
} elsif ($intoc) {
|
|
if (/^\h*\\endlist/) {
|
|
$intoc--;
|
|
} elsif (!$skipping && /^\h*\\o\h+\\l\h*{(.*)}$/) {
|
|
push @toc, $1;
|
|
}
|
|
} elsif ($inhdr) {
|
|
if (/^\h*\\previouspage\h+(\H+)/) {
|
|
$prev_skip = $1 if ($skipping);
|
|
($prev_define_skip, $prev_polarity_skip) = ($define_skip, $polarity_skip);
|
|
} elsif (/^\h*\\nextpage\h+(\H+)/) {
|
|
$next_skip = $1 if ($skipping);
|
|
($next_define_skip, $next_polarity_skip) = ($define_skip, $polarity_skip);
|
|
} elsif (/^\h*\\page\h+(\H+)/) {
|
|
$curpage = $1;
|
|
} elsif (/^\h*\\title\h+(.+)$/) {
|
|
if ($curpage eq "") {
|
|
die "Title '$1' appears in no \\page.\n";
|
|
}
|
|
if (length($prev_define_skip)) {
|
|
($prev_define_skips{$1}, $prev_polarity_skips{$1}, $prev_skips{$1}) =
|
|
($prev_define_skip, $prev_polarity_skip, $prev_skip);
|
|
$prev_define_skip = $prev_skip = "";
|
|
}
|
|
if (length($next_define_skip)) {
|
|
($next_define_skips{$1}, $next_polarity_skips{$1}, $next_skips{$1}) =
|
|
($next_define_skip, $next_polarity_skip, $next_skip);
|
|
$next_define_skip = $next_skip = "";
|
|
}
|
|
$title2page{$1} = $curpage;
|
|
$doctitle = $1 if (!$doctitle);
|
|
$curpage = "";
|
|
$inhdr = 0;
|
|
}
|
|
} else {
|
|
if (/^\h*\\contentspage\b/) {
|
|
$inhdr = 1;
|
|
}
|
|
}
|
|
}
|
|
die "Missing \\title in $file\n" if ($inhdr);
|
|
die "Unclosed TOC in $file\n" if ($intoc);
|
|
close FILE;
|
|
}
|
|
|
|
my %prev = ();
|
|
my %next = ();
|
|
my $last = $doctitle;
|
|
for my $title (@toc) {
|
|
$next{$last} = $title2page{$title};
|
|
$prev{$title} = $title2page{$last};
|
|
$last = $title;
|
|
}
|
|
|
|
for my $file (@files) {
|
|
open IN, $file or die "File $file cannot be opened a second time?!\n";
|
|
open OUT, '>'.$file.".out" or die "File $file.out cannot be created.\n";
|
|
my $cutting = 0;
|
|
while (<IN>) {
|
|
if (!$cutting) {
|
|
if (/^\h*\\contentspage/) {
|
|
$cutting = 1;
|
|
}
|
|
} else {
|
|
if (/^\h*\\title\h+(.+)$/) {
|
|
if (defined($prev_define_skips{$1})) {
|
|
print OUT " \\if defined(".$prev_define_skips{$1}.")\n";
|
|
if ($prev_polarity_skips{$1}) {
|
|
print OUT " \\previouspage ".$prev_skips{$1} if ($prev_skips{$1});
|
|
print OUT " \\else\n";
|
|
}
|
|
}
|
|
print OUT " \\previouspage ".$prev{$1} if ($prev{$1});
|
|
if (defined($prev_define_skips{$1})) {
|
|
if (!$prev_polarity_skips{$1}) {
|
|
print OUT " \\else\n";
|
|
print OUT " \\previouspage ".$prev_skips{$1} if ($prev_skips{$1});
|
|
}
|
|
print OUT " \\endif\n";
|
|
}
|
|
print OUT " \\page ".$title2page{$1};
|
|
if (defined($next_define_skips{$1})) {
|
|
print OUT " \\if defined(".$next_define_skips{$1}.")\n";
|
|
if ($next_polarity_skips{$1}) {
|
|
print OUT " \\nextpage ".$next_skips{$1} if ($next_skips{$1});
|
|
print OUT " \\else\n";
|
|
}
|
|
}
|
|
print OUT " \\nextpage ".$next{$1} if ($next{$1});
|
|
if (defined($next_define_skips{$1})) {
|
|
if (!$next_polarity_skips{$1}) {
|
|
print OUT " \\else\n";
|
|
print OUT " \\nextpage ".$next_skips{$1} if ($next_skips{$1});
|
|
}
|
|
print OUT " \\endif\n";
|
|
}
|
|
print OUT "\n";
|
|
$cutting = 0;
|
|
} else {
|
|
next;
|
|
}
|
|
}
|
|
print OUT $_;
|
|
}
|
|
close OUT;
|
|
close IN;
|
|
rename($file.".out", $file) or die "Cannot replace $file with new version.\n";
|
|
}
|