eden-emu/SDL
15
0
Fork 0
mirror of https://github.com/libsdl-org/SDL.git synced 2025-05-30 16:37:39 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

wikiheaders.pl: add --manpath argument

Browse source
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
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 warnings;
use strict; use strict;
use File::Path;
use Text::Wrap; use Text::Wrap;
$Text::Wrap::huge = 'overflow'; $Text::Wrap::huge = 'overflow';
@ -29,6 +30,7 @@ my $copy_direction = 0;
my $optionsfname = undef; my $optionsfname = undef;
my $wikipreamble = undef; my $wikipreamble = undef;
my $changeformat = undef; my $changeformat = undef;
my $manpath = undef;
foreach (@ARGV) { foreach (@ARGV) {
$warn_about_missing = 1, next if $_ eq '--warn-about-missing'; $warn_about_missing = 1, next if $_ eq '--warn-about-missing';
@ -42,6 +44,9 @@ foreach (@ARGV) {
} elsif (/\A--changeformat=(.*)\Z/) { } elsif (/\A--changeformat=(.*)\Z/) {
$changeformat = $1; $changeformat = $1;
next; next;
} elsif (/\A--manpath=(.*)\Z/) {
$manpath = $1;
next;
} }
$srcpath = $_, next if not defined $srcpath; $srcpath = $_, next if not defined $srcpath;
$wikipath = $_, next if not defined $wikipath; $wikipath = $_, next if not defined $wikipath;
@ -54,6 +59,10 @@ if ((not defined $optionsfname) && (-f $default_optionsfname)) {
$optionsfname = $default_optionsfname; $optionsfname = $default_optionsfname;
} }
if (not defined $manpath) {
$manpath = "$srcpath/man";
}
if (defined $optionsfname) { if (defined $optionsfname) {
open OPTIONS, '<', $optionsfname or die("Failed to open options file '$optionsfname': $!\n"); open OPTIONS, '<', $optionsfname or die("Failed to open options file '$optionsfname': $!\n");
while (<OPTIONS>) { while (<OPTIONS>) {
@ -474,7 +483,7 @@ sub filecopy {
} }
sub usage { 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; usage() if not defined $srcpath;
@ -1412,10 +1421,8 @@ if ($copy_direction == 1) { # --copy-to-headers
} elsif ($copy_direction == -2) { # --copy-to-manpages } 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. # 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"; $manpath .= "/man3";
mkdir($manpath); File::Path::make_path($manpath);
$dewikify_mode = 'manpage'; $dewikify_mode = 'manpage';
$wordwrap_mode = 'manpage'; $wordwrap_mode = 'manpage';