windows-pr 1.0.3 → 1.0.4

data/CHANGES

@@ -1,3 +1,15 @@
+= 1.0.4 - 15-May-2009
+* Created the Windows::COM::Variant module.
+* Created the Windows::COM::Accessibility module.
+* Added some IDispatch constants to the Windows::COM module.
+* Added some IDispatch error constants to the Windows::Error module.
+* Added many more constants to the Windows::COM::Automation module.
+* Added a couple of functions to the Windows::National module.
+* Corrected the return type for various SysXXX functions in the
+  Windows::COM::Automation module.
+* Corrected the prototype for the RegEnumKeyEx function in the
+  Windows::Registry module.
+
 = 1.0.3 - 23-Apr-2009
 * Created the Windows::GDI::MetaFile module.
 * Added GetWindowLongPtr and SetWindowLongPtr to Windows::Window::Classes.

data/lib/windows/com.rb

@@ -93,6 +93,24 @@ module Windows
       CLSCTX_ACTIVATE_32_BIT_SERVER = 0x40000
       CLSCTX_ACTIVATE_64_BIT_SERVER = 0x80000      
 
+      # IDispatch
+
+      DISPID_UNKNOWN     = -1
+      DISPID_VALUE       = 0
+      DISPID_PROPERTYPUT = -3
+      DISPID_NEWENUM     = -4
+      DISPID_EVALUATE    = -5
+      DISPID_CONSTRUCTOR = -6
+      DISPID_DESTRUCTOR  = -7
+      DISPID_COLLECT     = -8
+
+      # Flags for IDispatch::Invoke
+
+      DISPATCH_METHOD         = 0x1
+      DISPATCH_PROPERTYGET    = 0x2
+      DISPATCH_PROPERTYPUT    = 0x4
+      DISPATCH_PROPERTYPUTREF = 0x8
+
       API.new('BindMoniker', 'PLPP', 'L', 'ole32')
       API.new('CLSIDFromProgID', 'PP', 'L', 'ole32')
       API.new('CLSIDFromProgIDEx', 'PP', 'L', 'ole32')
@@ -156,6 +174,7 @@ module Windows
       API.new('OleRegGetMiscStatus', 'PLP', 'L', 'ole32')
       API.new('OleRegGetUserType', 'PLP', 'L', 'ole32')
       API.new('OleSetAutoConvert', 'PP', 'L', 'ole32')
+      API.new('OleUninitialize', 'V', 'V', 'ole32')
       API.new('ProgIDFromCLSID', 'PP', 'L', 'ole32')
 		API.new('StringFromCLSID', 'PP', 'L', 'ole32')
 		API.new('StringFromGUID2', 'PPI', 'I', 'ole32')

data/lib/windows/com/accessibility.rb

@@ -0,0 +1,14 @@
+require 'windows/api'
+
+module Windows
+   module COM
+      module Accessibility
+         API.auto_namespace = 'Windows::COM::Accessibility'
+         API.auto_constant  = true
+         API.auto_method    = true
+         API.auto_unicode   = false
+         
+         API.new('ObjectFromLresult', 'LPIP', 'L', 'oleacc')
+      end
+   end
+end

data/lib/windows/com/automation.rb

@@ -7,6 +7,95 @@ module Windows
          API.auto_constant  = true
          API.auto_method    = true
          API.auto_unicode   = false
