使用hsc2hs与XKB API进行连接

我试图访问XKB API中的各种位和bobs。这是到目前为止我的测试代码：使用hsc2hs与XKB API进行连接

{-# LANGUAGE ForeignFunctionInterface #-} 
module Main where 

import Foreign 
import Foreign.C.Types 

#include <X11/XKBlib.h> 
#let alignment t = "%lu", (unsigned long)offsetof(struct {char x__; t (y__); }, y__) 

data XkbDescRec = XkbDescRec { names :: Ptr XkbNamesRec } deriving (Show) 

data XkbNamesRec = XkbNamesRec { groups :: Ptr Word64 } -- Ignore me 

foreign import ccall unsafe "X11/XKBlib.h XkbAllocKeyboard" 
    xkbAllocKeyboard :: IO (Ptr XkbDescRec) 

instance Storable XkbDescRec where 
    sizeOf _ = (#size XkbDescRec) 
    alignment _ = (#alignment XkbDescRec) 
    peek ptr = do 
    names <- (#peek XkbDescRec, names) ptr 
    return $ XkbDescRec names 

main = do 
    xkbDescPtr <- xkbAllocKeyboard 

    print xkbDescPtr   -- (1) 
    peek xkbDescPtr >>= print -- (2)

虽然（1）输出0x0000000001777d80，这听起来像一个有效地址，（2）发射XkbDescRec {names = 0x0000000000000000}。

我不知道我是否以错误的方式使用FFI，或者我误解了链接中详细描述的XkbDescRec结构的结构。

来源

2014-09-04 Sarah

我开始认为我误解了XkbAllocKeyboard，并始终将该指针初始化为空。如果有人能确认我会很乐意接受。 – Sarah 2014-09-04 21:30:04

XkbAllocKeyboard生成一个空白的XkbDescRec，由程序员填充。正确的方法是使用XkbGetKeyboard。我没有如下的变化仅在必要位：

import Graphics.X11.Xlib (openDisplay, Display(..)) 

foreign import ccall unsafe "X11/XKBlib.h XkbGetKeyboard" 
xkbGetKeyboard :: Display -> CUInt -> CUInt -> IO (Ptr XkbDescRec) 

main = do 
    dpy  <- openDisplay "" 
    xkbDescPtr <- xkbGetKeyboard dpy 0x7f (#const XkbUseCoreKbd)

的XkbDescRep与0x7F的是针对蒙版填充正确“的一切！”

来源

2014-09-04 21:56:40 Sarah

这让我想起为什么我仍然对X编程感到害怕:)。 – 2014-09-04 22:27:23

使用hsc2hs与XKB API进行连接

回答

相关问题