Взаимодействие с API XKB с 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 быть маска для «все!»