Subversion Repositories eFlore/Applications.cel

Rev

Rev 2459 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2459 Rev 2462
Line 1... Line 1...
1
<?php
1
<?php
2
// Encodage : UTF-8
2
// declare(encoding='UTF-8');
3
// +-------------------------------------------------------------------------------------------------------------------+
-
 
4
/**
3
/**
5
* Découpage des noms latins
4
 * Classe de découpage des noms latins.
6
*
5
 *
7
* Description : classe permettant de découper les noms latins.
6
 * @internal   Mininum PHP version : 5.2
8
* 
7
 * @category   CEL
-
 
8
 * @package    Services
-
 
9
 * @subpackage Bibliothèques
9
//Auteur original :
10
 * @version    0.1
-
 
11
 * @author     Mathias CHOUET <mathias@tela-botanica.org>
10
* @author       Jean-Pascal MILCENT <jpm@tela-botanica.org>
12
 * @author     Jean-Pascal MILCENT <jpm@tela-botanica.org>
11
* @copyright	Tela-Botanica 1999-2009
13
 * @author     Aurelien PERONNET <aurelien@tela-botanica.org>
12
* @licence		GPL v3 & CeCILL v2
14
 * @license    GPL v3 <http://www.gnu.org/licenses/gpl.txt>
13
* @version		$Id: DecoupageNomLatin.class.php 1873 2009-03-31 10:07:24Z Jean-Pascal MILCENT $
15
 * @license    CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
-
 
16
 * @copyright  1999-2014 Tela Botanica <accueil@tela-botanica.org>
14
*/
17
 */
15
// +-------------------------------------------------------------------------------------------------------------------+
-
 
