renesas/kmsxx.git - kmsxx, cloned from https://github.com/tomba/kmsxx

diff options

author	Tomi Valkeinen <tomi.valkeinen@ti.com>	2016-12-20 10:11:32 +0200
committer	Tomi Valkeinen <tomi.valkeinen@ti.com>	2016-12-20 10:13:47 +0200
commit	6350d1b6e4bdecdee82601731a52323ec047b394 (patch)
tree	e35b8f95f61a61fd1ffe45007b4288323c80dc6b /scripts
parent	3174f3efd6768667e568a27ac98ca04d063a9071 (diff)

kmstest: fix bug in setups_to_outputs()

Bad output used to get the crtc, causing crash. Signed-off-by: Tomi Valkeinen <tomi.valkeinen@ti.com>

Diffstat (limited to 'scripts')

0 files changed, 0 insertions, 0 deletions

#!/usr/bin/perl use strict; my $rev = undef; if ($#ARGV >= 0) { $rev = shift @ARGV; } else { open(REV, "git svn log REVISION|") || die; while (<REV>) { next unless (m/^(r[0-9]+)/); #top revision is WD, skip it if (not defined $rev) { $rev = $1; next; } else { $rev = $1; last; } } } die unless $rev =~ m/^r([0-9]+)$/; $rev = $1; sub escapelatex { my $s = shift; $s =~ s/[\\]/\\textbackslash /go; $s =~ s/([&#%{}\$])/\\$1/go; $s =~ s/[~]/\\~{}/go; $s =~ s/(https?:\S*)/\\url{$1}/go; #1st line always on a separate paragraph $s =~ s/\n/\n\n/o; #Guess where new paragraph starts $s =~ s/\\.\n/.\n\n/go; $s =~ s/\n-/\n\n-/go; return $s; } #map editors to authors my %editors = {}; $editors{'rusty'} = 'Rusty Russell <rusty@au1.ibm.com>'; $editors{'hornet'} = 'Pawel Moll <pawel.moll@arm.com>'; $editors{'cornelia.huck'} = 'Cornelia Huck <cornelia.huck@de.ibm.com>'; $editors{'mstsirkin'} = 'Michael S. Tsirkin <mst@redhat.com>'; my $cl = ""; my $signoff = undef; my $editor = undef; my $date = undef; my $r = undef; open(LOG, "git svn log *tex|") || die; my $line = undef; while (<LOG>) { if (m/^------------------------------------------------------------------------$/) { next if ($cl eq ""); # act on it my $author; if (defined $signoff) { $author = $signoff; } else { $author = $editors{$editor}; } #strip mail info $author =~ s/\s*<.*//; $cl = escapelatex($cl); print "$r & $date & $author & { $cl } \\\\\n"; print "\\hline\n"; $cl = ""; $signoff = undef; $editor = undef; $date = undef; $r = undef; $line = 0; next; } $line++; #r164 | mstsirkin | 2013-12-08 14:30:55 +0200 (Sun, 08 Dec 2013)| 6 lines if ($line eq 1) { die unless (m/^r[0-9]/); my @rinfo = split(/\s*\Q|\E\s*/, $_); $r = $rinfo[0]; die unless $r =~ m/^r([0-9]+)$/; $r = $1; last if ($r <= $rev); $editor = $rinfo[1]; $date = $rinfo[2]; die unless ($date =~ m/^[^(]*$[^,]*,\s*([^)]+)$\s*$/); $date = $1; next; } next if (m/^$/); # First signature is the author: needed? # ignore for now #if (not defined $signoff and m/^Signed-off-by:\s*(.*)/) { # $signoff = $1; #} # skip signatures next if (m/^\s*[A-Z][A-Za-z-]*-by:/); # fix bug: wrong date in some commit logs if (/Change accepted on VIRTIO TC Meeting, 3 December 2013/) { $_ = "Change accepted on Virtio TC Meeting Minutes: Feb 25, 2014\n"; } $cl .= $_; }


context:
space:
mode: