diff options
Diffstat (limited to 'Master/texmf/xindy/modules/rules')
4 files changed, 241 insertions, 0 deletions
diff --git a/Master/texmf/xindy/modules/rules/isolatin1-exchange.xdy b/Master/texmf/xindy/modules/rules/isolatin1-exchange.xdy new file mode 100644 index 00000000000..f85c2b2cb1e --- /dev/null +++ b/Master/texmf/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/xindy/modules/rules/isolatin1-tolower.xdy b/Master/texmf/xindy/modules/rules/isolatin1-tolower.xdy new file mode 100644 index 00000000000..e481a86651a --- /dev/null +++ b/Master/texmf/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/xindy/modules/rules/latin-exchange.xdy b/Master/texmf/xindy/modules/rules/latin-exchange.xdy new file mode 100644 index 00000000000..5275f3b85aa --- /dev/null +++ b/Master/texmf/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/xindy/modules/rules/latin-tolower.xdy b/Master/texmf/xindy/modules/rules/latin-tolower.xdy new file mode 100644 index 00000000000..b6559da4336 --- /dev/null +++ b/Master/texmf/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 |