fzeet 0.4.2 → 0.5.0

data/lib/fzeet/windows/comdlgofn.rb

@@ -0,0 +1,70 @@
+require_relative 'comdlgcommon'
+
+module Fzeet
+	module Windows
+		OFN_READONLY = 0x00000001
+		OFN_OVERWRITEPROMPT = 0x00000002
+		OFN_HIDEREADONLY = 0x00000004
+		OFN_NOCHANGEDIR = 0x00000008
+		OFN_SHOWHELP = 0x00000010
+		OFN_ENABLEHOOK = 0x00000020
+		OFN_ENABLETEMPLATE = 0x00000040
+		OFN_ENABLETEMPLATEHANDLE = 0x00000080
+		OFN_NOVALIDATE = 0x00000100
+		OFN_ALLOWMULTISELECT = 0x00000200
+		OFN_EXTENSIONDIFFERENT = 0x00000400
+		OFN_PATHMUSTEXIST = 0x00000800
+		OFN_FILEMUSTEXIST = 0x00001000
+		OFN_CREATEPROMPT = 0x00002000
+		OFN_SHAREAWARE = 0x00004000
+		OFN_NOREADONLYRETURN = 0x00008000
+		OFN_NOTESTFILECREATE = 0x00010000
+		OFN_NONETWORKBUTTON = 0x00020000
+		OFN_NOLONGNAMES = 0x00040000
+		OFN_EXPLORER = 0x00080000
+		OFN_NODEREFERENCELINKS = 0x00100000
+		OFN_LONGNAMES = 0x00200000
+		OFN_ENABLEINCLUDENOTIFY = 0x00400000
+		OFN_ENABLESIZING = 0x00800000
+		OFN_DONTADDTORECENT = 0x02000000
+		OFN_FORCESHOWHIDDEN = 0x10000000
+
+		OFN_EX_NOPLACESBAR = 0x00000001
+
+		OFN_SHAREFALLTHROUGH = 2
+		OFN_SHARENOWARN = 1
+		OFN_SHAREWARN = 0
+
+		callback :OFNHOOKPROC, [:pointer, :uint, :uint, :long], :uint
+
+		class OPENFILENAME < FFI::Struct
+			layout \
+				:lStructSize, :ulong,
+				:hwndOwner, :pointer,
+				:hInstance, :pointer,
+				:lpstrFilter, :pointer,
+				:lpstrCustomFilter, :pointer,
+				:nMaxCustFilter, :ulong,
+				:nFilterIndex, :ulong,
+				:lpstrFile, :pointer,
+				:nMaxFile, :ulong,
+				:lpstrFileTitle, :pointer,
+				:nMaxFileTitle, :ulong,
+				:lpstrInitialDir, :pointer,
+				:lpstrTitle, :pointer,
+				:Flags, :ulong,
+				:nFileOffset, :ushort,
+				:nFileExtension, :ushort,
+				:lpstrDefExt, :pointer,
+				:lCustData, :long,
+				:lpfnHook, :OFNHOOKPROC,
+				:lpTemplateName, :pointer,
+				:pvReserved, :pointer,
+				:dwReserved, :ulong,
+				:FlagsEx, :ulong
+		end
+
+		attach_function :GetOpenFileName, :GetOpenFileNameA, [:pointer], :int
+		attach_function :GetSaveFileName, :GetSaveFileNameA, [:pointer], :int
+	end
+end

data/lib/fzeet/windows/common.rb

@@ -34,5 +34,23 @@ module Fzeet
 				:right, :long,
 				:bottom, :long
 		end
+
+		class LOGFONT < FFI::Struct
+			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, [:char, 32]
+		end
 	end
 end

data/lib/fzeet/windows/kernel.rb

@@ -27,5 +27,8 @@ module Fzeet
 		attach_function :DeactivateActCtx, [:ulong, :ulong], :int
 
 		attach_function :GetModuleHandle, :GetModuleHandleA, [:string], :pointer
+
+		attach_function :LoadLibrary, :LoadLibraryA, [:string], :pointer
+		attach_function :FreeLibrary, [:pointer], :int
 	end
 end

data/lib/fzeet/windows/libc.rb

@@ -5,5 +5,6 @@ module Fzeet
 		ffi_lib FFI::Library::LIBC
 		ffi_convention :cdecl
 
+		attach_function :memcmp, [:pointer, :pointer, :uint], :int
 	end
 end

data/lib/fzeet/windows/ole.rb

