source: sandbox/expressoMail1_2/corretor_ortografico/spell_checker/spell_checker.php @ 2557

Revision 2557, 18.6 KB checked in by nathalie.silva, 14 years ago (diff)

Ticket #891 - alterada a função spell_checker no php - Nathalie

Line 
1<?php
2/**********************************************************************************************
3 * AJAX Spell Checker - Version 2.8
4 * (C) 2005 - Garrison Locke
5 *
6 * This spell checker is built in the style of the Gmail spell
7 * checker.  It uses AJAX to communicate with the backend without
8 * requiring the page be reloaded.  If you use this code, please
9 * give me credit and a link to my site would be nice.
10 * http://www.broken-notebook.com.
11 *
12 * Copyright (c) 2005, Garrison Locke
13 * All rights reserved.
14 *
15 * Redistribution and use in source and binary forms, with or without
16 * modification, are permitted provided that the following conditions are met:
17 *
18 *   * Redistributions of source code must retain the above copyright notice,
19 *     this list of conditions and the following disclaimer.
20 *   * Redistributions in binary form must reproduce the above copyright notice,
21 *     this list of conditions and the following disclaimer in the documentation
22 *     and/or other materials provided with the distribution.
23 *   * Neither the name of the http://www.broken-notebook.com nor the names of its
24 *     contributors may be used to endorse or promote products derived from this
25 *     software without specific prior written permission.
26 *
27 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
28 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
29 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
30 * IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
31 * INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
32 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
33 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
34 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
35 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY
36 * OF SUCH DAMAGE.
37 *
38 ***********************************************************************************************/
39
40// User-configurable list of allowed HTML tags and attributes.
41// Thanks to Jake Olefsky for this little addition
42//$allowed_html = '<strong><small><p><br><a><b><u><i><img><code><ul><ol><li>';  //Removed. Accept alll HTML tags.
43
44// Set the max number of suggestions to return at a time.
45define('MAX_SUGGESTIONS', 3);
46
47// Set whether to use a personal dictionary.
48$usePersonalDict = false;
49
50//Set whether users are allowed to update the personal dictionary.
51$editablePersonalDict = false;
52
53// If using a personal dictionary, set the path to it.  Default is in the
54// personal_dictionary subdirectory of the location of spell_checker.php.
55$path_to_personal_dictionary = dirname(__FILE__) . "/personal_dictionary/personal_dictionary.txt";
56
57//If pspell doesn't exist, then include the pspell wrapper for aspell.
58if(!function_exists('pspell_suggest'))
59{
60        // Set the path to aspell if you need to use it.
61        define('ASPELL_BIN','/usr/bin/aspell');
62        require_once ("pspell_comp.php");
63}
64
65// Create and configure a link to the pspell module.
66
67//$pspell_config = pspell_config_create("en");
68pspell_config_mode($pspell_config, PSPELL_FAST);
69
70if($usePersonalDict)
71{
72        // Allows the use of a custom dictionary (Thanks to Dylan Thurston for this addition).
73        pspell_config_personal($pspell_config, $path_to_personal_dictionary);
74}
75
76//$pspell_link = pspell_new_config($pspell_config);
77
78
79require_once("cpaint/cpaint2.inc.php"); //AJAX library file
80
81$cp = new cpaint();
82$cp->register('showSuggestions');
83$cp->register('spellCheck');
84$cp->register('switchText');
85$cp->register('addWord');
86$cp->start();
87$cp->return_data();
88
89
90/*************************************************************
91 * showSuggestions($word, $id)
92 *
93 * The showSuggestions function creates the list of up to 10
94 * suggestions to return for the given misspelled word.
95 *
96 * $word - The misspelled word that was clicked on
97 * $id - The id of the span containing the misspelled word.
98 *
99 *************************************************************/
100function showSuggestions($word, $id, $language)
101{
102        global $editablePersonalDict; //bool to set editability of personal dictionary
103        //global $pspell_link; //the global link to the pspell module
104        $pspell_link = pspell_new($language);
105        global $cp; //the CPAINT object
106       
107        $retVal = "";
108       
109        $suggestions = pspell_suggest($pspell_link, $word);  //an array of all the suggestions that psepll returns for $word.
110       
111        // If the number of suggestions returned by pspell is less than the maximum
112        // number, just use the number of suggestions returned.
113        $numSuggestions = count($suggestions);
114        $tmpNum = min($numSuggestions, MAX_SUGGESTIONS);
115                       
116        if($tmpNum > 0)
117        {
118                //this creates the table of suggestions.
119                //in the onclick event it has a call to the replaceWord javascript function which does the actual replacing on the page
120                for($i=0; $i<$tmpNum; $i++)
121                {
122                        $retVal .= "<div class=\"suggestion\" onclick=\"replaceWord('" . addslashes_custom($id) . "', '" . addslashes(utf8_encode($suggestions[$i])) . "'); return false;\">" . utf8_encode($suggestions[$i]) . " </div>";
123                }
124       
125                if($editablePersonalDict)
126                {
127                        $retVal .= "<div class=\"addtoDictionary\" onclick=\"addWord('" . addslashes_custom($id) . "'); return false;\">Add To Dictionary</div>";
128                }
129
130                //Ignore the suggestion - Added by Nathalie
131                $retVal .= "<div class=\"ignore\" onclick=\"ignore('" .  addslashes_custom($id)  . "', '" .   addslashes($word)   . "'); return false;\"> Ignorar </div>";
132
133
134        }
135        else
136        {
137                $retVal .= "Sem sugestão";
138                $retVal .= "<div class=\"ignore\" onclick=\"ignore('" .  addslashes_custom($id)  . "', '" .   addslashes($word)   . "'); return false;\"> Ignorar </div>";
139        }
140       
141        $cp->set_data($retVal);  //the return value - a string containing the table of suggestions.
142       
143} // end showSuggestions
144
145 
146/*************************************************************
147 * spellCheck($string)
148 *
149 * The spellCheck function takes the string of text entered
150 * in the text box and spell checks it.  It splits the text
151 * on anything inside of < > in order to prevent html from being
152 * spell checked.  Then any text is split on spaces so that only
153 * one word is spell checked at a time.  This creates a multidimensional
154 * array.  The array is flattened.  The array is looped through
155 * ignoring the html lines and spell checking the others.  If a word
156 * is misspelled, code is wrapped around it to highlight it and to
157 * make it clickable to show the user the suggestions for that
158 * misspelled word.
159 *
160 * $string - The string of text from the text box that is to be
161 *           spell checked.
162 *
163 *************************************************************/
164function spellCheck($string, $varName, $language, $browser)
165{
166        //global $pspell_link; //the global link to the pspell module
167        $pspell_link = pspell_new($language);
168        global $cp; //the CPAINT object
169        $retVal = "";
170
171        $string = stripslashes_custom($string); //we only need to strip slashes if magic quotes are on
172
173        $string = remove_word_junk($string);
174
175        //make all the returns in the text look the same
176        $string = preg_replace("/\r?\n/", "\n", $string);
177   
178        //splits the string on any html tags, preserving the tags and putting them in the $words array
179        $words = preg_split("/(<[^<>]*>)/", $string, -1, PREG_SPLIT_DELIM_CAPTURE);
180   
181        $numResults = count($words); //the number of elements in the array.
182
183        $misspelledCount = 0;
184
185
186        /* There is a problem with innerHTML of IE browsers - It removes the spaces.
187         * If there are two misspelled words side by side, it makes then together (no space
188         * between then). This will be checked using this variable.
189         * */
190        $difference = 0;
191   
192        //this loop looks through the words array and splits any lines of text that aren't html tags on space, preserving the spaces.
193        for($i=0; $i<$numResults; $i++){
194                // Words alternate between real words and html tags, starting with words.
195                if(($i & 1) == 0) // Even-numbered entries are word sets.
196                {
197                        $words[$i] = preg_split("/(\s+)/", $words[$i], -1, PREG_SPLIT_DELIM_CAPTURE); //then split it on the spaces
198
199                        // Now go through each word and link up the misspelled ones.
200                        $numWords = count($words[$i]);
201                        for($j=0; $j<$numWords; $j++)
202                        {
203                                $word = utf8_decode($words[$i][$j]);
204
205                                $reg_expr = utf8_decode('A-ZáàâãÀéÚêëíìïîóòÎõöúùûÌÜÿçñÁÀÂÃÄÉÈÊËÍÌÏÎÓÒÔÕÖÚÙÛÜÝÇÑ');
206
207                                preg_match("/[$reg_expr]*/i", $word , $tmp); //get the word that is in the array slot $i
208
209                                $tmpWord = $tmp[0]; //should only have one element in the array anyway, so it's just assign it to $tmpWord
210                                $words[$i][$j] = utf8_decode($words[$i][$j]);
211
212                                //And we replace the word in the array with the span that highlights it and gives it an onClick parameter to show the suggestions.
213                                if(!pspell_check($pspell_link, $tmpWord)) // Adicionar Nathalie
214                                {                                       
215                                        $onClick = "onclick=\"setCurrentObject(" . $varName . "); showSuggestions('" . addslashes($tmpWord) . "', '" . $varName . "_" . $misspelledCount . "_" . addslashes($tmpWord) . "'); return false;\"";
216
217                                        $difference =  $misspelledCount + 1;
218                                        if (($difference - $misspelledCount) == 1 and $browser == "ie") //if IE, adds a html space before Span tag
219                                            $words[$i][$j] = str_replace($tmpWord, "<span " . $onClick . " id=\"" . $varName . "_" . $misspelledCount . "_" . $tmpWord . "\" class=\"highlight\">" . stripslashes($tmpWord) . " </span>&nbsp;", $words[$i][$j]);
220                                        else
221                                            $words[$i][$j] = str_replace($tmpWord, "<span " . $onClick . " id=\"" . $varName . "_" . $misspelledCount . "_" . $tmpWord . "\" class=\"highlight\">" . stripslashes($tmpWord) . " </span>", $words[$i][$j]);
222
223                                        $misspelledCount++;
224                                       
225                                }                               
226                               
227                                $words[$i][$j] = str_replace("\n", "<br />", $words[$i][$j]); //replace any breaks with <br />'s, for html display
228                               
229                        }//end for $j
230                }//end if
231               
232                else //otherwise, we wrap all the html tags in comments to make them not displayed
233                {
234                        $words[$i] = str_replace("<", "<!--<", $words[$i]);
235                        $words[$i] = str_replace(">", ">-->", $words[$i]);
236                }
237        }//end for $i
238
239        $words = flattenArray($words); //flatten the array to be one dimensional.
240        $numResults = count($words); //the number of elements in the array after it's been flattened.
241       
242        $string = ""; //return string 
243   
244        //if there were no misspellings, start the string with a 0.
245        if($misspelledCount == 0)
246        {
247                $string = "0";
248        }
249       
250        else //else, there were misspellings, start the string with a 1.
251        {
252                $string = "1";
253        }
254       
255        // Concatenate all the words/tags/etc. back into a string and append it to the result.
256        $string .= implode('', $words);
257
258        $string = preg_replace("/<!--</i", "<", $string);  //Retira os comentários das tags HTML
259        $string = preg_replace("/>-->/i", ">", $string);
260       
261        ////Function Removed from the original. Accept alll HTML tags.
262        //remove comments from around all html tags except for <a> because we don't want the links to be clickable
263        //but we want the html to be rendered in the div for preview purposes.
264        /*$string = preg_replace("/<!--<br( [^>]*)?>-->/i", "<br />", $string);
265        $string = preg_replace("/<!--<p( [^>]*)?>-->/i", "<p>", $string);
266        $string = preg_replace("/<!--<\/p>-->/i", "</p>", $string);
267        $string = preg_replace("/<!--<b( [^>]*)?>-->/i", "<b>", $string);
268        $string = preg_replace("/<!--<\/b>-->/i", "</b>", $string);
269        $string = preg_replace("/<!--<strong( [^>]*)?>-->/i", "<strong>", $string);
270        $string = preg_replace("/<!--<\/strong>-->/i", "</strong>", $string);
271        $string = preg_replace("/<!--<i( [^>]*)?>-->/i", "<i>", $string);
272        $string = preg_replace("/<!--<\/i>-->/i", "</i>", $string);
273        $string = preg_replace("/<!--<small( [^>]*)?>-->/i", "<small>", $string);
274        $string = preg_replace("/<!--<\/small>-->/i", "</small>", $string);
275        $string = preg_replace("/<!--<ul( [^>]*)?>-->/i", "<ul>", $string);
276        $string = preg_replace("/<!--<\/ul>-->/i", "</ul>", $string);
277        $string = preg_replace("/<!--<li( [^>]*)?>-->/i", "<li>", $string);
278        $string = preg_replace("/<!--<\/li>-->/i", "</li>", $string);
279        $string = preg_replace("/<!--<img (?:[^>]+ )?src=\"?([^\"]*)\"?[^>]*>-->/i", "<img src=\"\\1\" />", $string);
280<<<<<<< .mine
281
282        $string = preg_replace("/<!--<table( [^>]*)?>-->/i", "<table border=\"\\\" >", $string);
283        $string = preg_replace("/<!--<\/table>-->/i", "</table>", $string);
284        $string = preg_replace("/<!--<td( [^>]*)?>-->/i", "<td>", $string);
285        $string = preg_replace("/<!--<\/td>-->/i", "</td>", $string);
286        $string = preg_replace("/<!--<tbody( [^>]*)?>-->/i", "<tbody>", $string);
287        $string = preg_replace("/<!--<\/tbody>-->/i", "</tbody>", $string);
288        $string = preg_replace("/<!--<tr( [^>]*)?>-->/i", "<tr>", $string);
289        $string = preg_replace("/<!--<\/tr>-->/i", "</tr>", $string);*/
290               
291        $cp->set_data(utf8_encode($string));  //return value - string containing all the markup for the misspelled words.
292
293} // end spellCheck
294
295
296/*************************************************************
297 * addWord($str)
298 *
299 * This function adds a word to the custom dictionary
300 *
301 * @param $str The word to be added
302 *************************************************************/
303function addWord($str)
304{
305        global $editablePersonalDict;
306        //global $pspell_link; //the global link to the pspell module
307        $pspell_link = pspell_new("pt_BR");
308        global $cp; //the CPAINT object
309        $retVal = "";
310        pspell_add_to_personal($pspell_link, $str);
311        if($editablePersonalDict && pspell_save_wordlist($pspell_link))
312        {
313                $retVal = "Save successful!";
314        }
315       
316        else
317        {
318                $retVal = "Save Failed!";
319        }
320       
321        $cp->set_data($retVal);
322} // end addWord
323
324
325
326/*************************************************************
327 * flattenArray($array)
328 *
329 * The flattenArray function is a recursive function that takes a
330 * multidimensional array and flattens it to be a one-dimensional
331 * array.  The one-dimensional flattened array is returned.
332 *
333 * $array - The array to be flattened.
334 *
335 *************************************************************/
336function flattenArray($array)
337{
338        $flatArray = array();
339        foreach($array as $subElement)
340        {
341        if(is_array($subElement))
342                {
343                        $flatArray = array_merge($flatArray, flattenArray($subElement));
344                }
345                else
346                {
347                        $flatArray[] = $subElement;
348                }
349        }
350       
351        return $flatArray;
352} // end flattenArray
353
354
355/*************************************************************
356 * stripslashes_custom($string)
357 *
358 * This is a custom stripslashes function that only strips
359 * the slashes if magic quotes are on.  This is written for
360 * compatibility with other servers in the event someone doesn't
361 * have magic quotes on.
362 *
363 * $string - The string that might need the slashes stripped.
364 *
365 *************************************************************/
366function stripslashes_custom($string)
367{
368        if(get_magic_quotes_gpc())
369        {
370                return stripslashes($string);
371        }
372        else
373        {
374                return $string;
375        }
376} // end stripslashes_custom
377
378/*************************************************************
379 * addslashes_custom($string)
380 *
381 * This is a custom addslashes function that only adds
382 * the slashes if magic quotes are off.  This is written for
383 * compatibility with other servers in the event someone doesn't
384 * have magic quotes on.
385 *
386 * $string - The string that might need the slashes added.
387 *
388 *************************************************************/
389function addslashes_custom($string)
390{
391        if(!get_magic_quotes_gpc())
392        {
393                return addslashes($string);
394        }
395        else
396        {
397                return $string;
398        }
399} // end addslashes_custom
400
401
402/*************************************************************
403 * remove_word_junk($t)
404 *
405 * This function strips out all the crap that Word tries to
406 * add to it's text in the even someone pastes in code from
407 * Word.
408 *
409 * $t - The text to be cleaned
410 *
411 *************************************************************/
412function remove_word_junk($t)
413{
414        $a=array(
415        "\xe2\x80\x9c"=>'"',
416        "\xe2\x80\x9d"=>'"',
417        "\xe2\x80\x99"=>"'",
418        "\xe2\x80\xa6"=>"...",
419        "\xe2\x80\x98"=>"'",
420        "\xe2\x80\x94"=>"---",
421        "\xe2\x80\x93"=>"--",
422        "\x85"=>"...",
423        "\221"=>"'",
424        "\222"=>"'",
425        "\223"=>'"',
426        "\224"=>'"',
427        "\x97"=>"---",
428        "\x96"=>"--"
429        );
430
431        foreach($a as $k=>$v){
432                $oa[]=$k;
433                $ra[]=$v;
434        }
435       
436        $t=trim(str_replace($oa,$ra,$t));
437        return $t;
438
439} // end remove_word_junk
440
441
442/*************************************************************
443 * switchText($string)
444 *
445 * This function prepares the text to be sent back to the text
446 * box from the div.  The comments are removed and breaks are
447 * converted back into \n's.  All the html tags that the user
448 * might have entered that aren't on the approved list:
449 * <p><br><a><b><strong><i><small><ul><li> are stripped out.
450 * The user-entered returns have already been replaced with
451 * $u2026 so that they can be preserved.  I replace all the
452 * \n's that might have been added by the browser (Firefox does
453 * this in trying to pretty up the HTML) with " " so that
454 * everything will look the way it did when the user typed it
455 * in the box the first time.
456 *
457 * $string - The string of html from the div that will be sent
458 *           back to the text box.
459 *
460 *************************************************************/
461function switchText($string)
462{
463        global $allowed_html;
464        global $cp; //the CPAINT object
465        $string = remove_word_junk($string);
466        $string = preg_replace("/<!--/", "", $string);
467        $string = preg_replace("/-->/", "", $string);   
468        $string = preg_replace("/\r?\n/", " ", $string);
469        $string = stripslashes_custom($string); //we only need to strip slashes if magic quotes are on
470        //$string = strip_tags($string, $allowed_html); //Removed. Accept all HTML tags.
471        $string = preg_replace('{&lt;/?span.*?&gt;}i', '', $string);
472        $string = html_entity_decode($string);
473
474        $cp->set_data($string); //the return value
475     
476       
477} // end switchText
478
479?>
Note: See TracBrowser for help on using the repository browser.