summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/xindy/modules/rules
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/xindy/modules/rules')
-rw-r--r--Master/texmf-dist/xindy/modules/rules/isolatin1-exchange.xdy88
-rw-r--r--Master/texmf-dist/xindy/modules/rules/isolatin1-tolower.xdy52
-rw-r--r--Master/texmf-dist/xindy/modules/rules/latin-exchange.xdy64
-rw-r--r--Master/texmf-dist/xindy/modules/rules/latin-tolower.xdy37
4 files changed, 241 insertions, 0 deletions
diff --git a/Master/texmf-dist/xindy/modules/rules/isolatin1-exchange.xdy b/Master/texmf-dist/xindy/modules/rules/isolatin1-exchange.xdy
new file mode 100644
index 00000000000..f85c2b2cb1e
--- /dev/null
+++ b/Master/texmf-dist/xindy/modules/rules/isolatin1-exchange.xdy
@@ -0,0 +1,88 @@
+;; isolatin1-exchange.xdy Roger Kehr 14 Jan 98
+;;----------------------------------------------------------------------
+
+;; This style maps swap uppercase with lowercase letters of the ISO
+;; Latin1 alphabet in the range 160-255. These rules do not :again to
+;; prevent looping.
+
+(define-rule-set "isolatin1-exchange"
+
+ :rules (("À" "à" :string)
+ ("Á" "á" :string)
+ ("Â" "â" :string)
+ ("Ã" "ã" :string)
+ ("Ä" "ä" :string)
+ ("Å" "å" :string)
+ ("Æ" "æ" :string)
+
+ ("Ç" "ç" :string)
+
+ ("È" "è" :string)
+ ("É" "é" :string)
+ ("Ê" "ê" :string)
+ ("Ë" "ë" :string)
+
+ ("Ì" "ì" :string)
+ ("Í" "í" :string)
+ ("Î" "î" :string)
+ ("Ï" "ï" :string)
+
+ ("Ð" "ð" :string)
+ ("Ñ" "ñ" :string)
+
+ ("Ò" "ò" :string)
+ ("Ó" "ó" :string)
+ ("Ô" "ô" :string)
+ ("Õ" "õ" :string)
+ ("Ö" "ö" :string)
+ ("Ø" "ø" :string)
+
+ ("Ù" "ù" :string)
+ ("Ú" "ú" :string)
+ ("Û" "û" :string)
+ ("Ü" "ü" :string)
+
+ ("Ý" "ý" :string)
+ ("Þ" "þ" :string)
+
+
+ ("à" "À" :string)
+ ("á" "Á" :string)
+ ("â" "Â" :string)
+ ("ã" "Ã" :string)
+ ("ä" "Ä" :string)
+ ("å" "Å" :string)
+ ("æ" "Æ" :string)
+
+ ("ç" "Ç" :string)
+
+ ("è" "È" :string)
+ ("é" "É" :string)
+ ("ê" "Ê" :string)
+ ("ë" "Ë" :string)
+
+ ("ì" "Ì" :string)
+ ("í" "Í" :string)
+ ("î" "Î" :string)
+ ("ï" "Ï" :string)
+
+ ("ð" "Ð" :string)
+ ("ñ" "Ñ" :string)
+
+ ("ò" "Ò" :string)
+ ("ó" "Ó" :string)
+ ("ô" "Ô" :string)
+ ("õ" "Õ" :string)
+ ("ö" "Ö" :string)
+ ("ø" "Ø" :string)
+
+ ("ù" "Ù" :string)
+ ("ú" "Ú" :string)
+ ("û" "Û" :string)
+ ("ü" "Ü" :string)
+
+ ("ý" "Ý" :string)
+ ("þ" "Þ" :string)
+ ))
+
+;; End
diff --git a/Master/texmf-dist/xindy/modules/rules/isolatin1-tolower.xdy b/Master/texmf-dist/xindy/modules/rules/isolatin1-tolower.xdy
new file mode 100644
index 00000000000..e481a86651a
--- /dev/null
+++ b/Master/texmf-dist/xindy/modules/rules/isolatin1-tolower.xdy
@@ -0,0 +1,52 @@
+;; isolatin1-tolower Roger Kehr 14 Jan 98
+;;----------------------------------------------------------------------
+
+;; This style maps all uppercase letters of the ISO Latin1 alphabet
+;; in the range 160-255 to their lowercase counterparts.
+
+(require "rules/latin-tolower.xdy")
+
+(define-rule-set "isolatin1-tolower"
+
+ :inherit-from ("latin-tolower")
+
+ :rules (("À" "à" :string :again)
+ ("Á" "á" :string :again)
+ ("Â" "â" :string :again)
+ ("Ã" "ã" :string :again)
+ ("Ä" "ä" :string :again)
+ ("Å" "å" :string :again)
+ ("Æ" "æ" :string :again)
+
+ ("Ç" "ç" :string :again)
+
+ ("È" "è" :string :again)
+ ("É" "é" :string :again)
+ ("Ê" "ê" :string :again)
+ ("Ë" "ë" :string :again)
+
+ ("Ì" "ì" :string :again)
+ ("Í" "í" :string :again)
+ ("Î" "î" :string :again)
+ ("Ï" "ï" :string :again)
+
+ ("Ð" "ð" :string :again)
+ ("Ñ" "ñ" :string :again)
+
+ ("Ò" "ò" :string :again)
+ ("Ó" "ó" :string :again)
+ ("Ô" "ô" :string :again)
+ ("Õ" "õ" :string :again)
+ ("Ö" "ö" :string :again)
+ ("Ø" "ø" :string :again)
+
+ ("Ù" "ù" :string :again)
+ ("Ú" "ú" :string :again)
+ ("Û" "û" :string :again)
+ ("Ü" "ü" :string :again)
+
+ ("Ý" "ý" :string :again)
+ ("Þ" "þ" :string :again)
+ ))
+
+;; End
diff --git a/Master/texmf-dist/xindy/modules/rules/latin-exchange.xdy b/Master/texmf-dist/xindy/modules/rules/latin-exchange.xdy
new file mode 100644
index 00000000000..5275f3b85aa
--- /dev/null
+++ b/Master/texmf-dist/xindy/modules/rules/latin-exchange.xdy
@@ -0,0 +1,64 @@
+;; latin-exchange.xdy Roger Kehr 14 Jan 98
+;;----------------------------------------------------------------------
+;;
+;; Exchanges lower and uppercase letters.
+;;
+
+(define-rule-set "latin-exchange"
+
+ :rules (("A" "a" :string)
+ ("B" "b" :string)
+ ("C" "c" :string)
+ ("D" "d" :string)
+ ("E" "e" :string)
+ ("F" "f" :string)
+ ("G" "g" :string)
+ ("H" "h" :string)
+ ("I" "i" :string)
+ ("J" "j" :string)
+ ("K" "k" :string)
+ ("L" "l" :string)
+ ("M" "m" :string)
+ ("N" "n" :string)
+ ("O" "o" :string)
+ ("P" "p" :string)
+ ("Q" "q" :string)
+ ("R" "r" :string)
+ ("S" "s" :string)
+ ("T" "t" :string)
+ ("U" "u" :string)
+ ("V" "v" :string)
+ ("W" "w" :string)
+ ("X" "x" :string)
+ ("Y" "y" :string)
+ ("Z" "z" :string)
+
+ ("a" "A" :string)
+ ("b" "B" :string)
+ ("c" "C" :string)
+ ("d" "D" :string)
+ ("e" "E" :string)
+ ("f" "F" :string)
+ ("g" "G" :string)
+ ("h" "H" :string)
+ ("i" "I" :string)
+ ("j" "J" :string)
+ ("k" "K" :string)
+ ("l" "L" :string)
+ ("m" "M" :string)
+ ("n" "N" :string)
+ ("o" "O" :string)
+ ("p" "P" :string)
+ ("q" "Q" :string)
+ ("r" "R" :string)
+ ("s" "S" :string)
+ ("t" "T" :string)
+ ("u" "U" :string)
+ ("v" "V" :string)
+ ("w" "W" :string)
+ ("x" "X" :string)
+ ("y" "Y" :string)
+ ("z" "Z" :string)
+ ))
+
+;; End
diff --git a/Master/texmf-dist/xindy/modules/rules/latin-tolower.xdy b/Master/texmf-dist/xindy/modules/rules/latin-tolower.xdy
new file mode 100644
index 00000000000..b6559da4336
--- /dev/null
+++ b/Master/texmf-dist/xindy/modules/rules/latin-tolower.xdy
@@ -0,0 +1,37 @@
+;; latin-tolower.xdy Roger Kehr 14 Jan 98
+;;----------------------------------------------------------------------
+;;
+;; Maps all latin letters to their lowercase counterpart
+;;
+
+(define-rule-set "latin-tolower"
+
+ :rules (("A" "a" :string :again)
+ ("B" "b" :string :again)
+ ("C" "c" :string :again)
+ ("D" "d" :string :again)
+ ("E" "e" :string :again)
+ ("F" "f" :string :again)
+ ("G" "g" :string :again)
+ ("H" "h" :string :again)
+ ("I" "i" :string :again)
+ ("J" "j" :string :again)
+ ("K" "k" :string :again)
+ ("L" "l" :string :again)
+ ("M" "m" :string :again)
+ ("N" "n" :string :again)
+ ("O" "o" :string :again)
+ ("P" "p" :string :again)
+ ("Q" "q" :string :again)
+ ("R" "r" :string :again)
+ ("S" "s" :string :again)
+ ("T" "t" :string :again)
+ ("U" "u" :string :again)
+ ("V" "v" :string :again)
+ ("W" "w" :string :again)
+ ("X" "x" :string :again)
+ ("Y" "y" :string :again)
+ ("Z" "z" :string :again)
+ ))
+
+;; End