Radoslav-Splice 0.0.0

data/Lib/WinAPI/Functions.rb

@@ -0,0 +1,145 @@
+if __FILE__ == $0
+	require 'ffi'
+
+	require 'Constants'
+	require 'Types'
+end
+
+#{ macro
+def LOBYTE(w); w & 0xff end
+def HIBYTE(w); (w >> 8) & 0xff end
+def LOWORD(l); l & 0xffff end
+def HIWORD(l); (l >> 16) & 0xffff end
+def MAKEWORD(a, b); (a & 0xff) | ((b & 0xff) << 8) end
+def MAKELONG(a, b); (a & 0xffff) | ((b & 0xffff) << 16) end
+def SUCCEEDED(hr); hr >= 0 end
+def FAILED(hr); hr < 0 end
+#}
+
+module Kernel32
+	extend FFI::Library
+
+	ffi_lib 'kernel32'
+
+	attach_function :GetModuleHandle, :GetModuleHandleA, [:LPCTSTR], :HMODULE
+
+	#{ actctx
+	attach_function :CreateActCtx, :CreateActCtxA, [:pointer], :HANDLE
+	attach_function :ReleaseActCtx, [:HANDLE], :void
+	attach_function :ActivateActCtx, [:HANDLE, :pointer], :BOOL
+	attach_function :DeactivateActCtx, [:DWORD, :ULONG_PTR], :BOOL
+	#}
+end
+
+module Ole32
+	extend FFI::Library
+
+	ffi_lib 'ole32'
+
+	attach_function :CoInitializeEx, [:LPVOID, :DWORD], :HRESULT
+	attach_function :CoUninitialize, [], :void
+
+	attach_function :OleInitialize, [:LPVOID], :HRESULT
+	attach_function :OleUninitialize, [], :void
+
+	attach_function :CoTaskMemFree, [:LPVOID], :void
+end
+
+module User32
+	extend FFI::Library
+
+	ffi_lib 'user32'
+
+	#{ icon/cursor
+	attach_function :LoadIcon, :LoadIconA, [:HINSTANCE, :pointer], :HICON
+	attach_function :LoadCursor, :LoadCursorA, [:HINSTANCE, :pointer], :HCURSOR
+	#}
+
+	#{ window
+	attach_function :RegisterClassEx, :RegisterClassExA, [:pointer], :ATOM
+	attach_function :CreateWindowEx, :CreateWindowExA, [:DWORD, :LPCTSTR, :LPCTSTR, :DWORD, :int, :int, :int, :int, :HWND, :HMENU, :HINSTANCE, :LPVOID], :HWND
+	attach_function :DestroyWindow, [:HWND], :BOOL
+	attach_function :GetWindowLongPtr, :GetWindowLongA, [:HWND, :int], :LONG_PTR
+	attach_function :GetWindow, [:HWND, :UINT], :HWND
+	attach_function :ShowWindow, [:HWND, :int], :BOOL
+	attach_function :UpdateWindow, [:HWND], :BOOL
+	attach_function :EnableWindow, [:HWND, :BOOL], :BOOL
+	attach_function :SetWindowText, :SetWindowTextA, [:HWND, :LPCTSTR], :BOOL
+	attach_function :GetDlgItem, [:HWND, :int], :HWND
+	#}
+
+	#{ dialog
+	attach_function :MessageBox, :MessageBoxA, [:HWND, :LPCTSTR, :LPCTSTR, :UINT], :int
+	attach_function :DialogBoxIndirectParam, :DialogBoxIndirectParamA, [:HINSTANCE, :pointer, :HWND, :DLGPROC, :LPARAM], :INT_PTR
+	attach_function :EndDialog, [:HWND, :INT_PTR], :BOOL
+	attach_function :CreateDialogIndirectParam, :CreateDialogIndirectParamA, [:HINSTANCE, :pointer, :HWND, :DLGPROC, :LPARAM], :HWND
+	#}
+
+	#{ menu
+	attach_function :GetMenu, [:HWND], :HMENU
+	attach_function :SetMenu, [:HWND, :HMENU], :BOOL
+	attach_function :CreateMenu, [], :HMENU
+	attach_function :CreatePopupMenu, [], :HMENU
+	attach_function :AppendMenu, :AppendMenuA, [:HMENU, :UINT, :UINT_PTR, :LPCTSTR], :BOOL
+	attach_function :EnableMenuItem, [:HMENU, :UINT, :UINT], :BOOL
+	#}
+
+	#{ accelerator
+	attach_function :CreateAcceleratorTable, :CreateAcceleratorTableA, [:pointer, :int], :HACCEL
+	attach_function :DestroyAcceleratorTable, [:HACCEL], :BOOL
+	#}
+
+	#{ message
+	attach_function :GetMessage, :GetMessageA, [:pointer, :HWND, :UINT, :UINT], :BOOL
+	attach_function :IsDialogMessage, [:HWND, :pointer], :BOOL
+	attach_function :TranslateAccelerator, [:HWND, :HACCEL, :pointer], :int
+	attach_function :TranslateMessage, [:pointer], :BOOL
+	attach_function :DispatchMessage, :DispatchMessageA, [:pointer], :LRESULT
+	attach_function :SendMessage, :SendMessageA, [:HWND, :UINT, :WPARAM, :LPARAM], :LRESULT
+	attach_function :PostMessage, :PostMessageA, [:HWND, :UINT, :WPARAM, :LPARAM], :LRESULT
+	attach_function :PostQuitMessage, [:int], :void
+	attach_function :DefWindowProc, :DefWindowProcA, [:HWND, :UINT, :WPARAM, :LPARAM], :LRESULT
+	#}
+end
+
+module Comctl32
+	extend FFI::Library
+
+	ffi_lib 'comctl32'
+
+	attach_function :InitCommonControlsEx, [:pointer], :BOOL
+end
+
+module Comdlg32
+	extend FFI::Library
+
+	ffi_lib 'comdlg32'
+
+	attach_function :GetOpenFileName, :GetOpenFileNameA, [:pointer], :BOOL
+	attach_function :GetSaveFileName, :GetSaveFileNameA, [:pointer], :BOOL
+end
+
+module Shell32
+	extend FFI::Library
+
+	ffi_lib 'shell32'
+
+	attach_function :SHBrowseForFolder, [:pointer], :pointer
+	attach_function :SHGetPathFromIDList, [:pointer, :pointer], :BOOL
+end
+
+module Gdi32
+	extend FFI::Library
+
+	ffi_lib 'gdi32'
+
+	attach_function :GetStockObject, [:int], :HGDIOBJ
+end
+
+include Kernel32
+include Ole32
+include User32
+include Comctl32
+include Comdlg32
+include Shell32
+include Gdi32

