haskell - 使用 hsc2hs 与 XKB API 接口(interface)

Question

我正在尝试访问 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 结构的结构。

Answer 1

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 作为“一切!”的掩码