X-Git-Url: https://git.donarmstrong.com/?p=deb_pkgs%2Fscowl.git;a=blobdiff_plain;f=src%2Fproc-neol;fp=src%2Fproc-neol;h=7e67965cc3209bffabc01af0c203ae56bf0d9cbd;hp=0000000000000000000000000000000000000000;hb=b13ea8a082364672c6de2b010e558211ff52ec9a;hpb=01534a94130c1f5a3a230cf4fe18365a235ba271

diff --git a/src/proc-neol b/src/proc-neol
new file mode 100755
index 0000000..7e67965
--- /dev/null
+++ b/src/proc-neol
@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+chdir "r/special";
+
+open IN, "neol2015.txt";
+
+my @words50;
+my @words80;
+
+$_ = <IN>;
+chomp;
+while (1) {
+    die unless defined $_;
+    last if $_ eq '';
+    my $word = $_;
+    $word =~ s/ *-> +\[.+\]//;
+    die "??>$word<" unless $word =~ /^[a-z]+$/;
+    push @words50, $word;
+    $_ = <IN>;
+    chomp;
+    my @words;
+    if (/\ +(.+)/) {
+        $_ = $1;
+        @words = split /, */;
+        foreach (@words) {s/ *-> +\[.+\]//}
+        $_ = <IN>;
+        chomp;
+    }
+    foreach (@words) {
+        if (s/\%$//) {push @words80, $_}
+        elsif (/^[a-z]+$/) {push @words50, $_}
+        else {die "???>$_<\n"}
+    }
+}
+
+while (<IN>) {
+    chomp;
+    next unless /^[A-Za-z\']+$/;
+    push @words50, $_;
+}
+
+open OUT, ">neol-50.lst";
+foreach (sort @words50) {print OUT "$_\n"}
+
+open OUT, ">neol-80.lst";
+foreach (sort @words80) {print OUT "$_\n"}