tef-innu

commit c320d008acff77f6a1edb726cb30d522a0139fb6
parent 83947bfd811eb61b4ccab57ad68a35490e4a33da
Auteur: Loïc Daignault-Pichette <loic@asteride.net>
Date:   Tue,  4 Aug 2026 17:12:30 -0400

[bog] Corriger un problème de surgénération

Diffstat:
M
Makefile
 | 
3
+--
M
tef/orthographe.xfst
 | 
5
++---
M
tef/phonologie.var
 | 
1
+
M
tef/verbes/lexique.xfst
 | 
2
+-

4 fichiers modifiés, 5 insertions(+), 6 suppressions(-)
diff --git a/Makefile b/Makefile
@@ -88,5 +88,4 @@ net:
 		-name '*.att'  -o \
 		-name '*.ext'  -o \
 		-name '*.lexs' -o \
-		-name '*.tgz'  -o \
-		xargs rm -r
+		-name '*.tgz'  -o | xargs rm -r
diff --git a/tef/orthographe.xfst b/tef/orthographe.xfst
@@ -13,11 +13,10 @@ define Est [$["+Est"] .o. Mots];
 define Reste [~$["+Est"] .o. Mots];
 define Mots [[[n <- ń] .o. Est .o. [ń -> n]] | Reste];
 
-regex [[Mots
+regex Mots
         # Un « ᵘ » tombe devant un « u ».
         .o. [ᵘ -> [] || _ \Lettre* u]
         # La quantité vocalique n’est pas transcrite.
-        .o. [â -> a ,, î -> i ,, û -> u]].i
-        .o. [â -> a ,, î -> i ,, û -> u]].i
+        .o. [â -> a ,, î -> i ,, û -> u]
         # Un « ᵘ » devient « u » lorsqu’il n’est pas en fin de mot.
         .o. [ᵘ -> u || _ \Lettre* Lettre];
diff --git a/tef/phonologie.var b/tef/phonologie.var
@@ -10,6 +10,7 @@
 
 define VoyCourte [a|i|u];
 define VoyLongue [â|î|e|û];
+define VoyAcc    [â|î|û];
 define Voy       [VoyCourte|VoyLongue|ᵘ];
 
 define SemiVoy   [i|î|u|û];
diff --git a/tef/verbes/lexique.xfst b/tef/verbes/lexique.xfst
@@ -13,7 +13,7 @@ define Lexique [@stxt"tef/verbes/lexique.lexs"
         .o. [{n} -> [] || _ \Lettre* "+e" ?* "+Bun"]].l;
 
 define Productifs [
-        [Lettre-{ᵘ}]* Lettre "+Prod"
+        [[Lettre-{ᵘ}]-VoyLongue]* [Lettre-VoyLongue] "+Prod"
         (TBaseV) (TFlexV) (TADial) (TImpers)
         ["+VII"|"+VAI"|"+VTI"|"+VTA"]];