summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/generic/ruhyphen/sorthyph
blob: 13680ee5931c8cacf1574a196cec460b36f55fc6 (plain)
1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
# sort a hyphenation file
$| = 1;
while (<>) { print; last if /^\\patterns{/ }
open (SORT, "| sh sortkoi8 | awk '{print \$2}'");
while (<>) { last if /^}/; chomp; $temp=$_; s/[0-9.]//g; print SORT "$_\t$temp\n" }
close (SORT);
print;
while (<>) { print }