create globals

1 files changed, 14 insertions, 0 deletions

diff --git a/wayland/Wayland/Server/System.hsc b/wayland/Wayland/Server/System.hsc
index f758a65..6fcd52c 100644
--- a/wayland/Wayland/Server/System.hsc
+++ b/wayland/Wayland/Server/System.hsc
@@ -6,6 +6,7 @@ module Wayland.Server.System where
 
 import Foreign (FunPtr, Ptr, Storable(..))
 import Foreign.C (CString, CInt(..))
+import Data.Word (Word32)
 
 data WLMessage
   = WLMessage { msgName      :: CString
@@ -27,12 +28,19 @@ data WLInterface
 newtype WLDisplay     = WLDisplay     (Ptr WLDisplay)
 newtype WLEventLoop   = WLEventLoop   (Ptr WLEventLoop)
 newtype WLEventSource = WLEventSource (Ptr WLEventSource)
+newtype WLGlobal      = WLGlobal      (Ptr WLGlobal)
+newtype WLClient      = WLClient      (Ptr WLClient)
+newtype WLResource    = WLResource    (Ptr WLResource)
 
 type WLEventLoopSignalFunc = CInt -> Ptr () -> IO CInt
+type WLGlobalBindFunc      = WLClient -> Ptr () -> Word32 -> Word32 -> IO ()
 
 foreign import ccall "wrapper"
   wrapWLEventLoopSignalFunc :: WLEventLoopSignalFunc -> IO (FunPtr WLEventLoopSignalFunc)
 
+foreign import ccall "wrapper"
+  wrapWLGlobalBindFunc :: WLGlobalBindFunc -> IO (FunPtr WLGlobalBindFunc)
+
 foreign import ccall "wl_display_create"
   wlDisplayCreate :: IO WLDisplay
 
@@ -54,6 +62,12 @@ foreign import ccall "wl_display_get_event_loop"
 foreign import ccall "wl_event_loop_add_signal"
   wlEventLoopAddSignal :: WLEventLoop -> CInt -> FunPtr WLEventLoopSignalFunc -> Ptr () -> IO WLEventSource
 
+foreign import ccall "wl_global_create"
+  wlGlobalCreate :: WLDisplay -> Ptr WLInterface -> CInt -> Ptr () -> FunPtr WLGlobalBindFunc -> IO WLGlobal
+
+foreign import ccall "wl_resource_create"
+  wlResourceCreate :: WLClient -> Ptr WLInterface -> CInt -> Word32 -> IO WLResource
+
 instance Storable WLMessage where
   sizeOf    _ = #{size struct wl_message}
   alignment _ = #{alignment struct wl_message}