diff options
author | roktas <roktas@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2006-10-31 18:40:47 +0000 |
---|---|---|
committer | roktas <roktas@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2006-10-31 18:40:47 +0000 |
commit | aeb250f28d58db77eb1fa0f41ab968c49360ff56 (patch) | |
tree | 246d67da8ec33daf3a450a84e007a0114a3b7168 /gnuify-changelog.pl | |
parent | 2d128f7349a86610e308e6952cbd3b4e61b035ea (diff) | |
download | pandoc-aeb250f28d58db77eb1fa0f41ab968c49360ff56.tar.gz |
Revert all changes related to automatic ChangeLog creation.
+ Remove ChangeLog and gnuify-changelog.pl
+ Remove 'package' target in Makefile.
Minor unrelated cosmetic changes.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@52 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'gnuify-changelog.pl')
-rwxr-xr-x | gnuify-changelog.pl | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/gnuify-changelog.pl b/gnuify-changelog.pl deleted file mode 100755 index 7f6d3bf7c..000000000 --- a/gnuify-changelog.pl +++ /dev/null @@ -1,84 +0,0 @@ -#!/usr/bin/perl -w - -# a script to munge the output of 'svn log' into something approaching the -# style of a GNU ChangeLog. -# -# to use this, just fill in the 'hackers' hash with the usernames and -# name/emails of the people who work on your project, go to the top level -# of your working copy, and run: -# -# $ svn log | /path/to/gnuify-changelog.pl > ChangeLog - -require 5.0; -use strict; - -my %hackers = ( - "fiddlosopher" => 'John MacFarlane <jgm@berkeley.edu>', - "jgm" => 'John MacFarlane <jgm@berkeley.edu>', - "roktas" => 'Recai Oktaş <roktas@debian.org>', -); - -my $parse_next_line = 0; -my $last_line_empty = 0; -my $last_rev = ""; - -while (my $entry = <>) { - - # Axe windows style line endings, since we should try to be consistent, and - # the repos has both styles in its log entries - $entry =~ s/\r\n$/\n/; - - # Remove trailing whitespace - $entry =~ s/\s+$/\n/; - - my $this_line_empty = $entry eq "\n"; - - # Avoid duplicate empty lines - next if $this_line_empty and $last_line_empty; - - # Don't fail on valid dash-only lines - if ($entry =~ /^-+$/ and length($entry) >= 72) { - - # We're at the start of a log entry, so we need to parse the next line - $parse_next_line = 1; - - # Check to see if the final line of the commit message was blank, - # if not insert one - print "\n" if $last_rev ne "" and !$last_line_empty; - - } elsif ($parse_next_line) { - - # Transform from svn style to GNU style - $parse_next_line = 0; - - my @parts = split (/ /, $entry); - $last_rev = $parts[0]; - my $hacker = $parts[2]; - my $tstamp = $parts[4]; - - # Use alias if we can't resolve to name, email - $hacker = $hackers{$hacker} if defined $hackers{$hacker}; - - printf "%s %s\n", $tstamp, $hacker; - - } elsif ($this_line_empty) { - - print "\n"; - - } else { - - print "\t$entry"; - - } - - $last_line_empty = $this_line_empty; -} - -# As a HERE doc so it also sets the final changelog's coding -print <<LOCAL; -;; Local Variables: -;; coding: utf-8 -;; End: -LOCAL - -1; |