fzeet 0.6.5 → 0.6.6

data/lib/fzeet/windows/ole/Common.rb

@@ -0,0 +1,112 @@
+require_relative '../com'
+
+module Fzeet
+	module Windows
+		ffi_lib 'ole32'
+		ffi_convention :stdcall
+
+		attach_function :OleInitialize, [:pointer], :long
+		attach_function :OleUninitialize, [], :void
+
+		def InitializeOle
+			DetonateHresult(:OleInitialize, nil)
+
+			at_exit { OleUninitialize() }
+		end
+
+		module_function :InitializeOle
+
+		attach_function :CoTaskMemAlloc, [:ulong], :pointer
+		attach_function :CoTaskMemFree, [:pointer], :void
+
+		class LARGE_INTEGER < FFI::Union
+			include AnonymousSupport
+
+			layout \
+				:_, Class.new(FFI::Struct) {
+					layout \
+						:LowPart, :ulong,
+						:HighPart, :long
+				},
+
+				:QuadPart, :long_long
+		end
+
+		class ULARGE_INTEGER < FFI::Union
+			include AnonymousSupport
+
+			layout \
+				:_, Class.new(FFI::Struct) {
+					layout \
+						:LowPart, :ulong,
+						:HighPart, :ulong
+				},
+
+				:QuadPart, :ulong_long
+		end
+
+		class FILETIME < FFI::Struct
+			layout \
+				:dwLowDateTime, :ulong,
+				:dwHighDateTime, :ulong
+		end
+
+		class BSTRBLOB < FFI::Struct
+			layout \
+				:cbSize, :ulong,
+				:pData, :pointer
+		end
+
+		class BLOB < FFI::Struct
+			layout \
+				:cbSize, :ulong,
+				:pBlobData, :pointer
+		end
+
+		class CA < FFI::Struct
+			layout \
+				:cElems, :ulong,
+				:pElems, :pointer
+		end
+
+		class DECIMAL < FFI::Struct
+			layout \
+				:wReserved, :ushort,
+				:scale, :uchar,
+				:sign, :uchar,
+				:Hi32, :ulong,
+				:Lo64, :ulong_long
+
+			def self.[](value)
+				new.tap { |decimal|
+					case value
+					when Integer; Windows.DetonateHresult(:VarDecFromI8, value, decimal)
+					when Float; Windows.DetonateHresult(:VarDecFromR8, value, decimal)
+					else raise ArgumentError
+					end
+				}
+			end
+
+			def i8
+				FFI::MemoryPointer.new(:long_long) { |pi8|
+					Windows.DetonateHresult(:VarI8FromDec, self, pi8)
+
+					return pi8.get_long_long(0)
+				}
+			end
+
+			def r8
+				FFI::MemoryPointer.new(:double) { |pr8|
+					Windows.DetonateHresult(:VarR8FromDec, self, pr8)
+
+					return pr8.get_double(0)
+				}
+			end
+
+			alias longlong i8; alias int longlong
+			alias double r8; alias float double
+		end
+	end
+
+	Decimal = Windows::DECIMAL
+end

data/lib/fzeet/windows/ole/PropVariant.rb

