zinface
/
SDL
mirror of https://github.com/libsdl-org/SDL
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wikiheaders.pl: add --manpath argument

This commit is contained in:
Anonymous Maarten 2023-03-18 00:25:44 +01:00 committed by Anonymous Maarten
parent 81ca9d61d6
commit 77b8edb5ad
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
build-scripts/wikiheaders.pl
View File

@ -2,6 +2,7 @@
use warnings;
use strict;
use File::Path;
use Text::Wrap;
$Text::Wrap::huge = 'overflow';
@ -29,6 +30,7 @@ my $copy_direction = 0;
my $optionsfname = undef;
my $wikipreamble = undef;
my $changeformat = undef;
my $manpath = undef;
foreach (@ARGV) {
$warn_about_missing = 1, next if $_ eq '--warn-about-missing';
@ -42,6 +44,9 @@ foreach (@ARGV) {
} elsif (/\A--changeformat=(.*)\Z/) {
$changeformat = $1;
next;
} elsif (/\A--manpath=(.*)\Z/) {
$manpath = $1;
next;
}
$srcpath = $_, next if not defined $srcpath;
$wikipath = $_, next if not defined $wikipath;
@ -54,6 +59,10 @@ if ((not defined $optionsfname) && (-f $default_optionsfname)) {
$optionsfname = $default_optionsfname;
}
if (not defined $manpath) {
$manpath = "$srcpath/man";
}
if (defined $optionsfname) {
open OPTIONS, '<', $optionsfname or die("Failed to open options file '$optionsfname': $!\n");
while (<OPTIONS>) {
@ -474,7 +483,7 @@ sub filecopy {
}
sub usage {
die("USAGE: $0 <source code git clone path> <wiki git clone path> [--copy-to-headers|--copy-to-wiki|--copy-to-manpages] [--warn-about-missing]\n\n");
die("USAGE: $0 <source code git clone path> <wiki git clone path> [--copy-to-headers|--copy-to-wiki|--copy-to-manpages] [--warn-about-missing] [--manpath=<man path>]\n\n");
}
usage() if not defined $srcpath;
@ -1412,10 +1421,8 @@ if ($copy_direction == 1) { # --copy-to-headers
} elsif ($copy_direction == -2) { # --copy-to-manpages
# This only takes from the wiki data, since it has sections we omit from the headers, like code examples.
my $manpath = "$srcpath/man";
mkdir($manpath);
$manpath .= "/man3";
mkdir($manpath);
File::Path::make_path($manpath);
$dewikify_mode = 'manpage';
$wordwrap_mode = 'manpage';