Взаимодействие с XKB API с помощью hsc2hs

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 - маска для всего!