regles_retik
3.87 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
#
# --------------------------------------------------------
# LIA_PHON : Un systeme complet de phonetisation de textes
# --------------------------------------------------------
#
# Copyright (C) 2001 FREDERIC BECHET
#
# ..................................................................
#
# This file is part of LIA_PHON
#
# LIA_PHON is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
# ..................................................................
#
# Pour toute publication utilisant tout ou partie de LIA_PHON, la
# reference suivante doit etre inseree dans la bibliographie :
#
# Bechet F., 2001, "LIA_PHON - Un systeme complet de phonetisation
# de textes", revue Traitement Automatique des Langues (T.A.L.)
# volume 42, numero 1/2001, edition Hermes
# ..................................................................
#
# Contact :
# FREDERIC BECHET - LIA - UNIVERSITE D'AVIGNON
# AGROPARC BP1228 84911 AVIGNON CEDEX 09 FRANCE
# frederic.bechet@lia.univ-avignon.fr
# ..................................................................
#
/* Regles concernant Le re etiquetage contextuel de diverses choses */
/* Regles gerant la reecriture des chiffres romains */
/* On traite le cas des : Louis XXXX, Henri XXXX, et le XV de France */
context(01,<<g1,c1>,<g2,c2>,m3,m4>,"","->CHIF_ROMA","Les prenoms avec XXXX") ->
ou_bien_debut(c1,["XPRE"])
potentiel_romain(g2);
context(02,<m1,<"XV",c2>,<"de",c3>,<"France",c4>>,"","->CHIF_ROMA","Le XV de France") -> ;
/* Regles determinant la presence d'un sigle ou acronyme */
context(02,<m1,<g2,c2>,m3,m4>,"","->SIGLE","C'est un sigle") ->
ou_bien(c2,["XSOC","MOTINC"])
just_maju(g2);
/* Regles determinant l'origine linguistique d'un nom propre */
context(02,<m1,<g2,c2>,<g3,c3>,m4>,"",o,"Origine d'une sequence X.. X..") ->
prem_lett_maju(g2)
prem_lett_maju(g3)
ou_bien_debut(c2,["X","MOTINC"])
ou_bien_debut(c3,["X","MOTINC"])
origine_double(g2,g3,o);
context(02,<<g1,c1>,<g2,c2>,m3,m4>,"",o,"Origine d'une sequence X.. X..") ->
prem_lett_maju(g1)
prem_lett_maju(g2)
ou_bien_debut(c1,["X","MOTINC"])
ou_bien_debut(c2,["X","MOTINC"])
origine_double(g1,g2,o);
context(02,<m1,<g2,c2>,m3,m4>,"",o,"Origine d'une sequence X..") ->
prem_lett_maju(g2)
ou_bien_debut(c2,["X","MOTINC"])
origine_simple(g2,o);
/* Regles concernant l'ambiguite semantique de fils : */
/* Cas des fils de laine, etc */
context(01,<m1,<"fils",c2>,<"électriques",c3>,m4>,"","->FILS_FIL","les fils éléctriques") -> ;
context(02,<m1,<"fils",c2>,<"de",c3>,<g4,c4>>,"","->FILS_FIL","les fils de fer, etc") ->
ou_bien_debut(g4,["laine","fer","soie","coton","cuivre","razoir","métal","nylon"]) ;
context(03,<m1,<"fils",c2>,<"d'",c3>,<"acier",c4>>,"","->FILS_FIL","les fils d'acier") -> ;
context(04,<m1,<"fils",c2>,m3,m4>,"","->FILS_FIL","les fils sont fait de métal") ->
dans_la_phrase_debut(["électrique","laine","fer","soie","coton","cuivre","razoir","métal","nylon","tiss"]);
/* Cas des fils à papa */
context(05,<m1,<"fils",c2>,m3,m4>,"","->FILS_FILS","les fils de leur mère") ->
dans_la_phrase_debut(["père","mère","papa","maman","frère","oncle","tante","enfants","fille","belle-mère","beau-père","gendre","marié"]);
;