Subversion Repositories eFlore/Applications.cel

Rev

Rev 2459 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
448 david 1
<?php
2462 jpm 2
// declare(encoding='UTF-8');
448 david 3
/**
2462 jpm 4
 * Classe de découpage des noms latins.
5
 *
6
 * @internal   Mininum PHP version : 5.2
7
 * @category   CEL
8
 * @package    Services
9
 * @subpackage Bibliothèques
10
 * @version    0.1
11
 * @author     Mathias CHOUET <mathias@tela-botanica.org>
12
 * @author     Jean-Pascal MILCENT <jpm@tela-botanica.org>
13
 * @author     Aurelien PERONNET <aurelien@tela-botanica.org>
14
 * @license    GPL v3 <http://www.gnu.org/licenses/gpl.txt>
15
 * @license    CECILL v2 <http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt>
16
 * @copyright  1999-2014 Tela Botanica <accueil@tela-botanica.org>
17
 */
448 david 18
class DecoupageNomLatin extends Decoupage {
19
 
20
	private $expression_principale = array();
21
	private $expression_complement = array();
22
 
2462 jpm 23
	public function __construct() {
448 david 24
		parent::__construct();
25
 
26
		// Genre et nom supragénérique
27
		$this->expression_principale[1] = "/^((?:$this->hyb |)$this->Gen)(?:( $this->Inf)|)$/u";
28
		// Sp
29
		$this->expression_principale[2] = "/^((?:$this->hyb |)$this->Gen) ((?:($this->hyb) |$this->Dou|)(?:$this->Epi|$this->Dou))(?:((?:,| $this->Ran) $this->Inf)| agg\.|)$/u";
30
		// Rang infragénérique et supraspécifique
31
		$this->expression_principale[3] = '/^('.$this->Gen.') ('.$this->Ran.') ('.$this->Gen.'|.'.$this->Epi.')(?:(, '.$this->Inf.')|)$/u';
32
		// Hybride interspécifique
33
		$this->expression_principale[4] = "/^((?:$this->Gen) $this->Epi (?:($this->Ran) $this->Epi )?x $this->Epi(?: ($this->Ran) $this->Epi)?)$/u";
34
		// Aggrégat
35
		$this->expression_principale[5] = "/^($this->Gen) ($this->Epi) (agg\.)(?:( $this->Inf)|)$/u";//
2462 jpm 36
 
448 david 37
		// Epithète infra-spécifique
38
		$this->expression_complement[1] = "/^ ($this->Ran) ((?:($this->hyb) |$this->Dou|)(?:$this->Epi|$this->Dou))(?:((?:,| $this->Ran) $this->Inf)|)$/Uu";
39
		// Cultivar
40
		$this->expression_complement[5] = "/^ ($this->Ran_ht) ((?:(?:$this->Epi_cv) ?)+)$/u";
2462 jpm 41
 
448 david 42
	}
2462 jpm 43
 
44
	public function decouper($nom_latin) {
45
		$aso_nom_decompo = array('nom_genre' => '', 'nom_sp' => '', 'auteur_sp' => '', 'nom_complement' => '',
46
			'type_infrasp' => '', 'nom_infrasp' => '',
47
			'num_nomenc' => '', 'num_taxo' => '', 'rang_taxonomique' => '',
48
			'nom_courant' => '', 'nom_superieur' => '', 'agg' => '');
49
		$aso_nom_decompo['nom_complet'] = $nom_latin;
448 david 50
		while ($nom_latin != '') {
51
			$morceau = array();
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
54
				if (isset($morceau[2]) && isset($morceau[3]) && $morceau[2] == $morceau[3]) {
55
					$aso_nom_decompo['rang_taxonomique'] = $this->attribuerCodeRang('n-'.$morceau[2]);
56
				} else {
57
					$aso_nom_decompo['rang_taxonomique'] = 260;// Hybride instersp.
58
				}
59
				$aso_nom_decompo['mark_hybride_interspecifique'] = 'x';
60
				$aso_nom_decompo['formule_hybridation'] = $morceau[0];
61
				$nom_latin = '';
62
			} else if (preg_match($this->expression_principale[5], $nom_latin, $morceau)) {// agg.
63
				$aso_nom_decompo['rang_taxonomique'] = 240;// agg.
64
				$aso_nom_decompo['nom_genre'] = $morceau[1];
65
				$aso_nom_decompo['nom_sp'] = $morceau[2];
66
				$aso_nom_decompo['agg'] = $morceau[3];
67
				$nom_latin = $morceau[4];
68
				$aso_nom_decompo['nom_superieur'] = $morceau[1];
69
				$aso_nom_decompo['nom_courant'] = $morceau[2];
70
			} else if (preg_match($this->expression_principale[2], $nom_latin, $morceau)) {// Nom d'sp.
71
				// Nous regardons si nous avons à faire à un hybride
72
				if (preg_match('/^'.$this->hyb.'$/', $morceau[3])) {
73
					$aso_nom_decompo['rang_taxonomique'] = 260;// hybride intersp.
74
					$aso_nom_decompo['mark_hybride_interspecifique'] = strtolower($morceau[3]);
75
				} else if (preg_match('/^'.$this->Epi_nn_hy.'$/', $morceau[2])) {
76
					$aso_nom_decompo['rang_taxonomique'] = 260;// hybride intersp.
77
					$aso_nom_decompo['mark_hybride_interspecifique'] = 'x';
78
				} else {
79
					$aso_nom_decompo['rang_taxonomique'] = 250;// sp.
80
				}
81
				// Nous atribuons le genre
82
				$aso_nom_decompo['nom_genre'] = $morceau[1];
83
				// Nous regardons si nous avons à faire à une phrase non nommé (ex : sp.1, spp., nsp.)
84
				if (preg_match('/^'.$this->Epi_nn.'$/', $morceau[2])) {
85
					$aso_nom_decompo['phrase_nom_non_nomme'] = $morceau[2];// hybride intersp.
86
					$aso_nom_decompo['nom_sp'] = '';
87
				} else {
88
					$aso_nom_decompo['nom_sp'] = $morceau[2];
89
				}
90
				$nom_latin = $morceau[4];
91
				$aso_nom_decompo['nom_superieur'] = $morceau[1];
92
				$aso_nom_decompo['nom_courant'] = $morceau[2];
93
			} else if (preg_match($this->expression_principale[3], $nom_latin, $morceau)) {// Nom infragénérique et supraspécifique
94
				$aso_nom_decompo['nom_genre'] = $morceau[1];
95
				$aso_nom_decompo['rang_taxonomique'] = $this->attribuerCodeRang($morceau[2]);
96
				// Nous regardons si nous avons à faire à un groupe
97
				if (preg_match('/^'.$this->Ran_ig_gr.'$/', $morceau[2])) {
98
					$aso_nom_decompo['nom_sp'] = $morceau[3];
99
				} else {
100
					$aso_nom_decompo['nom_infra_genre'] = $morceau[3];
101
				}
102
				$nom_latin = $morceau[4];
103
				$aso_nom_decompo['nom_superieur'] = $morceau[1];
104
				$aso_nom_decompo['nom_courant'] = $morceau[3];
105
			} else if (preg_match($this->expression_principale[1], $nom_latin, $morceau)) {// Nom de genre et supragénérique
106
				$aso_nom_decompo['rang_taxonomique'] = $this->verifierTerminaisonLatine($nom_latin);
107
				$aso_nom_decompo['nom_suprasp'] = $morceau[1];
108
				$nom_latin = $morceau[2];
109
				$aso_nom_decompo['nom_superieur'] = null;
110
				$aso_nom_decompo['nom_courant'] = $morceau[1];
111
			} else if (preg_match($this->expression_complement[5], $nom_latin, $morceau)) {// Cultivar
112
				$aso_nom_decompo['rang_cultivar'] = $this->attribuerCodeRang($morceau[1]);
113
				// Nous vérifions si nous avons à faire à un cultivar d'hybride
114
				if ($aso_nom_decompo['mark_hybride_interspecifique'] == 'x' && $aso_nom_decompo['rang_cultivar'] == 460) {
115
					$aso_nom_decompo['rang_cultivar'] = 470;
116
				}
117
				$aso_nom_decompo['cultivar'] = $morceau[2];
118
				$nom_latin = '';
119
			} else if (preg_match($this->expression_complement[1], $nom_latin, $morceau)) {// Nom infrasp.
120
				if (preg_match('/^'.$this->hyb.'$/', $morceau[3])) {
121
					$aso_nom_decompo['mark_hybride_interspecifique'] = strtolower($morceau[3]);
122
				}
123
				$aso_nom_decompo['rang_taxonomique'] = $this->attribuerCodeRang($morceau[1]);
124
				$aso_nom_decompo['type_infrasp'] = $morceau[1];
125
				$aso_nom_decompo['nom_infrasp'] = $morceau[2];
126
				$nom_latin = $morceau[4];
127
				$aso_nom_decompo['nom_superieur'] = $aso_nom_decompo['nom_courant'];
128
				$aso_nom_decompo['nom_courant'] = $morceau[2];
129
			} else {// Erreurs
130
				$aso_nom_decompo['erreur_mark'] = 'erreur';
131
				$aso_nom_decompo['erreur_notes'] = $nom_latin;
132
				$nom_latin = '';
133
			}
134
		}
135
		return $aso_nom_decompo;
136
    }
