win-ffi 0.3.0

data/lib/win-ffi/structs/comdlg32/find_replace.rb

@@ -0,0 +1,24 @@
+module WinFFI
+  module Comdlg32
+    #UINT_PTR CALLBACK FRHookProc(
+    #  _In_  HWND hdlg,
+    #  _In_  UINT uiMsg,
+    #  _In_  WPARAM wParam,
+    #  _In_  LPARAM lParam )
+    callback :FRHOOKPROC, [:hwnd, :uint, :wparam, :lparam], :uint
+
+    class FINDREPLACE < FFIStruct
+      layout :lStructSize,      :dword,
+             :hwndOwner,        :hwnd,
+             :hInstance,        :hinstance,
+             :Flags,            :dword,
+             :lpstrFindWhat,    :string,
+             :lpstrReplaceWith, :string,
+             :wFindWhatLen,     :word,
+             :wReplaceWithLen,  :word,
+             :lCustData,        :lparam,
+             :lpfnHook,         :FRHOOKPROC,
+             :lpTemplateName,   :string
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/abc.rb

@@ -0,0 +1,9 @@
+module WinFFI
+  module Gdi32
+    class ABC < FFIStruct
+      layout :abcA, :int,
+             :abcB, :uint,
+             :abcC, :int
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/abcfloat.rb

@@ -0,0 +1,10 @@
+module WinFFI
+  module Gdi32
+    class ABCFLOAT < FFIStruct
+      layout :abcfA, :float,
+             :abcfB, :float,
+             :abcfC, :int
+    end
+  end
+end
+

data/lib/win-ffi/structs/gdi32/bitmap.rb

@@ -0,0 +1,13 @@
+module WinFFI
+  module Gdi32
+    class BITMAP < FFIStruct
+      layout :bmType,       :long,
+             :bmWidth,      :long,
+             :bmHeight,     :long,
+             :bmWidthBytes, :long,
+             :bmPlanes,     :word,
+             :bmBitsPixel,  :word,
+             :bmBits,       :pointer
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/bitmap_info.rb

@@ -0,0 +1,11 @@
+require_relative 'bitmap_info_header'
+require_relative 'rgb_quad'
+
+module WinFFI
+  module Gdi32
+    class BITMAPINFO < FFIStruct
+      layout :bmiHeader, BITMAPINFOHEADER,
+             :bmiColors, RGBQUAD
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/bitmap_info_header.rb

@@ -0,0 +1,17 @@
+module WinFFI
+  module Gdi32
+    class BITMAPINFOHEADER < FFIStruct
+      layout :biSize,          :dword,
+             :biWidth,         :long,
+             :biHeight,        :long,
+             :biPlanes,        :word,
+             :biBitCount,      :word,
+             :biCompression,   :dword,
+             :biSizeImage,     :dword,
+             :biXPelsPerMeter, :long,
+             :biYPelsPerMeter, :long,
+             :biClrUsed,       :dword,
+             :biClrImportant,  :dword
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/blend_function.rb

@@ -0,0 +1,10 @@
+module WinFFI
+  module Gdi32
+    class BLENDFUNCTION < FFIStruct
+      layout :BlendOp,             :byte,
+             :BlendFlags,          :byte,
+             :SourceConstantAlpha, :byte,
+             :AlphaFormat,         :byte
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/display_device.rb

@@ -0,0 +1,12 @@
+module WinFFI
+  module Gdi32
+    class DISPLAY_DEVICE < FFIStruct
+      layout :cb,           :dword,
+             :DeviceName,   [:char, 32],
+             :DeviceString, [:char, 128],
+             :StateFlags,   :dword,
+             :DeviceID,     [:char, 128],
+             :DeviceKey,    [:char, 128]
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/handle_table.rb

@@ -0,0 +1,7 @@
+module WinFFI
+  module Gdi32
+    class HANDLETABLE < FFIStruct
+      layout :objectHandle, :pointer
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/kerning_pair.rb

@@ -0,0 +1,9 @@
+module WinFFI
+  module Gdi32
+    class KERNINGPAIR < FFIStruct
+      layout :wFirst,      :word,
+             :wSecond,     :word,
+             :iKernAmount, :int
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/log_brush.rb

