Merge "Add licensing for extensions to Special:Version"
[lhc/web/wiklou.git] / languages / classes / LanguageBe_tarask.php
1 <?php
2 /**
3 * Belarusian in Taraškievica orthography (Беларуская тарашкевіца) specific code.
4 *
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 2 of the License, or
8 * (at your option) any later version.
9 *
10 * This program is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 * GNU General Public License for more details.
14 *
15 * You should have received a copy of the GNU General Public License along
16 * with this program; if not, write to the Free Software Foundation, Inc.,
17 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
18 * http://www.gnu.org/copyleft/gpl.html
19 *
20 * @file
21 * @author Ævar Arnfjörð Bjarmason <avarab@gmail.com>
22 * @license http://www.gnu.org/copyleft/gpl.html GNU General Public License
23 * @license http://www.gnu.org/copyleft/fdl.html GNU Free Documentation License
24 * @ingroup Language
25 */
26
27 /**
28 * Belarusian in Taraškievica orthography (Беларуская тарашкевіца)
29 *
30 * @ingroup Language
31 * @see http://be-x-old.wikipedia.org/wiki/Project_talk:LanguageBe_tarask.php
32 */
33 class LanguageBe_tarask extends Language {
34 /**
35 * The Belarusian language uses apostrophe sign,
36 * but the characters used for this could be both U+0027 and U+2019.
37 * This function unifies apostrophe sign in search index values
38 * to enable seach using both apostrophe signs.
39 *
40 * @param $string string
41 *
42 * @return string
43 */
44 function normalizeForSearch( $string ) {
45 wfProfileIn( __METHOD__ );
46
47 # MySQL fulltext index doesn't grok utf-8, so we
48 # need to fold cases and convert to hex
49
50 # Replacing apostrophe sign U+2019 with U+0027
51 $s = preg_replace( '/\xe2\x80\x99/', '\'', $string );
52
53 $s = parent::normalizeForSearch( $s );
54
55 wfProfileOut( __METHOD__ );
56 return $s;
57 }
58
59 /**
60 * Four-digit number should be without group commas (spaces)
61 * So "1 234 567", "12 345" but "1234"
62 *
63 * @param $_ string
64 *
65 * @return string
66 */
67 function commafy( $_ ) {
68 if ( preg_match( '/^-?\d{1,4}(\.\d*)?$/', $_ ) ) {
69 return $_;
70 } else {
71 return strrev( (string)preg_replace( '/(\d{3})(?=\d)(?!\d*\.)/', '$1,', strrev( $_ ) ) );
72 }
73 }
74 }