2462 jpm 137
 
138
	public function verifierTerminaisonLatine($nom_latin) {
448 david 139
		if (preg_match('/^Plantae$/', $nom_latin)) {// Règne
140
			return 10;
141
		} else if (preg_match('/phyta$/', $nom_latin)) {// Embranchement ou Division
142
			return 30;
143
		} else if (preg_match('/phytina$/', $nom_latin)) {// Sous-Embranchement ou Sous-Division
144
			return 40;
145
		} if (preg_match('/opsida$/', $nom_latin)) {// Classe
146
			return 70;
147
		} else if (preg_match('/idae$/', $nom_latin)) {// Sous-Classe
148
			return 80;
149
		} else if (preg_match('/ales$/', $nom_latin)) {// Ordre
150
			return 100;
151
		} else if (preg_match('/ineae$/', $nom_latin)) {// Sous-Ordre
152
			return 110;
153
		} else if (preg_match('/aceae$/', $nom_latin)) {// Famille
154
			return 120;
155
		} else if (preg_match('/oideae$/', $nom_latin)) {// Sous-Famille
156
			return 130;
157
		} else if (preg_match('/eae$/', $nom_latin)) {// Tribu
158
			return 140;
159
		} else if (preg_match('/inae$/', $nom_latin)) {// Sous-Tribu
160
			return 150;
161
		} else if (preg_match('/^[A-Z]/', $nom_latin)) {// Genre
162
			return 160;
163
		} else {
164
			return 1;
165
		}
166
	}
