diff options
Diffstat (limited to 'src/Text/Pandoc/Lua/Module')
| -rw-r--r-- | src/Text/Pandoc/Lua/Module/System.hs | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Lua/Module/System.hs b/src/Text/Pandoc/Lua/Module/System.hs new file mode 100644 index 000000000..5149c2112 --- /dev/null +++ b/src/Text/Pandoc/Lua/Module/System.hs @@ -0,0 +1,34 @@ +{- | + Module : Text.Pandoc.Lua.Module.System + Copyright : © 2019 Albert Krewinkel + License : GNU GPL, version 2 or above + + Maintainer : Albert Krewinkel <tarleb+pandoc@moltkeplatz.de> + Stability : alpha + +Pandoc's system Lua module. +-} +module Text.Pandoc.Lua.Module.System + ( pushModule + ) where + +import Prelude +import Foreign.Lua (Lua, NumResults) +import Foreign.Lua.Module.System (arch, env, getwd, os, + with_env, with_tmpdir, with_wd) +import Text.Pandoc.Lua.Util (addFunction, addField) + +import qualified Foreign.Lua as Lua + +-- | Push the pandoc.system module on the Lua stack. +pushModule :: Lua NumResults +pushModule = do + Lua.newtable + addField "arch" arch + addField "os" os + addFunction "environment" env + addFunction "get_current_directory" getwd + addFunction "with_environment" with_env + addFunction "with_temp_directory" with_tmpdir + addFunction "with_working_directory" with_wd + return 1 |