+         
+         REGKIND_DEFAULT  = 0
+         REGKIND_REGISTER = 1
+         REGKIND_NONE     = 2
+         
+         # VARKIND enum
+         
+         VAR_PERINSTANCE = 0
+         VAR_STATIC      = 1
+         VAR_CONST       = 2
+         VAR_DISPATCH    = 3
+         
+         # TYPEKIND enum
+         
+         TKIND_ENUM      = 0
+         TKIND_RECORD    = 1
+         TKIND_MODULE    = 2
+         TKIND_INTERFACE = 3
+         TKIND_DISPATCH  = 4
+         TKIND_COCLASS   = 5
+         TKIND_ALIAS     = 6
+         TKIND_UNION     = 7
+         TKIND_MAX       = 8
+         
+         # LIBFLAGS enum
+         
+         LIBFLAG_FRESTRICTED   = 0x1
+         LIBFLAG_FCONTROL      = 0x2
+         LIBFLAG_FHIDDEN       = 0x4
+         LIBFLAG_FHASDISKIMAGE = 0x8
+         
+         PARAMFLAG_NONE         =  0     
+         PARAMFLAG_FIN          =  0x1     
+         PARAMFLAG_FOUT         =  0x2     
+         PARAMFLAG_FLCID        =  0x4     
+         PARAMFLAG_FRETVAL      =  0x8     
+         PARAMFLAG_FOPT         =  0x10     
+         PARAMFLAG_FHASDEFAULT  =  0x20     
+         PARAMFLAG_FHASCUSTDATA =  0x40
+         
+         # FUNCFLAGS enum
+         
+         FUNCFLAG_FRESTRICTED       = 0x1
+         FUNCFLAG_FSOURCE           = 0x2
+         FUNCFLAG_FBINDABLE         = 0x4
+         FUNCFLAG_FREQUESTEDIT      = 0x8
+         FUNCFLAG_FDISPLAYBIND      = 0x10
+         FUNCFLAG_FDEFAULTBIND      = 0x20
+         FUNCFLAG_FHIDDEN           = 0x40
+         FUNCFLAG_FUSESGETLASTERROR = 0x80
+         FUNCFLAG_FDEFAULTCOLLELEM  = 0x100
+         FUNCFLAG_FUIDEFAULT        = 0x200
+         FUNCFLAG_FNONBROWSABLE     = 0x400
+         FUNCFLAG_FREPLACEABLE      = 0x800
+         FUNCFLAG_FIMMEDIATEBIND    = 0x1000
+         
+         # TYPEFLAGS enum
+         
+         TYPEFLAG_FAPPOBJECT     = 0x1
+         TYPEFLAG_FCANCREATE     = 0x2
+         TYPEFLAG_FLICENSED      = 0x4
+         TYPEFLAG_FPREDECLID     = 0x8
+         TYPEFLAG_FHIDDEN        = 0x10
+         TYPEFLAG_FCONTROL       = 0x20
+         TYPEFLAG_FDUAL          = 0x40
+         TYPEFLAG_FNONEXTENSIBLE = 0x80
+         TYPEFLAG_FOLEAUTOMATION = 0x100
+         TYPEFLAG_FRESTRICTED    = 0x200
+         TYPEFLAG_FAGGREGATABLE  = 0x400
+         TYPEFLAG_FREPLACEABLE   = 0x800
+         TYPEFLAG_FDISPATCHABLE  = 0x1000
+         TYPEFLAG_FREVERSEBIND   = 0x2000
+         TYPEFLAG_FPROXY         = 0x4000
+         
+         # VARFLAGS enum
+         
+         VARFLAG_FREADONLY        = 0x1
+         VARFLAG_FSOURCE          = 0x2
+         VARFLAG_FBINDABLE        = 0x4
+         VARFLAG_FREQUESTEDIT     = 0x8
+         VARFLAG_FDISPLAYBIND     = 0x10
+         VARFLAG_FDEFAULTBIND     = 0x20
+         VARFLAG_FHIDDEN          = 0x40
+         VARFLAG_FRESTRICTED      = 0x80
+         VARFLAG_FDEFAULTCOLLELEM = 0x100
+         VARFLAG_FUIDEFAULT       = 0x200
+         VARFLAG_FNONBROWSABLE    = 0x400
+         VARFLAG_FREPLACEABLE     = 0x800
+         VARFLAG_FIMMEDIATEBIND   = 0x1000
 
          API.new('BstrFromVector', 'PP', 'L', 'oleaut32')
          API.new('CreateErrorInfo', 'P', 'L', 'oleaut32')
@@ -16,8 +105,8 @@ module Windows
          API.new('DispInvoke', 'PPPLPPPP', 'L', 'oleaut32')
          API.new('GetActiveObject', 'PPP', 'L', 'oleaut32')
          API.new('LoadRegTypeLib', 'PLLLP', 'L', 'oleaut32')
-         API.new('LoadTypeLib', 'PPP', 'L', 'oleaut32')
-         API.new('LoadTypeLibEx', 'PPP', 'L', 'oleaut32')
+         API.new('LoadTypeLib', 'PP', 'L', 'oleaut32')
+         API.new('LoadTypeLibEx', 'PLP', 'L', 'oleaut32')
          API.new('RegisterActiveObject', 'PPLP', 'L', 'oleaut32')
          API.new('RevokeActiveObject', 'LP', 'L', 'oleaut32')       
          API.new('RegisterTypeLib', 'PPP', 'L', 'oleaut32')
@@ -43,11 +132,11 @@ module Windows
          API.new('SafeArrayUnaccessData', 'P', 'L', 'oleaut32')
          API.new('SafeArrayUnlock', 'P', 'L', 'oleaut32')
          API.new('SetErrorInfo', 'LP', 'L', 'oleaut32')
