lib_incs.pl to HTML.

index -|- end

Generated: Sat Oct 12 17:23:08 2013 from lib_incs.pl 2012/05/07 1.8 KB. text copy

#!/perl -w
# NAME: lib_incs.pl
# AIM: Get list of INCLUDES in a C/C++ file

# remove /* ... */
# and // to end of line
sub delete_comments_from_line($) {
   my ($tln) = shift;
   my $len = length($tln);
   my ($j,$c,$nc);
   my $nln = '';
   for ($j = 0; $j < $len; $j++) {
      $c = substr($tln,$j,1);
      $nc = (($j + 1) < $len) ? substr($tln,$j+1,1) : '';
      if (($c eq '/')&&($nc eq '*')) {
         # stay and EAT comment until end comment
         $j += 2;
         for (; $j < $len; $j++) {
            $c = substr($tln,$j,1);
            $nc = (($j + 1) < $len) ? substr($tln,$j+1,1) : '';
            if (($c eq '*')&&($nc eq '/')) {
               $j++;
               last;
            }
         }
         next;
      } elsif (($c eq '/')&&($nc eq '/')) {
         $j += 2;
         # stay and EAT comment until EOL
         for (; $j < $len; $j++) {
            $c = substr($tln,$j,1);
            if ($c eq "\n") {
               $j--;
               last;
            }
         }
         next;
      }
      $nln .= $c; # add char to 'new' line
   }
   return $nln;
}

sub get_include_file_list_ra($$) {
   my ($fil,$ra) = @_;
   my ($line,$inc);
   my @arr = ();
   my $iret = 0;
   if (open INF, "<$fil") {
      my @lines = <INF>;
      close INF;
      my %dupes = ();
      foreach $line (@lines) {
         if ($line =~ /\s*#\s*include\s+(.+)$/) {
            $inc = trim_all($1);
            $inc = delete_comments_from_line($inc);
            $inc = trim_all($inc);
            if (!defined $dupes{$inc}) {
                $dupes{$inc} = 1;
                push(@{$ra},$inc);
            }
         }
      }
   } else {
      prt("ERROR: Can NOT open file [$fil]!\n");
      $iret = 1;
   }
   return $iret;
}

1;

# eof - lib_incs.pl

index -|- top