diff options
Diffstat (limited to 'mail/spamoracle/files/patch-wordsplit.mlp')
| -rw-r--r-- | mail/spamoracle/files/patch-wordsplit.mlp | 32 |
1 files changed, 15 insertions, 17 deletions
diff --git a/mail/spamoracle/files/patch-wordsplit.mlp b/mail/spamoracle/files/patch-wordsplit.mlp index 795bed332ab7..380030fe53a7 100644 --- a/mail/spamoracle/files/patch-wordsplit.mlp +++ b/mail/spamoracle/files/patch-wordsplit.mlp @@ -1,29 +1,27 @@ ---- spamoracle-1.2-orig/wordsplit.mlp 2002-08-26 13:35:26 +0400 -+++ wordsplit.mlp 2002-10-25 21:04:30 +0400 +--- 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 -- s.[i] <- tbl.[Char.code s.[i]] -- done +let normalize s = s -+(* for i = 0 to String.length s - 1 do -+ s.[i] <- tbl.[Char.code s.[i]] -+ done *) - - } ++ (* for i = 0 to String.length s - 1 do + s.[i] <- tbl.[Char.code s.[i]] +- done ++ done *) -@@ -62,6 +62,10 @@ - '\164' (* Euro *) - 'Ä' 'Ö' 'Ü' 'ä' 'ö' 'ü' 'ß' - #endif + let all_uppercase s = + try +@@ -87,6 +87,10 @@ + #ifdef PORTUGUESE + 'À' 'Á' 'Â' 'Ã' 'Ç' 'É' 'Ê' 'Í' 'Ó' 'Ô' 'Õ' 'Ú' 'Ü' + 'à' 'á' 'â' 'ã' 'ç' 'é' 'ê' 'í' 'ó' 'ô' 'õ' 'ú' 'ü' ++#endif +#ifdef RUSSIAN + 'Á' 'Â' '×' 'Ç' 'Ä' 'Å' '£' 'Ö' 'Ú' 'É' 'Ê' 'Ë' 'Ì' 'Í' 'Î' 'Ï' 'Ð' 'Ò' 'Ó' 'Ô' 'Õ' 'Æ' 'È' 'Ã' 'Þ' 'Û' 'Ý' 'ß' 'Ù' 'Ø' 'Ü' 'À' 'Ñ' + 'á' 'â' '÷' 'ç' 'ä' 'å' '³' 'ö' 'ú' 'é' 'ê' 'ë' 'ì' 'í' 'î' 'ï' 'ð' 'ò' 'ó' 'ô' 'õ' 'æ' 'è' 'ã' 'þ' 'û' 'ý' 'ÿ' 'ù' 'ø' 'ü' 'à' 'ñ' -+#endif - ] + #endif + ] - let uppercase_letter = - |