wodewick

   1 #!/usr/bin/ruby -w
   2
   3 # This is a simple script to automate some of the common checks and
   4 # tasks in building a new Debian package of stand.  I suggest that you
   5 # initially run:
   6 #
   7 #    ./wodewick --changelog <PREVIOUS-VERSION>
   8 #
   9 # where <PREVIOUS-VERSION> was the version before, and add the output
  10 # to debian/changelog
  11 #
  12 # Then run ./wodewick --release or ./wodewick --build
  13 #
  14 # FIXME: add these to the build dependencies:
  15 #
  16 #   ruby1.8
  17 #   libruby1.8
  18 #   dpkg-dev
  19 #   perl
  20 #
  21 # FIXME: the .deb file check is actually a pain, since after running
  22 #    build, that check will fail.
  23
  24 require 'getoptlong'
  25
  26 def git_current_branch
  27   `git branch` =~ /\* ([^\n]+)/m
  28   $1
  29 end
  30
  31 def git_diff_from_origin_master
  32   unless system("git fetch origin master")
  33     raise "'git fetch origin master'"
  34   end
  35   # Now compare our current tree to FETCH_HEAD:
  36   `git diff FETCH_HEAD`
  37 end
  38
  39 def git_tracked_repositories
  40   return `git remote`.split("\n")
  41 end
  42
  43 def last_version_in_changelog
  44   return `dpkg-parsechangelog | egrep ^Version: | sed 's/^Version: //'`
  45 end
  46
  47 def package_name_in_changelog
  48   return `dpkg-parsechangelog | egrep ^Source: | sed 's/^Source: //'`
  49 end
  50
  51 def maintainer_email
  52   `egrep ^Maintainer: debian/control`.gsub(/^Maintainer: (.*)\n/,'\1')
  53 end
  54
  55 def wrap(text)
  56   result = ""
  57   columns = 64
  58   while (text.length > columns) && (text.length > 0)
  59     index = (text[0...columns] =~ /\s+(\S*?)$/u)
  60     unless index
  61       if columns < text.length
  62         index = columns
  63       else
  64         index = text.length
  65       end
  66     end
  67     result += text[0...index]
  68     text = text[index..-1].gsub( /^\s*/um, '' )
  69     if text.length > 0
  70       result += "\n"
  71     end
  72   end
  73   result + text
  74 end
  75
  76 def indent_change(text)
  77   result = ""
  78   lines = text.split("\n")
  79   lines.each_index do |i|
  80     if i == 0
  81       result += "  * #{lines[i]}\n"
  82     else
  83       result += "    #{lines[i]}\n"
  84     end
  85   end
  86   result
  87 end
  88
  89 def changes_since(commit)
  90   result = "#{$package_name} (#{$new_version}) unstable; urgency=low\n\n"
  91   current_author = nil
  92   lines = `git log --no-merges #{commit}..HEAD | git-shortlog -e`.split("\n")
  93   lines.each do |line|
  94     if line =~ /^([^ ].*) \(\d+\):$/
  95       current_author = $1
  96     elsif line =~ /^\s*$/
  97     elsif line =~ /^\s{6}(.*)/
  98       wrapped = wrap($1)
  99       formatted = indent_change(wrapped)
 100       result += formatted
 101     else
 102       raise "Failed to parse a line in the log: '#{line}'"
 103     end
 104   end
 105   result + "\n -- #{$maintainer_email} #{`date -R`}\n"
 106 end
 107
 108 def usage
 109   print <<EOF
 110 Usage: wodewick [OPTION]...
 111
 112   -h, --help           Display this message and exit
 113   -c, --check          Run pre-packaging checks
 114   -b, --build          Run pre-packaging checks and build the Debian package
 115   -r, --release        Run pre-packaging checks, build the Debian package
 116                        and release (tag, push tags and upload)
 117   -l, --changelog <SINCE>
 118                        Generate changelog entries since commit <SINCE>
 119                        in a format suitable for a Debian changelog.
 120
 121 EOF
 122 end
 123
 124 $origin_exists = nil
 125 $new_version = nil
 126 $package_name = nil
 127 $mantainer_email = nil
 128
 129 def check
 130
 131   unless system("git --version > /dev/null")
 132     raise "Couldn't find git on your $PATH"
 133   end
 134
 135   unless FileTest.exist?("debian/rules")
 136     raise "Must be run within a Debian package source directory"
 137   end
 138
 139   unless FileTest.exist?(".git")
 140     raise "This must be the top level of a git repository"
 141   end
 142
 143   current_branch = git_current_branch
 144   unless current_branch == "master"
 145     raise "We're on the branch '#{current_branch}' instead of 'master'"
 146   end
 147
 148   $origin_exists = git_tracked_repositories.include? "origin"
 149
 150   # We only run the difference again origin/master if there's a
 151   # tracked repository called 'origin'
 152   if $origin_exists
 153
 154     differences = git_diff_from_origin_master
 155     unless differences.empty?
 156       raise "There were differences between the working tree and " +
 157         "origin/master\nTo see them run: git diff FETCH_HEAD"
 158     end
 159
 160   end
 161
 162   $new_version = last_version_in_changelog
 163   unless $new_version
 164     raise "Failed to find latest version from the changelog"
 165   end
 166   $package_name = package_name_in_changelog
 167   unless $package_name
 168     raise "Failed to find package name from the changelog"
 169   end
 170   $maintainer_email = maintainer_email
 171   unless $maintainer_email
 172     raise "Failed to find the maintainer's name and email from the control file"
 173   end
 174
 175   # If there's a deb with that version in the parent directory, it's a
 176   # fair bet that we've forgotten to update the changelog...
 177
 178   debs = Dir.glob("../#{$package_name}_#{$new_version}_*.deb")
 179   unless debs.empty?
 180     message = "The following package files were found:\n  "
 181     message += debs.join("\n  ")
 182     message += "\nDid you forget to update debian/changelog ?"
 183     raise message
 184   end
 185
 186 end
 187
 188 def build
 189
 190   unless system("dpkg-buildpackage","-rfakeroot")
 191     raise "Building the package failed"
 192   end
 193
 194 end
 195
 196 def release
 197
 198   # Tag this relase:
 199
 200   unless system("git tag -s version-#{$new_version}")
 201     raise "Failed to tag this commit as version-#{$new_version}"
 202   end
 203
 204   # And optionally push those tags:
 205
 206   if $origin_exists
 207     unless system("git push --tags")
 208       raise "Failed to push tags to the origin"
 209     end
 210   end
 211
 212   open("last-released-version","w") do |f|
 213     f.print $new_version
 214   end
 215
 216 end
 217
 218 begin
 219
 220   options = GetoptLong.new(
 221     [ "--help", "-h", GetoptLong::NO_ARGUMENT ],
 222     [ "--check", "-c", GetoptLong::NO_ARGUMENT ],
 223     [ "--build", "-b", GetoptLong::NO_ARGUMENT ],
 224     [ "--release", "-r", GetoptLong::NO_ARGUMENT ],
 225     [ "--changelog", "-l", GetoptLong::REQUIRED_ARGUMENT ]
 226   )
 227
 228   help_option = false
 229   check_option = false
 230   build_option = false
 231   release_option = false
 232   changelog_option = nil
 233
 234   options.each do |opt,arg|
 235     case opt
 236     when "--help"
 237       help_option = true
 238     when "--check"
 239       check_option = true
 240     when "--build"
 241       build_option = true
 242     when "--release"
 243       release_option = true
 244     when "--changelog"
 245       changelog_option = arg
 246     end
 247   end
 248
 249   unless (help_option or check_option or build_option or release_option or changelog_option)
 250     raise "You must specify an option"
 251   end
 252
 253   # --release subsumes --build, which subsumes --check:
 254
 255   if help_option
 256     usage
 257   elsif changelog_option
 258     check
 259     s = changes_since(changelog_option)
 260     puts s
 261   elsif release_option
 262     check
 263     build
 264     release
 265   elsif build_option
 266     check
 267     build
 268   elsif check_option
 269     check
 270   end
 271
 272 rescue Exception => e
 273   puts "Failed: #{e}"
 274 end