-         API.new('SysAllocString', 'P', 'P', 'oleaut32')
-         API.new('SysAllocStringByteLen', 'PI', 'P', 'oleaut32')
-         API.new('SysFreeString', 'P', 'L', 'oleaut32')
+         API.new('SysAllocString', 'P', 'L', 'oleaut32')
+         API.new('SysAllocStringByteLen', 'PI', 'L', 'oleaut32')
+         API.new('SysFreeString', 'P', 'V', 'oleaut32')
          API.new('SysReAllocString', 'PP', 'L', 'oleaut32')
-         API.new('SysReAllocStringLen', 'PPI', 'P', 'oleaut32')
+         API.new('SysReAllocStringLen', 'PPI', 'L', 'oleaut32')
          API.new('SysStringByteLen', 'P', 'L', 'oleaut32')
          API.new('SysStringLen', 'P', 'L', 'oleaut32')
          API.new('SystemTimeToVariantTime', 'PP', 'I', 'oleaut32')

data/lib/windows/com/variant.rb

@@ -0,0 +1,22 @@
+require 'windows/api'
+
+module Windows
+   module COM
+      module Variant
+         API.auto_namespace = 'Windows::COM::Variant'
+         API.auto_constant  = true
+         API.auto_method    = true
+         API.auto_unicode   = false
+         
+         VARIANT_TRUE  = 1
+         VARIANT_FALSE = 0
+         
+         API.new('VariantChangeType', 'PPIL', 'L', 'oleaut32')
+         API.new('VariantChangeTypeEx', 'PPLLL', 'L', 'oleaut32')
+         API.new('VariantClear', 'P', 'L', 'oleaut32')       
+         API.new('VariantCopy', 'PP', 'L', 'oleaut32')       
+         API.new('VariantCopyInd', 'PP', 'L', 'oleaut32')       
+         API.new('VariantInit', 'P', 'V', 'oleaut32')       
+      end      
+   end   
+end

data/lib/windows/error.rb

@@ -291,6 +291,7 @@ module Windows
       TC_SIGNAL  = 3
       
       # From WinError.h
+      
       ERROR_INVALID_FLAGS          = 0x1004
       ERROR_NO_UNICODE_TRANSLATION = 0x1113
 
@@ -305,11 +306,18 @@ module Windows
       CO_E_NOT_SUPPORTED = 0x80004021
 
       CLASS_E_NOAGGREGATION = 0x80040110
+      
+      DISP_E_BADINDEX       = 0x8002000B
+      DISP_E_PARAMNOTFOUND  = 0x80020004
+      DISP_E_EXCEPTION      = 0x80020009
+      DISP_E_MEMBERNOTFOUND = 0x80020003
 
       # Registry errors
+      
       REGDB_E_CLASSNOTREG = 0x80040154
 
       # msterr.h
+      
       SCHED_S_TASK_READY                  = 0x00041300
       SCHED_S_TASK_RUNNING                = 0x00041301
       SCHED_S_TASK_DISABLED               = 0x00041302
@@ -332,6 +340,7 @@ module Windows
       SCHED_E_UNKNOWN_OBJECT_VERSION      = 0x00041313
 
       # Socket errors
+      
       WSA_INVALID_HANDLE      = 6
       WSA_NOT_ENOUGH_MEMORY   = 8
       WSA_INVALID_PARAMETER   = 87

data/lib/windows/national.rb

@@ -530,6 +530,8 @@ module Windows
       LOCALE_USER_DEFAULT   = 1024
       LOCALE_INVARIANT      = 8323072
       
+      API.new('EnumSystemCodePages', 'KL', 'L')
+      API.new('EnumSystemLocales', 'KL', 'L')
       API.new('GetACP', 'V', 'I')
       API.new('GetDateFormat', 'LLPPPI', 'I')
       API.new('GetLocaleInfo', 'LLPL', 'I')

data/lib/windows/registry.rb

@@ -98,7 +98,7 @@ module Windows
       API.new('RegDeleteValue', 'LP', 'L', 'advapi32')
       API.new('RegDisablePredefinedCache', 'V', 'L', 'advapi32')
       API.new('RegEnumKey', 'LLPL', 'L', 'advapi32')