@@ -0,0 +1,141 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		class PROPVARIANT < FFI::Union
+			include AnonymousSupport
+
+			layout \
+				:_, Class.new(FFI::Struct) {
+					layout \
+						:vt, :ushort,
+						:wReserved1, :ushort,
+						:wReserved2, :ushort,
+						:wReserved3, :ushort,
+						:_, Class.new(FFI::Union) {
+							layout \
+								:cVal, :char,
+								:bVal, :uchar,
+								:iVal, :short,
+								:uiVal, :ushort,
+								:lVal, :long,
+								:ulVal, :ulong,
+								:intVal, :int,
+								:uintVal, :uint,
+								:hVal, LARGE_INTEGER,
+								:uhVal, ULARGE_INTEGER,
+								:fltVal, :float,
+								:dblVal, :double,
+								:boolVal, :short,
+								:bool, :short,
+								:scode, :long,
+								:cyVal, :long_long,
+								:date, :double,
+								:filetime, FILETIME,
+								:puuid, :pointer,
+								:pclipdata, :pointer,
+								:bstrVal, :pointer,
+								:bstrblobVal, BSTRBLOB,
+								:blob, BLOB,
+								:pszVal, :pointer,
+								:pwszVal, :pointer,
+								:punkVal, :pointer,
+								:pdispVal, :pointer,
+								:pStream, :pointer,
+								:pStorage, :pointer,
+								:pVersionedStream, :pointer,
+								:parray, :pointer,
+								:cac, CA,
+								:caub, CA,
+								:cai, CA,
+								:caui, CA,
+								:cal, CA,
+								:caul, CA,
+								:cah, CA,
+								:cauh, CA,
+								:caflt, CA,
+								:cadbl, CA,
+								:cabool, CA,
+								:cascode, CA,
+								:cacy, CA,
+								:cadate, CA,
+								:cafiletime, CA,
+								:cauuid, CA,
+								:caclipdata, CA,
+								:cabstr, CA,
+								:cabstrblob, CA,
+								:calpstr, CA,
+								:calpwstr, CA,
+								:capropvar, CA,
+								:pcVal, :pointer,
+								:pbVal, :pointer,
+								:piVal, :pointer,
+								:puiVal, :pointer,
+								:plVal, :pointer,
+								:pulVal, :pointer,
+								:pintVal, :pointer,
+								:puintVal, :pointer,
+								:pfltVal, :pointer,
+								:pdblVal, :pointer,
+								:pboolVal, :pointer,
+								:pdecVal, :pointer,
+								:pscode, :pointer,
+								:pcyVal, :pointer,
+								:pdate, :pointer,
+								:pbstrVal, :pointer,
+								:ppunkVal, :pointer,
+								:ppdispVal, :pointer,
+								:pparray, :pointer,
+								:pvarVal, :pointer
+						}
+				},
+
+				:decVal, DECIMAL
+
+			def self.[](t, *v) new.tap { |var| var.send("#{t}=", *v) } end
+
+			def bool; raise 'Wrong type tag.' unless self[:vt] == VT_BOOL; self[:boolVal] != 0 end
+			def bool=(bool) self[:vt] = VT_BOOL; self[:boolVal] = (bool) ? -1 : 0 end
+
+			def int; raise 'Wrong type tag.' unless self[:vt] == VT_I4; self[:intVal] end
+			def int=(int) self[:vt] = VT_I4; self[:intVal] = int end
+
+			def uint; raise 'Wrong type tag.' unless self[:vt] == VT_UI4; self[:uintVal] end
+			def uint=(uint) self[:vt] = VT_UI4; self[:uintVal] = uint end
+
+			def unknown
+				raise 'Wrong type tag.' unless self[:vt] == VT_UNKNOWN
+
+				yield Unknown.new(self[:punkVal])
+			ensure
+				Windows.PropVariantClear(self)
+			end
+
+			def unknown=(unknown) self[:vt] = VT_UNKNOWN; self[:punkVal] = unknown.pointer; unknown.AddRef end
+
+			def wstring; raise 'Wrong type tag.' unless self[:vt] == VT_LPWSTR; Windows.WCSTOMBS(self[:pwszVal]) end
+
+			def wstring=(string)
+				self[:vt] = VT_LPWSTR
+
+				FFI::MemoryPointer.new(:pointer) { |p|
+					Windows.DetonateHresult(:SHStrDup, string, p)
+
+					self[:pwszVal] = p.read_pointer
+				}
+			end
+
+			def decimal
+				raise 'Wrong type tag.' unless self[:vt] == VT_DECIMAL
+
+				Rational(self[:decVal][:Lo64], 10 ** self[:decVal][:scale]) + self[:decVal][:Hi32]
+			end
+
+			def decimal=(decimal) self[:vt] = VT_DECIMAL; self[:decVal][:Lo64] = decimal end
+		end
+
+		attach_function :PropVariantClear, [:pointer], :long
+	end
+
+	PropVariant = Windows::PROPVARIANT
+end

data/lib/fzeet/windows/oleaut.rb

@@ -0,0 +1,3 @@
+require_relative 'oleaut/Bstr'
+require_relative 'oleaut/Variant'
+require_relative 'oleaut/SafeArray'

data/lib/fzeet/windows/oleaut/Bstr.rb

@@ -0,0 +1,39 @@
+require_relative 'Common'
+
+module Fzeet
+	module Windows
+		class BSTR
+			def self.[](s)
+				bstr = new(Windows.SysAllocString("#{s}\0".encode('utf-16le')))
+
+				if block_given?
+					yield bstr; bstr.dispose; return nil
+				end
+
+				bstr
+			end
+
+			class << self
+				alias from []
+			end
+
+			def initialize(pointer) @pointer = pointer end
+
+			attr_reader :pointer
+
+			def free; Windows.SysFreeString(@pointer) end
+			alias dispose free
+
+			def length; Windows.SysStringLen(@pointer) end
+			alias size length
+
+			def multibyte; Windows.WCSTOMBS(@pointer) end
+		end
+
+		attach_function :SysAllocString, [:buffer_in], :pointer
+		attach_function :SysFreeString, [:pointer], :void
+		attach_function :SysStringLen, [:pointer], :uint
+	end
+
+	Bstr = Windows::BSTR
+end

