diff options
| -rw-r--r-- | pandoc.cabal | 7 | ||||
| -rw-r--r-- | src/Text/Pandoc/PDF.hs | 167 |
2 files changed, 172 insertions, 2 deletions
diff --git a/pandoc.cabal b/pandoc.cabal index cd38c6964..8dd133192 100644 --- a/pandoc.cabal +++ b/pandoc.cabal @@ -228,7 +228,8 @@ Library tagsoup >= 0.12.5 && < 0.13, base64-bytestring >= 0.1 && < 0.2, zlib >= 0.5 && <= 0.6, - highlighting-kate >= 0.4 && < 0.5 + highlighting-kate >= 0.4 && < 0.5, + temporary >= 1.1 && < 1.2 if impl(ghc >= 6.10) Build-depends: base >= 4 && < 5, syb >= 0.1 && < 0.4 else @@ -273,6 +274,7 @@ Library Text.Pandoc.Writers.ODT, Text.Pandoc.Writers.Docx, Text.Pandoc.Writers.EPUB, + Text.Pandoc.PDF, Text.Pandoc.Templates, Text.Pandoc.Biblio, Text.Pandoc.SelfContained @@ -316,7 +318,8 @@ Executable pandoc tagsoup >= 0.12.5 && < 0.13, base64-bytestring >= 0.1 && < 0.2, zlib >= 0.5 && <= 0.6, - highlighting-kate >= 0.4 && < 0.5 + highlighting-kate >= 0.4 && < 0.5, + temporary >= 1.1 && < 1.2 if impl(ghc >= 6.10) Build-depends: base >= 4 && < 5, syb >= 0.1 && < 0.4 else diff --git a/src/Text/Pandoc/PDF.hs b/src/Text/Pandoc/PDF.hs new file mode 100644 index 000000000..a5e9d12ea --- /dev/null +++ b/src/Text/Pandoc/PDF.hs @@ -0,0 +1,167 @@ +{-# LANGUAGE OverloadedStrings #-} +{- +Copyright (C) 2012 John MacFarlane <jgm@berkeley.edu> + +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.PDF + Copyright : Copyright (C) 2012 John MacFarlane + License : GNU GPL, version 2 or above + + Maintainer : John MacFarlane <jgm@berkeley.edu> + Stability : alpha + Portability : portable + +Conversion of LaTeX documents to PDF. +-} +module Text.Pandoc.PDF ( tex2pdf ) where + +import Data.Char (isDigit) +import System.IO.Temp +import Data.Maybe (catMaybes) +import Data.Char (toLower) +import Data.ByteString.Lazy (ByteString) +import qualified Data.ByteString.Lazy as B +import qualified Data.ByteString.Lazy.Char8 as BC +import qualified Data.ByteString as BS +import System.Exit (ExitCode (..), exitWith) +import System.FilePath +import System.Directory +import System.Process +import Control.Exception (tryJust, evaluate) +import Control.Monad.Trans (liftIO) +import Control.Monad (guard) +import System.IO.Error (isAlreadyExistsError) +import System.IO (hClose, stderr, stdout) +import Control.Concurrent (putMVar, takeMVar, newEmptyMVar, forkIO) +import Text.Pandoc.UTF8 as UTF8 + +tex2pdf :: TeXProgram + -> String -- ^ latex source + -> IO (Either TeXError ByteString) +tex2pdf program source = withSystemTempDirectory "tex2pdf" $ \tmpdir -> + tex2pdf' 1 tmpdir program source + +tex2pdf' :: Int -- ^ number of run + -> FilePath -- ^ temp directory for output + -> TeXProgram + -> String -- ^ tex source + -> IO (Either TeXError ByteString) +tex2pdf' run tmpDir program source = do + (exit, log, mbPdf) <- runTeXProgram program 3 tmpDir source + case (exit, mbPdf) of + (ExitFailure ec, _) -> return $ Left $ extractTeXError ec log + (ExitSuccess, Nothing) -> error "tex2pdf: ExitSuccess but no PDF created!" + (ExitSuccess, Just pdf) -> return $ Right pdf + +data TeXProgram = PDFLaTeX + | XeLaTeX + | LuaLaTeX + | XeTeX + | LuaTeX + | PDFTeX + deriving (Show, Read) + +data TeXError = TeXError { exitCode :: Int + , message :: ByteString + , fullLog :: ByteString + } deriving (Show, Read) + +-- parsing output + +extractTeXError :: Int -> ByteString -> TeXError +extractTeXError ec log = TeXError { exitCode = ec + , message = extractMsg log + , fullLog = log } + +extractMsg :: ByteString -> ByteString +extractMsg log = do + let msg' = dropWhile (not . ("!" `BC.isPrefixOf`)) $ BC.lines log + let (msg'',rest) = break ("l." `BC.isPrefixOf`) msg' + let lineno = take 1 rest + if not (null msg') + then BC.unlines (msg'' ++ lineno) + else "Unknown errorR" + +parseLine :: ByteString -> Bool +parseLine ln = + if "LaTeX Warning:" `BC.isPrefixOf` ln + then if "Rerun" `elem` ws + then True + else False + else False + where ws = BC.words ln + +hasUndefinedRefs :: ByteString -> Bool +hasUndefinedRefs = or . map parseLine . BC.lines + +-- running tex programs + +-- Run a TeX program on an input bytestring and return (exit code, +-- contents of stdout, contents of produced PDF if any). Rerun +-- latex as needed to resolve references, but don't run bibtex/biber. +runTeXProgram :: TeXProgram -> Int -> FilePath -> String + -> IO (ExitCode, ByteString, Maybe ByteString) +runTeXProgram program runsLeft tmpDir source = do + let programName = map toLower (show program) + withTempFile tmpDir "tex2pdf" $ \file h -> do + UTF8.hPutStr h source + hClose h + let programArgs = ["-halt-on-error", "-interaction", "nonstopmode", + "-output-directory", tmpDir, file] + (exit, out, _err) <- readCommand programName programArgs + removeFile file + let pdfFile = replaceDirectory (replaceExtension file ".pdf") tmpDir + pdfExists <- doesFileExist pdfFile + pdf <- if pdfExists + then Just `fmap` B.readFile pdfFile + else return Nothing + if hasUndefinedRefs out && runsLeft > 0 + then runTeXProgram program (runsLeft - 1) tmpDir source + else return (exit, out, pdf) + +-- utility functions + +-- Run a command and return exitcode, contents of stdout, and +-- contents of stderr. (Based on +-- 'readProcessWithExitCode' from 'System.Process'.) +readCommand :: FilePath -- ^ command to run + -> [String] -- ^ any arguments + -> IO (ExitCode,ByteString,ByteString) -- ^ exitcode, stdout, stderr + +readCommand cmd args = do + (Just inh, Just outh, Just errh, pid) <- + createProcess (proc cmd args){ std_in = CreatePipe, + std_out = CreatePipe, + std_err = CreatePipe } + outMVar <- newEmptyMVar + -- fork off a thread to start consuming stdout + out <- B.hGetContents outh + _ <- forkIO $ evaluate (B.length out) >> putMVar outMVar () + -- fork off a thread to start consuming stderr + err <- B.hGetContents errh + _ <- forkIO $ evaluate (B.length err) >> putMVar outMVar () + -- now write and flush any input + hClose inh -- done with stdin + -- wait on the output + takeMVar outMVar + takeMVar outMVar + hClose outh + -- wait on the process + ex <- waitForProcess pid + return (ex, out, err) + |