drm: update kernel generator script using v4l script
Dave Airlie
parent
7f6bf84c23
commit
921bd07c24
|
|
@ -2,10 +2,10 @@
|
|||
# script to create a Linux Kernel tree from the DRM tree for diffing etc..
|
||||
#
|
||||
# Original author - Dave Airlie (C) 2004 - airlied@linux.ie
|
||||
#
|
||||
# kernel_version to remove below (e.g. 2.6.24)
|
||||
|
||||
if [ $# -lt 1 ] ;then
|
||||
echo usage: $0 output_dir
|
||||
if [ $# -lt 2 ] ;then
|
||||
echo usage: $0 output_dir kernel_version
|
||||
exit 1
|
||||
fi
|
||||
|
||||
|
|
@ -15,43 +15,23 @@ if [ ! -d shared-core -o ! -d linux-core ] ;then
|
|||
fi
|
||||
|
||||
OUTDIR=$1/drivers/char/drm/
|
||||
|
||||
KERNEL_VERS=$2
|
||||
echo "Copying kernel independent files"
|
||||
mkdir -p $OUTDIR
|
||||
mkdir -p $OUTDIR/.tmp
|
||||
|
||||
( cd linux-core/ ; make drm_pciids.h )
|
||||
cp shared-core/*.[ch] $OUTDIR
|
||||
cp linux-core/*.[ch] $OUTDIR
|
||||
cp linux-core/Makefile.kernel $OUTDIR/Makefile
|
||||
cp shared-core/*.[ch] $OUTDIR/.tmp
|
||||
cp linux-core/*.[ch] $OUTDIR/.tmp
|
||||
cp linux-core/Makefile.kernel $OUTDIR/.tmp/Makefile
|
||||
|
||||
echo "Copying 2.6 Kernel files"
|
||||
cp linux-core/Kconfig $OUTDIR/
|
||||
cp linux-core/Kconfig $OUTDIR/.tmp
|
||||
|
||||
./scripts/drm-scripts-gentree.pl $KERNEL_VERS $OUTDIR/.tmp $OUTDIR
|
||||
cd $OUTDIR
|
||||
|
||||
rm -rf .tmp
|
||||
rm via_ds.[ch]
|
||||
for i in via*.[ch]
|
||||
do
|
||||
unifdef -D__linux__ -DVIA_HAVE_DMABLIT -DVIA_HAVE_CORE_MM $i > $i.tmp
|
||||
mv $i.tmp $i
|
||||
done
|
||||
|
||||
rm sis_ds.[ch]
|
||||
for i in sis*.[ch]
|
||||
do
|
||||
unifdef -D__linux__ -DVIA_HAVE_DMABLIT -DSIS_HAVE_CORE_MM $i > $i.tmp
|
||||
mv $i.tmp $i
|
||||
done
|
||||
|
||||
for i in i915*.[ch]
|
||||
do
|
||||
unifdef -D__linux__ -DI915_HAVE_FENCE -DI915_HAVE_BUFFER $i > $i.tmp
|
||||
mv $i.tmp $i
|
||||
done
|
||||
|
||||
for i in drm*.[ch]
|
||||
do
|
||||
unifdef -UDRM_ODD_MM_COMPAT -D__linux__ $i > $i.tmp
|
||||
mv $i.tmp $i
|
||||
done
|
||||
cd -
|
||||
|
|
|
|||
|
|
@ -0,0 +1,254 @@
|
|||
#!/usr/bin/perl
|
||||
#
|
||||
# Original version were part of Gerd Knorr's v4l scripts.
|
||||
#
|
||||
# Several improvements by (c) 2005-2007 Mauro Carvalho Chehab
|
||||
#
|
||||
# Largely re-written (C) 2007 Trent Piepho <xyzzy@speakeasy.org>
|
||||
# Stolen for DRM usage by airlied
|
||||
#
|
||||
# Theory of Operation
|
||||
#
|
||||
# This acts as a sort of mini version of cpp, which will process
|
||||
# #if/#elif/#ifdef/etc directives to strip out code used to support
|
||||
# multiple kernel versions or otherwise not wanted to be sent upstream to
|
||||
# git.
|
||||
#
|
||||
# Conditional compilation directives fall into two catagories,
|
||||
# "processed" and "other". The "other" directives are ignored and simply
|
||||
# output as they come in without changes (see 'keep' exception). The
|
||||
# "processed" variaty are evaluated and only the lines in the 'true' part
|
||||
# are kept, like cpp would do.
|
||||
#
|
||||
# If gentree knows the result of an expression, that directive will be
|
||||
# "processed", otherwise it will be an "other". gentree knows the value
|
||||
# of LINUX_VERSION_CODE, BTTV_VERSION_CODE, the KERNEL_VERSION(x,y,z)
|
||||
# macro, numeric constants like 0 and 1, and a few defines like MM_KERNEL
|
||||
# and STV0297_CS2.
|
||||
#
|
||||
# An exception is if the comment "/*KEEP*/" appears after the expression,
|
||||
# in which case that directive will be considered an "other" and not
|
||||
# processed, other than to remove the keep comment.
|
||||
#
|
||||
# Known bugs:
|
||||
# don't specify the root directory e.g. '/' or even '////'
|
||||
# directives continued with a back-slash will always be ignored
|
||||
# you can't modify a source tree in-place, i.e. source dir == dest dir
|
||||
|
||||
use strict;
|
||||
use File::Find;
|
||||
use Fcntl ':mode';
|
||||
|
||||
my $VERSION = shift;
|
||||
my $SRC = shift;
|
||||
my $DESTDIR = shift;
|
||||
|
||||
if (!defined($DESTDIR)) {
|
||||
print "Usage:\ngentree.pl\t<version> <source dir> <dest dir>\n\n";
|
||||
exit;
|
||||
}
|
||||
|
||||
my $BTTVCODE = KERNEL_VERSION(0,9,17);
|
||||
my ($LINUXCODE, $extra) = kernel_version($VERSION);
|
||||
my $DEBUG = 0;
|
||||
|
||||
my %defs = (
|
||||
'LINUX_VERSION_CODE' => $LINUXCODE,
|
||||
'MM_KERNEL' => ($extra =~ /-mm/)?1:0,
|
||||
'DRM_ODD_MM_COMPAT' => 0,
|
||||
'I915_HAVE_FENCE' => 1,
|
||||
'I915_HAVE_BUFFER' => 1,
|
||||
'VIA_HAVE_DMABLIT' => 1,
|
||||
'VIA_HAVE_CORE_MM' => 1,
|
||||
'VIA_HAVE_FENCE' => 1,
|
||||
'VIA_HAVE_BUFFER' => 1,
|
||||
'SIS_HAVE_CORE_MM' => 1,
|
||||
'DRM_FULL_MM_COMPAT' => 1,
|
||||
'__linux__' => 1,
|
||||
);
|
||||
|
||||
#################################################################
|
||||
# helpers
|
||||
|
||||
sub kernel_version($) {
|
||||
$_[0] =~ m/(\d+)\.(\d+)\.(\d+)(.*)/;
|
||||
return ($1*65536 + $2*256 + $3, $4);
|
||||
}
|
||||
|
||||
# used in eval()
|
||||
sub KERNEL_VERSION($$$) { return $_[0]*65536 + $_[1]*256 + $_[2]; }
|
||||
|
||||
sub evalexp($) {
|
||||
local $_ = shift;
|
||||
s|/\*.*?\*/||go; # delete /* */ comments
|
||||
s|//.*$||o; # delete // comments
|
||||
s/\bdefined\s*\(/(/go; # defined(foo) to (foo)
|
||||
while (/\b([_A-Za-z]\w*)\b/go) {
|
||||
if (exists $defs{$1}) {
|
||||
my $id = $1; my $pos = $-[0];
|
||||
s/$id/$defs{$id}/;
|
||||
pos = $-[0];
|
||||
} elsif ($1 ne 'KERNEL_VERSION') {
|
||||
return(undef);
|
||||
}
|
||||
}
|
||||
return(eval($_) ? 1 : 0);
|
||||
}
|
||||
|
||||
#################################################################
|
||||
# filter out version-specific code
|
||||
|
||||
sub filter_source ($$) {
|
||||
my ($in,$out) = @_;
|
||||
my $line;
|
||||
my $level=0;
|
||||
my %if = ();
|
||||
my %state = ();
|
||||
|
||||
my @dbgargs = \($level, %state, %if, $line);
|
||||
sub dbgline($\@) {
|
||||
my $level = ${$_[1][0]};
|
||||
printf STDERR ("/* BP %4d $_[0] state=$_[1][1]->{$level} if=$_[1][2]->{$level} level=$level (${$_[1][3]}) */\n", $.) if $DEBUG;
|
||||
}
|
||||
|
||||
open IN, '<', $in or die "Error opening $in: $!\n";
|
||||
open OUT, '>', $out or die "Error opening $out: $!\n";
|
||||
|
||||
print STDERR "File: $in, for kernel $VERSION($LINUXCODE)/\n" if $DEBUG;
|
||||
|
||||
while ($line = <IN>) {
|
||||
chomp $line;
|
||||
next if ($line =~ m/^#include \"compat.h\"/o);
|
||||
# next if ($line =~ m/[\$]Id:/);
|
||||
|
||||
# For "#if 0 /*KEEP*/;" the ; should be dropped too
|
||||
if ($line =~ m@^\s*#\s*if(n?def)?\s.*?(\s*/\*\s*(?i)keep\s*\*/;?)@) {
|
||||
$state{$level} = "ifother";
|
||||
$if{$level} = 1;
|
||||
dbgline "#if$1 (keep)", @dbgargs;
|
||||
$line =~ s/\Q$2\E//;
|
||||
$level++;
|
||||
}
|
||||
# handle all ifdef/ifndef lines
|
||||
elsif ($line =~ /^\s*#\s*if(n?)def\s*(\w+)/o) {
|
||||
if (exists $defs{$2}) {
|
||||
$state{$level} = 'if';
|
||||
$if{$level} = ($1 eq 'n') ? !$defs{$2} : $defs{$2};
|
||||
dbgline "#if$1def $2", @dbgargs;
|
||||
$level++;
|
||||
next;
|
||||
}
|
||||
$state{$level} = "ifother";
|
||||
$if{$level} = 1;
|
||||
dbgline "#if$1def (other)", @dbgargs;
|
||||
$level++;
|
||||
}
|
||||
# handle all ifs
|
||||
elsif ($line =~ /^\s*#\s*if\s+(.*)$/o) {
|
||||
my $res = evalexp($1);
|
||||
if (defined $res) {
|
||||
$state{$level} = 'if';
|
||||
$if{$level} = $res;
|
||||
dbgline '#if '.($res?'(yes)':'(no)'), @dbgargs;
|
||||
$level++;
|
||||
next;
|
||||
} else {
|
||||
$state{$level} = 'ifother';
|
||||
$if{$level} = 1;
|
||||
dbgline '#if (other)', @dbgargs;
|
||||
$level++;
|
||||
}
|
||||
}
|
||||
# handle all elifs
|
||||
elsif ($line =~ /^\s*#\s*elif\s+(.*)$/o) {
|
||||
my $exp = $1;
|
||||
$level--;
|
||||
$level < 0 and die "more elifs than ifs";
|
||||
$state{$level} =~ /if/ or die "unmatched elif";
|
||||
|
||||
if ($state{$level} eq 'if' && !$if{$level}) {
|
||||
my $res = evalexp($exp);
|
||||
defined $res or die 'moving from if to ifother';
|
||||
$state{$level} = 'if';
|
||||
$if{$level} = $res;
|
||||
dbgline '#elif1 '.($res?'(yes)':'(no)'), @dbgargs;
|
||||
$level++;
|
||||
next;
|
||||
} elsif ($state{$level} ne 'ifother') {
|
||||
$if{$level} = 0;
|
||||
$state{$level} = 'elif';
|
||||
dbgline '#elif0', @dbgargs;
|
||||
$level++;
|
||||
next;
|
||||
}
|
||||
$level++;
|
||||
}
|
||||
elsif ($line =~ /^\s*#\s*else/o) {
|
||||
$level--;
|
||||
$level < 0 and die "more elses than ifs";
|
||||
$state{$level} =~ /if/ or die "unmatched else";
|
||||
$if{$level} = !$if{$level} if ($state{$level} eq 'if');
|
||||
$state{$level} =~ s/^if/else/o; # if -> else, ifother -> elseother, elif -> elif
|
||||
dbgline '#else', @dbgargs;
|
||||
$level++;
|
||||
next if $state{$level-1} !~ /other$/o;
|
||||
}
|
||||
elsif ($line =~ /^\s*#\s*endif/o) {
|
||||
$level--;
|
||||
$level < 0 and die "more endifs than ifs";
|
||||
dbgline '#endif', @dbgargs;
|
||||
next if $state{$level} !~ /other$/o;
|
||||
}
|
||||
|
||||
my $print = 1;
|
||||
for (my $i=0;$i<$level;$i++) {
|
||||
next if $state{$i} =~ /other$/o; # keep code in ifother/elseother blocks
|
||||
if (!$if{$i}) {
|
||||
$print = 0;
|
||||
dbgline 'DEL', @{[\$i, \%state, \%if, \$line]};
|
||||
last;
|
||||
}
|
||||
}
|
||||
print OUT "$line\n" if $print;
|
||||
}
|
||||
close IN;
|
||||
close OUT;
|
||||
}
|
||||
|
||||
#################################################################
|
||||
|
||||
sub parse_dir {
|
||||
my $file = $File::Find::name;
|
||||
|
||||
return if ($file =~ /CVS/);
|
||||
return if ($file =~ /~$/);
|
||||
|
||||
my $f2 = $file;
|
||||
$f2 =~ s/^\Q$SRC\E/$DESTDIR/;
|
||||
|
||||
my $mode = (stat($file))[2];
|
||||
if ($mode & S_IFDIR) {
|
||||
print("mkdir -p '$f2'\n");
|
||||
system("mkdir -p '$f2'"); # should check for error
|
||||
return;
|
||||
}
|
||||
print "from $file to $f2\n";
|
||||
|
||||
if ($file =~ m/.*\.[ch]$/) {
|
||||
filter_source($file, $f2);
|
||||
} else {
|
||||
system("cp $file $f2");
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
# main
|
||||
|
||||
printf "kernel is %s (0x%x)\n",$VERSION,$LINUXCODE;
|
||||
|
||||
# remove any trailing slashes from dir names. don't pass in just '/'
|
||||
$SRC =~ s|/*$||; $DESTDIR =~ s|/*$||;
|
||||
|
||||
print "finding files at $SRC\n";
|
||||
|
||||
find({wanted => \&parse_dir, no_chdir => 1}, $SRC);
|
||||
Loading…
Reference in New Issue