Files
git/Documentation/split_docs.pl
David Greaves 03ea280249 [PATCH 2/2] core-git documentation update
Reformat core-git.txt to asciidoc format.
Includes split-docs.pl to create individual txt, html and man pages.

<JC> Editorial note.  I've updated to add git-diff-cache -m and
git-update-cache --replace description on top of the version
David posted to the GIT list and got his OK.

Signed-off-by: David Greaves <david@dgreaves.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>
2005-05-08 14:44:20 -07:00

45 lines
1.2 KiB
Perl
Executable File

#!/usr/bin/perl -w
use strict;
my $cmd;
my $name;
my $author;
while (<STDIN>) {
if (/^NAME$/ || eof(STDIN)) {
if ($cmd) {
print PAGE $author if defined($author);
print PAGE "Documentation\n--------------\nDocumentation by David Greaves, Junio C Hamano and the git-list <git\@vger.kernel.org>.\n\n";
print PAGE "GIT\n---\nPart of the link:git.html[git] suite\n\n";
if ($#ARGV || $ARGV[0] eq "-html") {
system(qw(asciidoc -b css-embedded -d manpage), "$cmd.txt");
} elsif ($ARGV[0] eq "-man") {
system(qw(asciidoc -b docbook -d manpage), "$cmd.txt");
system(qw(xmlto man), "$cmd.xml") if -e "$cmd.xml";
}
}
exit if eof(STDIN);
$_=<STDIN>;$_=<STDIN>; # discard underline and get command
chomp;
$name = $_;
($cmd) = split(' ',$_);
print "$name\n";
open(PAGE, "> $cmd.txt") or die;
print PAGE "$cmd(1)\n==="."="x length($cmd);
print PAGE "\nv0.1, May 2005\n\nNAME\n----\n$name\n\n";
$author = "Author\n------\nWritten by Linus Torvalds <torvalds\@osdl.org>\n\n";
next;
}
next unless $cmd;
$author=undef if /^AUTHOR$/i; # don't use default for commands with an author
print PAGE $_;
}