summaryrefslogtreecommitdiff
path: root/scripts/drm-scripts-gentree.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/drm-scripts-gentree.pl')
-rwxr-xr-xscripts/drm-scripts-gentree.pl254
1 files changed, 254 insertions, 0 deletions
diff --git a/scripts/drm-scripts-gentree.pl b/scripts/drm-scripts-gentree.pl
new file mode 100755
index 00000000..cbc10175
--- /dev/null
+++ b/scripts/drm-scripts-gentree.pl
@@ -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);