From fb2ce2bdee23373b1687bd2cffe5b3be5b46f8a6 Mon Sep 17 00:00:00 2001
From: Jean-Christophe Jameux <Echologie@gmail.com>
Date: Fri, 8 Oct 2021 13:41:31 +0200
Subject: [PATCH] Update QCM.elm

---
 src/QCM.elm | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/src/QCM.elm b/src/QCM.elm
index 429a388..b024f15 100644
--- a/src/QCM.elm
+++ b/src/QCM.elm
@@ -194,6 +194,35 @@ mix lls =
     l :: [] -> List.map List.singleton l
     (a :: ls) :: llss -> ( List.map ( (::) a ) ( mix llss ) ) ++ mix ( ls :: llss )
 
+type alias Aremplacer =
+  { var : String
+  , vals : List String
+  }
+
+remplacer : List Aremplacer -> List TexteVariable -> List String
+remplacer ars tvs =
+  case tvs of
+    [] -> []
+    Texte txt :: tvss -> L.map S.append txt <| remplacer ars tvss
+    Variable var :: tvss ->
+
+
+
+remplacerDansLaListeDeTexteVariable 
+
+remplacerDansLeTexteVariable : Aremplacer -> TexteVariable -> List String
+remplacerDansLeTexteVariable a t =
+  case t of
+    Texte tt -> Texte tt
+    Variable tt -> remplacerLaVariableParLesValeursDansLaChaine a.var a.vals tt
+
+remplacerLaVariableDansLaChaine : String -> List String -> String -> List String
+remplacerLaVariableDansLaChaine var vals chaine =
+  case vals of
+    [] -> []
+    val :: valss ->
+      S.replace var val chaine
+      :: remplacerLaVariableParLesValeursDansLaChaine var valss chaine