{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
module Text.Pandoc.Lua.Marshal.List
( pushPandocList
, luaopen_list_ptr
, pushListModule
, newListMetatable
) where
import Data.ByteString (useAsCString)
import Foreign.C
import HsLua
pushPandocList :: LuaError e => Pusher e a -> Pusher e [a]
pushPandocList :: Pusher e a -> Pusher e [a]
pushPandocList pushItem :: Pusher e a
pushItem items :: [a]
items = do
Pusher e a -> Pusher e [a]
forall e a. LuaError e => Pusher e a -> [a] -> LuaE e ()
pushList Pusher e a
pushItem [a]
items
Name -> LuaE e Type
forall e. Name -> LuaE e Type
getmetatable' "List" LuaE e Type -> (Type -> LuaE e ()) -> LuaE e ()
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \case
TypeTable -> StackIndex -> LuaE e ()
forall e. StackIndex -> LuaE e ()
setmetatable (CInt -> StackIndex
nth 2)
_ -> String -> LuaE e ()
forall e a. LuaError e => String -> LuaE e a
failLua "List has not been initialized correctly."
foreign import ccall unsafe "listmod.c &luaopen_list"
luaopen_list_ptr :: CFunction
pushListModule :: LuaError e => LuaE e ()
pushListModule :: LuaE e ()
pushListModule = do
CFunction -> LuaE e ()
forall e. CFunction -> LuaE e ()
pushcfunction CFunction
luaopen_list_ptr
NumArgs -> NumResults -> LuaE e ()
forall e. LuaError e => NumArgs -> NumResults -> LuaE e ()
call 0 1
foreign import ccall "listmod.c lualist_newmetatable"
lualist_newmetatable :: State -> CString -> IO CInt
newListMetatable :: Name -> LuaE e () -> LuaE e ()
newListMetatable :: Name -> LuaE e () -> LuaE e ()
newListMetatable (Name name :: ByteString
name) setup :: LuaE e ()
setup = do
State
l <- LuaE e State
forall e. LuaE e State
state
IO CInt -> LuaE e CInt
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ByteString -> (CString -> IO CInt) -> IO CInt
forall a. ByteString -> (CString -> IO a) -> IO a
useAsCString ByteString
name (State -> CString -> IO CInt
lualist_newmetatable State
l)) LuaE e CInt -> (CInt -> LuaE e ()) -> LuaE e ()
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= \case
0 -> () -> LuaE e ()
forall (f :: * -> *) a. Applicative f => a -> f a
pure ()
_ -> LuaE e ()
setup