blob: 380030fe53a75cc37d63c26669df87b243d6c201 (
plain) (
blame)
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
|
--- wordsplit.mlp.orig Sat Mar 13 06:52:19 2004
+++ wordsplit.mlp Sat Mar 13 06:55:09 2004
@@ -35,10 +35,10 @@
aaaaaaeceeeeiiii\
�nooooo�ouuuuypy"
-let normalize s =
- for i = 0 to String.length s - 1 do
+let normalize s = s
+ (* for i = 0 to String.length s - 1 do
s.[i] <- tbl.[Char.code s.[i]]
- done
+ done *)
let all_uppercase s =
try
@@ -87,6 +87,10 @@
#ifdef PORTUGUESE
'�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�'
'�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�'
+#endif
+#ifdef RUSSIAN
+ '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�'
+ '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�' '�'
#endif
]
|
