From fd3676a568589f07ad0707c07b2a9f87df6e2f6c Mon Sep 17 00:00:00 2001
From: Yan Pas <yanp.bugz@gmail.com>
Date: Sun, 25 Feb 2018 03:34:17 +0300
Subject: initial

---
 src/Text/Pandoc/Readers.hs     |   2 +
 src/Text/Pandoc/Readers/Man.hs | 118 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 120 insertions(+)
 create mode 100644 src/Text/Pandoc/Readers/Man.hs

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers.hs b/src/Text/Pandoc/Readers.hs
index b9374ba06..77d6d9130 100644
--- a/src/Text/Pandoc/Readers.hs
+++ b/src/Text/Pandoc/Readers.hs
@@ -101,6 +101,7 @@ import Text.Pandoc.Readers.TikiWiki
 import Text.Pandoc.Readers.TWiki
 import Text.Pandoc.Readers.Txt2Tags
 import Text.Pandoc.Readers.Vimwiki
+import Text.Pandoc.Readers.Man
 import Text.Pandoc.Shared (mapLeft)
 import qualified Text.Pandoc.UTF8 as UTF8
 import Text.Parsec.Error
@@ -141,6 +142,7 @@ readers = [ ("native"       , TextReader readNative)
            ,("t2t"          , TextReader readTxt2Tags)
            ,("epub"         , ByteStringReader readEPUB)
            ,("muse"         , TextReader readMuse)
+           ,("man"          , TextReader readMan)
            ]
 
 -- | Retrieve reader, extensions based on formatSpec (format+extensions).
diff --git a/src/Text/Pandoc/Readers/Man.hs b/src/Text/Pandoc/Readers/Man.hs
new file mode 100644
index 000000000..d1ff3fc47
--- /dev/null
+++ b/src/Text/Pandoc/Readers/Man.hs
@@ -0,0 +1,118 @@
+{-
+  Copyright (C) 2018 Yan Pashkovsky <yanp.bugz@gmail.com>
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+-}
+
+{- |
+   Module      : Text.Pandoc.Readers.Man
+   Copyright   : Copyright (C) 2018 Yan Pashkovsky
+   License     : GNU GPL, version 2 or above
+
+   Maintainer  : Yan Pashkovsky <yanp.bugz@gmail.com>
+   Stability   : WIP
+   Portability : portable
+
+Conversion of man to 'Pandoc' document.
+-}
+module Text.Pandoc.Readers.Man where
+
+import Control.Monad.Except (liftM2, throwError, guard)
+import Text.Pandoc.Class (PandocMonad(..))
+import Text.Pandoc.Definition
+import Text.Pandoc.Options
+import Text.Pandoc.Parsing hiding (enclosed)
+import Text.Pandoc.Shared (crFilter)
+import Text.Parsec
+import Text.Parsec.Char
+import Data.Text (Text)
+import Data.Map (empty)
+import qualified Data.Text as T
+
+
+-- | Read man (troff) from an input string and return a Pandoc document.
+readMan :: PandocMonad m
+          => ReaderOptions
+          -> Text
+          -> m Pandoc
+readMan opts s = do
+  parsed <- readWithM parseMan def{ stateOptions = opts } (T.unpack s)
+  case parsed of
+    Right result -> return result
+    Left e       -> throwError e
+
+type ManParser m = ParserT [Char] ParserState m
+
+comment :: PandocMonad m => ManParser m String
+comment = do
+  string ".\\\" "
+  many anyChar
+
+data Macro = Macro { macroName :: String
+                   , macroArgs :: [String]
+                   }
+
+parseMacro :: PandocMonad m => ManParser m Block
+parseMacro = do
+  m <- macro
+  return $ Plain (map Str $ (macroName m : macroArgs m))
+
+macro :: PandocMonad m => ManParser m Macro
+macro = do
+  char '.' <|> char '\''
+  many space
+  name <- many1 letter
+  --args <- many parseArg
+  return $ Macro { macroName = name, macroArgs = [] }
+  
+  where
+
+  parseArg :: PandocMonad m => ManParser m String
+  parseArg = do
+    many1 space
+    plainArg
+  
+  quotedArg :: PandocMonad m => ManParser m String
+  quotedArg = do
+    char '"'
+    val <- many1 quotedChar
+    char '"'
+    return val
+
+  plainArg :: PandocMonad m => ManParser m String
+  plainArg = do
+    many1 $ noneOf " \t"
+  
+  quotedChar :: PandocMonad m => ManParser m Char
+  quotedChar = do
+        noneOf "\""
+    <|> try (string "\"\"" >> return '"')
+
+parseLine :: PandocMonad m => ManParser m Block
+parseLine = do
+  str <- many anyChar
+  return $ Plain [Str str]
+
+parseBlock :: PandocMonad m => ManParser m Block
+parseBlock = do
+  choice [ parseMacro
+         , parseLine
+         ]
+
+parseMan :: PandocMonad m => ManParser m Pandoc
+parseMan = do
+  blocks <- parseBlock `sepBy` newline
+  
+  return $ Pandoc Meta{unMeta = empty} blocks
\ No newline at end of file
-- 
cgit v1.2.3