blob: 39d9b9d165e067cb74793e95ece6d0a668890b4c (
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
|
concrete CharEng of Char = open Prelude in {
lin
BaseChr c = c ;
ConsChr = infixSS "," ;
C_dot = ss "dot" ;
C_pipe = ss "pipe" ;
C_hyphen = ss (variants {"dash" ; "hyphen" ; "minus"}) ;
CSmall = prefixSS "small" ;
CCap = prefixSS "capital" ;
CC c = c ;
CDig_0 = ss "0" ;
CDig_1 = ss "1" ;
CDig_2 = ss "2" ;
CDig_3 = ss "3" ;
CDig_4 = ss "4" ;
CDig_5 = ss "5" ;
CDig_6 = ss "6" ;
CDig_7 = ss "7" ;
CDig_8 = ss "8" ;
CDig_9 = ss "9" ;
L_a = ss "A" ;
L_b = ss "B" ;
L_c = ss "C" ;
L_d = ss "D" ;
L_e = ss "E" ;
L_f = ss "F" ;
L_g = ss "G" ;
L_h = ss "H" ;
L_i = ss "I" ;
L_j = ss "J" ;
L_k = ss "K" ;
L_l = ss "L" ;
L_m = ss "M" ;
L_n = ss "N" ;
L_o = ss "O" ;
L_p = ss "P" ;
L_q = ss "Q" ;
L_r = ss "R" ;
L_s = ss "S" ;
L_t = ss "T" ;
L_u = ss "U" ;
L_v = ss "V" ;
L_w = ss "W" ;
L_x = ss "X" ;
L_y = ss "Y" ;
L_z = ss "Z" ;
}
|