-      API.new('RegEnumKeyEx', 'LLPPPPP', 'L', 'advapi32')
+      API.new('RegEnumKeyEx', 'LLPPPPPP', 'L', 'advapi32')
       API.new('RegEnumValue', 'LLPPPPPP', 'L', 'advapi32')
       API.new('RegFlushKey', 'L', 'L', 'advapi32')
       API.new('RegLoadKey', 'LPP', 'L', 'advapi32')

data/windows-pr.gemspec

@@ -1,28 +1,28 @@
 require "rubygems"
 
 spec = Gem::Specification.new do |gem|
-   gem.name        = 'windows-pr'
-   gem.version     = '1.0.3'
-   gem.authors     = ['Daniel J. Berger', 'Park Heesob']
-   gem.email       = 'djberg96@gmail.com'
-   gem.homepage    = 'http://www.rubyforge.org/projects/win32utils'
+   gem.name              = 'windows-pr'
+   gem.version           = '1.0.4'
+   gem.authors           = ['Daniel J. Berger', 'Park Heesob']
+   gem.email             = 'djberg96@gmail.com'
+   gem.homepage          = 'http://www.rubyforge.org/projects/win32utils'
    gem.rubyforge_project = 'win32utils'
-   gem.platform    = Gem::Platform::RUBY
-   gem.summary     = 'Windows functions and constants bundled via Win32::API'
-   gem.test_files  = Dir["test/tc*"]
-   gem.has_rdoc    = true
-   files = Dir["**/*"]
-   files = files.reject{ |fn| fn.include?('CVS') }
-   gem.files = files
-   gem.require_path = "lib"
-   gem.extra_rdoc_files = ['MANIFEST', 'README', 'CHANGES']
+   gem.platform          = Gem::Platform::RUBY
+   gem.summary           = 'Windows functions and constants bundled via Win32::API'
+   gem.test_files        = Dir["test/tc*"]
+   gem.files             = Dir["**/*"].reject{ |fn| fn.include?('CVS') }
+   gem.extra_rdoc_files  = ['MANIFEST', 'README', 'CHANGES']
+   
    gem.add_dependency('windows-api', '>= 0.3.0')
    gem.add_dependency('win32-api', '>= 1.4.0')
-   gem.description = "The windows-pr library is a collection of Windows
-      functions and constants pre-defined for you using the win32-api library.
-      It also autogenerates explicit ANSI and Wide character versions of those
-      functions, as well as constants that can be used as methods, e.g.
-      CloseHandle() instead of CloseHandle.call().".gsub(/\s+/, ' ')
+   
+   gem.description = <<-EOF
+      The windows-pr library is a collection of Windows functions and constants
+      pre-defined for you using the windows-api library. It also autogenerates
+      explicit ANSI and Wide character versions of those functions, as well as
+      constants that can be used as methods, e.g. CloseHandle() instead of
+      CloseHandle.call().
+   EOF
 end
 
 if $0 == __FILE__

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: windows-pr
 version: !ruby/object:Gem::Version 
-  version: 1.0.3
+  version: 1.0.4
 platform: ruby
 authors: 
 - Daniel J. Berger
@@ -10,7 +10,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-04-23 00:00:00 -06:00
+date: 2009-05-15 00:00:00 -06:00
 default_executable: 
 dependencies: 
 - !ruby/object:Gem::Dependency 
@@ -33,7 +33,7 @@ dependencies:
       - !ruby/object:Gem::Version 
         version: 1.4.0
     version: 
-description: The windows-pr library is a collection of Windows functions and constants pre-defined for you using the win32-api library. It also autogenerates explicit ANSI and Wide character versions of those functions, as well as constants that can be used as methods, e.g. CloseHandle() instead of CloseHandle.call().
+description: "      The windows-pr library is a collection of Windows functions and constants\n      pre-defined for you using the windows-api library. It also autogenerates\n      explicit ANSI and Wide character versions of those functions, as well as\n      constants that can be used as methods, e.g. CloseHandle() instead of\n      CloseHandle.call().\n"
 email: djberg96@gmail.com
 executables: []
 
@@ -47,7 +47,9 @@ files:
 - CHANGES
 - doc/conversion_guide.txt
 - lib/windows/clipboard.rb
+- lib/windows/com/accessibility.rb
 - lib/windows/com/automation.rb
+- lib/windows/com/variant.rb
 - lib/windows/com.rb
 - lib/windows/console.rb
 - lib/windows/debug.rb
@@ -182,7 +184,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
 requirements: []
 
 rubyforge_project: win32utils
-rubygems_version: 1.3.2
+rubygems_version: 1.3.3
 signing_key: 
 specification_version: 3
 summary: Windows functions and constants bundled via Win32::API