Release code as open sourceHEADmaster

1 files changed, 28 insertions, 0 deletions

diff --git a/scaffolder/src/Text/Edifact/Scaffolder/Simples/Specification.hs b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Specification.hs
new file mode 100644
index 0000000..0651cbd
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Specification.hs
@@ -0,0 +1,28 @@
+module Text.Edifact.Scaffolder.Simples.Specification
+  ( -- *
+    specificationParser
+  ) where
+
+import           Text.Edifact.Scaffolder.Commons
+
+import           Text.Parsec                     as P (anyChar, count, digit,
+                                                       endOfLine, manyTill,
+                                                       oneOf, skipMany, string,
+                                                       try)
+import           Text.Parsec.String              (Parser)
+
+specificationParser :: Parser (SimpleCode, SimpleName)
+specificationParser = scanUntil [ simpleParser ]
+
+simpleParser :: Parser (SimpleCode, SimpleName)
+simpleParser = do
+  _ <- count 3 (oneOf "+*#|-X ")
+  skipMany (string " ")
+  code <- simpleCodeParser
+  _ <- string " "
+  skipMany (string " ")
+  name <- SimpleName <$> manyTill anyChar (() <$ try endOfLine)
+  pure (code, name)
+
+simpleCodeParser :: Parser SimpleCode
+simpleCodeParser = fromString <$> count 4 digit