diff options
author | Karl Berry <karl@freefriends.org> | 2007-12-10 18:22:34 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2007-12-10 18:22:34 +0000 |
commit | 0d2234ba212ce646f9262c2e51c9f88b31128415 (patch) | |
tree | f210072c39a2ccd5f2d6e8e71d542f624afb7fac /Master/texmf-doc/source | |
parent | c1967007b6e58b2a7492744b5330ae4a684c7240 (diff) |
no, not texmf-doc
git-svn-id: svn://tug.org/texlive/trunk@5749 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-doc/source')
-rw-r--r-- | Master/texmf-doc/source/generic/hyphenex/README | 2 | ||||
-rw-r--r-- | Master/texmf-doc/source/generic/hyphenex/hyphenex.pl | 81 | ||||
-rw-r--r-- | Master/texmf-doc/source/generic/hyphenex/hyphenex.sh | 92 |
3 files changed, 0 insertions, 175 deletions
diff --git a/Master/texmf-doc/source/generic/hyphenex/README b/Master/texmf-doc/source/generic/hyphenex/README deleted file mode 100644 index 015cdd20203..00000000000 --- a/Master/texmf-doc/source/generic/hyphenex/README +++ /dev/null @@ -1,2 +0,0 @@ -Scripts to generate hyphenation exceptions from tub, written -by Werner Lemberg. This material is public domain.
\ No newline at end of file diff --git a/Master/texmf-doc/source/generic/hyphenex/hyphenex.pl b/Master/texmf-doc/source/generic/hyphenex/hyphenex.pl deleted file mode 100644 index 7cc546634f7..00000000000 --- a/Master/texmf-doc/source/generic/hyphenex/hyphenex.pl +++ /dev/null @@ -1,81 +0,0 @@ -#! /usr/bin/env perl -# -# -# hyphenex.pl -# -# This small filter converts a hyphenation exception log article for -# TUGBoat to a real \hyphenation block. -# -# Written by Werner Lemberg <wl@gnu.org>. -# -# Version 1.2 (2007/11/16) -# -# Public domain. -# -# -# Usage: -# -# [perl] hyphenex.pl < tugboat-article > hyphenation-exceptions - -# print header -print "% Hyphenation exceptions for US English,\n"; -print "% based on hyphenation exception log articles in TUGboat.\n"; -print "%\n"; -print "% Copyright 2007 TeX Users Group.\n"; -print "% You may freely use, modify and/or distribute this file.\n"; -print "%\n"; -print "% This is an automatically generated file. Do not edit!\n"; -print "%\n"; -print "% Please contact the TUGboat editorial staff <tugboat\@tug.org>\n"; -print "% for corrections and omissions.\n"; -print "\n"; -print "\\hyphenation{\n"; - -while (<>) { - # retain only lines starting with \1 ... \6 or \tabalign - next if not (m/^\\[123456]/ || m/^\\tabalign/); - # remove final newline - chop; - # remove all TeX commands except \1 ... \6 - s/\\[^123456\s{]+//g; - # remove all paired { ... } - 1 while s/{(.*?)}/\1/g; - # skip lines which now have only whitespace before `&' - next if m/^\s*&/; - # remove comments - s/%.*//; - # remove trailing whitespace - s/\s*$//; - # remove trailing `*' (used as a marker in the document) - s/\*$//; - # split at whitespace - @field = split(' '); - if ($field[0] eq "\\1" || $field[0] eq "\\4") { - print " $field[2]\n"; - } - elsif ($field[0] eq "\\2" || $field[0] eq "\\5") { - print " $field[2]\n"; - # handle multiple suffixes separated by commata - @suffix_list = split(/,/, "$field[3]"); - foreach $suffix (@suffix_list) { - print " $field[2]$suffix\n"; - } - } - elsif ($field[0] eq "\\3" || $field[0] eq "\\6") { - # handle multiple suffixes separated by commata - @suffix_list = split(/,/, "$field[3],$field[4]"); - foreach $suffix (@suffix_list) { - print " $field[2]$suffix\n"; - } - } - else { - # for `&', split at `&' with trailing whitespace - @field = split(/&\s*/); - print " $field[1]\n"; - } -} - -# print trailer -print "}\n"; -print "\n"; -print "% EOF\n"; diff --git a/Master/texmf-doc/source/generic/hyphenex/hyphenex.sh b/Master/texmf-doc/source/generic/hyphenex/hyphenex.sh deleted file mode 100644 index 14bd729b985..00000000000 --- a/Master/texmf-doc/source/generic/hyphenex/hyphenex.sh +++ /dev/null @@ -1,92 +0,0 @@ -#! /bin/sh -# -# -# hyphenex.sh -# -# This small filter converts a hyphenation exception log article for -# TUGBoat to a real \hyphenation block. -# -# Written by Werner Lemberg <wl@gnu.org>. -# -# Version 1.4 (2007/11/16) -# -# Public domain. -# -# -# Usage: -# -# sh hyphenex.sh < tugboat-article > hyphenation-exceptions - -cat >/tmp/sed.$$ <<SED_EOF -1 i\\ -% Hyphenation exceptions for US English, based on hyphenation exception\\ -% log articles in TUGboat.\\ -%\\ -% Copyright 2007 TeX Users Group.\\ -% You may freely use, modify and/or distribute this file.\\ -%\\ -% This is an automatically generated file. Do not edit!\\ -%\\ -% Please contact the TUGboat editorial staff <tugboat@tug.org>\\ -% for corrections and omissions.\\ -\\ -\\\\hyphenation{ -\$ i\\ -}\\ -\\ -% EOF -/^\\\\tabalign/ { - s/{}//g - s/[ ][ ]*/ /g - s/ *\\\\[^ ][^ ]*\$// - s/\\\\tabalign *[^ ][^ ]*.*& *\\(.*\\)\$/ \\1/p - b -} -/^\\\\[123456]/ !d -s/\\\\4/\\\\1/ -s/\\\\5/\\\\2/ -s/\\\\6/\\\\3/ -s/[ ][ ]*/ /g -s/^/ / -s/\\\\1 [^ ][^ ]* {\\(.*\\)}\$/\\1/ -s/\\\\2 [^ ][^ ]* {\\(.*\\) \\(.*\\),\\(.*\\),\\(.*\\)}\$/\\1\\n \\1\\2\\n \\1\\3\\n \\1\\4/ -s/\\\\2 [^ ][^ ]* {\\(.*\\) \\(.*\\),\\(.*\\)}\$/\\1\\n \\1\\2\\n \\1\\3/ -s/\\\\2 [^ ][^ ]* {\\(.*\\) \\(.*\\)}\$/\\1\\n \\1\\2/ -s/\\\\3 [^ ][^ ]* {\\(.*\\) \\(.*\\) \\(.*\\)}\$/\\1\\2\\n \\1\\3/ -s/\\\\1 [^ ][^ ]* {\\(.*\\)} .*\$/\\1/ -s/\\\\2 [^ ][^ ]* {\\(.*\\) \\(.*\\),\\(.*\\),\\(.*\\)} .*\$/\\1\\n \\1\\2\\n \\1\\3\\n \\1\\4/ -s/\\\\2 [^ ][^ ]* {\\(.*\\) \\(.*\\),\\(.*\\)} .*\$/\\1\\n \\1\\2\\n \\1\\3/ -s/\\\\2 [^ ][^ ]* {\\(.*\\) \\(.*\\)} .*\$/\\1\\n \\1\\2/ -s/\\\\3 [^ ][^ ]* {\\(.*\\) \\(.*\\) \\(.*\\)} .*\$/\\1\\2\\n \\1\\3/ -s/\\\\1 {.*} {\\(.*\\)}\$/\\1/ -s/\\\\2 {.*} {\\(.*\\) \\(.*\\),\\(.*\\),\\(.*\\)}\$/\\1\\n \\1\\2\\n \\1\\3\\n \\1\\4/ -s/\\\\2 {.*} {\\(.*\\) \\(.*\\),\\(.*\\)}\$/\\1\\n \\1\\2\\n \\1\\3/ -s/\\\\2 {.*} {\\(.*\\) \\(.*\\)}\$/\\1\\n \\1\\2/ -s/\\\\3 {.*} {\\(.*\\) \\(.*\\) \\(.*\\)}\$/\\1\\2\\n \\1\\3/ -s/\\\\1 {.*} {\\(.*\\)} .*\$/\\1/ -s/\\\\2 {.*} {\\(.*\\) \\(.*\\),\\(.*\\),\\(.*\\)} .*\$/\\1\\n \\1\\2\\n \\1\\3\\n \\1\\4/ -s/\\\\2 {.*} {\\(.*\\) \\(.*\\),\\(.*\\)} .*\$/\\1\\n \\1\\2\\n \\1\\3/ -s/\\\\2 {.*} {\\(.*\\) \\(.*\\)} .*\$/\\1\\n \\1\\2/ -s/\\\\3 {.*} {\\(.*\\) \\(.*\\) \\(.*\\)} .*\$/\\1\\2\\n \\1\\3/ -s/\\\\1 [^ ][^ ]* \\([^ ][^ ]*\\)\$/\\1/ -s/\\\\2 [^ ][^ ]* \\([^ ][^ ]*\\) \\([^ ][^ ]*\\),\\([^ ][^ ]*\\),\\([^ ][^ ]*\\)\$/\\1\\n \\1\\2\\n \\1\\3\\n \\1\\4/ -s/\\\\2 [^ ][^ ]* \\([^ ][^ ]*\\) \\([^ ][^ ]*\\),\\([^ ][^ ]*\\)\$/\\1\\n \\1\\2\\n \\1\\3/ -s/\\\\2 [^ ][^ ]* \\([^ ][^ ]*\\) \\([^ ][^ ]*\\)\$/\\1\\n \\1\\2/ -s/\\\\3 [^ ][^ ]* \\([^ ][^ ]*\\) \\([^ ][^ ]*\\) \\([^ ][^ ]*\\)\$/\\1\\2\\n \\1\\3/ -s/\\\\1 [^ ][^ ]* \\([^ ][^ ]*\\) .*\$/\\1/ -s/\\\\2 [^ ][^ ]* \\([^ ][^ ]*\\) \\([^ ][^ ]*\\),\\([^ ][^ ]*\\),\\([^ ][^ ]*\\) .*\$/\\1\\n \\1\\2\\n \\1\\3\\n \\1\\4/ -s/\\\\2 [^ ][^ ]* \\([^ ][^ ]*\\) \\([^ ][^ ]*\\),\\([^ ][^ ]*\\) .*\$/\\1\\n \\1\\2\\n \\1\\3/ -s/\\\\2 [^ ][^ ]* \\([^ ][^ ]*\\) \\([^ ][^ ]*\\) .*\$/\\1\\n \\1\\2/ -s/\\\\3 [^ ][^ ]* \\([^ ][^ ]*\\) \\([^ ][^ ]*\\) \\([^ ][^ ]*\\) .*\$/\\1\\2\\n \\1\\3/ -s/\\*// -s/\\\\llap *{\\(.*\\)}/\\1/ -s/\\\\[^ ]* // -s/\\\\[^ ][^ ]*\$// -s/{.*}// -p -SED_EOF - -sed -n -f /tmp/sed.$$ -rm /tmp/sed.$$ - -# EOF |