blob: d13e2b0a34db9bcb848ee5f58182e3052fe2bc8a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
{- |
Module : PandocCLI.Lua
Copyright : © 2022-2024 Albert Krewinkel
License : GPL-2.0-or-later
Maintainer : Albert Krewinkel <[email protected]>
Functions to run the pandoc Lua scripting engine.
-}
module PandocCLI.Lua (runLuaInterpreter, getEngine) where
#ifdef REPL
import Control.Monad ((<=<))
import System.Environment (lookupEnv)
import System.IO.Temp (withSystemTempFile)
import System.IO (hClose)
import Text.Pandoc.Class (runIOorExplode)
import Text.Pandoc.Error (handleError)
import Text.Pandoc.Lua (runLua, runLuaNoEnv, getEngine)
import Text.Pandoc.Version (pandocVersionText)
import HsLua.CLI (EnvBehavior (..), Settings (..), runStandalone)
#else
import Text.Pandoc.Lua (getEngine)
import System.IO (stderr, hPutStrLn)
import System.Exit (exitWith, ExitCode(..))
#endif
-- | Runs pandoc as a Lua interpreter that is (mostly) compatible with
-- the default @lua@ program shipping with Lua.
--
-- The filename for the history of the REPL is taken from the
-- @PANDOC_REPL_HISTORY@ environment variable if possible. Otherwise a
-- new temporary file is used; it is removed after the REPL finishes.
runLuaInterpreter :: String -- ^ Program name
-> [String] -- ^ Command line arguments
-> IO ()
#ifdef REPL
runLuaInterpreter progName args = do
-- We need some kind of temp
mbhistfile <- lookupEnv "PANDOC_REPL_HISTORY"
case mbhistfile of
Just histfile -> runStandaloneWithHistory histfile
Nothing -> withSystemTempFile "pandoc-hist" $ \fp handle -> do
-- We cannot pass a handle to the repl; the file will be re-opened
-- there.
hClose handle
runStandaloneWithHistory fp
where
runStandaloneWithHistory histfile = do
let settings = Settings
{ settingsVersionInfo =
"\nEmbedded in pandoc " <>
pandocVersionText <>
" Copyright (C) 2006-2024 John MacFarlane"
, settingsRunner = runner
, settingsHistory = Just histfile
}
runStandalone settings progName args
runner envBehavior =
let runLua' = case envBehavior of
IgnoreEnvVars -> runLuaNoEnv
ConsultEnvVars -> runLua
in handleError <=< runIOorExplode . runLua'
#else
runLuaInterpreter _ _ = do
hPutStrLn stderr "Pandoc not compiled with Lua interpreter support."
exitWith $ ExitFailure 4
#endif
|