2462 jpm 167
 
168
	static function fournirTableauAbreviationRang($type = 'tout') {
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
448 david 170
		$rang_supra_gr = array('gr.');// l'abréviation du rang est suivi par un nom ne commençant pas par une majuscule
171
		$rang_supra_agg = array('agg.');// le nom latin est terminé par l'abréviation du rang
2462 jpm 172
		$rang_infra_sp = array('subsp.', 'n-subsp.', '[subsp.]', '[n-subsp.]',
173
			'var.', 'nvar.', '[var.]',
174
			'prol.', 'proles', 'n-proles.',
175
			'f.', 'fa', 'fa.', 'forma',
176
			'subvar.', 'convar.',
177
			'cv.', 'Cv.',
178
			'n-f.', 'n-fa', 'n-fa.',
179
			'subf.', 'subfa', 'subfa.');
448 david 180
		if ($type == 'supra') {
181
			return $rang_supra_sp;
182
		} else if ($type == 'supra-gr') {
183
			return $rang_supra_gr;
184
		} else if ($type == 'supra-agg') {
185
			return $rang_supra_agg;
186
		} else if ($type == 'infra') {
187
			return $rang_infra_sp;
188
		} else if ($type == 'tout') {
189
			return array_merge($rang_supra_sp, $rang_supra_gr, $rang_supra_agg, $rang_infra_sp);
190
		}
191
	}