data/Lib/WinAPI/Types.rb

@@ -0,0 +1,223 @@
+if __FILE__ == $0
+	require 'ffi'
+end
+
+#{ char
+FFI.add_typedef(:char, :CHAR)
+FFI.add_typedef(:uchar, :UCHAR)
+FFI.add_typedef(:UCHAR, :BYTE)
+#}
+
+#{ short
+FFI.add_typedef(:short, :SHORT)
+FFI.add_typedef(:ushort, :WCHAR)
+FFI.add_typedef(:ushort, :USHORT)
+FFI.add_typedef(:USHORT, :WORD)
+FFI.add_typedef(:WORD, :ATOM)
+FFI.add_typedef(:WORD, :LANGID)
+#}
+
+#{ int
+FFI.add_typedef(:int, :BOOL)
+FFI.add_typedef(:int, :INT)
+FFI.add_typedef(:INT, :INT_PTR)
+FFI.add_typedef(:uint, :UINT)
+FFI.add_typedef(:UINT, :UINT_PTR)
+FFI.add_typedef(:UINT_PTR, :WPARAM)
+#}
+
+#{ long
+FFI.add_typedef(:long, :LONG)
+FFI.add_typedef(:LONG, :LONG_PTR)
+FFI.add_typedef(:LONG_PTR, :LPARAM)
+FFI.add_typedef(:LONG_PTR, :LRESULT)
+FFI.add_typedef(:LONG, :HRESULT)
+FFI.add_typedef(:ulong, :ULONG)
+FFI.add_typedef(:ULONG, :ULONG_PTR)
+FFI.add_typedef(:ULONG, :DWORD)
+FFI.add_typedef(:DWORD, :DWORD_PTR)
+FFI.add_typedef(:DWORD, :COLORREF)
+#}
+
+#{ string
+FFI.add_typedef(:string, :LPSTR)
+FFI.add_typedef(:string, :LPCSTR)
+FFI.add_typedef(:string, :LPTSTR)
+FFI.add_typedef(:string, :LPCTSTR)
+#}
+
+#{ void
+FFI.add_typedef(:void, :VOID)
+#}
+
+#{ pointer/handle
+FFI.add_typedef(:pointer, :LPVOID)
+FFI.add_typedef(:pointer, :HANDLE)
+
+FFI.add_typedef(:HANDLE, :HINSTANCE)
+FFI.add_typedef(:HINSTANCE, :HMODULE)
+FFI.add_typedef(:HANDLE, :HWND)
+FFI.add_typedef(:HANDLE, :HMENU)
+FFI.add_typedef(:HANDLE, :HACCEL)
+
+FFI.add_typedef(:HANDLE, :HICON)
+FFI.add_typedef(:HICON, :HCURSOR)
+
+FFI.add_typedef(:HANDLE, :HDC)
+FFI.add_typedef(:HANDLE, :HGDIOBJ)
+FFI.add_typedef(:HANDLE, :HFONT)
+FFI.add_typedef(:HANDLE, :HBITMAP)
+FFI.add_typedef(:HANDLE, :HBRUSH)
+FFI.add_typedef(:HANDLE, :HPEN)
+#}
+
+#{ callback
+FFI.add_typedef(FFI::Struct.callback([:HWND, :UINT, :WPARAM, :LPARAM], :LRESULT), :WNDPROC)
+FFI.add_typedef(FFI::Struct.callback([:HWND, :UINT, :WPARAM, :LPARAM], :INT_PTR), :DLGPROC)
+FFI.add_typedef(FFI::Struct.callback([:HWND, :UINT, :WPARAM, :LPARAM], :UINT_PTR), :LPOFNHOOKPROC)
+FFI.add_typedef(FFI::Struct.callback([:HWND, :UINT, :LPARAM, :LPARAM], :int), :BFFCALLBACK)
+#}
+
+#{ struct
+class ACTCTX < FFI::Struct
+	layout \
+		:cbSize, :ULONG,
+		:dwFlags, :DWORD,
+		:lpSource, :LPCTSTR,
+		:wProcessorArchitecture, :USHORT,
+		:wLangId, :LANGID,
+		:lpAssemblyDirectory, :LPCTSTR,
+		:lpResourceName, :LPCTSTR,
+		:lpApplicationName, :LPCTSTR,
+		:hModule, :HMODULE
+end
+
+class WNDCLASSEX < FFI::Struct
+	layout \
+		:cbSize, :UINT,
+		:style, :UINT,
+		:lpfnWndProc, :WNDPROC,
+		:cbClsExtra, :int,
+		:cbWndExtra, :int,
+		:hInstance, :HINSTANCE,
+		:hIcon, :HICON,
+		:hCursor, :HCURSOR,
+		:hbrBackground, :HBRUSH,
+		:lpszMenuName, :LPCTSTR,
+		:lpszClassName, :LPCTSTR,
+		:hIconSm, :HICON
+end
+
+class CREATESTRUCT < FFI::Struct
+	layout \
+		:lpCreateParams, :LPVOID,
+		:hInstance, :HINSTANCE,
+		:hMenu, :HMENU,
+		:hwndParent, :HWND,
+		:cy, :int,
+		:cx, :int,
+		:y, :int,
+		:x, :int,
+		:style, :LONG,
+		:lpszName, :LPCTSTR,
+		:lpszClass, :LPCTSTR,
+		:dwExStyle, :DWORD
+end
+
+class DLGTEMPLATEEX < FFI::Struct
+	layout \
+		:dlgVer, :WORD,
+		:signature, :WORD,
+		:helpID, :DWORD,
+		:exStyle, :DWORD,
+		:style, :DWORD,
+		:cDlgItems, :WORD,
+		:x, :short,
+		:y, :short,
+		:cx, :short,
+		:cy, :short,
+		:menu, :WCHAR,
+		:windowClass, :WCHAR,
+		:title, :WCHAR,
+		:pointsize, :short,
+		:weight, :short,
+		:bItalic, :short,
+		:font, :WCHAR
+end
+
+class ACCEL < FFI::Struct
+	layout \
+		:fVirt, :BYTE,
+		:key, :WORD,
+		:cmd, :WORD
+end
+
+class POINT < FFI::Struct
+	layout \
+		:x, :LONG,
+		:y, :LONG
+end
+
+class RECT < FFI::Struct
+	layout \
+		:left, :LONG,
+		:top, :LONG,
+		:right, :LONG,
+		:bottom, :LONG
+end
+
+class MSG < FFI::Struct
+	layout \
+		:hwnd, :HWND,
+		:message, :UINT,
+		:wParam, :WPARAM,
+		:lParam, :LPARAM,
+		:time, :DWORD,
+		:pt, POINT
+end
+
+class INITCOMMONCONTROLSEX < FFI::Struct
+	layout \
+		:dwSize, :DWORD,
+		:dwICC, :DWORD
+end
+
+class OPENFILENAME < FFI::Struct
+	layout \
+		:lStructSize, :DWORD,
+		:hwndOwner, :HWND,
+		:hInstance, :HINSTANCE,
+		:lpstrFilter, :LPCTSTR,
+		:lpstrCustomFilter, :LPTSTR,
+		:nMaxCustFilter, :DWORD,
+		:nFilterIndex, :DWORD,
+		:lpstrFile, :LPTSTR,
+		:nMaxFile, :DWORD,
+		:lpstrFileTitle, :LPTSTR,
+		:nMaxFileTitle, :DWORD,
+		:lpstrInitialDir, :LPCTSTR,
+		:lpstrTitle, :LPCTSTR,
+		:Flags, :DWORD,
+		:nFileOffset, :WORD,
+		:nFileExtension, :WORD,
+		:lpstrDefExt, :LPCTSTR,
+		:lCustData, :LPARAM,
+		:lpfnHook, :LPOFNHOOKPROC,
+		:lpTemplateName, :LPCTSTR,
+		:pvReserved, :LPVOID,
+		:dwReserved, :DWORD,
+		:FlagsEx, :DWORD
+end
+
+class BROWSEINFO < FFI::Struct
+	layout \
+		:hwndOwner, :HWND,
+		:pidlRoot, :pointer,
+		:pszDisplayName, :LPTSTR,
+		:lpszTitle, :LPCTSTR,
+		:ulFlags, :UINT,
+		:lpfn, :BFFCALLBACK,
+		:lParam, :LPARAM,
+		:iImage, :int
+end
+#}

