code.delx.au - gnu-emacs/blob - 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=2c1b8604946efbcd8ec5dd6c6dda7541ce4fc3c0
  27 force=
  28 output=ChangeLog
  29 nmax=2
  30
  31 while [ $# -gt 0 ]; do
  32   case "$1" in
  33       -g|--gen-origin) gen_origin="$2" ; shift ;;
  34       -f|--force) force=1 ;;
  35       -n|--nmax) nmax="$2"; shift ;;
  36       -o|--output) output="$2" ; shift ;;
  37       *) echo "Unrecognized argument: $1" >&2; exit 1 ;;
  38   esac
  39   shift
  40 done
  41
  42 if [ -f "$output" ]; then
  43     [ ! "$force" ] && echo "$output exists" && exit 1
  44     rm -f "$output" || exit 1
  45 fi
  46
  47 # If this is not a Git repository, just generate an empty ChangeLog.
  48 test -d ${srcprefix}.git || {
  49   >"$output"
  50   exit
  51 }
  52
  53 # Use Gnulib's packaged ChangeLog generator.
  54 ${srcprefix}build-aux/gitlog-to-changelog --ignore-matching='^; ' \
  55   --format='%B' \
  56   "$gen_origin.." >"ChangeLog.tmp" || exit
  57
  58 if test -s "ChangeLog.tmp"; then
  59
  60   # Fix up bug references.
  61   # This would be better as eg a --transform option to gitlog-to-changelog,
  62   # but... effort.  FIXME does not handle rare cases like:
  63   # Fixes: debbugs:19434 debbugs:19519
  64   sed 's/       Fixes: \(debbugs:\|bug#\)\([0-9][0-9]*\)/       (Bug#\2)/' \
  65       "ChangeLog.tmp" > "ChangeLog.tmp2"
  66   mv "ChangeLog.tmp2" "ChangeLog.tmp"
  67
  68   # Find the years covered by the generated ChangeLog, so that
  69   # a proper copyright notice can be output.
  70   years=`
  71     sed -n 's/^\([0-9][0-9]*\).*/\1/p' "ChangeLog.tmp" |
  72     sort -nu
  73   `
  74   start_year=
  75   end_year=
  76   for year in $years; do
  77     : ${start_year:=$year}
  78     end_year=$year
  79   done
  80
  81   if test "$start_year" = "$end_year"; then
  82     year_range=$start_year
  83   else
  84     year_range=$start_year-$end_year
  85   fi
  86
  87   # Append a proper copyright notice.
  88   sed -n '
  89     1i\
  90
  91     /^See ChangeLog.[0-9]* for earlier/,${
  92        s/ChangeLog\.[0-9]*/ChangeLog.'$nmax'/
  93        s/\(Copyright[ (C)]*\)[0-9]*-[0-9]*/\1'"$year_range"'/
  94        p
  95     }
  96   ' <ChangeLog.$nmax >>"ChangeLog.tmp" || exit
  97 fi
  98
  99 # Install the generated ChangeLog.
 100 test "$output" = "ChangeLog.tmp" || mv "ChangeLog.tmp" "$output"