mirror of
https://git.savannah.gnu.org/git/parallel.git
synced 2024-10-18 12:59:39 +00:00
45 lines
833 B
Perl
45 lines
833 B
Perl
#!/usr/bin/perl
|
|
|
|
# SPDX-FileCopyrightText: 2021 Ole Tange, http://ole.tange.dk and Free Software and Foundation, Inc.
|
|
# SPDX-License-Identifier: GPL-3.0-or-later
|
|
|
|
$line="";
|
|
|
|
while(<>) {
|
|
/^\#/ and next;
|
|
if($verbatim) {
|
|
if(/^\S/) {
|
|
chomp($line);
|
|
$line=~s/\s+$/\n/gism;
|
|
push(@lines, $line."-verbatim-\n");
|
|
$verbatim=0;
|
|
$line="";
|
|
}
|
|
} else {
|
|
if(/^\s*$/) {
|
|
$line=~s/B<(.*?)>/*$1*/gs;
|
|
# =_text_ -> = _text_
|
|
$line=~s/I<(.*?)>/ _$1_ /gs;
|
|
push(@lines,$line."\n\n");
|
|
$line="";
|
|
next;
|
|
}
|
|
if(/^\s+\S/) {
|
|
$line.="+verbatim+\n ";
|
|
$verbatim=1;
|
|
} else {
|
|
s/\*/***/g;
|
|
chomp;
|
|
}
|
|
}
|
|
s/=head1 (.*)/= $1 =/g;
|
|
s/=head2 (.*)/== $1 ==/g;
|
|
s/=over (.*)//g;
|
|
s/=back//g;
|
|
s/=item /* /g;
|
|
m/=cut/ and last;
|
|
$line.=$_." ";
|
|
}
|
|
|
|
print @lines;
|