diff options
author | Upstream <upstream-import@none> | 1970-01-12 13:46:40 +0000 |
---|---|---|
committer | Upstream <upstream-import@none> | 1970-01-12 13:46:40 +0000 |
commit | d8543bb6618c17b12da906afa77d216f58cf4058 (patch) | |
tree | c58dc05ed86825bd0ef8d305d58c8205106b540f /WebKit/win/WebKit.vcproj/FixMIDLHeaders.pl | |
download | external_webkit-d8543bb6618c17b12da906afa77d216f58cf4058.zip external_webkit-d8543bb6618c17b12da906afa77d216f58cf4058.tar.gz external_webkit-d8543bb6618c17b12da906afa77d216f58cf4058.tar.bz2 |
external/webkit r30707
Diffstat (limited to 'WebKit/win/WebKit.vcproj/FixMIDLHeaders.pl')
-rw-r--r-- | WebKit/win/WebKit.vcproj/FixMIDLHeaders.pl | 76 |
1 files changed, 76 insertions, 0 deletions
diff --git a/WebKit/win/WebKit.vcproj/FixMIDLHeaders.pl b/WebKit/win/WebKit.vcproj/FixMIDLHeaders.pl new file mode 100644 index 0000000..863e1dd --- /dev/null +++ b/WebKit/win/WebKit.vcproj/FixMIDLHeaders.pl @@ -0,0 +1,76 @@ +#! /usr/bin/perl -w + +# Copyright (C) 2007 Apple Inc. All rights reserved. +# +# Redistribution and use in source and binary forms, with or without +# modification, are permitted provided that the following conditions +# are met: +# +# 1. Redistributions of source code must retain the above copyright +# notice, this list of conditions and the following disclaimer. +# 2. Redistributions in binary form must reproduce the above copyright +# notice, this list of conditions and the following disclaimer in the +# documentation and/or other materials provided with the distribution. +# 3. Neither the name of Apple puter, Inc. ("Apple") nor the names of +# its contributors may be used to endorse or promote products derived +# from this software without specific prior written permission. +# +# THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY +# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED +# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE +# DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY +# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES +# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; +# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND +# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF +# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. + +# This script cleans up the headers that MIDL (Microsoft's IDL Parser/Generator) +# outputs to only #include the parent interface avoiding circular dependencies +# that MIDL creates. + +use File::Find; +use strict; +use warnings; + +my $dir = $ARGV[0]; + +$dir = `cygpath -u '$dir'`; +chomp($dir); + +find(\&finder, $dir); + +sub finder +{ + my $fileName = $_; + + return unless ($fileName =~ /IGEN_DOM(.*)\.h/); + + open(IN, "<", $fileName); + my @contents = <IN>; + close(IN); + + open(OUT, ">", $fileName); + + my $state = 0; + foreach my $line (@contents) { + if ($line =~ /^\/\* header files for imported files \*\//) { + $state = 1; + } elsif ($line =~ /^#include "oaidl\.h"/) { + die "#include \"oaidl.h\" did not come second" if $state != 1; + $state = 2; + } elsif ($line =~ /^#include "ocidl\.h"/) { + die "#include \"ocidl.h\" did not come third" if $state != 2; + $state = 3; + } elsif ($line =~ /^#include "IGEN_DOM/ && $state == 3) { + $state = 4; + } elsif ($line =~ /^#include "(IGEN_DOM.*)\.h"/ && $state == 4) { + next; + } + + print OUT $line; + } + + close(OUT); +} |