commit 484d68cc27d6999bb3e97b03163f48134d019783
parent ea936861ef263180277be6e3bd3b3eb08c649759
Auteur: Loïc Daignault-Pichette <loic@asteride.xyz>
Date: Sat, 16 Aug 2025 12:44:25 -0400
[chm] Produire la forme de citation automatiquement
Désormais, il suffit, pour ajouter un nouveau verbe, d’en donner la
base. La forme de citation utilisée au niveau abstrait est produite
automatiquement.
Diffstat:
1 fichier modifié, 23 insertions(+), 15 suppressions(-)
diff --git a/verbes/verbes.xfst b/verbes/verbes.xfst
@@ -18,21 +18,17 @@ define Voy [VoyCourte|VoyLongue];
# LEXIQUE
# -------
-define LexVAI [[{atusse}|{nipâ}|{papatâ}|{ueńutishî}|{min}|{shiueń}|{takushin}|
- {tshiuepań}|{apashtâ}] u:0 |
- [{ishikapau}|{natau}|{upau}|{nikamu}|{puamu}|{tshishishu}|
- {auassiû}|{napessiû}|{tshiueû}] |
- [{akush}|{mishisht}|{shikatsh}|{tshitim}] u:i];
-
-define LexVII [[{pashte}|{tshishite}|{uapâ}] u:0 |
- [{apishash}] u:i |
- [{shitamu}] |
- [{pikupań}|{tshitshipań}] u:0 |
- [{nipiu}|{pimiu}|{shipeku}] |
- [{apatan}|{takuan}|{tshimuan}|{uepashtan}|{uikan}|{ńutin}]];
-
-define LexVTI [[{ashtuei}|{shei}|{tashkai}|{tshipai}] {mᵘ}:0 |
- [{natut}|{pet}|{tshimin}|{tshitapat}|{tut}|{uapat}] {amᵘ}:0];
+define LexVAI [{atusse}|{nipâ}|{papatâ}|{ueńutishî}|{min}|{shiueń}|{takushin}|
+ {tshiuepań}|{apashtâ}|{ishikapau}|{natau}|{upau}|{nikamu}|{puamu}|
+ {tshishishu}|{auassiû}|{napessiû}|{tshiueû}|{akushi}|{mishishti}|
+ {shikatshi}|{tshitimi}];
+
+define LexVII [{pashte}|{tshishite}|{uapâ}|{apishashi}|{shitamu}|{pikupań}|
+ {tshitshipań}|{nipiu}|{pimiu}|{shipeku}|{apatan}|{takuan}|{tshimuan}|
+ {uepashtan}|{uikan}|{ńutin}];
+
+define LexVTI [{ashtuei}|{shei}|{tashkai}|{tshipai}|{natut}|{pet}|{tshimin}|
+ {tshitapat}|{tut}|{uapat}];
# ------
# TRAITS
@@ -214,6 +210,18 @@ define OVoy [
define ODescU [ᵘ -> u || _ ?];
define Verbes [[[VerbesVAI|VerbesVII|VerbesVTI] .o. OVoy].i .o. OVoy].i .o. ODescU;
+
+# ------------------
+# FORMES DE CITATION
+# ------------------
+
+# Substituer la base au niveau abstrait par la forme de citation.
+define FC [[[[] <- TVrbe || _ TVrbe]
+ .o. $["+VAI" "+VAI"|"+VII" "+VII"|"+VTI" "+VTI"]
+ .o. [[] <- [Traits - TVrbe]]
+ .o. [[?* "+3" "+Sg" "+Ntr"] .o. Verbes] TVrbe] ?*].i;
+
+define Verbes FC .o. Verbes;
push Verbes
# ---------