16
class DecoupageNomLatin extends Decoupage {
18
class DecoupageNomLatin extends Decoupage {
Line 17... Line 19...
17
 
19
 
18
	private $expression_principale = array();
20
	private $expression_principale = array();
Line 19... Line 21...
19
	private $expression_complement = array();
21
	private $expression_complement = array();
20
 
-
 
21
	function DecoupageNomLatin()
22
 
Line 22... Line 23...
22
	{	
23
	public function __construct() {
23
		parent::__construct();
24
		parent::__construct();
24
 
25
 
Line 30... Line 31...
30
		$this->expression_principale[3] = '/^('.$this->Gen.') ('.$this->Ran.') ('.$this->Gen.'|.'.$this->Epi.')(?:(, '.$this->Inf.')|)$/u';
31
		$this->expression_principale[3] = '/^('.$this->Gen.') ('.$this->Ran.') ('.$this->Gen.'|.'.$this->Epi.')(?:(, '.$this->Inf.')|)$/u';
31
		// Hybride interspécifique
32
		// Hybride interspécifique
32
		$this->expression_principale[4] = "/^((?:$this->Gen) $this->Epi (?:($this->Ran) $this->Epi )?x $this->Epi(?: ($this->Ran) $this->Epi)?)$/u";
33
		$this->expression_principale[4] = "/^((?:$this->Gen) $this->Epi (?:($this->Ran) $this->Epi )?x $this->Epi(?: ($this->Ran) $this->Epi)?)$/u";
33
		// Aggrégat
34
		// Aggrégat
34
		$this->expression_principale[5] = "/^($this->Gen) ($this->Epi) (agg\.)(?:( $this->Inf)|)$/u";//
35
		$this->expression_principale[5] = "/^($this->Gen) ($this->Epi) (agg\.)(?:( $this->Inf)|)$/u";//
35
		
36
 
36
		// Epithète infra-spécifique
37
		// Epithète infra-spécifique
37
		$this->expression_complement[1] = "/^ ($this->Ran) ((?:($this->hyb) |$this->Dou|)(?:$this->Epi|$this->Dou))(?:((?:,| $this->Ran) $this->Inf)|)$/Uu";
38
		$this->expression_complement[1] = "/^ ($this->Ran) ((?:($this->hyb) |$this->Dou|)(?:$this->Epi|$this->Dou))(?:((?:,| $this->Ran) $this->Inf)|)$/Uu";
38
		// Cultivar
39
		// Cultivar
39
		$this->expression_complement[5] = "/^ ($this->Ran_ht) ((?:(?:$this->Epi_cv) ?)+)$/u";
40
		$this->expression_complement[5] = "/^ ($this->Ran_ht) ((?:(?:$this->Epi_cv) ?)+)$/u";
40
		
41
 
41
	}
42
	}
42
	
43
 
43
	public function decouper($nom_latin)
44
	public function decouper($nom_latin) {
44
    {
-
 
45
    	$aso_nom_decompo = array(	'nom_genre' => '', 'nom_sp' => '', 'auteur_sp' => '', 'nom_complement' => '', 
45
		$aso_nom_decompo = array('nom_genre' => '', 'nom_sp' => '', 'auteur_sp' => '', 'nom_complement' => '',
46
									'type_infrasp' => '', 'nom_infrasp' => '', 
46
			'type_infrasp' => '', 'nom_infrasp' => '',
47
									'num_nomenc' => '', 'num_taxo' => '', 'rang_taxonomique' => '',
47
			'num_nomenc' => '', 'num_taxo' => '', 'rang_taxonomique' => '',
48
									'nom_courant' => '', 'nom_superieur' => '', 'agg' => '');
48
			'nom_courant' => '', 'nom_superieur' => '', 'agg' => '');
49
    	$aso_nom_decompo['nom_complet'] = $nom_latin;
49
		$aso_nom_decompo['nom_complet'] = $nom_latin;
50
		while ($nom_latin != '') {
50
		while ($nom_latin != '') {
51
			$morceau = array();
51
			$morceau = array();
52
			if (preg_match($this->expression_principale[4], $nom_latin, $morceau)) {// Formule d'hybridation
52
			if (preg_match($this->expression_principale[4], $nom_latin, $morceau)) {// Formule d'hybridation
53
				// Nous tentons de déterminer le rang de l'hybride
53
				// Nous tentons de déterminer le rang de l'hybride
54
				if (isset($morceau[2]) && isset($morceau[3]) && $morceau[2] == $morceau[3]) {
54
				if (isset($morceau[2]) && isset($morceau[3]) && $morceau[2] == $morceau[3]) {
Line 132... Line 132...
132
				$nom_latin = '';
132
				$nom_latin = '';
133
			}
133
			}
134
		}
134
		}
135
		return $aso_nom_decompo;
135
		return $aso_nom_decompo;
136
    }
136
    }
137
	
137
 
138
	public function verifierTerminaisonLatine($nom_latin)
138
	public function verifierTerminaisonLatine($nom_latin) {
139
	{
-
 
140
		
-
 
141
		if (preg_match('/^Plantae$/', $nom_latin)) {// Règne
139
		if (preg_match('/^Plantae$/', $nom_latin)) {// Règne
142
			return 10;
140
			return 10;
143
		} else if (preg_match('/phyta$/', $nom_latin)) {// Embranchement ou Division
141
		} else if (preg_match('/phyta$/', $nom_latin)) {// Embranchement ou Division
144
			return 30;
142
			return 30;
145
		} else if (preg_match('/phytina$/', $nom_latin)) {// Sous-Embranchement ou Sous-Division
143
		} else if (preg_match('/phytina$/', $nom_latin)) {// Sous-Embranchement ou Sous-Division
Line 164... Line 162...
164
			return 160;
162
			return 160;
165
		} else {
163
		} else {
166
			return 1;
164
			return 1;
167
		}
165
		}
168
	}
166
	}
169
	
167
 
170
	static function fournirTableauAbreviationRang($type = 'tout')
168
	static function fournirTableauAbreviationRang($type = 'tout') {
171
	{
-
 
172
		$rang_supra_sp = array('subgen.', 'subg.', 'sect.');// l'abréviation du rang  est suivi par un nom supra spécifique commençant par une majuscule 
169
		$rang_supra_sp = array('subgen.', 'subg.', 'sect.');// l'abréviation du rang  est suivi par un nom supra spécifique commençant par une majuscule
173
		$rang_supra_gr = array('gr.');// l'abréviation du rang est suivi par un nom ne commençant pas par une majuscule
170
		$rang_supra_gr = array('gr.');// l'abréviation du rang est suivi par un nom ne commençant pas par une majuscule
174
		$rang_supra_agg = array('agg.');// le nom latin est terminé par l'abréviation du rang
171
		$rang_supra_agg = array('agg.');// le nom latin est terminé par l'abréviation du rang
175
		$rang_infra_sp = array(	'subsp.', 'n-subsp.', '[subsp.]', '[n-subsp.]',
172
		$rang_infra_sp = array('subsp.', 'n-subsp.', '[subsp.]', '[n-subsp.]',
176
								'var.', 'nvar.', '[var.]', 
173
			'var.', 'nvar.', '[var.]',
177
								'prol.', 'proles', 'n-proles.', 
174
			'prol.', 'proles', 'n-proles.',
178
								'f.', 'fa', 'fa.', 'forma', 
175
			'f.', 'fa', 'fa.', 'forma',
179
								'subvar.', 'convar.', 
176
			'subvar.', 'convar.',
180
								'cv.', 'Cv.', 
177
			'cv.', 'Cv.',
181
								'n-f.', 'n-fa', 'n-fa.', 
178
			'n-f.', 'n-fa', 'n-fa.',
182
								'subf.', 'subfa', 'subfa.');
179
			'subf.', 'subfa', 'subfa.');
183
		if ($type == 'supra') {
180
		if ($type == 'supra') {
184
			return $rang_supra_sp;
181
			return $rang_supra_sp;
185
		} else if ($type == 'supra-gr') {
182
		} else if ($type == 'supra-gr') {
186
			return $rang_supra_gr;
183
			return $rang_supra_gr;
187
		} else if ($type == 'supra-agg') {
184
		} else if ($type == 'supra-agg') {
Line 191... Line 188...
191
		} else if ($type == 'tout') {
188
		} else if ($type == 'tout') {
192
			return array_merge($rang_supra_sp, $rang_supra_gr, $rang_supra_agg, $rang_infra_sp);
189
			return array_merge($rang_supra_sp, $rang_supra_gr, $rang_supra_agg, $rang_infra_sp);
193
		}
190
		}
194
	}
191
	}
Line 195... Line 192...
195
 
192
 
196
	static function actualiserCodeRang($code_rang)
-
 
197
	{
193
	static function actualiserCodeRang($code_rang) {
198
		$aso_rang = array(	'1' => '10', // Règne
194
		$aso_rang = array('1' => '10', // Règne
199
							'3' => '20', // Sous-Règne
195
			'3' => '20', // Sous-Règne
200
							'5' => '30', // Phylum
196
			'5' => '30', // Phylum
201
							'7' => '40', // Sub-Phylum
197
			'7' => '40', // Sub-Phylum
202
							'9' => '50', // division
198
			'9' => '50', // division
203
							'15' => '60', // sous-division
199
			'15' => '60', // sous-division
204
							'20' => '70', // classe
200
			'20' => '70', // classe
205
							'25' => '80', // sous-classe
201
			'25' => '80', // sous-classe
206
							'30' => '100', // ordre
202
			'30' => '100', // ordre
207
							'35' => '110', // sous-ordre
203
			'35' => '110', // sous-ordre
208
							'40' => '120', // famille
204
			'40' => '120', // famille
209
							'45' => '130', // sous-famille
205
			'45' => '130', // sous-famille
210
							'50' => '140', // tribu
206
			'50' => '140', // tribu
211
							'55' => '150', // sous-tribu
207
			'55' => '150', // sous-tribu
212
							'60' => '160', // genre
208
			'60' => '160', // genre
213
							'62' => '170', // genre hybride (nouveau compatibilité flore Réunion)
209
			'62' => '170', // genre hybride (nouveau compatibilité flore Réunion)
214
							'65' => '180', // sous-genre
210
			'65' => '180', // sous-genre
215
							'65' => '190', // section
211
			'65' => '190', // section
216
							'75' => '200', // sous-section
212
			'75' => '200', // sous-section
217
							'80' => '210', // série
213
			'80' => '210', // série
218
							'85' => '220', // sous-série
214
			'85' => '220', // sous-série
219
							'90' => '230', // groupe
215
			'90' => '230', // groupe
220
							'95' => '240', // aggrégat
216
			'95' => '240', // aggrégat
221
							'100' => '250', // espèce
217
			'100' => '250', // espèce
222
							'102' => '260', // espèce hybride intragénérique
218
			'102' => '260', // espèce hybride intragénérique
223
							'104' => '260', // espèce hybride intergénérique
219
			'104' => '260', // espèce hybride intergénérique
224
							'110' => '280', // sous-espèce
220
			'110' => '280', // sous-espèce
225
							'112' => '300', // sous-espèce hybride : hybride entre deux sous-espèces d'une espèce non hybride ; exemple : Polypodium vulgare L. nsubsp. mantoniae (Rothm.) Schidlay (Polypodium vulgare L. subsp. vulgare x Polypodium vulgare L. subsp. prionodes (Aschers.) Rothm.).
221
			'112' => '300', // sous-espèce hybride : hybride entre deux sous-espèces d'une espèce non hybride ; exemple : Polypodium vulgare L. nsubsp. mantoniae (Rothm.) Schidlay (Polypodium vulgare L. subsp. vulgare x Polypodium vulgare L. subsp. prionodes (Aschers.) Rothm.).
226
							'113' => '310', // sous-espèce hybride : sous-espèce d'espèce hybride sans spécification du rang parental (subspecies) (voir ICBN, art. H.12.1).
222
			'113' => '310', // sous-espèce hybride : sous-espèce d'espèce hybride sans spécification du rang parental (subspecies) (voir ICBN, art. H.12.1).
227
							'114' => '300', // sous-espèce hybride : sous-espèce hybride d'espèce hybride (nothosubspecies) (voir ICBN, art. H.12.1) ; exemple : Mentha x piperita L. nsubsp. piperita (Mentha aquatica L. x Mentha spicata L. subsp. glabrata (Lej. et Court.) Lebeau).
223
			'114' => '300', // sous-espèce hybride : sous-espèce hybride d'espèce hybride (nothosubspecies) (voir ICBN, art. H.12.1) ; exemple : Mentha x piperita L. nsubsp. piperita (Mentha aquatica L. x Mentha spicata L. subsp. glabrata (Lej. et Court.) Lebeau).
228
							'115' => '300', // sous-espèce hybride
224
			'115' => '300', // sous-espèce hybride
229
							'120' => '1', // infra2
225
			'120' => '1', // infra2
230
							'122' => '330', // prole, race : peu employé souvent issu de nom ancien (antérieur au code).
226
			'122' => '330', // prole, race : peu employé souvent issu de nom ancien (antérieur au code).
231
							'124' => '340', // prole, race hybride : peu employé souvent issu de nom ancien (antérieur au code).
227
			'124' => '340', // prole, race hybride : peu employé souvent issu de nom ancien (antérieur au code).
232
							'132' => '350', // convarietas : si on le conscidère comme un rang intermédiaire entre la sous-espèce et la variété. Voir aussi n°200.
228
			'132' => '350', // convarietas : si on le conscidère comme un rang intermédiaire entre la sous-espèce et la variété. Voir aussi n°200.
233
							'130' => '1', // infra3 : niveau infra-spécifique de troisième niveau, sans plus de précision.
229
			'130' => '1', // infra3 : niveau infra-spécifique de troisième niveau, sans plus de précision.
234
							'140' => '360', // variété
230
			'140' => '360', // variété
235
							'142' => '380', // variété : hybride entre deux variétés d'une espèce non hybride.
231
			'142' => '380', // variété : hybride entre deux variétés d'une espèce non hybride.
236
							'143' => '390', // variété : variété d'espèce hybride sans spécification du rang parental (varietas) (voir ICBN, art. H.12.1); exemple : Populus x canadensis Moench var. marilandica (Poir.) Rehder.
232
			'143' => '390', // variété : variété d'espèce hybride sans spécification du rang parental (varietas) (voir ICBN, art. H.12.1); exemple : Populus x canadensis Moench var. marilandica (Poir.) Rehder.
237
							'144' => '380', // variété : variété hybride d'espèce hybride (nothovarietas) ; exemple : Salix x sepulcralis Simonk. nvar. chrysocoma (Dode) Meikle.
233
			'144' => '380', // variété : variété hybride d'espèce hybride (nothovarietas) ; exemple : Salix x sepulcralis Simonk. nvar. chrysocoma (Dode) Meikle.
238
							'145' => '380', // variété hybride
234
			'145' => '380', // variété hybride
239
							'150' => '410', // sous-variété
235
			'150' => '410', // sous-variété
240
							'160' => '420', // forme
236
			'160' => '420', // forme
241
							'162' => '430', // forme : hybride entre deux formes d'une espèce non hybride.
237
			'162' => '430', // forme : hybride entre deux formes d'une espèce non hybride.
242
							'163' => '430', // forme : forme d'espèce hybride sans spécification du rang parental (forma) (voir ICBN, art. H.12.1); exemple : Mentha x piperita L. f. hirsuta Sole.
238
			'163' => '430', // forme : forme d'espèce hybride sans spécification du rang parental (forma) (voir ICBN, art. H.12.1); exemple : Mentha x piperita L. f. hirsuta Sole.
243
							'164' => '430', // forme : forme hybride d'espèce hybride (nothoforma).
239
			'164' => '430', // forme : forme hybride d'espèce hybride (nothoforma).
244
							'170' => '440', // sous-forme
240
			'170' => '440', // sous-forme
245
							'200' => '450', // groupe de cultivar
241
			'200' => '450', // groupe de cultivar
246
							'210' => '460', // cultivar
242
			'210' => '460', // cultivar
247
							'220' => '470', // cultivar d'hybride
243
			'220' => '470', // cultivar d'hybride
248
							'0' => '480' // clade
244
			'0' => '480' // clade
249
							);
245
			);
250
		return $aso_rang[$code_rang];
246
		return $aso_rang[$code_rang];
Line 251... Line 247...
251
	}
247
	}
252
 
-
 
253
	public function attribuerCodeInfra($str_abreviation_type_infra)
248
 
254
	{
-
 
255
		$aso_code_infra = array('type' => '', 'code' => 0, 'rang' => 2 );
249
	public function attribuerCodeInfra($str_abreviation_type_infra) {
256
	    
250
		$aso_code_infra = array('type' => '', 'code' => 0, 'rang' => 2 );
257
		switch ($str_abreviation_type_infra) {
251
		switch ($str_abreviation_type_infra) {
258
			case 'subgen.' :
252
			case 'subgen.' :
259
			case 'subg.' :
253
			case 'subg.' :
Line 298... Line 292...
298
			case 'n-var.' :
292
			case 'n-var.' :
299
				$aso_code_infra['type'] = 'infra2';
293
				$aso_code_infra['type'] = 'infra2';
300
				$aso_code_infra['code'] = 3;
294
				$aso_code_infra['code'] = 3;
301
				$aso_code_infra['rang'] = 380;
295
				$aso_code_infra['rang'] = 380;
302
				break;
296
				break;
303
	        case 'nvar.' :
297
			case 'nvar.' :
304
	        	$aso_code_infra['type'] = 'infra2';
298
				$aso_code_infra['type'] = 'infra2';
305
				$aso_code_infra['code'] = 3;
299
				$aso_code_infra['code'] = 3;
306
				$aso_code_infra['rang'] = 384;
300
				$aso_code_infra['rang'] = 384;
307
				break;
301
				break;
308
	        case '[n-var.]' :
302
			case '[n-var.]' :
309
	            $aso_code_infra['type'] = 'infra2';
303
				$aso_code_infra['type'] = 'infra2';
310
	            $aso_code_infra['code'] = 5;
304
				$aso_code_infra['code'] = 5;
311
	            $aso_code_infra['rang'] = 390;
305
				$aso_code_infra['rang'] = 390;
312
	        	break;
306
				break;
313
	        case 'prol.' :
307
			case 'prol.' :
314
	        case 'proles' :
308
			case 'proles' :
315
	            $aso_code_infra['type'] = 'infra3';
309
				$aso_code_infra['type'] = 'infra3';
316
	            $aso_code_infra['code'] = 2;
310
				$aso_code_infra['code'] = 2;
317
	            $aso_code_infra['rang'] = 330;
311
				$aso_code_infra['rang'] = 330;
318
	        	break;
312
				break;
319
	        case 'n-proles' :
313
			case 'n-proles' :
320
	        case 'n-proles.' :
314
			case 'n-proles.' :
321
	            $aso_code_infra['type'] = 'infra3';
315
				$aso_code_infra['type'] = 'infra3';
322
	            $aso_code_infra['code'] = 1;
316
				$aso_code_infra['code'] = 1;
323
	            $aso_code_infra['rang'] = 340;
317
				$aso_code_infra['rang'] = 340;
324
	        	break;
318
				break;
325
	        case 'f.':
319
			case 'f.':
326
			case 'fa':
320
			case 'fa':
327
			case 'fa.':
321
			case 'fa.':
328
			case 'forma':
322
			case 'forma':
329
	            $aso_code_infra['type'] = 'infra3';
323
				$aso_code_infra['type'] = 'infra3';
330
	            $aso_code_infra['code'] = 3;
324
				$aso_code_infra['code'] = 3;
331
	            $aso_code_infra['rang'] = 420;
325
				$aso_code_infra['rang'] = 420;
332
	        	break;
326
				break;
333
	        case 'subvar.' :
327
			case 'subvar.' :
334
	            $aso_code_infra['type'] = 'infra3';
328
				$aso_code_infra['type'] = 'infra3';
335
	            $aso_code_infra['code'] = 4;
329
				$aso_code_infra['code'] = 4;
336
	            $aso_code_infra['rang'] = 410;
330
				$aso_code_infra['rang'] = 410;
337
	        	break;
331
				break;
338
	        case 'convar.' :
332
			case 'convar.' :
339
	            $aso_code_infra['type'] = 'infra3';
333
				$aso_code_infra['type'] = 'infra3';
340
	            $aso_code_infra['code'] = 5;
334
				$aso_code_infra['code'] = 5;
341
	            $aso_code_infra['rang'] = 350;
335
				$aso_code_infra['rang'] = 350;
342
	        	break;
336
				break;
343
	        case 'cv.':
337
			case 'cv.':
344
	        case 'Cv.':
338
			case 'Cv.':
345
	            $aso_code_infra['type'] = 'infra3';
339
				$aso_code_infra['type'] = 'infra3';
346
	            $aso_code_infra['code'] = 6;
340
				$aso_code_infra['code'] = 6;
347
	            $aso_code_infra['rang'] = 460;
341
				$aso_code_infra['rang'] = 460;
348
	        	break;
342
				break;
349
	        case 'n-f.':
343
			case 'n-f.':
350
	        case 'n-fa':
344
			case 'n-fa':
351
	        case 'n-fa.':
345
			case 'n-fa.':
352
	            $aso_code_infra['type'] = 'infra3';
346
				$aso_code_infra['type'] = 'infra3';
353
	            $aso_code_infra['code'] = 7;
347
				$aso_code_infra['code'] = 7;
354
	            $aso_code_infra['rang'] = 430;
348
				$aso_code_infra['rang'] = 430;
355
	        	break;
349
				break;
356
	        case 'subf.':
350
			case 'subf.':
357
	        case 'subfa':
351
			case 'subfa':
358
	        case 'subfa.':
352
			case 'subfa.':
359
	            $aso_code_infra['type'] = 'infra3';
353
				$aso_code_infra['type'] = 'infra3';
360
	            $aso_code_infra['code'] = 8;
354
				$aso_code_infra['code'] = 8;
361
	            $aso_code_infra['rang'] = 440;
355
				$aso_code_infra['rang'] = 440;
362
	        	break;
356
				break;
363
	        default:
357
			default:
364
				$aso_code_infra['erreur_mark'] = 'erreur';
358
				$aso_code_infra['erreur_mark'] = 'erreur';
365
				$aso_code_infra['erreur_notes'] =  $str_abreviation_type_infra;
359
				$aso_code_infra['erreur_notes'] =  $str_abreviation_type_infra;
366
				$aso_code_infra['rang'] = 2;
360
				$aso_code_infra['rang'] = 2;
367
	    }
361
		}
368
	    
-
 
369
	    return $aso_code_infra;
362
		return $aso_code_infra;
370
	}
363
	}
371
	
364
 
372
	public function attribuerCodeRang($str_abreviation_type_infra)
365
	public function attribuerCodeRang($str_abreviation_type_infra) {
373
	{
-
 
374
		$aso_code_infra = $this->attribuerCodeInfra($str_abreviation_type_infra);
366
		$aso_code_infra = $this->attribuerCodeInfra($str_abreviation_type_infra);
375
    	return $aso_code_infra['rang'];
367
		return $aso_code_infra['rang'];
376
	}
368
	}
377
}
-
 
378
?>
-
 
379
369
}
-
 
370
380
371