Commit 1be654d6 authored by Ian Lynagh's avatar Ian Lynagh

Make count_lines work with the new directory layout

parent fbbe50f3
#! /usr/bin/perl
#
use FindBin;
%DirCount = ();
%ModCount = ();
%DirComments = ();
%ModComments = ();
my $binPath = $FindBin::Bin;
foreach $f ( @ARGV ) {
if ( $f =~ /\.lhs$/ ) {
open(INF, "../utils/unlit/unlit $f - |") || die "Couldn't unlit $f!\n";
open(INF, "$binPath/../../inplace/lib/unlit $f - |") || die "Couldn't unlit $f!\n";
} else {
open(INF, "< $f") || die "Couldn't open $f!\n";
}
......
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