X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=current%2Fsrc%2Fproc-census;fp=current%2Fsrc%2Fproc-census;h=0000000000000000000000000000000000000000;hb=b13ea8a082364672c6de2b010e558211ff52ec9a;hp=b642936cd9b32cc0ccec9d832413c771fd578561;hpb=01534a94130c1f5a3a230cf4fe18365a235ba271;p=deb_pkgs%2Fscowl.git

diff --git a/current/src/proc-census b/current/src/proc-census
deleted file mode 100755
index b642936..0000000
--- a/current/src/proc-census
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/bin/perl
-
-@namefiles = qw(21986na.mes 3897male.nam 4946fema.len);
-
-foreach $f (@namefiles) {
-    open IN, "l/proper-names/$f" or die;
-    while (<IN>) {
-	tr /\r\n//d;
-	my $proper = $_;
-	tr /\'//d;
-	tr /[a-z]/[A-Z]/;
-	next if !/^[A-Z]+$/;
-	$proper{$_} = $proper;
-    }
-}
-
-chdir "r/census";
-
-@files = qw(dist.all.last  dist.female.first  dist.male.first);
-
-foreach $f (@files) {
-    open IN, $f;
-    open OUT, ">$f.lst";
-    $i = 0;
-    while (<IN>) {
-        if ($i++ == 1000) {
-            open OUT, ">$f-rest.lst";
-        }
-	($_) = /^(\S+)/;
-	if (exists $proper{$_}) {
-	    print OUT "$proper{$_}\n";
-	} else {
-	    (s/^MC(.)(.+)/Mc$1\L$2\E/ 
-	     or s/(.)(.+)/$1\L$2\E/);
-	    print OUT "$_\n";
-	}
-    }
-    close IN;
-    close OUT;
-    qx"sort $f.lst -o $f.lst";
-    qx"sort $f-rest.lst -o $f-rest.lst";
-}