phpwiki-talk

[Phpwiki-talk] line count

[Steve W. <sw...@wc...>]

Subtracting comments, comment blocks and blank lines, I count 2,426 lines
of executable code (and a few html comments) in *php3 with this perl
script:

#!/usr/bin/perl

while (<STDIN>) {
    m#\*/# && do { $flag = 0 };
    next if $flag;
    m#/\*# && do { $flag = 1; next };
    next if m#^\s*//#;
    /[a-zA-Z0-9]/ && $count++;
}

print "$count\n";

and:

cat *php3|./linecount.pl


just thought you'd be interested...

sw

...............................ooo0000ooo.................................
   Hear FM quality freeform radio through the Internet: http://wcsb.org/
                     home page: www.wcsb.org/~swain 

Re: [Phpwiki-talk] line count

[Arno H. <aho...@in...>]

>Subtracting comments, comment blocks and blank lines, I count 2,426 lines
>of executable code (and a few html comments) in *php3 with this perl script:

Actually, there's a slight flaw in the script:
	[a-zA-Z0-9]/ && $count++;
should include brackets as well.
And "*/" lines don't count as comment lines in your script.

correcting those two errors I get (without admin/):

4905 lines in total
3108 lines code (63%)
 952 lines comment (19%)
 821 empty lines (17%)
  24 lines not accounted for (mostly closing php tags)

There are a total of 170 functions (96 when counting db-interface functions 
only once), 220 if-statements, 34 for-loops, and 31 while-loops.

Finally, "wc *.php3" says:
  lines   words   bytes
   4905   15526  142812 total

/Arno
p.s. no, I was not bored ;o)

Re: [Phpwiki-talk] line count

[Steve W. <sw...@wc...>]

Wow. How did you do the breakdown? The numbers are interesting and useful.
Also, I didn't think I needed to account for brackets when matching a line
of code, reasoning that any line of code had to have at least one
alphanumeric character.

sw


On Sat, 30 Sep 2000, Arno Hollosi wrote:

> >Subtracting comments, comment blocks and blank lines, I count 2,426 lines
> >of executable code (and a few html comments) in *php3 with this perl script:
> 
> Actually, there's a slight flaw in the script:
> 	[a-zA-Z0-9]/ && $count++;
> should include brackets as well.
> And "*/" lines don't count as comment lines in your script.
> 
> correcting those two errors I get (without admin/):
> 
> 4905 lines in total
> 3108 lines code (63%)
>  952 lines comment (19%)
>  821 empty lines (17%)
>   24 lines not accounted for (mostly closing php tags)
> 
> There are a total of 170 functions (96 when counting db-interface functions 
> only once), 220 if-statements, 34 for-loops, and 31 while-loops.
> 
> Finally, "wc *.php3" says:
>   lines   words   bytes
>    4905   15526  142812 total
> 
> /Arno
> p.s. no, I was not bored ;o)
> _______________________________________________
> Phpwiki-talk mailing list
> Php...@li...
> http://lists.sourceforge.net/mailman/listinfo/phpwiki-talk
> 

...............................ooo0000ooo.................................
   Hear FM quality freeform radio through the Internet: http://wcsb.org/
                     home page: www.wcsb.org/~swain 

Re: [Phpwiki-talk] line count

[Arno H. <aho...@in...>]

>Wow. How did you do the breakdown? The numbers are interesting and useful.

I just discovered that my numbers weren't quite right.
Around 170 functions is ok, but for if/for/while it looks like:

294 if-statements
 58 for-loops
 70 while-loops

My first (wrong) count was done by using grep - but as I'm too dumb using 
grep-regexps I didn't count lines starting with tab characters.

The new count was done like this:
cat *.php3 | perl -ne 'print if /^\s*if\s*\(/;' | wc
cat *.php3 | perl -ne 'print if /^\s*while\s*\(/;' | wc
cat *.php3 | perl -ne 'print if /^\s*for\s*\(/;' | wc

Should be pretty close to the truth.

/Arno