adapter.sh

   1 #!/bin/sh
   2 #
   3 # Authors:
   4 #       Michał Kuratczyk <kura@pld.org.pl>
   5 #       Sebastian Zagrodzki <s.zagrodzki@mimuw.edu.pl>
   6 #       Tomasz Kłoczko <kloczek@rudy.mif.pg.gda.pl>
   7 #       Artur Frysiak <wiget@pld-linux.org>
   8 #       Michal Kochanowicz <mkochano@pld.org.pl>
   9 #       Elan Ruusamäe <glen@pld-linux.org>
  10 #
  11 # See cvs log adapter{,.awk} for list of contributors
  12 #
  13 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
  14
  15 RCSID='$Id$'
  16 r=${RCSID#* * }
  17 rev=${r%% *}
  18 VERSION="v0.31/$rev"
  19 VERSIONSTRING="\
  20 Adapter adapts .spec files for PLD Linux.
  21 $VERSION (C) 1999-2008 Free Penguins".
  22
  23 self=$(basename "$0")
  24 adapter=$(dirname "$0")/adapter.awk
  25 usage="Usage: $self [FLAGS] SPECFILE
  26
  27 -s|--no-sort|--skip-sort
  28         skip BuildRequires, Requires sorting
  29 -m|--no-macros|--skip-macros
  30         skip use_macros() substitutions
  31 -d|--skip-desc
  32         skip desc wrapping
  33 -a|--skip-defattr
  34         skip %defattr corrections
  35
  36 "
  37
  38 if [ ! -x /usr/bin/getopt ]; then
  39         echo >&1 "You need to install util-linux to use adapter"
  40         exit 1
  41 fi
  42
  43 if [ ! -x /usr/bin/patch ]; then
  44         echo >&1 "You need to install patch to use adapter"
  45         exit 1
  46 fi
  47
  48 t=$(getopt -o hsmdaV --long help,version,sort,sort-br,no-macros,skip-macros,skip-desc,skip-defattr -n "$self" -- "$@") || exit $?
  49 eval set -- "$t"
  50
  51 while true; do
  52         case "$1" in
  53         -h|--help)
  54                 echo 2>&1 "$usage"
  55                 exit 1
  56         ;;
  57         -s|--no-sort|--skip-sort)
  58                 export SKIP_SORTBR=1
  59         ;;
  60         -m|--no-macros|--skip-macros)
  61                 export SKIP_MACROS=1
  62         ;;
  63         -d|--skip-desc)
  64                 export SKIP_DESC=1
  65         ;;
  66         -a|--skip-defattr)
  67                 export SKIP_DEFATTR=1
  68         ;;
  69         -V|--version)
  70                 echo "$VERSIONSTRING"
  71                 exit 0
  72         ;;
  73         --)
  74                 shift
  75                 break
  76         ;;
  77         *)
  78                 echo 2>&1 "$self: Internal error: [$1] not recognized!"
  79                 exit 1
  80                 ;;
  81         esac
  82         shift
  83 done
  84
  85 diffcol()
  86 {
  87          # vim like diff colourization
  88          sed -e '
  89          s,\e,\e[44m^[\e[49m,g;
  90          s,\a,\e[44m^G\e[49m,g;
  91          s,^\(Index:\|diff\|---\|+++\) .*$,\e[32m&,;
  92          s,^@@ ,\e[33m&,g;
  93          s,^-,\e[35m&,;
  94          s,^+,\e[36m&,;
  95          s,\r,\e[44m^M\e[49m,g;
  96          s,     ,    ,g;
  97          s,\([^[:space:]]\)\([[:space:]]\+\)$,\1\e[41m\2\e[49m,g;
  98          s,$,\e[0m,
  99          ' "$@"
 100 }
 101
 102 diff2hunks()
 103 {
 104          # diff2hunks orignally by dig
 105          perl -e '
 106 #! /usr/bin/perl -w
 107
 108 use strict;
 109
 110 for my $filename (@ARGV) {
 111         my $counter = 1;
 112         my $fh;
 113         open $fh, "<", $filename or die "$filename: open for reading: $!";
 114         my @lines = <$fh>;
 115         my @hunks;
 116         my @curheader;
 117         for my $i (0 ... $#lines) {
 118                 next unless $lines[$i] =~ m/^\@\@ /;
 119                 if ($i >= 2 and $lines[$i - 2] =~ m/^--- / and $lines[$i - 1] =~ m/^\+\+\+ /) {
 120                         @curheader = @lines[$i - 2 ... $i - 1];
 121                 }
 122                 next unless @curheader;
 123                 my $j = $i + 1;
 124                 while ($j < @lines and $lines[$j] !~ m/^\@\@ /) {$j++}
 125                 $j -= 2
 126                         if $j >= 3 and $j < @lines
 127                                 and $lines[$j - 2] =~ m/^--- /
 128                                 and $lines[$j - 1] =~ m/^\+\+\+ /;
 129                 $j--;
 130                 $j-- until $lines[$j] =~ m/^[ @+-]/;
 131                 my $hunkfilename = $filename;
 132                 $hunkfilename =~ s/((\.(pat(ch)?|diff?))?)$/"-".sprintf("%03i",$counter++).$1/ei;
 133                 my $ofh;
 134                 open $ofh, ">", $hunkfilename or die "$hunkfilename: open for writing: $!";
 135                 print $ofh @curheader, @lines[$i ... $j];
 136                 close $ofh;
 137         }
 138 }
 139 ' "$@"
 140 }
 141
 142 adapterize()
 143 {
 144         local tmpdir
 145         tmpdir=$(mktemp -d ${TMPDIR:-/tmp}/adapter-XXXXXX) || exit
 146         if grep -q '\.UTF-8' $SPECFILE; then
 147                 awk=gawk
 148         else
 149                 awk=awk
 150         fi
 151
 152         local tmp=$tmpdir/$(basename $SPECFILE) || exit
 153         $awk -f $adapter $SPECFILE > $tmp || exit
 154
 155         if [ "$(diff --brief $SPECFILE $tmp)" ]; then
 156                 diff -u $SPECFILE $tmp > $tmp.diff
 157                 if [ -t 1 ]; then
 158                                 diffcol $tmp.diff | less -r
 159                                 while : ; do
 160                                         echo -n "Accept? (Yes, No, Confirm each chunk)? "
 161                                         read ans
 162                                         case "$ans" in
 163                                         [yYoO]) # y0 mama
 164                                                 mv -f $tmp $SPECFILE
 165                                                 echo "Ok, adapterized."
 166                                                 break
 167                                         ;;
 168                                         [cC]) # confirm each chunk
 169                                                 diff2hunks $tmp.diff
 170                                                 for t in $(ls $tmp-*.diff); do
 171                                                                 diffcol $t | less -r
 172                                                                 echo -n "Accept? (Yes, [N]o, Quit)? "
 173                                                                 read ans
 174                                                                 case "$ans" in
 175                                                                 [yYoO]) # y0 mama
 176                                                                         patch < $t
 177                                                                         ;;
 178                                                                 [Q]) # Abort
 179                                                                         break
 180                                                                         ;;
 181                                                                 esac
 182                                                 done
 183                                                 break
 184                                         ;;
 185                                         [QqnNsS])
 186                                                 echo "Ok, exiting."
 187                                                 break
 188                                         ;;
 189                                         esac
 190                                 done
 191                 else
 192                                 cat $tmp.diff
 193                 fi
 194         else
 195                 echo "The SPEC is perfect ;)"
 196         fi
 197
 198         rm -rf $tmpdir
 199 }
 200
 201 SPECFILE="$1"
 202 [ -f "$SPECFILE" ] || SPECFILE="$(basename $SPECFILE .spec).spec"
 203
 204 if [ $# -ne 1 -o ! -f "$SPECFILE" ]; then
 205         echo "$usage"
 206         exit 1
 207 fi
 208
 209 adapterize