@@ -0,0 +1,10 @@
+module WinFFI
+  module Gdi32
+    extend LibBase
+    class LOGBRUSH < FFIStruct
+      layout :lbStyle, :uint,
+             :lbColor, :colorref,
+             :lbHatch, :uint
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/log_font.rb

@@ -0,0 +1,20 @@
+module WinFFI
+  module Gdi32
+    class LOGFONT < FFIStruct
+      layout :lfHeight,      :long,
+             :lfWidth,       :long,
+             :lfEscapement,  :long,
+             :lfOrientation, :long,
+             :lfWeight,      :long,
+             :lfItalic,      :uchar,
+             :lfUnderline,   :uchar,
+             :lfStrikeOut,   :uchar,
+             :lfCharSet, :uchar,
+             :lfOutPrecision, :uchar,
+             :lfClipPrecision, :uchar,
+             :lfQuality, :uchar,
+             :lfPitchAndFamily, :uchar,
+             :lfFaceName, [:ushort, 32]
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/meta_file_pict.rb

@@ -0,0 +1,10 @@
+module WinFFI
+  module Gdi32
+    class METAFILEPICT < FFIStruct
+      layout :mm,   :long,
+             :xExt, :long,
+             :yExt, :long,
+             :hMf,  :long
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/palette_entry.rb

@@ -0,0 +1,10 @@
+module WinFFI
+  module Gdi32
+    class PALETTEENTRY < FFIStruct
+      layout :peRed,   :byte,
+             :peGreen, :byte,
+             :peBlue,  :byte,
+             :peFlags, :byte
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/pixel_format_descriptor.rb

@@ -0,0 +1,57 @@
+require_relative '../../enums/gdi32/pfd_flags'
+
+module WinFFI
+  module Gdi32
+    class PIXELFORMATDESCRIPTOR < FFIStruct
+      FLAGS_INV = PFDFlags.to_hash.reduce(Hash.new{|h,k| h[k] = []}){|h,(k,v)| h[v] << k; h}.freeze
+
+      layout :nSize,           :ushort,
+             :nVersion,        :ushort,
+             :dwFlags,         :uint,
+             :iPixelType,      :char,
+             :cColorBits,      :char,
+             :cRedBits,        :char,
+             :cRedShift,       :char,
+             :cGreenBits,      :char,
+             :cGreenShift,     :char,
+             :cBlueBits,       :char,
+             :cBlueShift,      :char,
+             :cAlphaBits,      :char,
+             :cAlphaShift,     :char,
+             :cAccumBits,      :char,
+             :cAccumRedBits,   :char,
+             :cAccumGreenBits, :char,
+             :cAccumBlueBits,  :char,
+             :cAccumAlphaBits, :char,
+             :cDepthBits,      :char,
+             :cStencilBits,    :char,
+             :cAuxBuffers,     :char,
+             :iLayerType,      :char,
+             :bReserved,       :char,
+             :dwLayerMask,     :uint,
+             :dwVisibleMask,   :uint,
+             :dwDamageMask,    :uint
+
+      #TODO
+      #undef_method :nSize=
+
+      def initialize
+        super
+        self[:nSize] = self.size
+      end
+
+      def dwFlags
+        val = self[:dwFlags]
+        Set.new(FLAGS_INV.select{|k,_| val & k != 0}.reduce([]) {|a,(_,v)| a << v}.flatten)
+      end
+
+      def dwFlags=(flags)
+        self[:dwFlags] = [*flags].reduce(0) {|a,f| a | PFDFlags[f].to_i}
+      end
+
+      def to_s
+        [:iPixelType, :cColorBits, :cAccumBits, :cDepthBits, :iLayerType, :dwFlags].map{|n| "#{n} = #{send(n).inspect}"}.join(', ')
+      end
+    end
+  end
+end

data/lib/win-ffi/structs/gdi32/rgb_quad.rb

@@ -0,0 +1,10 @@
+module WinFFI
+  module Gdi32
+    class RGBQUAD < FFIStruct
+      layout :rgbBlue,     :byte,
+             :rgbGreen,    :byte,
+             :rgbRed,      :byte,
+             :rgbReserved, :byte
+    end
+  end
+end

data/lib/win-ffi/structs/kernel32/actctx.rb

