Release code as open sourceHEADmaster

1 files changed, 43 insertions, 0 deletions

diff --git a/scaffolder/src/Text/Edifact/BundleReader/Simples.hs b/scaffolder/src/Text/Edifact/BundleReader/Simples.hs
new file mode 100644
index 0000000..df7d662
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/BundleReader/Simples.hs
@@ -0,0 +1,43 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Text.Edifact.BundleReader.Simples
+  ( readSimples
+  , simplesDirectory
+  ) where
+
+import           Text.Edifact.BundleReader.Commons
+import           Text.Edifact.BundleReader.Configuration       (BundleReaderEnv (..))
+import           Text.Edifact.Scaffolder.Commons
+
+import           Text.Edifact.Scaffolder.Simples.Specification
+
+import           Control.Monad                                 (when)
+import           Control.Monad.Reader                          (asks)
+import           Data.ByteString                               as BS (ByteString,
+                                                                      readFile)
+import           Formatting
+
+simplesDirectory :: FilePath
+simplesDirectory = "simples"
+
+readSimples :: [ByteString] -> [SimpleCode] -> BundleReader [SimpleCode]
+readSimples contents simples = do
+  let parsedFile path = parseFile simples =<< liftIO (BS.readFile path)
+      parsedString = parseFile simples
+  files <- asks simplesFiles
+  parsedFiles <- traverse parsedFile files
+  parsedStrings <- traverse parsedString contents
+  let filtered = filter (`elem` simples) $ concat (parsedFiles <> parsedStrings)
+  pure filtered
+
+parseFile :: [SimpleCode] -> ByteString -> BundleReader [SimpleCode]
+parseFile simples content =
+  let chunks = tail $ splitFileByDash 70 $ decodeContent content
+  in traverse (parseChunk simples) chunks
+
+parseChunk :: [SimpleCode] -> Text -> BundleReader SimpleCode
+parseChunk simples chunk = do
+  parsed <- parseOrFail chunk specificationParser
+  outputFile <- getOutputFile (fSimpleCodeLower % ".txt") simplesDirectory (fst parsed)
+  when (fst parsed `elem` simples) $ toFile chunk outputFile
+  pure $ fst parsed