blob: f85c2b2cb1e4b345aef9fdb86da79516216f7d50 (
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
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
|
