blob: e481a86651a9c6f933bfd76bb2d2c5c31cbfe5d6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
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
|