data/lib/fzeet/windows/oleaut/Common.rb

@@ -0,0 +1,187 @@
+require_relative '../ole'
+
+module Fzeet
+	module Windows
+		ffi_lib 'oleaut32'
+		ffi_convention :stdcall
+
+		OLEIVERB_PRIMARY = 0
+		OLEIVERB_SHOW = -1
+		OLEIVERB_OPEN = -2
+		OLEIVERB_HIDE = -3
+		OLEIVERB_UIACTIVATE = -4
+		OLEIVERB_INPLACEACTIVATE = -5
+		OLEIVERB_DISCARDUNDOSTATE = -6
+
+		IOleWindow = COM::Interface[IUnknown,
+			GUID['00000114-0000-0000-C000-000000000046'],
+
+			GetWindow: [[:pointer], :long],
+			ContextSensitiveHelp: [[:int], :long]
+		]
+
+		OleWindow = COM::Instance[IOleWindow]
+
+		IOleInPlaceObject = COM::Interface[IOleWindow,
+			GUID['00000113-0000-0000-C000-000000000046'],
+
+			InPlaceDeactivate: [[], :long],
+			UIDeactivate: [[], :long],
+			SetObjectRects: [[:pointer, :pointer], :long],
+			ReactivateAndUndo: [[], :long]
+		]
+
+		OleInPlaceObject = COM::Instance[IOleInPlaceObject]
+
+		IOleInPlaceSite = COM::Interface[IOleWindow,
+			GUID['00000119-0000-0000-C000-000000000046'],
+
+			CanInPlaceActivate: [[], :long],
+			OnInPlaceActivate: [[], :long],
+			OnUIActivate: [[], :long],
+			GetWindowContext: [[:pointer, :pointer, :pointer, :pointer, :pointer], :long],
+			Scroll: [[:long_long], :long],
+			OnUIDeactivate: [[:int], :long],
+			OnInPlaceDeactivate: [[], :long],
+			DiscardUndoState: [[], :long],
+			DeactivateAndUndo: [[], :long],
+			OnPosRectChange: [[:pointer], :long]
+		]
+
+		OleInPlaceSite = COM::Callback[IOleInPlaceSite]
+
+		IOleClientSite = COM::Interface[IUnknown,
+			GUID['00000118-0000-0000-C000-000000000046'],
+
+			SaveObject: [[], :long],
+			GetMoniker: [[:ulong, :ulong, :pointer], :long],
+			GetContainer: [[:pointer], :long],
+			ShowObject: [[], :long],
+			OnShowWindow: [[:int], :long],
+			RequestNewObjectLayout: [[], :long]
+		]
+
+		OleClientSite = COM::Callback[IOleClientSite]
+
+		OLEGETMONIKER_ONLYIFTHERE = 1
+		OLEGETMONIKER_FORCEASSIGN = 2
+		OLEGETMONIKER_UNASSIGN = 3
+		OLEGETMONIKER_TEMPFORUSER = 4
+
+		OLEWHICHMK_CONTAINER = 1
+		OLEWHICHMK_OBJREL = 2
+		OLEWHICHMK_OBJFULL = 3
+
+		USERCLASSTYPE_FULL = 1
+		USERCLASSTYPE_SHORT = 2
+		USERCLASSTYPE_APPNAME = 3
+
+		OLEMISC_RECOMPOSEONRESIZE = 0x00000001
+		OLEMISC_ONLYICONIC = 0x00000002
+		OLEMISC_INSERTNOTREPLACE = 0x00000004
+		OLEMISC_STATIC = 0x00000008
+		OLEMISC_CANTLINKINSIDE = 0x00000010
+		OLEMISC_CANLINKBYOLE1 = 0x00000020
+		OLEMISC_ISLINKOBJECT = 0x00000040
+		OLEMISC_INSIDEOUT = 0x00000080
+		OLEMISC_ACTIVATEWHENVISIBLE = 0x00000100
+		OLEMISC_RENDERINGISDEVICEINDEPENDENT = 0x00000200
+		OLEMISC_INVISIBLEATRUNTIME = 0x00000400
+		OLEMISC_ALWAYSRUN = 0x00000800
+		OLEMISC_ACTSLIKEBUTTON = 0x00001000
+		OLEMISC_ACTSLIKELABEL = 0x00002000
+		OLEMISC_NOUIACTIVATE = 0x00004000
+		OLEMISC_ALIGNABLE = 0x00008000
+		OLEMISC_SIMPLEFRAME = 0x00010000
+		OLEMISC_SETCLIENTSITEFIRST = 0x00020000
+		OLEMISC_IMEMODE = 0x00040000
+		OLEMISC_IGNOREACTIVATEWHENVISIBLE = 0x00080000
+		OLEMISC_WANTSTOMENUMERGE = 0x00100000
+		OLEMISC_SUPPORTSMULTILEVELUNDO = 0x00200000
+
+		OLECLOSE_SAVEIFDIRTY = 0
+		OLECLOSE_NOSAVE = 1
+		OLECLOSE_PROMPTSAVE = 2
+
+		IOleObject = COM::Interface[IUnknown,
+			GUID['00000112-0000-0000-C000-000000000046'],
+
+			SetClientSite: [[:pointer], :long],
+			GetClientSite: [[:pointer], :long],
+			SetHostNames: [[:pointer, :pointer], :long],
+			Close: [[:ulong], :long],
+			SetMoniker: [[:ulong, :pointer], :long],
+			GetMoniker: [[:ulong, :ulong, :pointer], :long],
+			InitFromData: [[:pointer, :int, :ulong], :long],
+			GetClipboardData: [[:ulong, :pointer], :long],
+			DoVerb: [[:long, :pointer, :pointer, :long, :pointer, :pointer], :long],
+			EnumVerbs: [[:pointer], :long],
+			Update: [[], :long],
+			IsUpToDate: [[], :long],
+			GetUserClassID: [[:pointer], :long],
+			GetUserType: [[:ulong, :pointer], :long],
+			SetExtent: [[:ulong, :pointer], :long],
+			GetExtent: [[:ulong, :pointer], :long],
+			Advise: [[:pointer, :pointer], :long],
+			Unadvise: [[:ulong], :long],
+			EnumAdvise: [[:pointer], :long],
+			GetMiscStatus: [[:ulong, :pointer], :long],
+			SetColorScheme: [[:pointer], :long]
+		]
+
+		OleObject = COM::Instance[IOleObject]
+
+		class PARAMDATA < FFI::Struct
+			layout \
+				:szName, :pointer,
+				:vt, :ushort
+		end
+
+		CC_FASTCALL = 0
+		CC_CDECL = 1
+		CC_MSCPASCAL = CC_CDECL + 1
+		CC_PASCAL = CC_MSCPASCAL
+		CC_MACPASCAL = CC_PASCAL + 1
+		CC_STDCALL = CC_MACPASCAL + 1
+		CC_FPFASTCALL = CC_STDCALL + 1
+		CC_SYSCALL = CC_FPFASTCALL + 1
+		CC_MPWCDECL = CC_SYSCALL + 1
+		CC_MPWPASCAL = CC_MPWCDECL + 1
+		CC_MAX = CC_MPWPASCAL + 1
+
+		DISPATCH_METHOD = 0x1
+		DISPATCH_PROPERTYGET = 0x2
+		DISPATCH_PROPERTYPUT = 0x4
+		DISPATCH_PROPERTYPUTREF = 0x8
+
+		class METHODDATA < FFI::Struct
+			layout \
+				:szName, :pointer,
+				:ppdata, :pointer,
+				:dispid, :long,
+				:iMeth, :uint,
+				:cc, :uint,
+				:cArgs, :uint,
+				:wFlags, :ushort,
+				:vtReturn, :ushort
+		end
+
+		class INTERFACEDATA < FFI::Struct
+			layout \
+				:pmethdata, :pointer,
+				:cMembers, :uint
+		end
+
+		attach_function :CreateDispTypeInfo, [:pointer, :ulong, :pointer], :long
+
+		class DISPPARAMS < FFI::Struct
+			layout \
+				:rgvarg, :pointer,
+				:rgdispidNamedArgs, :pointer,
+				:cArgs, :uint,
+				:cNamedArgs, :uint
+		end
+
+		attach_function :DispInvoke, [:pointer, :pointer, :long, :ushort, :pointer, :pointer, :pointer, :pointer], :long
+	end
+end