@@ -0,0 +1,22 @@
+require_relative '../../enums/kernel32/activation_context'
+
+module WinFFI
+  module Kernel32
+    class ACTCTX < FFIStruct
+      layout :cbSize,                 :ulong,
+             :dwFlags,                ActivationContext,
+             :lpSource,               :pointer,
+             :wProcessorArchitecture, :ushort,
+             :wLangId,                :langid,
+             :lpAssemblyDirectory,    :pointer,
+             :lpResourceName,         :pointer,
+             :lpApplicationName,      :pointer,
+             :hModule,                :hmodule
+
+      def initialize(*args)
+        super
+        self.cbSize = self.size
+      end
+    end
+  end
+end

data/lib/win-ffi/structs/netapi32/wksta_info_100.rb

@@ -0,0 +1,9 @@
+module WinFFI
+  class WKSTA_INFO_100 < FFIStruct
+    layout :wki100_platform_id,  :dword,
+           :wki100_computername, :string,
+           :wki100_langroup,     :string,
+           :wki100_ver_major,    :dword,
+           :wki100_ver_minor,    :dword
+  end
+end

data/lib/win-ffi/structs/os_version_info.rb

@@ -0,0 +1,10 @@
+module WinFFI
+  class OSVERSIONINFO < FFIStruct
+    layout :dwOSVersionInfoSize, :ulong,
+           :dwMajorVersion,      :ulong,
+           :dwMinorVersion,      :ulong,
+           :dwBuildNumber,       :ulong,
+           :dwPlatformId,        :ulong,
+           :szCSDVersion,        [:char, 128]
+  end
+end

data/lib/win-ffi/structs/os_version_info_ex.rb

@@ -0,0 +1,70 @@
+module WinFFI
+  class OSVERSIONINFOEX < FFIStruct
+    layout :dwOSVersionInfoSize, :ulong,
+           :dwMajorVersion,      :ulong,
+           :dwMinorVersion,      :ulong,
+           :dwBuildNumber,       :ulong,
+           :dwPlatformId,        :ulong,
+           :szCSDVersion,        [:char, 128],
+           :wServicePackMajor,   :ushort,
+           :wServicePackMinor,   :ushort,
+           :wSuiteMask,          :ushort,
+           :wProductType,        :uchar,
+           :wReserved,           :uchar
+
+    def initialize
+      super
+      self[:dwOSVersionInfoSize] = size
+    end
+
+    def get!
+      Kernel32.GetVersionExA(self)
+      self
+    end
+
+    def major; dwMajorVersion end
+    def minor; dwMinorVersion end
+    def build; dwBuildNumber  end
+    def sp; wServicePackMajor end
+
+    def major=(major)
+      self.dwMajorVersion = major
+    end
+
+    def minor=(minor)
+      self.dwMinorVersion = minor
+    end
+
+    def hex; (major << 8) + minor end
+
+    def <=>(version)
+      hex <=> case version
+              when '2000',  2000   then 0x0500
+              when 'xp',    :xp    then 0x0501
+              when 'vista', :vista then 0x0600
+              when '7', 7;         then 0x0601
+              when '8', 8;         then 0x0602
+              when '8.1', 8.1;     then 0x0603
+              when '10', 10;       then 0x0604
+              else raise ArgumentError, 'Unknown Version'
+              end
+    end
+
+    include Comparable
+
+    def name
+      case hex
+      when 0x0500...0x0501; 'Windows 2000'
+      when 0x0501...0x0600; 'Windows XP'
+      when 0x0600...0x0601; 'Windows Vista'
+      when 0x0601; 'Windows 7'
+      when 0x0602; 'Windows 8'
+      when 0x0603; 'Windows 8.1'
+      when 0x0a00; 'Windows 10'
+      else 'Unknown'
+      end
+    end
+
+    def to_s; "#{name} v#{major}.#{minor}.#{build} SP#{sp}" end
+  end
+end

data/lib/win-ffi/structs/paint_struct.rb

@@ -0,0 +1,12 @@
+require 'win-ffi/structs/rect'
+
+module WinFFI
+  class PAINTSTRUCT < FFIStruct
+    layout :hdc,         :hdc,
+           :fErase,      :bool,
+           :rcPaint,     RECT,
+           :fRestore,    :bool,
+           :fIncUpdate,  :bool,
+           :rgbReserved, [:uint8, 32]
+  end
+end

data/lib/win-ffi/structs/point.rb

