Commit 0cd98957 authored by Ben Gamari's avatar Ben Gamari 🐢 Committed by Marge Bot

Drop utils/count_lines

This doesn't appear to be used anywhere in the build system and it
relies on perl. Drop it.
parent b760269c
Pipeline #3313 passed with stages
in 388 minutes and 6 seconds
......@@ -665,7 +665,6 @@ BUILD_DIRS += utils/hpc
BUILD_DIRS += utils/runghc
BUILD_DIRS += ghc
BUILD_DIRS += docs/users_guide
BUILD_DIRS += utils/count_lines
BUILD_DIRS += utils/compare_sizes
BUILD_DIRS += utils/iserv
......
#!/usr/bin/env perl
use FindBin;
%DirCount = ();
%ModCount = ();
%DirComments = ();
%ModComments = ();
my $binPath = $FindBin::Bin;
foreach $f ( @ARGV ) {
if ( $f =~ /\.lhs$/ ) {
open(INF, "$binPath/../../inplace/lib/unlit $f - |") || die "Couldn't unlit $f!\n";
} else {
open(INF, "< $f") || die "Couldn't open $f!\n";
}
$cnt = 0;
while (<INF>) {
s/--.*//;
s/{-.*-}//;
s/\/\/.*//;
next if /^\s*$/;
$cnt++;
}
close(INF);
$f_wc = `wc $f`; die "wc failed: $f\n" if $? != 0;
if ( $f_wc =~ /\s*(\d+)\s*(\d+)\s*(\d+)/ ) {
$comments = $1 - $cnt;
} else {
die "Can't grok wc format: $f_wc";
}
if ( $f =~ /(.*)\/(.*)/ ) {
local($dir) = $1;
local($mod) = $2;
$DirCount{$dir} += $cnt;
$ModCount{$mod} += $cnt;
$DirComments{$dir} += $comments;
$ModComments{$mod} += $comments;
} else {
print STDERR "not counted in a directory: $f\n";
$ModCount{$f} += $cnt;
$ModComments{$f} += $comments;
}
}
# print the info
$tot = 0;
$totcmts = 0;
printf "\n Code Comments\n";
foreach $d (sort (keys %DirCount)) {
printf "%-20s %6d %6d\n", $d, $DirCount{$d}, $DirComments{$d};
$tot += $DirCount{$d};
$totcmts += $DirComments{$d};
}
printf "\n%-20s %6d %6d\n\n\n", 'TOTAL:', $tot, $totcmts;
$tot = 0;
$totcmts = 0;
printf "\n Code Comments\n";
foreach $m (sort (keys %ModCount)) {
printf "%-20s %6d %6d\n", $m, $ModCount{$m}, $ModComments{$m};
$tot += $ModCount{$m};
$totcmts += $ModComments{$m};
}
printf "\n%-20s %6d %6d\n", 'TOTAL:', $tot, $totcmts;
utils/count_lines_PERL_SRC = count_lines.pl
utils/count_lines_dist_PROGNAME = count_lines
$(eval $(call build-perl,utils/count_lines,dist))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment