build-aux/gitlog-to-emacslog

   1 #!/bin/sh
   2
   3 # Convert git log output to ChangeLog format for GNU Emacs.
   4
   5 # Copyright (C) 2014-2015 Free Software Foundation, Inc.
   6
   7 # Author: Paul Eggert
   8
   9 # This program is free software: you can redistribute it and/or modify
  10 # it under the terms of the GNU General Public License as published by
  11 # the Free Software Foundation, either version 3 of the License, or
  12 # (at your option) any later version.
  13
  14 # This program is distributed in the hope that it will be useful,
  15 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17 # GNU General Public License for more details.
  18
  19 # You should have received a copy of the GNU General Public License
  20 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  21
  22 LC_ALL=C
  23 export LC_ALL
  24
  25 # The newest revision that should not appear in the generated ChangeLog.
  26 gen_origin=
  27
  28 force=
  29 output=ChangeLog
  30 nmax=2
  31
  32 while [ $# -gt 0 ]; do
  33   case "$1" in
  34       -g|--gen-origin) gen_origin="$2" ; shift ;;
  35       -f|--force) force=1 ;;
  36       -n|--nmax) nmax="$2"; shift ;;
  37       -o|--output) output="$2" ; shift ;;
  38       *) printf '%s\n' "Unrecognized argument: $1" >&2; exit 1 ;;
  39   esac
  40   shift
  41 done
  42
  43 if [ ! -f ChangeLog.$nmax ]; then
  44     printf '%s\n' "Can't find ChangeLog.$nmax" >&2
  45     printf '%s\n' "Must be run from the top source directory" >&2
  46     exit 1
  47 fi
  48
  49 # If not specified in the command line, get gen_origin from the existing
  50 # ChangeLog file.
  51 [ "$gen_origin" ] || {
  52     gen_origin_line=`
  53       grep -E '^commit [0-9a-f]+ [(]inclusive[)]' ChangeLog.$nmax
  54     ` || {
  55         printf '%s\n' "ChangeLog.$nmax lacks a 'commit ... (inclusive)' line" >&2
  56         exit 1
  57     }
  58     set $gen_origin_line
  59     gen_origin=$2
  60 }
  61
  62 # Get the new value for gen_origin from the latest version in the repository.
  63 new_origin=`git log --pretty=format:%H 'HEAD^!'` || exit
  64
  65 if [ -f "$output" ]; then
  66     [ ! "$force" ] && printf '%s\n' "$output exists" >&2 && exit 1
  67     rm -f "$output" || exit 1
  68 fi
  69
  70 # If this is not a Git repository, just generate an empty ChangeLog.
  71 test -d .git || {
  72   >"$output"
  73   exit
  74 }
  75
  76 # Use Gnulib's packaged ChangeLog generator.
  77 # Maybe we should skip all "Merge branch 'master'" messages.
  78 # See eg the cairo-related ones.
  79 ./build-aux/gitlog-to-changelog \
  80     --ignore-matching="^; |^Merge branch 'master' of git\.(savannah|sv)\.gnu\.org:/srv/git/emacs$|^Merge remote-tracking branch '.*'$" \
  81   --ignore-line='^; ' --format='%B' \
  82   "$gen_origin..$new_origin" >"ChangeLog.tmp" || exit
  83
  84 if test -s "ChangeLog.tmp"; then
  85
  86   # Fix up bug references.
  87   # This would be better as eg a --transform option to gitlog-to-changelog,
  88   # but... effort.  FIXME does not handle rare cases like:
  89   # Fixes: debbugs:19434 debbugs:19519
  90   sed 's/       Fixes: \(debbugs:\|bug#\)\([0-9][0-9]*\)/       (Bug#\2)/' \
  91       "ChangeLog.tmp" > "ChangeLog.tmp2"
  92   mv "ChangeLog.tmp2" "ChangeLog.tmp"
  93
  94   # Find the years covered by the generated ChangeLog, so that
  95   # a proper copyright notice can be output.
  96   years=`
  97     sed -n 's/^\([0-9][0-9]*\).*/\1/p' "ChangeLog.tmp" |
  98     sort -nu
  99   `
 100   start_year=
 101   end_year=
 102   for year in $years; do
 103     : ${start_year:=$year}
 104     end_year=$year
 105   done
 106
 107   if test "$start_year" = "$end_year"; then
 108     year_range=$start_year
 109   else
 110     year_range=$start_year-$end_year
 111   fi
 112
 113   # Update gen_origin and append a proper copyright notice.
 114   sed -n '
 115     1i\
 116
 117     /^This file records repository revisions/p
 118     s/^commit [0-9a-f]* (exclusive)/commit '"$gen_origin"' (exclusive)/p
 119     s/^commit [0-9a-f]* (inclusive)/commit '"$new_origin"' (inclusive)/p
 120     /^See ChangeLog.[0-9]* for earlier/,${
 121        s/ChangeLog\.[0-9]*/ChangeLog.'$nmax'/
 122        s/\(Copyright[ (C)]*\)[0-9]*-[0-9]*/\1'"$year_range"'/
 123        p
 124     }
 125   ' <ChangeLog.$nmax >>"ChangeLog.tmp" || exit
 126 fi
 127
 128 # Install the generated ChangeLog.
 129 test "$output" = "ChangeLog.tmp" || mv "ChangeLog.tmp" "$output"