From fe903a0f698664b875bc20a7db6a8061c04c5187 Mon Sep 17 00:00:00 2001
From: Jean-Christophe Jameux <Echologie@gmail.com>
Date: Tue, 16 Aug 2022 13:37:59 +0200
Subject: [PATCH] Premiers pas vers un parser

---
 src/GenerateurH5P.elm | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/src/GenerateurH5P.elm b/src/GenerateurH5P.elm
index c870328..e60ef8f 100644
--- a/src/GenerateurH5P.elm
+++ b/src/GenerateurH5P.elm
@@ -1290,6 +1290,30 @@ voirErreur err =
         ++ String.fromInt err.col
 
 
+h5pParser : Parser (H5P branchingScenarioComposable coursePresentationComposable)
+h5pParser =
+    oneOf
+        [ branchingScenarioParser
+        , coursePresentationParser
+        , trueFalseParser
+        ]
+
+
+branchingScenarioParser =
+    succeed (BranchingScenarioH5P nouveauBranchingScenario)
+        |. symbol "*"
+
+
+coursePresentationParser =
+    succeed (BranchingScenarioH5P nouveauBranchingScenario)
+        |. symbol "*"
+
+
+trueFalseParser =
+    succeed (BranchingScenarioH5P nouveauBranchingScenario)
+        |. symbol "*"
+
+
 contenu : Parser Blocs
 contenu =
     succeed (L.singleton << Contenu)