FFI: union 対応

[x022235]

背景

• Win32 APIを叩くこともたまにあって、たいがいは単純なんですが、SendInput()を使ってみようとしたところで手が止まりました。引数にunionで複数の構造体をまとめたメンバーをもった構造体をとるのですね。unionでまとめられたメンバーをどう扱えばいいのか、さっぱりでした。

  http://d.hatena.ne.jp/hoshimin/20060630

• typedef struct tagINPUT {
    DWORD type;
    union {
      MOUSEINPUT    mi;
      KEYBDINPUT    ki;
      HARDWAREINPUT hi;
    };
  } INPUT, *PINPUT;
  

  http://msdn.microsoft.com/en-us/library/windows/desktop/ms646270(v=vs.85).aspx

仕様

こんな感じ。

(c:define-c-struct MOUSEINPUT
  ...)
(c:define-c-struct KEYBDINPUT
  ...)
(c:define-c-struct HARDWAREINPUT
  ...)
(c:define-c-struct INPUT
  (DWORD type)
  (c:union (MOUSEINPUT mi)
           (KEYBDINPUT ki)
           (HARDWAREINPUT hi)))

(MOUSEINPUT-dx (INPUT-mi input)) ;=> xxx