summaryrefslogtreecommitdiff
path: root/Build/source/utils/xindy-old/make-rules/inputenc/make-inp-rules.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/xindy-old/make-rules/inputenc/make-inp-rules.pl')
-rwxr-xr-xBuild/source/utils/xindy-old/make-rules/inputenc/make-inp-rules.pl31
1 files changed, 0 insertions, 31 deletions
diff --git a/Build/source/utils/xindy-old/make-rules/inputenc/make-inp-rules.pl b/Build/source/utils/xindy-old/make-rules/inputenc/make-inp-rules.pl
deleted file mode 100755
index 41b1d7dc966..00000000000
--- a/Build/source/utils/xindy-old/make-rules/inputenc/make-inp-rules.pl
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/env perl
-
-print <<"EOF";
-;; this file was generated by make-inp-rules.pl
-;; these rules map inputenc generated macros (back) to 8-bit characters
-
-EOF
-
-
-while (<STDIN>) {
- if (/\\indexentry{(.+)--([8-9a-f][0-9a-f])\}\{1\}/) {
- if (!($1 =~ /inputenc Error/)) {
- $i = hex($2);
- $macro = $1;
- $macro =~ s/\~/~~/g;
- $macro =~ s/\"/~\"/g;
- printf("(merge-rule \"%s\" \"%c\" :string)\n",
- $macro, $i);
- if (@ARGV[0] eq "cyracc" &&
- $macro =~ /(cyra |cyre |cyri |cyro |cyru |cyrerev |cyryu |cyrya )/i) {
- printf("(merge-rule \"\\'{%s}\" \"\\'%c\" :string)\n",
- $macro, $i);
- }
- }
- }
-}
-
-print <<"EOF";
-
-;; end of style file.
-EOF