Merge "Fix "UTPage" creation in tests"
[lhc/web/wiklou.git] / languages / classes / LanguageKsh.php
1 <?php
2 /**
3 * Ripuarian (Ripoarėsh) 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 Purodha Blissenbach
22 * @ingroup Language
23 */
24
25 /**
26 * Ripuarian (Ripoarėsh)
27 *
28 * @ingroup Language
29 */
30 class LanguageKsh extends Language {
31 private static $familygender = array(
32 // Do not add male wiki families, since that's the default.
33 // No need add neuter wikis having names ending in -wiki.
34 'wikipedia' => 'f',
35 'wikiversity' => 'f',
36 'wiktionary' => 'n',
37 'wikibooks' => 'n',
38 'wikiquote' => 'n',
39 'wikisource' => 'n',
40 'wikitravel' => 'n',
41 'wikia' => 'f',
42 'translatewiki.net' => 'n',
43 );
44
45 /**
46 * Convert from the nominative form of a noun to other cases.
47 * Invoked with {{GRAMMAR:case|word}} inside messages.
48 *
49 * case is a sequence of words, each of which is case insensitive.
50 * Between words, there must be at least one space character.
51 * Only the 1st character of each word is considered.
52 * Word order is irrelevant.
53 *
54 * Possible values specifying the grammatical case are:
55 * 1, Nominative
56 * 2, Genitive
57 * 3, Dative
58 * 4, Accusative, -omitted-
59 *
60 * Possible values specifying the article type are:
61 * Betoont focussed or stressed article
62 * -omitted- unstressed or unfocussed article
63 *
64 * Possible values for the type of genitive are:
65 * Sing, Iehr prepositioned genitive = possessive dative
66 * Vun, Fon, -omitted- postpositioned genitive
67 * = preposition "vun" with dative
68 *
69 * Values of case overrides & prepositions, in the order of preceedence:
70 * Sing, Iehr possessive dative = prepositioned genitive
71 * Vun, Fon preposition "vun" with dative
72 * = postpositioned genitive
73 * En, em preposition "en" with dative
74 *
75 * Values for object gender specifiers of the possessive dative, or
76 * prepositioned genitive, evaluated with "Sing, Iehr" of above only:
77 * Male a singular male object follows
78 * -omitted- a non-male or plural object follows
79 *
80 * We currently handle definite articles of the singular only.
81 * There is a full set of test cases at:
82 * http://translatewiki.net/wiki/Portal:Ksh#GRAMMAR_Pr%C3%B6%C3%B6fe
83 * Contents of the leftmost table column can be copied and pasted as
84 * "case" values.
85 *
86 * @param string $word
87 * @param string $case
88 *
89 * @return string
90 */
91 function convertGrammar( $word, $case ) {
92 $lord = strtolower( $word );
93 $gender = 'm'; // Nuutnaarel // default
94 if ( preg_match ( '/wiki$/', $lord ) ) {
95 $gender = 'n'; // Dat xyz-wiki
96 }
97 if ( isset( self::$familygender[$lord] ) ) {
98 $gender = self::$familygender[$lord];
99 }
100 $case = ' ' . strtolower( $case );
101 if ( preg_match( '/ [is]/', $case ) ) {
102 # däm WikiMaatplaz singe, dä Wikipeedija iere, däm Wikiwööterbooch singe
103 # dem/em WikiMaatplaz singe, de Wikipeedija iere, dem/em Wikiwööterbooch singe
104 # däm WikiMaatplaz sing, dä Wikipeedija ier, däm Wikiwööterbooch sing
105 # dem/em WikiMaatplaz sing, de Wikipeedija ier, dem/em Wikiwööterbooch sing
106 $word = ( preg_match( '/ b/', $case )
107 ? ( $gender == 'f' ? 'dä' : 'däm' )
108 : ( $gender == 'f' ? 'de' : 'dem' )
109 ) . ' ' . $word . ' ' .
110 ( $gender == 'f' ? 'ier' : 'sing' ) .
111 ( preg_match( '/ m/', $case ) ? 'e' : ''
112 );
113 } elseif ( preg_match( '/ e/', $case ) ) {
114 # en dämm WikiMaatPlaz, en dä Wikipeedija, en dämm Wikiwööterbooch
115 # em WikiMaatplaz, en de Wikipeedija, em Wikiwööterbooch
116 if ( preg_match( '/ b/', $case ) ) {
117 $word = 'en ' . ( $gender == 'f' ? 'dä' : 'däm' ) . ' ' . $word;
118 } else {
119 $word = ( $gender == 'f' ? 'en de' : 'em' ) . ' ' . $word;
120 }
121 } elseif ( preg_match( '/ [fv]/', $case ) || preg_match( '/ [2jg]/', $case ) ) {
122 # vun däm WikiMaatplaz, vun dä Wikipeedija, vun däm Wikiwööterbooch
123 # vum WikiMaatplaz, vun de Wikipeedija, vum Wikiwööterbooch
124 if ( preg_match( '/ b/', $case ) ) {
125 $word = 'vun ' . ( $gender == 'f' ? 'dä' : 'däm' ) . ' ' . $word;
126 } else {
127 $word = ( $gender == 'f' ? 'vun de' : 'vum' ) . ' ' . $word;
128 }
129 } elseif ( preg_match( '/ [3d]/', $case ) ) {
130 # dämm WikiMaatPlaz, dä Wikipeedija, dämm Wikiwööterbooch
131 # dem/em WikiMaatplaz, de Wikipeedija, dem/em Wikiwööterbooch
132 if ( preg_match( '/ b/', $case ) ) {
133 $word = ( $gender == 'f' ? 'dää' : 'dämm' ) . ' ' . $word;
134 } else {
135 $word = ( $gender == 'f' ? 'de' : 'dem' ) . ' ' . $word;
136 }
137 } else {
138 # dä WikiMaatPlaz, di Wikipeedija, dat Wikiwööterbooch
139 # der WikiMaatplaz, de Wikipeedija, et Wikiwööterbooch
140 if ( preg_match( '/ b/', $case ) ) {
141 switch ( $gender ) {
142 case 'm':
143 $lord = 'dä';
144 break;
145 case 'f':
146 $lord = 'di';
147 break;
148 default:
149 $lord = 'dat';
150 }
151 } else {
152 switch ( $gender ) {
153 case 'm':
154 $lord = 'der';
155 break;
156 case 'f':
157 $lord = 'de';
158 break;
159 default:
160 $lord = 'et';
161 }
162 }
163 $word = $lord . ' ' . $word;
164 }
165 return $word;
166 }
167
168 /**
169 * Avoid grouping whole numbers between 0 to 9999
170 *
171 * @param string $_
172 *
173 * @return string
174 */
175 public function commafy( $_ ) {
176 if ( !preg_match( '/^\d{1,4}$/', $_ ) ) {
177 return strrev( (string)preg_replace( '/(\d{3})(?=\d)(?!\d*\.)/', '$1,', strrev( $_ ) ) );
178 } else {
179 return $_;
180 }
181 }
182
183 /**
184 * Handle cases of (1, other, 0) or (1, other)
185 *
186 * @param int $count
187 * @param array $forms
188 *
189 * @return string
190 */
191 function convertPlural( $count, $forms ) {
192 $forms = $this->handleExplicitPluralForms( $count, $forms );
193 if ( is_string( $forms ) ) {
194 return $forms;
195 }
196 if ( !count( $forms ) ) {
197 return '';
198 }
199 $forms = $this->preConvertPlural( $forms, 3 );
200
201 if ( $count == 1 ) {
202 return $forms[0];
203 } elseif ( $count == 0 ) {
204 return $forms[2];
205 } else {
206 return $forms[1];
207 }
208 }
209 }