tef-innu

commit a0fc83b3b0dddfa4a94012bc422260fa51d60f27
parent b7c58b9b78fbababf813c25f697507cef1859d5d
Auteur: Loïc Daignault-Pichette <loic@asteride.xyz>
Date:   Tue, 16 Sep 2025 10:02:07 -0400

[inf] Automatiser l’ajout d’échantillons

Diffstat:
M
Makefile
 | 
2
++
A
bib/ajouter_ech.xfst
 | 
18
++++++++++++++++++
A
bin/ajouter_ech.sh
 | 
16
++++++++++++++++

3 fichiers modifiés, 36 insertions(+), 0 suppressions(-)
diff --git a/Makefile b/Makefile
@@ -12,6 +12,8 @@ verif: verbes/verbes.err
 
 verbes/verbes.err: verbes/verbes.fst verbes/verbes.ech
 
+ajouter_ech: bib/ajouter_ech.fst
+
 net:
 	# Supprimer tous les fichiers .fst
 	find . -type f -name '*.fst' -o -name '*.err' | xargs rm
diff --git a/bib/ajouter_ech.xfst b/bib/ajouter_ech.xfst
@@ -0,0 +1,18 @@
+clear stack
+
+define Conv ?*
+	.o. [[..] -> [E|O] || .#. _ \[E|O]]
+	.o. [[..] -> {→} || _ .#.]
+	.o. [[..] -> [s|p] || [2|3|4|5|6] _ \[s|p]]
+	.o. [[..] -> "+Obv"  || 4 ~$[s|p] [s|p] _ ,,
+	     [..] -> "+Obv2" || 6 ~$[s|p] [s|p] _ ,,
+	     [..] -> "+Obv3" || 6 ~$[s|p] [s|p] _]
+	.o. [[4|5|6] -> 3]
+	.o. [{→} -> [] || _ .#.]
+	.o. [1 -> "+1" ,, 2 -> "+2" ,, 3 -> "+3"]
+	.o. [s -> "+Sg" ,, p -> "+Pl" ,, e -> "+Ex" ,, i -> "+Inc"]
+	.o. [E -> "+Est" ,, O -> "+Ouest"]
+	.o. [{→} -> "->"]
+	;
+
+push Conv
diff --git a/bin/ajouter_ech.sh b/bin/ajouter_ech.sh
@@ -0,0 +1,16 @@
+#!/bin/sh
+#
+# ajouter_ech.sh -- ajouter des échantillons
+#
+# $1 - Préfixe
+# $2 - Fichier contenant les échantillons
+
+while read l
+do
+	sup="$(echo "$l" | awk '{print $1}' | flookup -iw "" bib/ajouter_ech.fst | cut -f2)"
+	inf="$(echo "$l" | awk '{print $2}')"
+	for v in $sup
+	do
+		printf "%s%s\t%s\n" "$1" "$v" "$inf"
+	done
+done | tee -a "$2"