15c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)#!/usr/bin/perl -w 25c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 35c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# Copyright (C) 2005, 2006 Apple Computer, Inc. All rights reserved. 45c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# 55c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# Redistribution and use in source and binary forms, with or without 65c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# modification, are permitted provided that the following conditions 75c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# are met: 85c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# 95c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# 1. Redistributions of source code must retain the above copyright 10fff8884795cb540f87cf6e6d67b629519b00eb8bBen Murdoch# notice, this list of conditions and the following disclaimer. 115c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# 2. Redistributions in binary form must reproduce the above copyright 125c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# notice, this list of conditions and the following disclaimer in the 13fff8884795cb540f87cf6e6d67b629519b00eb8bBen Murdoch# documentation and/or other materials provided with the distribution. 145c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# 3. Neither the name of Apple Computer, Inc. ("Apple") nor the names of 155c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# its contributors may be used to endorse or promote products derived 16fff8884795cb540f87cf6e6d67b629519b00eb8bBen Murdoch# from this software without specific prior written permission. 175c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# 185c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY 195c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 205c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 215c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY 225c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 235c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 245c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND 255c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 265c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 275c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 285c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 295c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# "report-include-statistics" script for WebKit Open Source Project 305c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 315c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)use strict; 325c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)use File::Find; 335c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 345c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)find(\&wanted, @ARGV ? @ARGV : "."); 355c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 365c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)my %paths; 375c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)my %sources; 385c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)my %includes; 395c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 405c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)sub wanted 415c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles){ 425c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $file = $_; 435c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 445c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) if ($file eq "icu") { 455c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $File::Find::prune = 1; 465c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) return; 475c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) } 485c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 495c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) if ($file !~ /^\./ && $file =~ /\.(h|cpp|c|mm|m)$/) { 505c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $paths{$file} = $File::Find::name; 515c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $sources{$file} = $File::Find::name if $file !~ /\.h/; 525c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) open FILE, $file or die; 535c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) while (<FILE>) { 545c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) if (m-^\s*#\s*(include|import)\s+["<]((\S+/)*)(\S+)[">]-) { 555c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $include = ($2 eq "sys/" ? $2 : "") . $4; 565c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $includes{$file}{$include}++; 575c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) } 585c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) } 595c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) close FILE; 605c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) } 615c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)} 625c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 635c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)my %totalIncludes; 645c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 655c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)sub fillOut 665c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles){ 675c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my ($file) = @_; 685c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 695c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) return if defined $totalIncludes{$file}; 705c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 715c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) for my $include (keys %{ $includes{$file} }) { 725c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $totalIncludes{$file}{$include} = 1; 735c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) fillOut($include); 745c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) for my $i (keys %{ $totalIncludes{$include} }) { 755c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $totalIncludes{$file}{$i} = 1; 765c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) } 775c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) } 785c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)} 795c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 805c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)my %inclusionCounts; 815c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)for my $file (keys %includes) { 825c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $inclusionCounts{$file} = 0; 835c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) fillOut($file); 845c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)} 855c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 865c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)for my $file (keys %sources) { 875c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) for my $include (keys %{ $totalIncludes{$file} }) { 885c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) $inclusionCounts{$include}++; 895c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) } 905c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)} 915c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 925c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)for my $file (sort mostincludedcmp keys %includes) { 935c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) next if !$paths{$file}; 945c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $count = $inclusionCounts{$file}; 955c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $numIncludes = keys %{ $includes{$file} }; 965c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $numTotalIncludes = keys %{ $totalIncludes{$file} }; 975c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) print "$file is included $count times, includes $numIncludes files directly, $numTotalIncludes files total.\n" 985c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)} 995c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 1005c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)# Sort most-included files first. 1015c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)sub mostincludedcmp($$) 1025c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles){ 1035c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my ($filea, $fileb) = @_; 1045c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 1055c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $counta = $inclusionCounts{$filea} || 0; 1065c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $countb = $inclusionCounts{$fileb} || 0; 1075c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) return $countb <=> $counta if $counta != $countb; 1085c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 1095c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $ta = keys %{ $totalIncludes{$filea} }; 1105c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) my $tb = keys %{ $totalIncludes{$fileb} }; 1115c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) return $ta <=> $tb if $ta != $tb; 1125c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) 1135c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles) return $filea cmp $fileb; 1145c87bf8b86a7c82ef50fb7a89697d8e02e2553beTorne (Richard Coles)} 115