#!/usr/bin/perl

# Given USC output as standard input, find the # of physical and logical SLOC, and save in
# "physical.sloc" and "logical.sloc".

$found =0;

while (<>) {
  if (m/^The Totals/) {
    $found = 1;
    last;
  } 
}

if (!$found) {
  die "FAILED to find the totals section in code output.\n";
}

while (<>) {
  # DEBUG: print "Read line: $_\n";
  if (m/Physical/ || m/Logical/) {
    s/^ *//;
    ($total, $blank, $whole, $embedded, $compiler, $datadecl, $execinstruction,
     $number_of_files, $sloc, $file_type, $sloc_definition ) =   split(/[ \|]+/);
    # DEBUG: print "Found match; file_type='${file_type}', sloc_definition='${sloc_definition}'\n";
    if ($file_type =~ m/code/i) {
       if ($sloc_definition =~ m/Physical/i) {
              `echo $sloc > physical.sloc`
       }
       if ($sloc_definition =~ m/Logical/i) {
              `echo $sloc > logical.sloc`
       }
    } elsif ($file_type =~ m/DATA/i) {
       if ($number_of_files > 0) {
         print STDERR "WARNING! NONZERO NUMBER OF DATA FILES!\n";
         $pwd = `pwd`;
         chomp($pwd);
         print STDERR "Extract-count in directory ${pwd}.\n";
         # The mere existence of this file is reason to check it out:
         `echo $number_of_files > data.count`
       }
    }
  } 
}


__END__

Here's a sample output (the beginning chopped off):

                                    Temporary Project Name              
The Totals
   Total   Blank |      Comments     |  Compiler  Data    Exec.  |  Number  |          File  SLOC
   Lines   Lines |   Whole  Embedded |  Direct.   Decl.   Instr. | of Files |   SLOC   Type  Definition
------------------------------------------------------------------------------------------------------------------------------------
 1938455  359776 |  146182    164828 |        0   12359  1420138 |   3172   | 1432497  CODE  Physical
 1938455  359776 |  146182    164828 |        0    6507   613235 |   3172   |  619742  CODE  Logical
       0       0 |       0         0 |        0       0        0 |      0   |       0  DATA  Physical