Release code as open sourceHEADmaster

5 files changed, 138 insertions, 0 deletions

diff --git a/scaffolder/src/Text/Edifact/Scaffolder/Simples/Elements.hs b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Elements.hs
new file mode 100644
index 0000000..328a5d0
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Elements.hs
@@ -0,0 +1,26 @@
+module Text.Edifact.Scaffolder.Simples.Elements
+  ( listSimples
+  ) where
+
+import           Text.Edifact.Scaffolder.Commons
+
+import           Text.Parsec                     (digit, eof, oneOf, string,
+                                                  (<?>))
+import           Text.Parsec.String              (Parser)
+
+listSimples :: Scaffolding [ElementWithDefinition SimpleCode]
+listSimples = listElements "simples" simpleCodeParser
+
+simpleCodeParser :: Parser SimpleCode
+simpleCodeParser =
+  let codeParser =
+        sequence [ oneOf ['1'..'9']
+                 , digit
+                 , digit
+                 , digit
+                 ]
+  in
+  SimpleCode <$> codeParser
+             <*  string ".txt"
+             <*  eof
+             <?> "SimpleCode"
diff --git a/scaffolder/src/Text/Edifact/Scaffolder/Simples/Implementation.hs b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Implementation.hs
new file mode 100644
index 0000000..6cfb2ab
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Implementation.hs
@@ -0,0 +1,23 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Text.Edifact.Scaffolder.Simples.Implementation
+  ( -- *
+    toImplementation
+  ) where
+
+import           Text.Edifact.Scaffolder.Commons
+import           Text.Edifact.Scaffolder.Simples.Types
+
+import           Formatting
+
+toImplementation :: Representation -> Text
+toImplementation (Representation content (UpTo n)   ) = sformat (fContent % " `upTo` " % int) content n
+toImplementation (Representation content (Exactly n)) = sformat (fContent % " `exactly` " % int) content n
+toImplementation (Representation content AnyNumber  ) = sformat ("many " % fContent) content
+
+fContent :: Format t (Content -> t)
+fContent =
+  let display AlphaNumeric = "alphaNumeric"
+      display Alpha        = "alpha"
+      display Numeric      = "numeric"
+  in mapf display stext
diff --git a/scaffolder/src/Text/Edifact/Scaffolder/Simples/Representation.hs b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Representation.hs
new file mode 100644
index 0000000..9555536
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Representation.hs
@@ -0,0 +1,47 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Text.Edifact.Scaffolder.Simples.Representation
+  ( -- *
+    extractRepresentation
+  , representationParser
+  ) where
+
+import           Text.Edifact.Scaffolder.Commons
+import           Text.Edifact.Scaffolder.Simples.Types
+
+import           Text.Parsec                           as P (char, choice,
+                                                             digit, many1,
+                                                             option, optional,
+                                                             space, string, try)
+import           Text.Parsec.String                    (Parser)
+
+extractRepresentation :: FilePath -> Scaffolding (Maybe Representation)
+extractRepresentation file =
+  let parser = skipBeginning representationParser
+  in liftIO (readFile file) >>= maybeParse file parser
+
+contentParser :: Parser Content
+contentParser =
+  choice [ AlphaNumeric <$ try (P.string "an")
+         , Alpha        <$ P.string "a"
+         , Numeric      <$ P.string "n"
+         ]
+
+cardinalityParser :: Parser Cardinality
+cardinalityParser =
+  option AnyNumber $
+    choice [ Exactly <$> (optional space *> numberParser)
+           , UpTo    <$> (dot *> dot *> numberParser)
+           ]
+
+numberParser :: Parser Int
+numberParser = read <$> many1 digit
+
+dot :: Parser Char
+dot = P.char '.'
+
+representationParser :: Parser Representation
+representationParser =
+  let parser = Representation <$> contentParser
+                              <*> cardinalityParser
+  in P.string "Repr:" *> space *> parser
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
diff --git a/scaffolder/src/Text/Edifact/Scaffolder/Simples/Types.hs b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Types.hs
new file mode 100644
index 0000000..08b6ca5
--- /dev/null
+++ b/scaffolder/src/Text/Edifact/Scaffolder/Simples/Types.hs
@@ -0,0 +1,14 @@
+module Text.Edifact.Scaffolder.Simples.Types where
+
+data Representation = Representation Content Cardinality
+                      deriving Show
+
+data Content = AlphaNumeric
+             | Alpha
+             | Numeric
+               deriving Show
+
+data Cardinality = UpTo Int
+                 | Exactly Int
+                 | AnyNumber
+                   deriving Show