@@ -0,0 +1,10 @@
+module WinFFI
+  class POINT < FFIStruct
+    layout :x, :long,
+           :y, :long
+
+    def to_s
+      "(x = #{x}, y = #{y})"
+    end
+  end
+end

data/lib/win-ffi/structs/rect.rb

@@ -0,0 +1,28 @@
+module WinFFI
+  class RECT < FFIStruct
+    layout :left,   :long,
+           :top,    :long,
+           :right,  :long,
+           :bottom, :long
+
+    def width
+      right - left
+    end
+
+    def width=(v)
+      self.right = left + v
+    end
+
+    def height
+      bottom - top
+    end
+
+    def height=(v)
+      self.bottom = top + v
+    end
+
+    def to_s
+      "(left = #{left}, top = #{top}, width = #{width}, height = #{height})"
+    end
+  end
+end

data/lib/win-ffi/structs/size.rb

@@ -0,0 +1,6 @@
+module WinFFI
+  class SIZE < FFIStruct
+    layout :cx, :long,
+           :cy, :long
+  end
+end

data/lib/win-ffi/structs/user32/controls/combobox_info.rb

@@ -0,0 +1,13 @@
+module WinFFI
+  module User32
+    class COMBOBOXINFO < FFIStruct
+      layout :cbSize,      :dword,
+             :rcItem,      RECT,
+             :rcButton,    RECT,
+             :stateButton, :dword,
+             :hwndCombo,   :hwnd,
+             :hwndItem,    :hwnd,
+             :hwndList,    :hwnd
+    end
+  end
+end

data/lib/win-ffi/structs/user32/controls/scroll_info.rb

@@ -0,0 +1,13 @@
+module WinFFI
+  module User32
+    class SCROLLINFO < FFIStruct
+      layout :cbSize,    :uint,
+             :fMask,     :uint,
+             :nMin,      :int,
+             :nMax,      :int,
+             :nPage,     :uint,
+             :nPos,      :int,
+             :nTrackPos, :int
+    end
+  end
+end

data/lib/win-ffi/structs/user32/controls/scrollbar_info.rb

@@ -0,0 +1,13 @@
+module WinFFI
+  module User32
+    class SCROLLBARINFO < FFIStruct
+      layout :cbSize,        :dword,
+             :rcScrollBar,   RECT,
+             :dxyLineButton, :int,
+             :xyThumbTop,    :int,
+             :xyThumbBottom, :int,
+             :reserved,      :int,
+             :rgstate,       :dword
+    end
+  end
+end

data/lib/win-ffi/structs/user32/cursor_info.rb

@@ -0,0 +1,10 @@
+module WinFFI
+  module User32
+    class CURSORINFO < FFIStruct
+      layout :cbSize,      :dword,
+             :flags,       :dword,
+             :hCursor,     :hcursor,
+             :ptScreenPos, WinFFI::POINT
+    end
+  end
+end

data/lib/win-ffi/structs/user32/display_device.rb

@@ -0,0 +1,12 @@
+module WinFFI
+  module User32
+    class DISPLAY_DEVICE < FFIStruct
+      layout :cb,           :dword,
+             :DeviceName,   [:char, 32],
+             :DeviceString, [:char, 128],
+             :StateFlags,   :dword,
+             :DeviceID,     [:char, 128],
+             :DeviceKey,    [:char, 128]
+    end
+  end
+end

data/lib/win-ffi/structs/user32/draw_text_params.rb

@@ -0,0 +1,11 @@
+module WinFFI
+  module User32
+    class DRAWTEXTPARAMS < FFIStruct
+      layout :cbSize,        :uint,
+             :iTabLength,    :int,
+             :iLeftMargin,   :int,
+             :iRightMargin,  :int,
+             :uiLengthDrawn, :uint
+    end
+  end
+end

data/lib/win-ffi/structs/user32/icon_info.rb

@@ -0,0 +1,11 @@
+module WinFFI
+  module User32
+    class ICONINFO < FFIStruct
+      layout :fIcon,    :bool,
+             :xHotspot, :dword,
+             :yHotspot, :dword,
+             :hbmMask,  :pointer,
+             :hbmColor, :pointer
+    end
+  end
+end

data/lib/win-ffi/structs/user32/icon_info_ex.rb

