From 2cf565c53c88c557eedd7e5629437b3c6fe74329 Mon Sep 17 00:00:00 2001 From: David Greaves Date: Tue, 10 May 2005 22:32:30 +0100 Subject: [PATCH 1/4] split core-git.txt and update Split the core-git.txt file Formatting fix to the diff-format.txt Signed-off-by: David Greaves --- Documentation/split_docs.pl | 44 -------------------------------------------- 1 file changed, 44 deletions(-) delete mode 100755 Documentation/split_docs.pl (limited to 'Documentation/split_docs.pl') diff --git a/Documentation/split_docs.pl b/Documentation/split_docs.pl deleted file mode 100755 index 655489315f..0000000000 --- a/Documentation/split_docs.pl +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/perl -w -use strict; - -my $cmd; -my $name; - -my $author; - -while () { - 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 .\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); - $_=;$_=; # 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 \n\n"; - - next; - } - next unless $cmd; - - $author=undef if /^AUTHOR$/i; # don't use default for commands with an author - - print PAGE $_; - -} -- cgit v1.2.1