OLD | NEW |
1 # | 1 # |
2 # Copyright (C) 2005, 2006 Nikolas Zimmermann <zimmermann@kde.org> | 2 # Copyright (C) 2005, 2006 Nikolas Zimmermann <zimmermann@kde.org> |
3 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com> | 3 # Copyright (C) 2006 Anders Carlsson <andersca@mac.com> |
4 # Copyright (C) 2006, 2007 Samuel Weinig <sam@webkit.org> | 4 # Copyright (C) 2006, 2007 Samuel Weinig <sam@webkit.org> |
5 # Copyright (C) 2006 Alexey Proskuryakov <ap@webkit.org> | 5 # Copyright (C) 2006 Alexey Proskuryakov <ap@webkit.org> |
6 # Copyright (C) 2006, 2007, 2008, 2009 Apple Inc. All rights reserved. | 6 # Copyright (C) 2006, 2007, 2008, 2009 Apple Inc. All rights reserved. |
7 # Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au> | 7 # Copyright (C) 2009 Cameron McCormack <cam@mcc.id.au> |
8 # | 8 # |
9 # This library is free software; you can redistribute it and/or | 9 # This library is free software; you can redistribute it and/or |
10 # modify it under the terms of the GNU Library General Public | 10 # modify it under the terms of the GNU Library General Public |
(...skipping 204 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
215 my $class = shift; | 215 my $class = shift; |
216 my $superClass = shift; | 216 my $superClass = shift; |
217 my $defines = shift; | 217 my $defines = shift; |
218 my $isProtocol = shift; | 218 my $isProtocol = shift; |
219 | 219 |
220 my $found = 0; | 220 my $found = 0; |
221 my $actualSuperClass; | 221 my $actualSuperClass; |
222 %publicInterfaces = (); | 222 %publicInterfaces = (); |
223 | 223 |
224 my $fileName = "WebCore/bindings/objc/PublicDOMInterfaces.h"; | 224 my $fileName = "WebCore/bindings/objc/PublicDOMInterfaces.h"; |
225 open FILE, "-|", "/usr/bin/gcc", "-E", "-P", "-x", "objective-c", | 225 if (($Config::Config{'osname'})=~/solaris/i){ |
226 (map { "-D$_" } split(/ +/, $defines)), "-DOBJC_CODE_GENERATION", $fileN
ame or die "Could not open $fileName"; | 226 open FILE, "-|", "/usr/sfw/bin/gcc", "-E", "-P", "-x", "objective-c", |
| 227 (map { "-D$_" } split(/ +/, $defines)), "-DOBJC_CODE_GENERATION", $f
ileName or die "Could not open $fileName"; |
| 228 } else { |
| 229 open FILE, "-|", "/usr/bin/gcc", "-E", "-P", "-x", "objective-c", |
| 230 (map { "-D$_" } split(/ +/, $defines)), "-DOBJC_CODE_GENERATION", $f
ileName or die "Could not open $fileName"; |
| 231 } |
227 my @documentContent = <FILE>; | 232 my @documentContent = <FILE>; |
228 close FILE; | 233 close FILE; |
229 | 234 |
230 foreach $line (@documentContent) { | 235 foreach $line (@documentContent) { |
231 if (!$isProtocol && $line =~ /^\s*\@interface\s*$class\s*:\s*(\w+)\s*([A
-Z0-9_]*)/) { | 236 if (!$isProtocol && $line =~ /^\s*\@interface\s*$class\s*:\s*(\w+)\s*([A
-Z0-9_]*)/) { |
232 if ($superClass ne $1) { | 237 if ($superClass ne $1) { |
233 warn "Public API change. Superclass for \"$class\" differs ($1 !
= $superClass)"; | 238 warn "Public API change. Superclass for \"$class\" differs ($1 !
= $superClass)"; |
234 $fatalError = 1; | 239 $fatalError = 1; |
235 } | 240 } |
236 | 241 |
(...skipping 1436 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1673 # Write dependency file. | 1678 # Write dependency file. |
1674 if (@depsContent) { | 1679 if (@depsContent) { |
1675 open(DEPS, ">$depsFileName") or die "Couldn't open file $depsFileName"; | 1680 open(DEPS, ">$depsFileName") or die "Couldn't open file $depsFileName"; |
1676 print DEPS @depsContent; | 1681 print DEPS @depsContent; |
1677 close(DEPS); | 1682 close(DEPS); |
1678 @depsContent = (); | 1683 @depsContent = (); |
1679 } | 1684 } |
1680 } | 1685 } |
1681 | 1686 |
1682 1; | 1687 1; |
OLD | NEW |