@@ -0,0 +1,15 @@
+module WinFFI
+  module User32
+    class ICONINFOEX < FFIStruct
+      layout :cbSize,    :dword,
+             :fIcon,     :bool,
+             :xHotspot,  :dword,
+             :yHotspot,  :dword,
+             :hbmMask,   :pointer,
+             :hbmColor,  :pointer,
+             :wResID,    :word,
+             :szModName, :string,
+             :szResName, :string
+    end
+  end
+end

data/lib/win-ffi/structs/user32/last_input_info.rb

@@ -0,0 +1,8 @@
+module WinFFI
+  module User32
+    class LASTINPUTINFO < FFIStruct
+      layout :cbSize, :uint,
+             :dwTime, :dword
+    end
+  end
+end

data/lib/win-ffi/structs/user32/mouse_move_point.rb

@@ -0,0 +1,10 @@
+module WinFFI
+  module User32
+    class MOUSEMOVEPOINT < FFIStruct
+      layout :x,           :int,
+             :y,           :int,
+             :time,        :dword,
+             :dwExtraInfo, :ulong
+    end
+  end
+end

data/lib/win-ffi/structs/user32/msg.rb

@@ -0,0 +1,16 @@
+module WinFFI
+  module User32
+    class MSG < FFIStruct
+      layout :hwnd,    :pointer,
+             :message, :uint,
+             :ulong,   :ulong,
+             :long,    :long,
+             :time,    :uint,
+             :pt,      POINT
+
+      def to_s
+        "<User32::MSG #{members.map { |m| "#{m} = #{self[m]}" }.join(', ')}>"
+      end
+    end
+  end
+end

data/lib/win-ffi/structs/user32/pointer_info.rb

@@ -0,0 +1,25 @@
+require_relative '../../enums/user32/pointer_input_type'
+require_relative '../../enums/user32/pointer_flags'
+
+module WinFFI
+  module User32
+    class POINTER_INFO < FFIStruct
+      layout :pointerType,           PointerInputType,
+             :pointerId,             :uint32,
+             :frameId,               :uint32,
+             :pointerFlags,          PointerFlags,
+             :sourceDevice,          :handle,
+             :hwndTarget,            :hwnd,
+             :ptPixelLocation,       POINT,
+             :ptHimetricLocation,    POINT,
+             :ptPixelLocationRaw,    POINT,
+             :ptHimetricLocationRaw, POINT,
+             :dwTime,                :dword,
+             :historyCount,          :uint32,
+             :inputData,             :int32,
+             :dwKeyStates,           :dword,
+             :PerformanceCount,      :uint,
+             :ButtonChangeType,      :pointer
+    end
+  end
+end

data/lib/win-ffi/structs/user32/pointer_pen_info.rb

@@ -0,0 +1,18 @@
+require_relative '../../enums/user32/pen_flags'
+require_relative '../../enums/user32/pen_mask'
+
+require_relative 'pointer_info'
+
+module WinFFI
+  module User32
+    class POINTER_PEN_INFO < FFIStruct
+      layout :pointerInfo, POINTER_INFO,
+             :penFlags,    PenFlags,
+             :penMask,     PenMask,
+             :pressure,    :uint32,
+             :rotation,    :uint32,
+             :tiltX,       :int32,
+             :tiltY,       :int32
+    end
+  end
+end

data/lib/win-ffi/structs/user32/pointer_touch_info.rb

@@ -0,0 +1,17 @@
+require_relative '../../enums/user32/touch_mask'
+
+require_relative 'pointer_info'
+
+module WinFFI
+  module User32
+    class POINTER_TOUCH_INFO < FFIStruct
+      layout :pointerInfo,  POINTER_INFO,
+             :touchFlags,   :int,
+             :touchMask,    TouchMask,
+             :rcContact,    RECT,
+             :rcContactRaw, RECT,
+             :orientation,  :uint32,
+             :pressure,     :uint32
+    end
+  end
+end

data/lib/win-ffi/structs/user32/raw_input_device_list.rb

@@ -0,0 +1,10 @@
+require_relative '../../enums/user32/rim'
+
+module WinFFI
+  module User32
+    class RAWINPUTDEVICELIST < FFIStruct
+      layout :hDevice, :handle,
+             :dwType,  RIM
+    end
+  end
+end