adapter.sh

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