|
Line 0
Link Here
|
|
|
1 |
--- spamoracle-1.2-orig/wordsplit.mlp 2002-08-26 13:35:26 +0400 |
| 2 |
+++ wordsplit.mlp 2002-10-25 21:04:30 +0400 |
| 3 |
@@ -35,10 +35,10 @@ |
| 4 |
aaaaaaeceeeeiiii\ |
| 5 |
ðnooooo÷ouuuuypy" |
| 6 |
|
| 7 |
-let normalize s = |
| 8 |
- for i = 0 to String.length s - 1 do |
| 9 |
- s.[i] <- tbl.[Char.code s.[i]] |
| 10 |
- done |
| 11 |
+let normalize s = s |
| 12 |
+(* for i = 0 to String.length s - 1 do |
| 13 |
+ s.[i] <- tbl.[Char.code s.[i]] |
| 14 |
+ done *) |
| 15 |
|
| 16 |
} |
| 17 |
|
| 18 |
@@ -62,6 +62,10 @@ |
| 19 |
'\164' (* Euro *) |
| 20 |
'Ä' 'Ö' 'Ü' 'ä' 'ö' 'ü' 'ß' |
| 21 |
#endif |
| 22 |
+#ifdef RUSSIAN |
| 23 |
+ 'Á' 'Â' '×' 'Ç' 'Ä' 'Å' '£' 'Ö' 'Ú' 'É' 'Ê' 'Ë' 'Ì' 'Í' 'Î' 'Ï' 'Ð' 'Ò' 'Ó' 'Ô' 'Õ' 'Æ' 'È' 'Ã' 'Þ' 'Û' 'Ý' 'ß' 'Ù' 'Ø' 'Ü' 'À' 'Ñ' |
| 24 |
+ 'á' 'â' '÷' 'ç' 'ä' 'å' '³' 'ö' 'ú' 'é' 'ê' 'ë' 'ì' 'í' 'î' 'ï' 'ð' 'ò' 'ó' 'ô' 'õ' 'æ' 'è' 'ã' 'þ' 'û' 'ý' 'ÿ' 'ù' 'ø' 'ü' 'à' 'ñ' |
| 25 |
+#endif |
| 26 |
] |
| 27 |
|
| 28 |
let uppercase_letter = |
| 29 |
|