renesas/drm.git - libdrm, cloned from git://anongit.freedesktop.org/mesa/drm

diff options

author	Jeff Hartmann <jhartmann@valinux.com>	2001-01-23 17:53:57 +0000
committer	Jeff Hartmann <jhartmann@valinux.com>	2001-01-23 17:53:57 +0000
commit	642bb6fbb0bfbc6e549e61bd0ece72abcbd399b7 (patch)
tree	b24b3314a7e9698b7941c5706b45677d39b3e07d /linux/i810_drv.c
parent	97379b82c812b5eed0a4a52106afc895469e13fa (diff)

file ati_pcigart.h was initially added on branch ati-pcigart-0-0-1-branch.

Diffstat (limited to 'linux/i810_drv.c')

0 files changed, 0 insertions, 0 deletions

#!/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;


context:
space:
mode: