iw7-mod/deps/curl/scripts/nroff2cd
2024-08-13 05:15:34 -04:00

194 lines
5.5 KiB
Perl

#!/usr/bin/env perl
#***************************************************************************
# _ _ ____ _
# Project ___| | | | _ \| |
# / __| | | | |_) | |
# | (__| |_| | _ <| |___
# \___|\___/|_| \_\_____|
#
# Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
#
# This software is licensed as described in the file COPYING, which
# you should have received as part of this distribution. The terms
# are also available at https://curl.se/docs/copyright.html.
#
# You may opt to use, copy, modify, merge, publish, distribute and/or sell
# copies of the Software, and permit persons to whom the Software is
# furnished to do so, under the terms of the COPYING file.
#
# This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
# KIND, either express or implied.
#
# SPDX-License-Identifier: curl
#
###########################################################################
=begin comment
This script converts an nroff file to curldown
Example: cd2nroff [options] <file.md> > <file.3>
Note: when converting .nf sections, this tool does not know if the
section is code or just regular quotes. It then assumes and uses ~~~c
for code.
=end comment
=cut
my $nroff2cd = "0.1"; # to keep check
sub single {
my ($f)=@_;
open(F, "<:crlf", "$f") ||
return 1;
my $line;
my $title;
my $section;
my $source;
my @seealso;
my @desc;
my $header; # non-zero when TH is passed
my $quote = 0; # quote state
while(<F>) {
$line++;
my $d = $_;
if($_ =~ /^.\\\"/) {
# a comment we can ignore
next;
}
if(!$header) {
if($d =~ /.so (.*)/) {
# this is basically an include, so do that
my $f = $1;
# remove leading directory
$f =~ s/(.*?\/)//;
close(F);
open(F, "<:crlf", "$f") || return 1;
}
if($d =~ /^\.TH ([^ ]*) (\d) \"(.*?)\" ([^ \n]*)/) {
# header, this needs to be the first thing after leading comments
$title = $1;
$section = $2;
# date is $3
$source = $4;
# if there are enclosing quotes around source, remove them
$source =~ s/[\"\'](.*)[\"\']\z/$1/;
$header = 1;
print <<HEAD
---
c: Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al.
SPDX-License-Identifier: curl
Title: $title
Section: $section
Source: $source
HEAD
;
}
next;
}
if($quote) {
if($d =~ /^\.SH/) {
#end of quote without an .fi
$quote = 0;
push @desc, "~~~\n";
}
elsif($d =~ /^\.fi/) {
#end of quote
$quote = 0;
push @desc, "~~~\n";
next;
}
else {
# double-backslashes converted to single ones
$d =~ s/\\\\/\\/g;
push @desc, $d;
next;
}
}
if($d =~ /^\.SH (.*)/) {
my $word = $1;
# if there are enclosing quotes, remove them first
$word =~ s/[\"\'](.*)[\"\']\z/$1/;
if($word eq "SEE ALSO") {
# we just slurp up this section
next;
}
push @desc, "\n# $word\n\n";
}
elsif($d =~ /^\.(RS|RE)/) {
# ignore these
}
elsif($d =~ /^\.IP (.*)/) {
my $word = $1;
# if there are enclosing quotes, remove them first
$word =~ s/[\"\'](.*)[\"\']\z/$1/;
push @desc, "\n## $word\n\n";
}
elsif($d =~ /^\.IP/) {
# .IP with no text we just skip
}
elsif($d =~ /^\.BR (.*)/) {
# only used for SEE ALSO
my $word = $1;
# remove trailing comma
$word =~ s/,\z//;
for my $s (split(/,/, $word)) {
# remove all double quotes
$s =~ s/\"//g;
# tream leading whitespace
$s =~ s/^ +//g;
push @seealso, $s;
}
}
elsif($d =~ /^\.I (.*)/) {
push @desc, "*$1*\n";
}
elsif($d =~ /^\.B (.*)/) {
push @desc, "**$1**\n";
}
elsif($d =~ /^\.nf/) {
push @desc, "~~~c\n";
$quote = 1;
}
else {
# embolden
$d =~ s/\\fB(.*?)\\fP/**$1**/g;
# links to "curl.*()" are left bare since cd2nroff handles them
# specially
$d =~ s/\\fI(curl.*?\(3\))\\fP/$1/ig;
# emphasize
$d =~ s/\\fI(.*?)\\fP/*$1*/g;
# emphasize on a split line
$d =~ s/\\fI/*/g;
# bold on a split line
$d =~ s/\\fB/**/g;
# remove backslash amp
$d =~ s/\\&//g;
# remove backslashes
$d =~ s/\\//g;
# fix single quotes
$d =~ s/\(aq/'/g;
# fix double quotes
$d =~ s/\(dq/\"/g;
push @desc, $d;
}
}
close(F);
print "See-also:\n";
for my $s (sort @seealso) {
print " - $s\n" if($s);
}
print "---\n";
print @desc;
return !$header;
}
exit single($ARGV[0]);