blob: 5275f3b85aa0493dab9cca85769239baefb49f2e (
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
|
;; 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
|
