hsc2hs로 XKB API와의 인터페이스

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를이 용 마스크되고 제대로 채워집니다 "다!"