Jean-François Rey / otmedia

Blame view

tools/lia_ltbox/lia_phon/data/regles_retik 3.87 KB
edit raw normal view history
e6be5137b   Jean-François Rey   reinitialized pro... 
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é"]);
   
  ;