192
 
2462 jpm 193
	static function actualiserCodeRang($code_rang) {
194
		$aso_rang = array('1' => '10', // Règne
195
			'3' => '20', // Sous-Règne
196
			'5' => '30', // Phylum
197
			'7' => '40', // Sub-Phylum
198
			'9' => '50', // division
199
			'15' => '60', // sous-division
200
			'20' => '70', // classe
201
			'25' => '80', // sous-classe
202
			'30' => '100', // ordre
203
			'35' => '110', // sous-ordre
204
			'40' => '120', // famille
205
			'45' => '130', // sous-famille
206
			'50' => '140', // tribu
207
			'55' => '150', // sous-tribu
208
			'60' => '160', // genre
209
			'62' => '170', // genre hybride (nouveau compatibilité flore Réunion)
210
			'65' => '180', // sous-genre
211
			'65' => '190', // section
212
			'75' => '200', // sous-section
213
			'80' => '210', // série
214
			'85' => '220', // sous-série
215
			'90' => '230', // groupe
216
			'95' => '240', // aggrégat
217
			'100' => '250', // espèce
218
			'102' => '260', // espèce hybride intragénérique
219
			'104' => '260', // espèce hybride intergénérique
220
			'110' => '280', // sous-espèce
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.).
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).
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).
224
			'115' => '300', // sous-espèce hybride
225
			'120' => '1', // infra2
226
			'122' => '330', // prole, race : 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).
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.
229
			'130' => '1', // infra3 : niveau infra-spécifique de troisième niveau, sans plus de précision.
230
			'140' => '360', // variété
231
			'142' => '380', // variété : hybride entre deux variétés d'une espèce non hybride.
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.
233
			'144' => '380', // variété : variété hybride d'espèce hybride (nothovarietas) ; exemple : Salix x sepulcralis Simonk. nvar. chrysocoma (Dode) Meikle.
234
			'145' => '380', // variété hybride
235
			'150' => '410', // sous-variété
236
			'160' => '420', // forme
237
			'162' => '430', // forme : hybride entre deux formes d'une espèce non hybride.
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.
239
			'164' => '430', // forme : forme hybride d'espèce hybride (nothoforma).
240
			'170' => '440', // sous-forme
241
			'200' => '450', // groupe de cultivar
242
			'210' => '460', // cultivar
243
			'220' => '470', // cultivar d'hybride
244
			'0' => '480' // clade
245
			);
448 david 246
		return $aso_rang[$code_rang];
247
	}
248
 
