diff options
author | Bastien <bzg@gnu.org> | 2020-02-18 23:46:22 +0100 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2020-02-18 23:46:22 +0100 |
commit | 6381fc96cf1b136c6f06d6c62973857cdf496f6c (patch) | |
tree | ebc1cd82a0d1bebb9ec6edfaa04f1185741031a1 /mk | |
parent | 45f6844cdfea5ac15b36bb2f0ba5efe262e9e186 (diff) |
Delete obsolete utilities
mk/fake_change_log.pl
mk/git-changelog
mk/make_emacs_changelog
mk/set-version.pl
Diffstat (limited to 'mk')
-rwxr-xr-x | mk/fake_change_log.pl | 72 | ||||
-rwxr-xr-x | mk/git-changelog | 93 | ||||
-rwxr-xr-x | mk/make_emacs_changelog | 117 | ||||
-rwxr-xr-x | mk/set-version.pl | 45 |
4 files changed, 0 insertions, 327 deletions
diff --git a/mk/fake_change_log.pl b/mk/fake_change_log.pl deleted file mode 100755 index 6ed3bc273..000000000 --- a/mk/fake_change_log.pl +++ /dev/null @@ -1,72 +0,0 @@ -#!/usr/bin/perl - -$file1 = shift; -$file2 = shift; - -open file1,"<$file1" or die; -while (<file1>) { - if (m/^\s*\((defun|defsubst|defmacro|defcustom|defgroup|defface|defvar|defconst)\s+([-a-zA-Z0-9]+)/) { - if ($1 eq "defun") { - $fun1{$2}++; - } elsif ($1 eq "defsubst") { - $subst1{$2}++; - } elsif ($1 eq "defmacro") { - $macro1{$2}++; - } elsif ($1 eq "defgroup") { - $group1{$2}++; - } elsif ($1 eq "defcustom") { - $custom1{$2}++; - } elsif ($1 eq "defface") { - $face1{$2}++; - } elsif ($1 eq "defvar") { - $var1{$2}++; - } elsif ($1 eq "defconst") { - $const1{$2}++; - } - } -} -close file1; - -open file2,"<$file2" or die; -while (<file2>) { - if (m/^\s*\((defun|defsubst|defmacro|defcustom|defgroup|defface|defvar|defconst)\s+([-a-zA-Z0-9]+)/) { - if ($1 eq "defun") { - $fun2{$2}++; - } elsif ($1 eq "defsubst") { - $subst2{$2}++; - } elsif ($1 eq "defmacro") { - $macro2{$2}++; - } elsif ($1 eq "defgroup") { - $group2{$2}++; - } elsif ($1 eq "defcustom") { - $custom2{$2}++; - } elsif ($1 eq "defface") { - $face2{$2}++; - } elsif ($1 eq "defvar") { - $var2{$2}++; - } elsif ($1 eq "defconst") { - $const2{$2}++; - } - } -} -close file2; - -foreach $type ("fun","subst","macro","group","custom","face","var","const") { - $cmd1 = '%n1 = %' . $type . "1;"; - $cmd2 = '%n2 = %' . $type . "2;"; - eval $cmd1; - eval $cmd2; - - print "$type added:\n"; - foreach (keys %n2) { - unless (defined $n1{$_}) { - print " $_\n"; - } - } - print "$type removed:\n"; - foreach (keys %n1) { - unless (defined $n2{$_}) { - print " $_\n"; - } - } -} diff --git a/mk/git-changelog b/mk/git-changelog deleted file mode 100755 index 85c5f794c..000000000 --- a/mk/git-changelog +++ /dev/null @@ -1,93 +0,0 @@ -#!/usr/bin/env python - -# git-changelog -# -# version 2.0, by John Wiegley -# -# The purpose of this code is to turn "git log" output into a complete -# ChangeLog, for projects who wish to begin using a ChangeLog, but haven't -# been. -# -# This version of git-changelog depends on GitPython: -# git://gitorious.org/git-python/mainline.git - -import time -import string -import sys -import re -import os - -from git import * # GitPython -from subprocess import * - -repo = Repo(os.getcwd()) -ref = 'origin/master..' -path = '' - -# Usage: git changelog [COMMITISH] [-- [PATH]] - -saw_dashdash = False -if len(sys.argv) > 1: - for arg in sys.argv[1:]: - if arg == "--": - saw_dashdash = True - elif saw_dashdash: - path = arg - else: - ref = arg - -for commit in repo.iter_commits(ref, paths=path): - hash_id = commit.sha - author = commit.author - date = commit.committed_date - log_text = commit.message.split('\n')[0] - - log_text_remainder = commit.message.split('\n\n')[1:] - while len(log_text_remainder) > 0 and not log_text_remainder[0]: - log_text_remainder = log_text_remainder[1:] - log_text_remainder = string.join(log_text_remainder, '\n\t') - if log_text_remainder: - log_text_remainder = '\n\t' + log_text_remainder - - diff = commit.diff(commit.parents[0]) - files = [] - for f in diff: - if not f.a_blob: - p = f.b_blob.path - elif not f.b_blob: - p = f.a_blob.path - else: - continue - - p2 = re.sub('^' + path + '/', '', p) - if p != p2: - files.append(p2) - - fp = Popen(["fmt", "-72"], shell = True, stdin = PIPE, stdout = PIPE) - if files: - fp.stdin.write("\t* %s: %s" % (string.join(files, ",\n\t"), log_text)) - else: - fp.stdin.write("\t* %s" % log_text) - fp.stdin.close() - log_text = fp.stdout.read() - del fp - - print "%s %s <%s>\n" % \ - (time.strftime("%Y-%m-%d", time.gmtime(date)), - author.name, author.email) - - if path: - log_text = re.sub(' ' + path + '/', ' ', log_text) - log_text_remainder = re.sub(' ' + path + '/', ' ', log_text_remainder) - - # If the log_text_remainder already begins with a *, then use that as the - # changelog text. - if re.match('\s+\* ', log_text_remainder): - if log_text_remainder[0] == '\n': - print log_text_remainder[1:] - else: - print log_text_remainder - else: - print "%s%s" % (log_text, log_text_remainder) - -# git-changelog ends here diff --git a/mk/make_emacs_changelog b/mk/make_emacs_changelog deleted file mode 100755 index a960c1b14..000000000 --- a/mk/make_emacs_changelog +++ /dev/null @@ -1,117 +0,0 @@ -#!/usr/bin/perl - -$commitrange = shift @ARGV; -if (!$commitrange) { - print STDERR "Enter commitrange: "; - $commitrange = <>; - $commitrange =~ s/\s*(.*?)\s+/$1/; -} - -$syncdate = shift @ARGV; -if (!$syncdate) { - print STDERR "Enter syncdate YYYY-MM-DD: "; - $syncdate = <>; - $syncdate =~ s/\s*(.*?)\s+/$1/; -} - -$kind = shift @ARGV; -if (!$kind) { - print STDERR 'Enter kind ("lisp" or "texi" or "card" or press RET): '; - $kind = <>; - $kind =~ s/\s*(.*?)\s+/$1/; - $kind =~ s/"(.*?)"/$1/; -} - -if ($kind ne "lisp" and $kind ne "texi" and $kind ne "card" - and $kind ne "") { - die "Invalid Changelog kind"; -} - -# commit must touch these paths or files to be considered -$fpath = "lisp/ doc/"; - -# Run git log to get the commits the messages -open IN,"git log --no-merges --format='%aN%n<%aE>%n%b%x0c' $commitrange -- $fpath|"; -undef $/; -$log = <IN>; -@commits = split(/\f/,$log); - -my %entries; - -foreach my $commit (@commits) { - $name = ( $commit=~ s/([^\n]+)\n//m ) ? $1 : "N/A"; - $address = ( $commit=~ s/([^\n]+)\n//m ) ? $1 : "N/A"; - $tiny = $commit =~ s/TINYCHANGE//mg ? " (tiny change)" : ""; - $entry = $commit; - - if ($entry) { - - # remove whitespace at beginning of line - $entry =~ s/^[ \t]*//mg; - - # add linebreaks before each starred line except the very first - $entry =~ s/\A[\n\t]*/@/mg; - $entry =~ s/^\*/\n\n*/mg; - $entry =~ s/\A@//mg; - - # normalize starred lines - $entry =~ s/^(\*[^(]*\S)\(/\1 (/mg; - - # remove blocks of more than one empty line - $entry =~s/\n{3,}/\n\n/mg; - - # Fix the path when directories have been omitted - $entry =~ s/^\* ([-a-zA-Z]+\.el)/* lisp\/$1/mg; - $entry =~ s/^\* (org[a-z]*\.texi?)/* doc\/$1/mg; - - # remove stuff which is not for this output - if ($kind =~ /\S/) { - # do not delete or rename directories from the list as long as - # Changelog entries referring to them exist! - remove_parts(qw( contrib/ testing/ xemacs/ mk/ etc/ )); - remove_parts(qw( .*Makefile README .+\.mk )); - } - if ($kind eq "lisp") { remove_parts("doc/") } - if ($kind eq "texi") { remove_parts("lisp/","doc/orgcard","doc/orgguide") } - if ($kind eq "card") { remove_parts("lisp/","doc/org\\.","doc/orgguide") } - - # remove/replace parts of the path - $entry =~ s:^\* lisp/:* :mg; - $entry =~ s:^\* doc/orgcard:* refcards/orgcard:mg; - $entry =~ s:^\* doc/:* misc/:mg; - - # remove empty space at beginning and end - $entry =~ s/\A\s*//; - $entry =~ s/\s*\Z//; - - # remove everything that is not a starred entry - my @entries = grep( /^\*/, split( /\n\n/, $entry )); - - # If there is anything left in the entry, print it - if (scalar @entries) { - push @{ $entries{"$syncdate $name $address$tiny"} }, @entries; - } - } -} -foreach my $key ( sort keys %entries ) { - next if (! exists $entries{"$key"} ); - print "$key\n"; - if ( exists $entries{"$key (tiny change)"} ) { - push @{ $entries{"$key"} }, @{ $entries{"$key (tiny change)"} }; - delete $entries{"$key (tiny change)"}; - } - my @entries = @{ $entries{"$key"} }; - foreach my $entry ( @entries ) { - # indent each line by exactly one TAB - $entry =~ s/^/\t/mg; - print "\n$entry\n"; - } - print "\n\n"; -} - -sub remove_parts { - foreach $path (@_) { - $re = "^[ \t]*\\*\\s+" . $path . "[^\\000]*?(?=^[ \\t]*\\*|\\Z)"; - $entry =~ s/$re/\n$1/mg; - } -} diff --git a/mk/set-version.pl b/mk/set-version.pl deleted file mode 100755 index d042a6e02..000000000 --- a/mk/set-version.pl +++ /dev/null @@ -1,45 +0,0 @@ -#!/usr/bin/perl -$version = $ARGV[0]; -if ($version eq "--all" or $version eq "-a") { - $all = 1; - $version = $ARGV[1] -} - -if ($version eq "--only" or $version eq "-o") { - $only = 1; - $version = $ARGV[1] -} - -die "No version given" unless $version=~/\S/; -$date = `date "+%B %Y"`; chomp $date; -$year = `date "+%Y"` ; chomp $year; - -print STDERR "Changing version to \"$version\" and date to \"$date\" in all relevant files\n" ; - -if (not $only) { - - print STDERR join("\n",glob("lisp/*.el")),"\n"; - $cmd = qq{s/^(;; Version:)\\s+(\\S+)[ \t]*\$/\$1 $version/;s/^(\\(defconst org-version )"(\\S+)"/\$1"$version"/}; - $c1 = "perl -pi -e '$cmd' lisp/*.el"; - system($c1); - - print STDERR "doc/org.texi\n"; - $cmd = qq{s/^(\\\@set VERSION)\\s+(\\S+)[ \t]*\$/\$1 $version/;s/^(\\\@set DATE)\\s+(.*)\$/\$1 $date/;}; - $c1 = "perl -pi -e '$cmd' doc/org.texi"; - system($c1); - - print STDERR "doc/orgguide.texi\n"; - $cmd = qq{s/^(\\\@set VERSION)\\s+(\\S+)[ \t]*\$/\$1 $version/;s/^(\\\@set DATE)\\s+(.*)\$/\$1 $date/;}; - $c1 = "perl -pi -e '$cmd' doc/orgguide.texi"; - system($c1); - - print STDERR "doc/orgcard.tex\n"; - $cmd = qq{s/^\\\\def\\\\orgversionnumber\\{\\S+\\}/\\\\def\\\\orgversionnumber{$version}/;s/\\\\def\\\\versionyear\\{\\S+\\}/\\\\def\\\\versionyear{$year}/;s/\\\\def\\\\year\\{\\S+\\}/\\\\def\\\\year{$year}/;}; - $c1 = "perl -pi -e '$cmd' doc/orgcard.tex"; - system($c1); - - print STDERR "README\n"; - $cmd = qq{s/^(The version of this release is:)\\s+(\\S+)[ \t]*\$/\$1 $version/;}; - $c1 = "perl -pi -e '$cmd' README"; - system($c1); -} |