Instantly share code, notes, and snippets.
Created
November 11, 2010 01:22
-
Star
(0)
0
You must be signed in to star a gist -
Fork
(0)
0
You must be signed in to fork a gist
-
Save alanc/671819 to your computer and use it in GitHub Desktop.
Script I use to make X.Org katamari unified changelogs from the collected git repos
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#! /usr/perl5/5.10.0/bin/perl -w | |
# | |
# Copyright (c) 2009, 2010, Oracle and/or its affiliates. All rights reserved. | |
# | |
# Permission is hereby granted, free of charge, to any person obtaining a | |
# copy of this software and associated documentation files (the "Software"), | |
# to deal in the Software without restriction, including without limitation | |
# the rights to use, copy, modify, merge, publish, distribute, sublicense, | |
# and/or sell copies of the Software, and to permit persons to whom the | |
# Software is furnished to do so, subject to the following conditions: | |
# | |
# The above copyright notice and this permission notice (including the next | |
# paragraph) shall be included in all copies or substantial portions of the | |
# Software. | |
# | |
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL | |
# THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER | |
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING | |
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER | |
# DEALINGS IN THE SOFTWARE. | |
# | |
use strict; | |
use warnings; | |
use diagnostics; | |
use CGI; | |
use Getopt::Long; | |
# Currently available output formats: | |
# short - short log (default) | |
# long - full logs | |
# html - short log with cgit links | |
my $output_type = 'short'; | |
my $result = GetOptions ("type=s" => \$output_type); | |
my $usage = "Usage: [--type=short|long|html] <filename>\n"; | |
if ((!$result) || | |
(($output_type ne 'short') && ($output_type ne 'long') && | |
($output_type ne 'html'))) { | |
print STDERR $usage; | |
exit 1; | |
} | |
my @modtypes=qw(app data doc driver font lib proto util xcb .); | |
my %modmap = ( | |
'libXres' => 'libXRes', | |
'util-macros' => 'macros', | |
'xbitmaps' => 'bitmaps', | |
'xcb-proto' => 'proto', | |
'xcursor-themes' => 'cursors', | |
'xorg-server' => 'xserver', | |
'xproto' => 'x11proto', | |
'xtrans' => 'libxtrans', | |
); | |
my %module_info = (); | |
while ($_= <>) { | |
chomp($_); | |
if ($_ =~ m/(\S+)\s+([\-\.\d]+)\s+([\.\d\-\*]+)/) { | |
my ($module, $old, $new) = ($1, $2, $3); | |
my $modtype = "?"; | |
my $moddir = $module; | |
next if $new eq '-'; | |
if (exists($modmap{$module})) { | |
$moddir = $modmap{$module}; | |
} | |
if ($module =~ m/font-(.*)/) { | |
$moddir = $1; | |
$modtype = 'font'; | |
} else { | |
foreach my $m (@modtypes) { | |
if (-d "$m/$moddir") { | |
$modtype = $m; | |
last; | |
} | |
} | |
} | |
if (($modtype ne '?') && (($old ne $new) || ($output_type eq 'html'))) { | |
if ($output_type ne 'html') { | |
print "======= $modtype/$module ($old..$new)\n\n"; | |
} | |
my $oldtag = find_tag($modtype, $moddir, $module, $old); | |
my $newtag = find_tag($modtype, $moddir, $module, $new); | |
# print "$modtype/$module: $oldtag -> $newtag\n"; | |
# system('git', "--git-dir=$modtype/$moddir/.git", 'log', | |
# '--pretty=short', "$oldtag..$newtag"); | |
# special cases for X11R7.6 | |
if ($module eq 'xorg-server') { | |
$oldtag = '9edb9e9b4dde6f73dc5241d078425a7a70699ec9'; | |
} | |
my $tagrange = ($oldtag ne '') ? "$oldtag..$newtag" : "$newtag"; | |
my $output_flags = ($output_type eq 'long') ? '' : '--pretty=short'; | |
my $git_log_cmd = "git --git-dir=$modtype/$moddir/.git log" . | |
" $output_flags $tagrange"; | |
if ($output_type eq 'short') { | |
system("$git_log_cmd | git shortlog"); | |
} elsif ($output_type eq 'long') { | |
system("$git_log_cmd"); | |
} else { | |
my %changes = (); | |
open my $gsl, '-|', $git_log_cmd or die; | |
while (my $ll = <$gsl>) { | |
chomp($ll); | |
my $commit = {}; | |
my $author; | |
if ($ll =~ m{^commit (\w+)$}) { | |
$commit->{id} = $1; | |
while ($ll = <$gsl>) { | |
chomp($ll); | |
last if $ll =~ m{^\s*$}; | |
if ($ll =~ m{^Author:\s*(.*)\s+\<.*\>}) { | |
$author = $1; | |
} elsif ($ll !~ m{^Merge:}) { | |
die "Author match failed: $modtype/$module/$commit->{id}\n$ll\n"; | |
} | |
} | |
my $desc = ""; | |
while ($ll = <$gsl>) { | |
last if $ll =~ m{^\s*$}; | |
$ll =~ s{^ }{}; | |
$desc .= $ll; | |
} | |
chomp($desc); | |
$commit->{desc} = $desc; | |
if (!exists $changes{$author}) { | |
$changes{$author} = [ ]; | |
} | |
unshift @{$changes{$author}}, $commit; | |
} | |
} | |
close $gsl; | |
$module_info{"$modtype/$module"} = | |
{ | |
changes => \%changes, | |
oldtag => $oldtag, | |
newtag => $newtag, | |
modtype => $modtype, | |
moddir => $moddir, | |
module => $module, | |
oldvers => $old, | |
newvers => $new | |
}; | |
} | |
} | |
} else { | |
# print $_, "\n"; | |
} | |
} | |
if ($output_type eq 'html') { | |
my $q = new CGI; | |
my $title = 'Consolidated ChangeLog for X11R7.6'; | |
print $q->start_html(-title => $title, | |
-style=>{-src =>'http://cgit.freedesktop.org/cgit.css', | |
-code => '.modules { float: left; }' | |
}, | |
-encoding => 'utf-8' | |
), | |
$q->h1($title), "\n"; | |
print $q->start_table({ -class => 'modules', -cols => '4' }), "\n", | |
$q->Tr($q->th({-colspan=>"2"}, 'Module'), | |
$q->th([' X11R7.5 ', ' X11R7.6 '])), "\n"; | |
foreach my $m (sort keys %module_info) { | |
my $modname = $module_info{$m}->{module}; | |
my $moddisplay = $m; | |
print $q->Tr($q->td( [ | |
$module_info{$m}->{modtype}, | |
$q->a({href=>"#$modname"}, | |
$module_info{$m}->{moddir}), | |
$module_info{$m}->{oldvers}, | |
$module_info{$m}->{newvers} | |
])), "\n"; | |
if ($modname =~ m{xf86-video-xgixp}) { | |
print $q->end_table(); | |
print $q->start_table({ -class => 'modules', -cols => '4' }). | |
$q->Tr($q->th({-colspan=>"2"}, 'Module'), | |
$q->th([' X11R7.5 ', ' X11R7.6 '])), "\n"; | |
} | |
} | |
print $q->end_table(); | |
print $q->br({-clear => "all"}); | |
foreach my $m (sort keys %module_info) { | |
my $modname = $module_info{$m}->{module}; | |
my $modtype = $module_info{$m}->{modtype}; | |
my $moddir = $module_info{$m}->{moddir}; | |
my $moddisplay = $m; | |
$moddisplay =~ s{^\./}{}; | |
print $q->start_div({-class => "content"}), | |
$q->h2($q->a({name=>$modname}, $moddisplay)), "\n"; | |
print $q->h3('Commits from', | |
($module_info{$m}->{oldtag} eq '') ? | |
'the beginning' : | |
cgit_link($q, $modtype, $moddir, 'tag', | |
$module_info{$m}->{oldtag}, | |
$module_info{$m}->{oldtag} | |
), | |
'to', | |
cgit_link($q, $modtype, $moddir, 'tag', | |
$module_info{$m}->{newtag}, | |
$module_info{$m}->{newtag}, | |
) | |
), "\n"; | |
print $q->start_ul({ -class => 'authors' }); | |
my $changes = $module_info{$m}->{changes}; | |
foreach my $a (sort keys %{$changes}) { | |
my @au_changes = @{$changes->{$a}}; | |
my $count = scalar @au_changes; | |
print $q->li("$a ($count):", | |
$q->ul({ -class => 'commits' }, | |
$q->li([map { | |
cgit_link($q, $modtype, $moddir, 'commit', | |
$_->{id}, $_->{desc}) } @au_changes])) | |
), "\n"; | |
} | |
print $q->end_ul(); | |
print $q->end_div(), "\n"; | |
} | |
print $q->end_html(), "\n"; | |
} | |
sub cgit_link { | |
my ($q, $modtype, $moddir, $type, $id, $body) = @_; | |
# http://cgit.freedesktop.org/xorg/xserver/tag/?id=xorg-server-1.7.1 | |
# http://cgit.freedesktop.org/xorg/xserver/commit/?id=9a2f6135bfb0f12ec28f304c97917d2f7c64db05 | |
if ($modtype ne 'xcb') { | |
$modtype = "xorg/$modtype"; | |
} | |
return $q->a({-href => "http://cgit.freedesktop.org/$modtype/$moddir/$type/?id=$id"}, $q->escapeHTML($body)); | |
} | |
sub find_tag { | |
my ($modtype, $moddir, $module, $vers) = @_; | |
if ($vers eq '*') { | |
return 'HEAD'; | |
} | |
if ($vers eq '-') { | |
return ''; | |
} | |
my $oldvers = $vers; | |
$oldvers =~ s/\./_/g; | |
if (-f "$modtype/$moddir/.git/refs/tags/$module-$vers") { | |
return "$module-$vers"; | |
} elsif (-f "$modtype/$moddir/.git/refs/tags/$vers") { | |
return "$vers"; | |
} else { | |
if (-f "$modtype/$moddir/.git/refs/tags/$module-$oldvers") { | |
return "$module-$oldvers"; | |
} | |
} | |
open(my $tag_fh, '-|', "git --git-dir=$modtype/$moddir/.git tag -l") | |
or die "Failed to run git --git-dir=$modtype/$moddir/.git tag -l"; | |
while (my $t = <$tag_fh>) { | |
chomp($t); | |
if (($t =~ m/$vers$/) || ($t =~ m/$oldvers$/)) { | |
close($tag_fh); | |
return $t; | |
} | |
} | |
close($tag_fh); | |
if (-f "$modtype/$moddir/.git/refs/tags/XORG-7_1") { | |
return 'XORG-7_1'; | |
} | |
return ''; | |
} | |
# if [[ -d "$TOP/$d/.git" && ! -f "$TOP/$d/NO-PULL" ]] ; then | |
# cd $TOP/$d | |
# LAST_TAG="$(git describe --abbrev=0)" | |
# if [[ -z "${LAST_TAG}" ]] ; then | |
# LAST_TAG="$(git describe --abbrev=0 --all HEAD^)" | |
# fi | |
# git log "${LAST_TAG}".. | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment