summaryrefslogtreecommitdiff
path: root/language/hyphenation/ruhyphen/reduce-patt
blob: 3d146e09c26b5317026c3b3ed3db01c8d72b8174 (plain)
1
2
3
4
5
6
7
8
#!/usr/bin/perl -n

if (/^\\patterns{/) { $p=1; print; next; }
if (/^}/) { $p=0; print; next; }
if (!$p) { print; next; }

$p=$_; chomp; y/0-9//d; s/^\./^/; s/\.$/\$/;
print $p if (!system "grep", "-q", "$_", "/tmp/.wl-lc-cyryo");