@@ -0,0 +1,213 @@
+require_relative 'com'
+
+module Fzeet
+	module Windows
+		ffi_lib 'ole32'
+		ffi_convention :stdcall
+
+		attach_function :OleInitialize, [:pointer], :long
+		attach_function :OleUninitialize, [], :void
+
+		attach_function :CoTaskMemFree, [:pointer], :void
+
+		VT_BOOL = 11
+
+		class PROPERTYKEY < FFI::Struct
+			layout \
+				:fmtid, GUID,
+				:pid, :ulong
+
+			def self.[](type, index)
+				new.tap { |key|
+					key[:fmtid].tap { |guid|
+						guid[:Data1] = 0x00000000 + index
+						guid[:Data2] = 0x7363
+						guid[:Data3] = 0x696e
+						[0x84, 0x41, 0x79, 0x8a, 0xcf, 0x5a, 0xeb, 0xb7].each_with_index { |part, i|
+							guid[:Data4][i] = part
+						}
+					}
+
+					key[:pid] = type
+				}
+			end
+		end
+
+		module AnonymousSupport
+			def [](k)
+				if members.include?(k)
+					super
+				elsif self[:_].members.include?(k)
+					self[:_][k]
+				else
+					self[:_][:_][k]
+				end
+			end
+
+			def []=(k, v)
+				if members.include?(k)
+					super
+				elsif self[:_].members.include?(k)
+					self[:_][k] = v
+				else
+					self[:_][:_][k] = v
+				end
+			end
+		end
+
+		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
+		end
+
+		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
+		end
+	end
+end

data/lib/fzeet/windows/shell.rb

@@ -0,0 +1,43 @@
+require_relative 'com'
+
+module Fzeet
+	module Windows
+		ffi_lib 'shell32'
+		ffi_convention :stdcall
+
+		BIF_RETURNONLYFSDIRS = 0x00000001
+		BIF_DONTGOBELOWDOMAIN = 0x00000002
+		BIF_STATUSTEXT = 0x00000004
+		BIF_RETURNFSANCESTORS = 0x00000008
+		BIF_EDITBOX = 0x00000010
+		BIF_VALIDATE = 0x00000020
+		BIF_NEWDIALOGSTYLE = 0x00000040
+		BIF_USENEWUI = BIF_NEWDIALOGSTYLE | BIF_EDITBOX
+		BIF_BROWSEINCLUDEURLS = 0x00000080
+		BIF_UAHINT = 0x00000100
+		BIF_NONEWFOLDERBUTTON = 0x00000200
+		BIF_NOTRANSLATETARGETS = 0x00000400
+		BIF_BROWSEFORCOMPUTER = 0x00001000
+		BIF_BROWSEFORPRINTER = 0x00002000
+		BIF_BROWSEINCLUDEFILES = 0x00004000
+		BIF_SHAREABLE = 0x00008000
+		BIF_BROWSEFILEJUNCTIONS = 0x00010000
+
+		callback :BFFCALLBACK, [:pointer, :uint, :long, :long], :int
+
+		class BROWSEINFO < FFI::Struct
+			layout \
+				:hwndOwner, :pointer,
+				:pidlRoot, :pointer,
+				:pszDisplayName, :pointer,
+				:lpszTitle, :pointer,
+				:ulFlags, :uint,
+				:lpfn, :BFFCALLBACK,
+				:lParam, :long,
+				:iImage, :int
+		end
+
+		attach_function :SHBrowseForFolder, :SHBrowseForFolderA, [:pointer], :pointer
+		attach_function :SHGetPathFromIDList, :SHGetPathFromIDListA, [:pointer, :pointer], :int
+	end
+end

data/lib/fzeet/windows/uiribbon.rb

