Gervase Markham wrote:
>
> JTK wrote:
>
> > Total number of files: 33202
> > Total number of licensed files: 14393
> > Total number of NPLed files: 9640
> > Total number of MPLed files: 4753
> > Total number of GPLed files: 2047
> > Total number of LGPLed files: 0
> > Total number of BSD files: 56
> > Total number of MIT files: 8
> >
> > Percent licensed under the NPL: 67%
> > Percent of MPL files also GPLed: 43%
> >
> > Notes:
> > - Whoah: is the squeaky wheel finally getting a little grease?!?
> > Fifty-one FEWER NPLed files this time, 14 MORE MPLed, and 3 more
> > GPLed. Perhaps the proverbial single step on that journey of 9,640
> > miles?
>
Damn, it would have been a better joke had I said "9,640 /files/". Ah
well, live and learn if you're not careful.
> Well, if it's 9640 miles, then we've gone 51 miles, not a single step. :-)
>
Always the technicalities with you Gerv. ;-)
> > - Script is now Perlescent (in addition to its former
> > Bootyliscousness), hence better, stronger, faster. Yep, I learned a
> > little Perl due solely to Mozilla, and will now never write another
> > shell script. So don't say Mozilla never did nothing for me.
>
> We won't say that - the question is, will you?
>
Not in mixed company. ;-)
> > - Script has been made a bit more discerning at the request of Mr.
> > Markham, resulting in the new counts for LGPL (none),
>
> That's not true. There are at least two. Can you find them?
>
Ah, I can now. And it's more like 70-some. I was looking for "Lesser"
and not taking crusty old "Library" into account. Fixed and fixed. But
be it 70 or 0, I still call it "negligible".
> (This is so like "Where's Wally", which I think you guys call "Where's
> Waldo...)
>
Well, except the licenses aren't wearing striped shirts and goofy
stocking caps.
> > BSD (56), and
> > MIT (8) licenses.
>
> Your script will have to be quite smart to catch all the BSD variants.
Oh it is Gerv, it is. In fact, it may be the smartest Perl script ever
devised. But as far as BSD goes, it just looks for "Regents of the
University of California". Will that not catch any and all variants?
> Here are a few more fun things to think about:
>
> Are you excluding the CVS special files in the CVS directories?
Um, no, why? Nothing in them is licensed at all to my knowledge. But
excluding them might speed up the script a bit, and get the total source
file count a bit more accurate, so I'll get that in there.
> How about the binary macbuild files in macbuild directories?
Why would I have mac binaries on my WhyME machine?
> What about gifs, jpegs, pngs and other assorted binaries with about 20
> different file extensions?
Here's the binary situation: Any obj's, exe's, and dll's are explicitly
excluded. Everything else is left to the auspices of grep's -I option.
But it probably wouldn't hurt to explicitly exclude known binary files,
again in the interest of speed if nothing else, so I'll add some of that
too.
That said, any graphics files in there are covered by some sort of
license, right? How is that specified?
> Have you taken into account the large amount of dual licensing in the tree?
Yes. All licenses are counted separately.
> If your tree is from yesterday or before, can you find the one file that
> is triply-licensed?
>
Can I pick it out? No. Is it counted? Yes.
As for the age of the tree, all of my License Statsistics posts except
for the first one were from checkouts done immediately before running
the script, and the descrepancy on that first one was of course duly
noted.
> This is fun :-)
>
It'll get more fun the fewer NPLed files show up in my posts. Oh wait,
and it'll get even funner than that if I attach the script! Take a look
and see what you think. This version incoporates a few of these
suggestions, so is not exactly the one which generated the above
numbers.
But be warned: it's GPLed. Only GPLed.
> Gerv
#!/usr/local/bin/perl
# lstats: A cool Perl script to summarize the licensing status of a project
# Copyright (C) 2000 Gary R. Van Sickle
# (tiberius at remove_this_if_you_are_not_a_spammer_braemarinc dot com)
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
use File::Find;
use Time::localtime;
use Cwd;
$ALL_FILES;
$NUM_FILES=0;
$NUM_NEW_FILES=0;
$NUM_NPL_FILES=0;
$NUM_MPL_FILES=0;
$NUM_GPL_FILES=0;
$NUM_LGPL_FILES=0;
$NUM_BSD_FILES=0;
$NUM_MIT_FILES=0;
$NUM_LICENSED_FILES=0;
$PCT_NPL=0;
$PCT_MPL_GPL=0;
$ELAPSED_TIME=time;
$ROOT_DIR=@ARGV[0];
if(length($ROOT_DIR) == 0)
{
$ROOT_DIR = ".";
}
sub ScanFiles
{
my (@NPL_FILES, @MPL_FILES, @GPL_FILES, @LGPL_FILES, @BSD_FILES, @MIT_FILES);
#%NPLL_FILES = `grep -lisI "Mozilla Public" $_[0]`;
#print "$NPLL_FILES[0]\n";
print "N";
@NPL_FILES = `grep -lisI "Netscape Public" $_[0]`;
$NUM_NPL_FILES += scalar(@NPL_FILES);
print "M";
@MPL_FILES = `grep -lisI "Mozilla Public" $_[0]`;
$NUM_MPL_FILES += scalar(@MPL_FILES);
print "G";
@GPL_FILES = `grep -lisI "GNU General Public License" $_[0]`;
$NUM_GPL_FILES += scalar(@GPL_FILES);
print "L";
@LGPL_FILES = `egrep -lisI "GNU Lesser General Public|GNU Library General
Public" $_[0]`;
$NUM_LGPL_FILES += scalar(@LGPL_FILES);
print "B";
@BSD_FILES = `grep -lisI "Regents of the University of California" $_[0]`;
$NUM_BSD_FILES += scalar(@BSD_FILES);
print "m";
@MIT_FILES = `grep -lisI "Massachusetts Institute of Technology" $_[0]`;
$NUM_MIT_FILES += scalar(@MIT_FILES);
}
sub do_stats
{
unless(grep(/\.obj$|\.exe$|\.dll$|\.jpg$|\.gif$|\.png$/i, $_))
{
$NUM_FILES++;
$ALL_FILES=$ALL_FILES."\"".getcwd."/".$_."\" ";
$NUM_NEW_FILES++;
if($NUM_NEW_FILES == 500)
{
ScanFiles($ALL_FILES);
$ALL_FILES = "";
$NUM_NEW_FILES = 0;
}
}
}
find(\&do_stats, $ROOT_DIR);
# Finish up any remainder files
if($NUM_NEW_FILES > 0)
{
ScanFiles($ALL_FILES);
}
print "\n";
$ELAPSED_TIME=time-$ELAPSED_TIME;
$NUM_LICENSED_FILES = $NUM_NPL_FILES + $NUM_MPL_FILES;
if($NUM_LICENSED_FILES > 0)
{
$PCT_NPL = ($NUM_NPL_FILES*100)/$NUM_LICENSED_FILES;
}
else
{
$PCT_NPL = "--";
}
if($NUM_MPL_FILES > 0)
{
$PCT_MPL_GPL = ($NUM_GPL_FILES*100)/$NUM_MPL_FILES;
}
else
{
$PCT_MPL_GPL = "--";
}
printf "\nLicensing Statistics (%d-%.2d-%.2d)\n", localtime->year+1900,
localtime->mon+1, localtime->mday;
print "Elapsed time: ", $ELAPSED_TIME, " seconds\n";
print "Total number of files: ", $NUM_FILES, "\n";
print "Total number of licensed files: ", $NUM_LICENSED_FILES, "\n";
print "Total number of NPLed files: ", $NUM_NPL_FILES, "\n";
print "Total number of MPLed files: ", $NUM_MPL_FILES, "\n";
print "Total number of GPLed files: ", $NUM_GPL_FILES, "\n";
print "Total number of LGPLed files: ", $NUM_LGPL_FILES, "\n";
print "Total number of BSD files: ", $NUM_BSD_FILES, "\n";
print "Total number of MIT files: ", $NUM_MIT_FILES, "\n";
print "\n";
printf("Percent licensed under the NPL: %2.0f%%\n", $PCT_NPL);
printf("Percent of MPL files also GPLed: %2.0f%%\n", $PCT_MPL_GPL);