2462 jpm 249
	public function attribuerCodeInfra($str_abreviation_type_infra) {
448 david 250
		$aso_code_infra = array('type' => '', 'code' => 0, 'rang' => 2 );
251
		switch ($str_abreviation_type_infra) {
252
			case 'subgen.' :
253
			case 'subg.' :
254
				$aso_code_infra['rang'] = 180;
255
				break;
256
			case 'sect.' :
257
				$aso_code_infra['rang'] = 190;
258
				break;
259
			case 'gr.' :
260
				$aso_code_infra['rang'] = 230;
261
				break;
262
			case 'subsp.' :
263
				$aso_code_infra['type'] = 'infra1';
264
				$aso_code_infra['code'] = 1;
265
				$aso_code_infra['rang'] = 280;
266
				break;
267
			case 'n-subsp.' :
268
				$aso_code_infra['type'] = 'infra1';
269
				$aso_code_infra['code'] = 2;
270
				$aso_code_infra['rang'] = 300;
271
				break;
272
			case '[subsp.]' :
273
				$aso_code_infra['type'] = 'infra1';
274
				$aso_code_infra['code'] = 3;
275
				$aso_code_infra['rang'] = 290;
276
				break;
277
			case '[n-subsp.]' :
278
				$aso_code_infra['type'] = 'infra1';
279
				$aso_code_infra['code'] = 4;
280
				$aso_code_infra['rang'] = 310;
281
				break;
282
			case 'var.' :
283
				$aso_code_infra['type'] = 'infra2';
284
				$aso_code_infra['code'] = 1;
285
				$aso_code_infra['rang'] = 360;
286
				break;
287
			case '[var.]' :
288
				$aso_code_infra['type'] = 'infra2';
289
				$aso_code_infra['code'] = 2;
290
				$aso_code_infra['rang'] = 370;
291
				break;
292
			case 'n-var.' :
293
				$aso_code_infra['type'] = 'infra2';
294
				$aso_code_infra['code'] = 3;
295
				$aso_code_infra['rang'] = 380;
296
				break;
2462 jpm 297
			case 'nvar.' :
298
				$aso_code_infra['type'] = 'infra2';
448 david 299
				$aso_code_infra['code'] = 3;
300
				$aso_code_infra['rang'] = 384;
301
				break;
2462 jpm 302
			case '[n-var.]' :
303
				$aso_code_infra['type'] = 'infra2';
304
				$aso_code_infra['code'] = 5;
305
				$aso_code_infra['rang'] = 390;
306
				break;
307
			case 'prol.' :
308
			case 'proles' :
309
				$aso_code_infra['type'] = 'infra3';
310
				$aso_code_infra['code'] = 2;
311
				$aso_code_infra['rang'] = 330;
312
				break;
313
			case 'n-proles' :
314
			case 'n-proles.' :
315
				$aso_code_infra['type'] = 'infra3';
316
				$aso_code_infra['code'] = 1;
317
				$aso_code_infra['rang'] = 340;
318
				break;
319
			case 'f.':
448 david 320
			case 'fa':
321
			case 'fa.':
322
			case 'forma':
2462 jpm 323
				$aso_code_infra['type'] = 'infra3';
324
				$aso_code_infra['code'] = 3;
325
				$aso_code_infra['rang'] = 420;
326
				break;
327
			case 'subvar.' :
328
				$aso_code_infra['type'] = 'infra3';
329
				$aso_code_infra['code'] = 4;
330
				$aso_code_infra['rang'] = 410;
331
				break;
332
			case 'convar.' :
333
				$aso_code_infra['type'] = 'infra3';
334
				$aso_code_infra['code'] = 5;
335
				$aso_code_infra['rang'] = 350;
336
				break;
337
			case 'cv.':
338
			case 'Cv.':
339
				$aso_code_infra['type'] = 'infra3';
340
				$aso_code_infra['code'] = 6;
341
				$aso_code_infra['rang'] = 460;
342
				break;
343
			case 'n-f.':
344
			case 'n-fa':
345
			case 'n-fa.':
346
				$aso_code_infra['type'] = 'infra3';
347
				$aso_code_infra['code'] = 7;
348
				$aso_code_infra['rang'] = 430;
349
				break;
350
			case 'subf.':
351
			case 'subfa':
352
			case 'subfa.':
353
				$aso_code_infra['type'] = 'infra3';
354
				$aso_code_infra['code'] = 8;
355
				$aso_code_infra['rang'] = 440;
356
				break;
357
			default:
448 david 358
				$aso_code_infra['erreur_mark'] = 'erreur';
359
				$aso_code_infra['erreur_notes'] =  $str_abreviation_type_infra;
360
				$aso_code_infra['rang'] = 2;
2462 jpm 361
		}
362
		return $aso_code_infra;
448 david 363
	}
2462 jpm 364
 
365
	public function attribuerCodeRang($str_abreviation_type_infra) {
448 david 366
		$aso_code_infra = $this->attribuerCodeInfra($str_abreviation_type_infra);
2462 jpm 367
		return $aso_code_infra['rang'];
448 david 368
	}
2462 jpm 369
}