@@ -0,0 +1,111 @@
+require_relative 'ole'
+
+module Fzeet
+	module Windows
+		ffi_lib 'uiribbon'
+		ffi_convention :stdcall
+
+		def LoadRibbonDll(name = File.basename($0, '.rbw'), opts = {})
+			if !File.exist?("#{File.dirname($0)}/#{name}.dll") || (
+					File.exist?("#{File.dirname($0)}/#{name}.xml") &&
+					test(?M, "#{File.dirname($0)}/#{name}.xml") > test(?M, "#{File.dirname($0)}/#{name}.dll")
+				)
+
+				opts[:sdkroot] ||= "#{ENV['SystemDrive']}/Program Files/Microsoft SDKs/Windows/v7.1"
+				opts[:vcroot] ||= "#{ENV['ProgramFiles']}/Microsoft Visual Studio 10.0/VC"
+				#opts[:mingwroot] ||= "#{ENV['SystemDrive']}/MinGW"
+
+				opts[:uicc] ||= "#{opts[:sdkroot]}/bin/uicc.exe"
+				opts[:rc] ||= "#{opts[:sdkroot]}/bin/rc.exe"
+				opts[:vcvars] ||= "#{opts[:vcroot]}/bin/vcvars32.bat"
+				opts[:link] ||= "#{opts[:vcroot]}/bin/link.exe"
+				#opts[:windres] ||= "#{opts[:mingwroot]}/bin/windres.exe"
+				#opts[:gcc] ||= "#{opts[:mingwroot]}/bin/gcc.exe"
+
+				opts[:clean] = true if opts[:clean].nil?
+
+				raise 'Building the Ribbon requires Windows SDK and VC.' unless
+					[:uicc, :rc, :vcvars, :link].all? { |tool| File.exist?(opts[tool]) }
+				#raise 'Building the Ribbon requires Windows SDK and MinGW.' unless
+				#	[:uicc, :windres, :gcc].all? { |tool| File.exist?(opts[tool]) }
+
+				system <<-CMD
+@echo off &\
+ "#{opts[:uicc]}" "#{name}.xml" "#{name}.bml" /header:"#{name}.h" /res:"#{name}.rc" > "#{name}.log" &\
+ "#{opts[:rc]}" /nologo /fo"#{ENV['TEMP']}/#{name}.res" "#{name}.rc" >> "#{name}.log" &\
+ call "#{opts[:vcvars]}" >> "#{name}.log" &\
+ "#{opts[:link]}" /nologo /machine:x86 /dll /noentry /out:"#{name}.dll" "#{ENV['TEMP']}/#{name}.res" >> "#{name}.log"
+				CMD
+#			system <<-CMD
+#@echo off &\
+# "#{opts[:uicc]}" "#{name}.xml" "#{name}.bml" /header:"#{name}.h" /res:"#{name}.rc" > "#{name}.log" &\
+# "#{opts[:windres]}" -o"#{ENV['TEMP']}/#{name}.o" "#{name}.rc" >> "#{name}.log" &\
+# "#{opts[:gcc]}" -shared -o"#{name}.dll" "#{ENV['TEMP']}/#{name}.o" >> "#{name}.log"
+#			CMD
+
+				raise "Ribbon build failed - see #{name}.log for details." if File.read("#{name}.log") =~ /error/i
+
+				File.open("#{name}.rb", 'w') { |rb|
+					File.foreach("#{name}.h") { |line|
+						rb.puts "#{$1[0].upcase}#{$1[1..-1]} = #{$2}" if line =~ /^\s*#define\s+(\w+)\s+(\d+)/
+					}
+				}
+
+				%w{bml h rc}.each { |ext|
+					File.delete("#{name}.#{ext}") if File.exist?("#{name}.#{ext}")
+				} if opts[:clean]
+			end
+
+			require name
+
+			raise "LoadLibrary('#{File.dirname($0)}/#{name}.dll') failed." if (hdll = LoadLibrary("#{File.dirname($0)}/#{name}.dll")).null?
+
+			hdll.tap { at_exit { FreeLibrary(hdll) } }
+		end
+
+		module_function :LoadRibbonDll
+
+		UI_PKEY_Enabled = PROPERTYKEY[VT_BOOL, 1]
+
+		LIBID_UIRibbon = GUID['942f35c2-e83b-45ef-b085-ac295dd63d5b']
+
+		CLSID_UIRibbonFramework = GUID['926749fa-2615-4987-8845-c33e65f2b957']
+
+		IID_IUICommandHandler = GUID['75ae0a2d-dc03-4c9f-8883-069660d0beb6']
+		IID_IUIApplication = GUID['D428903C-729A-491d-910D-682A08FF2522']
+		IID_IUIFramework = GUID['F4F0385D-6872-43a8-AD09-4C339CB3F5C5']
+
+		IUICommandHandler = COM::Interface[IUnknown,
+			IID_IUICommandHandler,
+
+			Execute: [[:uint, :int, :pointer, :pointer, :pointer], :long],
+			UpdateProperty: [[:uint, :pointer, :pointer, :pointer], :long]
+		]
+
+		IUIApplication = COM::Interface[IUnknown,
+			IID_IUIApplication,
+
+			OnViewChanged: [[:uint, :int, :pointer, :int, :int], :long],
+			OnCreateUICommand: [[:uint, :int, :pointer], :long],
+			OnDestroyUICommand: [[:uint, :int, :pointer], :long]
+		]
+
+		IUIFramework = COM::Interface[IUnknown,
+			IID_IUIFramework,
+
+			Initialize: [[:pointer, :pointer], :long],
+			Destroy: [[], :long],
+			LoadUI: [[:pointer, :buffer_in], :long],
+			GetView: [[:uint, :pointer, :pointer], :long],
+			GetUICommandProperty: [[:uint, :pointer, :pointer], :long],
+			SetUICommandProperty: [[:uint, :pointer, :pointer], :long],
+			InvalidateUICommand: [[:uint, :int, :pointer], :long],
+			FlushPendingInvalidations: [[], :long],
+			SetModes: [[:int], :long]
+		]
+
+		UICommandHandler = COM::Callback[IUICommandHandler]
+		UIApplication = COM::Callback[IUIApplication]
+		UIFramework = COM::Factory[IUIFramework, CLSID_UIRibbonFramework]
+	end
+end