data/Lib/Window.rb

@@ -0,0 +1,75 @@
+if __FILE__ == $0
+	require 'ffi'
+
+	require 'WinAPI/Constants'
+	require 'WinAPI/Types'
+	require 'WinAPI/Functions'
+
+	require 'Application'
+end
+
+module Splice
+	class Window
+		@@className = 'SpliceWindow'
+		@@classAtom = nil
+		@@handlers = {}
+
+		def self.onDestroy(hwnd)
+			PostQuitMessage(0); 0
+		end
+
+		def self.windowProc(hwnd, uMsg, wParam, lParam)
+			return @@handlers[uMsg].call(hwnd, wParam, lParam) if @@handlers.include?(uMsg)
+
+			case uMsg
+			when WM_DESTROY
+				return onDestroy(hwnd)
+			end
+
+			DefWindowProc(hwnd, uMsg, wParam, lParam)
+		end
+
+		def self.on(msg, &block)
+			msg = const_get("WM_#{msg.to_s.upcase}") if msg.instance_of?(Symbol)
+
+			@@handlers[msg] = block
+
+			self
+		end
+
+		def self.registerClass
+			cls = WNDCLASSEX.new
+
+			cls.to_ptr.put_uint(cls.offset_of(:cbSize), cls.size)
+			cls.to_ptr.put_uint(cls.offset_of(:style), 0)
+			cls.to_ptr.put_callback(cls.offset_of(:lpfnWndProc), method(:windowProc), FFI.find_type(:WNDPROC))
+			cls.to_ptr.put_int(cls.offset_of(:cbClsExtra), 0)
+			cls.to_ptr.put_int(cls.offset_of(:cbWndExtra), 0)
+			cls.to_ptr.put_pointer(cls.offset_of(:hInstance), GetModuleHandle(nil))
+			cls.to_ptr.put_pointer(cls.offset_of(:hIcon), LoadIcon(nil, FFI::Pointer.new(IDI_APPLICATION)))
+			cls.to_ptr.put_pointer(cls.offset_of(:hCursor), LoadCursor(nil, FFI::Pointer.new(IDC_ARROW)))
+			cls.to_ptr.put_pointer(cls.offset_of(:hbrBackground), FFI::Pointer.new(COLOR_WINDOW + 1))
+			cls.to_ptr.put_pointer(cls.offset_of(:lpszMenuName), nil)
+			cls.to_ptr.put_pointer(cls.offset_of(:lpszClassName), FFI::MemoryPointer.from_string(@@className))
+			cls.to_ptr.put_pointer(cls.offset_of(:hIconSm), nil)
+
+			raise 'RegisterClassEx failed!' if (atom = RegisterClassEx(cls.to_ptr)) == 0
+
+			@@classAtom = atom
+		end
+
+		def initialize
+			self.class.registerClass unless @@classAtom
+
+			@hwnd = CreateWindowEx(
+				0, @@className, 'Splice', WS_OVERLAPPEDWINDOW | WS_VISIBLE,
+				CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
+				nil, nil, GetModuleHandle(nil), nil
+			)
+
+			raise 'CreateWindowEx failed!' unless @hwnd
+		end
+
+		attr_reader :hwnd
+	end
+end

data/Splice.rb

@@ -0,0 +1,10 @@
+require 'ffi'
+
+require 'Lib/WinAPI/Constants'
+require 'Lib/WinAPI/Types'
+require 'Lib/WinAPI/Functions'
+
+require 'Lib/Window'
+require 'Lib/CommonControls'
+require 'Lib/CommonDialogs'
+require 'Lib/Application'