Add scripts/split-man.pl

-------------------------------------------

If you just want to use kernel-doc to generate man pages you can do this

from the Kernel git tree::

from the kernel git tree::

  $ scripts/kernel-doc -man $(git grep -l '/\*\*' |grep -v Documentation/) | ./split-man.pl /tmp/man

Using the small ``split-man.pl`` script below::

  #!/usr/bin/perl

  if ($#ARGV < 0) {

     die "where do I put the results?\n";

  }

  mkdir $ARGV[0],0777;

  $state = 0;

  while (<STDIN>) {

      if (/^\.TH \"[^\"]*\" 9 \"([^\"]*)\"/) {

	if ($state == 1) { close OUT }

	$state = 1;

	$fn = "$ARGV[0]/$1.9";

	print STDERR "Creating $fn\n";

	open OUT, ">$fn" or die "can't open $fn: $!\n";

	print OUT $_;

      } elsif ($state != 0) {

	print OUT $_;

      }

  }

  close OUT;

  $ scripts/kernel-doc -man $(git grep -l '/\*\*' -- :^Documentation :^tools) | scripts/split-man.pl /tmp/man

#!/usr/bin/perl

# SPDX-License-Identifier: GPL-2.0

#

# Author: Mauro Carvalho Chehab <mchehab@s-opensource.com>

#

# Produce manpages from kernel-doc.

# See Documentation/doc-guide/kernel-doc.rst for instructions

if ($#ARGV < 0) {

   die "where do I put the results?\n";

}

mkdir $ARGV[0],0777;

$state = 0;

while (<STDIN>) {

    if (/^\.TH \"[^\"]*\" 9 \"([^\"]*)\"/) {

	if ($state == 1) { close OUT }

	$state = 1;

	$fn = "$ARGV[0]/$1.9";

	print STDERR "Creating $fn\n";

	open OUT, ">$fn" or die "can't open $fn: $!\n";

	print OUT $_;

    } elsif ($state != 0) {

	print OUT $_;

    }

}

close OUT;