windows-pr 1.2.2 → 1.2.3

data/lib/windows/window/properties.rb

@@ -1,20 +1,20 @@
-require 'windows/api'
-
-module Windows
-  module Window
-    module Properties
-      API.auto_namespace = 'Windows::Window::Properties'
-      API.auto_constant  = true
-      API.auto_method    = true
-      API.auto_unicode   = true
-
-      private
-
-      API.new('EnumProps', 'LK', 'I', 'user32')
-      API.new('EnumPropsEx', 'LKL', 'I', 'user32')
-      API.new('GetProp', 'LP', 'L', 'user32')
-      API.new('RemoveProp', 'LP', 'L', 'user32')
-      API.new('SetProp', 'LPL', 'B', 'user32')
-    end
-  end
-end
+require 'windows/api'
+
+module Windows
+  module Window
+    module Properties
+      API.auto_namespace = 'Windows::Window::Properties'
+      API.auto_constant  = true
+      API.auto_method    = true
+      API.auto_unicode   = true
+
+      private
+
+      API.new('EnumProps', 'LK', 'I', 'user32')
+      API.new('EnumPropsEx', 'LKL', 'I', 'user32')
+      API.new('GetProp', 'LP', 'L', 'user32')
+      API.new('RemoveProp', 'LP', 'L', 'user32')
+      API.new('SetProp', 'LPL', 'B', 'user32')
+    end
+  end
+end

data/lib/windows/window/timer.rb

@@ -1,19 +1,19 @@
-require 'windows/api'
-
-module Windows
-  module Window
-    module Timer
-      API.auto_namespace = 'Windows::Window::Timer'
-      API.auto_constant  = true
-      API.auto_method    = true
-      API.auto_unicode   = false
-
-      private
-
-      API.new('KillTimer', 'LP', 'B', 'user32')
-      API.new('QueryPerformanceCounter', 'P', 'B')
-      API.new('QueryPerformanceFrequency', 'P', 'B')
-      API.new('SetTimer', 'LIIK', 'P', 'user32')
-    end
-  end
-end
+require 'windows/api'
+
+module Windows
+  module Window
+    module Timer
+      API.auto_namespace = 'Windows::Window::Timer'
+      API.auto_constant  = true
+      API.auto_method    = true
+      API.auto_unicode   = false
+
+      private
+
+      API.new('KillTimer', 'LP', 'B', 'user32')
+      API.new('QueryPerformanceCounter', 'P', 'B')
+      API.new('QueryPerformanceFrequency', 'P', 'B')
+      API.new('SetTimer', 'LIIK', 'P', 'user32')
+    end
+  end
+end

data/lib/windows/wsa.rb

@@ -1,102 +1,102 @@
-require 'windows/api'
-
-module Windows
-  module WSA
-    API.auto_namespace = 'Windows::WSA'
-    API.auto_constant  = true
-    API.auto_method    = true
-    API.auto_unicode   = true
-
-    private
-
-    # Constants
-
-    WSA_FLAG_OVERLAPPED             = 0x01
-    WSA_FLAG_MULTIPOINT_C_ROOT      = 0x02
-    WSA_FLAG_MULTIPOINT_C_LEAF      = 0x04
-    WSA_FLAG_MULTIPOINT_D_ROOT      = 0x08
-    WSA_FLAG_MULTIPOINT_D_LEAF      = 0x10
-    WSA_FLAG_ACCESS_SYSTEM_SECURITY = 0x40
-    WSA_FLAG_NO_HANDLE_INHERIT      = 0x80
-
-    RNRSERVICE_REGISTER   = 0
-    RNRSERVICE_DEREGISTER = 1
-    RNRSERVICE_DELETE     = 2
-    
-    # Functions
-
-    API.new('WSAAccept', 'LPPKP', 'L', 'ws2_32')
-    API.new('WSAAddressToString', 'PLPPP', 'I', 'ws2_32')
-    API.new('WSAAsyncGetHostByAddr', 'LISIIPI', 'L', 'ws2_32')
-    API.new('WSAAsyncGetHostByName', 'LISPI', 'L', 'ws2_32')
-    API.new('WSAAsyncGetProtoByName', 'LISPI', 'L', 'ws2_32')
-    API.new('WSAAsyncGetProtoByNumber', 'LISPI', 'L', 'ws2_32')
-    API.new('WSAAsyncGetServByName', 'LISSPI', 'L', 'ws2_32')
-    API.new('WSAAsyncGetServByPort', 'LIISPI', 'L', 'ws2_32')
-    API.new('WSAAsyncSelect', 'LLIL', 'I', 'ws2_32')
-    API.new('WSACancelAsyncRequest', 'L', 'I', 'ws2_32')
-    API.new('WSACleanup', 'V', 'I', 'ws2_32')
-    API.new('WSACloseEvent', 'I', 'B', 'ws2_32')
-    API.new('WSAConnect', 'LPIPPPP', 'I', 'ws2_32')
-    API.new('WSACreateEvent', 'V', 'L', 'ws2_32')
-    API.new('WSADuplicateSocket', 'LLP', 'I', 'ws2_32')
-    API.new('WSAEnumNetworkEvents', 'LLP', 'I', 'ws2_32')
-    API.new('WSAEnumProtocols', 'PPP', 'I', 'ws2_32')
-    API.new('WSAEventSelect', 'LLL', 'I', 'ws2_32')
-    API.new('WSAGetLastError', 'V', 'I', 'ws2_32')
-    API.new('WSAGetOverlappedResult', 'LPPIP', 'B', 'ws2_32')
-    API.new('WSAGetQOSByName', 'LPP', 'B', 'ws2_32')
-    API.new('WSAGetServiceClassInfo', 'PPPP', 'I', 'ws2_32')
-    API.new('WSAGetServiceClassNameByClassId', 'PPP', 'I', 'ws2_32')
-    API.new('WSAHtonl', 'LLP', 'I', 'ws2_32')
-    API.new('WSAHtons', 'LIP', 'I', 'ws2_32')
-    API.new('WSAInstallServiceClass', 'P', 'I', 'ws2_32')
-    API.new('WSAIoctl', 'LLPLPLPPP', 'I', 'ws2_32')
-    API.new('WSAJoinLeaf', 'LPIPPPPL', 'L', 'ws2_32')
-    API.new('WSALookupServiceBegin', 'PLP', 'I', 'ws2_32')
-    API.new('WSALookupServiceEnd', 'L', 'I', 'ws2_32')
-    API.new('WSALookupServiceNext', 'LLPP', 'I', 'ws2_32')
-    API.new('WSANtohl', 'LLP', 'I', 'ws2_32')
-    API.new('WSANtohs', 'LIP', 'I', 'ws2_32')
-    API.new('WSAProviderConfigChange', 'PPP', 'I', 'ws2_32')
-    API.new('WSARecv', 'LPLPPPP', 'I', 'ws2_32')
-    API.new('WSARecvDisconnect', 'LP', 'I', 'ws2_32')
-    API.new('WSARecvEx', 'LPIP', 'I', 'mswsock')
-    API.new('WSARecvFrom', 'LPLPPPPPP', 'I', 'ws2_32')
-    API.new('WSARemoveServiceClass', 'P', 'I', 'ws2_32')
-    API.new('WSAResetEvent', 'L', 'B', 'ws2_32')
-    API.new('WSASend', 'LPLPLPP', 'I', 'ws2_32')
-    API.new('WSASendDisconnect', 'LP', 'I', 'ws2_32')
-    API.new('WSASendTo', 'LPLPLPIPP', 'I', 'ws2_32')
-    API.new('WSASetEvent', 'L', 'B', 'ws2_32')
-    API.new('WSASetLastError', 'I', 'V', 'ws2_32')
-    API.new('WSASetService', 'PIL', 'I', 'ws2_32')
-    API.new('WSAStartup', 'LP', 'I', 'ws2_32')
-    API.new('WSASocket', 'IIIPLL', 'L', 'ws2_32')
-    API.new('WSAStringToAddress', 'PIPPP', 'I', 'ws2_32')
-    API.new('WSAWaitForMultipleEvents', 'LPILI', 'L', 'ws2_32')
-
-    begin
-      API.new('WSAConnectByList', 'LPPPPPPP', 'B', 'ws2_32')
-      API.new('WSAConnectByName', 'LPPPPPPP', 'B', 'ws2_32')
-      API.new('WSADeleteSocketPeerTargetName', 'LPLPP', 'L', 'fwpuclnt')
-      API.new('WSAEnumNameSpaceProvidersEx', 'PP', 'I', 'ws2_32')
-      API.new('WSAPoll', 'PLI', 'I', 'ws2_32')
-      API.new('WSAQuerySocketSecurity', 'LPLPPPP', 'I', 'fwpuclnt')
-      API.new('WSARevertImpersonation', 'V', 'I', 'fwpuclnt')
-      API.new('WSASendMsg', 'LPLPPP', 'I', 'ws2_32')
-      API.new('WSASetSocketPeerTargetName', 'LPLPP', 'I', 'fwpuclnt')
-      API.new('WSASetSocketSecurity', 'LPLPP', 'I', 'fwpuclnt')
-    rescue Win32::API::LoadLibraryError
-      # Vista or later
-    end
-
-    begin
-      API.new('WSAEnumNameSpaceProviders', 'PP', 'I', 'ws2_32')
-      API.new('WSAImpersonateSocketPeer', 'LPL', 'I', 'fwpuclnt')
-      API.new('WSANSPIoctl', 'LLPLPLPP', 'I', 'ws2_32')
-    rescue Win32::API::LoadLibraryError
-      # XP or later
-    end
-  end
-end
+require 'windows/api'
+
+module Windows
+  module WSA
+    API.auto_namespace = 'Windows::WSA'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = true
+
+    private
+
+    # Constants
+
+    WSA_FLAG_OVERLAPPED             = 0x01
+    WSA_FLAG_MULTIPOINT_C_ROOT      = 0x02
+    WSA_FLAG_MULTIPOINT_C_LEAF      = 0x04
+    WSA_FLAG_MULTIPOINT_D_ROOT      = 0x08
+    WSA_FLAG_MULTIPOINT_D_LEAF      = 0x10
+    WSA_FLAG_ACCESS_SYSTEM_SECURITY = 0x40
+    WSA_FLAG_NO_HANDLE_INHERIT      = 0x80
+
+    RNRSERVICE_REGISTER   = 0
+    RNRSERVICE_DEREGISTER = 1
+    RNRSERVICE_DELETE     = 2
+    
+    # Functions
+
+    API.new('WSAAccept', 'LPPKP', 'L', 'ws2_32')
+    API.new('WSAAddressToString', 'PLPPP', 'I', 'ws2_32')
+    API.new('WSAAsyncGetHostByAddr', 'LISIIPI', 'L', 'ws2_32')
+    API.new('WSAAsyncGetHostByName', 'LISPI', 'L', 'ws2_32')
+    API.new('WSAAsyncGetProtoByName', 'LISPI', 'L', 'ws2_32')
+    API.new('WSAAsyncGetProtoByNumber', 'LISPI', 'L', 'ws2_32')
+    API.new('WSAAsyncGetServByName', 'LISSPI', 'L', 'ws2_32')
+    API.new('WSAAsyncGetServByPort', 'LIISPI', 'L', 'ws2_32')
+    API.new('WSAAsyncSelect', 'LLIL', 'I', 'ws2_32')
+    API.new('WSACancelAsyncRequest', 'L', 'I', 'ws2_32')
+    API.new('WSACleanup', 'V', 'I', 'ws2_32')
+    API.new('WSACloseEvent', 'I', 'B', 'ws2_32')
+    API.new('WSAConnect', 'LPIPPPP', 'I', 'ws2_32')
+    API.new('WSACreateEvent', 'V', 'L', 'ws2_32')
+    API.new('WSADuplicateSocket', 'LLP', 'I', 'ws2_32')
+    API.new('WSAEnumNetworkEvents', 'LLP', 'I', 'ws2_32')
+    API.new('WSAEnumProtocols', 'PPP', 'I', 'ws2_32')
+    API.new('WSAEventSelect', 'LLL', 'I', 'ws2_32')
+    API.new('WSAGetLastError', 'V', 'I', 'ws2_32')
+    API.new('WSAGetOverlappedResult', 'LPPIP', 'B', 'ws2_32')
+    API.new('WSAGetQOSByName', 'LPP', 'B', 'ws2_32')
+    API.new('WSAGetServiceClassInfo', 'PPPP', 'I', 'ws2_32')
+    API.new('WSAGetServiceClassNameByClassId', 'PPP', 'I', 'ws2_32')
+    API.new('WSAHtonl', 'LLP', 'I', 'ws2_32')
+    API.new('WSAHtons', 'LIP', 'I', 'ws2_32')
+    API.new('WSAInstallServiceClass', 'P', 'I', 'ws2_32')
+    API.new('WSAIoctl', 'LLPLPLPPP', 'I', 'ws2_32')
+    API.new('WSAJoinLeaf', 'LPIPPPPL', 'L', 'ws2_32')
+    API.new('WSALookupServiceBegin', 'PLP', 'I', 'ws2_32')
+    API.new('WSALookupServiceEnd', 'L', 'I', 'ws2_32')
+    API.new('WSALookupServiceNext', 'LLPP', 'I', 'ws2_32')
+    API.new('WSANtohl', 'LLP', 'I', 'ws2_32')
+    API.new('WSANtohs', 'LIP', 'I', 'ws2_32')
+    API.new('WSAProviderConfigChange', 'PPP', 'I', 'ws2_32')
+    API.new('WSARecv', 'LPLPPPP', 'I', 'ws2_32')
+    API.new('WSARecvDisconnect', 'LP', 'I', 'ws2_32')
+    API.new('WSARecvEx', 'LPIP', 'I', 'mswsock')
+    API.new('WSARecvFrom', 'LPLPPPPPP', 'I', 'ws2_32')
+    API.new('WSARemoveServiceClass', 'P', 'I', 'ws2_32')
+    API.new('WSAResetEvent', 'L', 'B', 'ws2_32')
+    API.new('WSASend', 'LPLPLPP', 'I', 'ws2_32')
+    API.new('WSASendDisconnect', 'LP', 'I', 'ws2_32')
+    API.new('WSASendTo', 'LPLPLPIPP', 'I', 'ws2_32')
+    API.new('WSASetEvent', 'L', 'B', 'ws2_32')
+    API.new('WSASetLastError', 'I', 'V', 'ws2_32')
+    API.new('WSASetService', 'PIL', 'I', 'ws2_32')
+    API.new('WSAStartup', 'LP', 'I', 'ws2_32')
+    API.new('WSASocket', 'IIIPLL', 'L', 'ws2_32')
+    API.new('WSAStringToAddress', 'PIPPP', 'I', 'ws2_32')
+    API.new('WSAWaitForMultipleEvents', 'LPILI', 'L', 'ws2_32')
+
+    begin
+      API.new('WSAConnectByList', 'LPPPPPPP', 'B', 'ws2_32')
+      API.new('WSAConnectByName', 'LPPPPPPP', 'B', 'ws2_32')
+      API.new('WSADeleteSocketPeerTargetName', 'LPLPP', 'L', 'fwpuclnt')
+      API.new('WSAEnumNameSpaceProvidersEx', 'PP', 'I', 'ws2_32')
+      API.new('WSAPoll', 'PLI', 'I', 'ws2_32')
+      API.new('WSAQuerySocketSecurity', 'LPLPPPP', 'I', 'fwpuclnt')
+      API.new('WSARevertImpersonation', 'V', 'I', 'fwpuclnt')
+      API.new('WSASendMsg', 'LPLPPP', 'I', 'ws2_32')
+      API.new('WSASetSocketPeerTargetName', 'LPLPP', 'I', 'fwpuclnt')
+      API.new('WSASetSocketSecurity', 'LPLPP', 'I', 'fwpuclnt')
+    rescue Win32::API::LoadLibraryError
+      # Vista or later
+    end
+
+    begin
+      API.new('WSAEnumNameSpaceProviders', 'PP', 'I', 'ws2_32')
+      API.new('WSAImpersonateSocketPeer', 'LPL', 'I', 'fwpuclnt')
+      API.new('WSANSPIoctl', 'LLPLPLPP', 'I', 'ws2_32')
+    rescue Win32::API::LoadLibraryError
+      # XP or later
+    end
+  end
+end

data/test/tc_clipboard.rb

@@ -1,41 +1,41 @@
-#####################################################################
-# tc_clipboard.rb
-#
-# Test case for the Windows::Clipboard module.
-#####################################################################
-require 'windows/clipboard'
-require 'test/unit'
-
-class TC_Windows_Clipboard < Test::Unit::TestCase
-   include Windows::Clipboard
-
-   def test_methods
-      assert_respond_to(self, :OpenClipboard)
-      assert_respond_to(self, :CloseClipboard)
-      assert_respond_to(self, :GetClipboardData)
-      assert_respond_to(self, :EmptyClipboard)
-      assert_respond_to(self, :SetClipboardData)
-      assert_respond_to(self, :CountClipboardFormats)
-      assert_respond_to(self, :IsClipboardFormatAvailable)
-      assert_respond_to(self, :GetClipboardFormatName)
-      assert_respond_to(self, :EnumClipboardFormats)
-      assert_respond_to(self, :RegisterClipboardFormat)
-   end
-
-   def test_constants
-      assert_equal(1, CF_TEXT)
-      assert_equal(2, CF_BITMAP)
-      assert_equal(3, CF_METAFILEPICT)
-      assert_equal(4, CF_SYLK)
-      assert_equal(5, CF_DIF)
-      assert_equal(6, CF_TIFF)
-      assert_equal(7, CF_OEMTEXT)
-      assert_equal(8, CF_DIB)
-      assert_equal(9, CF_PALETTE)
-      assert_equal(10, CF_PENDATA)
-      assert_equal(11, CF_RIFF)
-      assert_equal(12, CF_WAVE)
-      assert_equal(13, CF_UNICODETEXT)
-      assert_equal(14, CF_ENHMETAFILE)
-   end
-end
+#####################################################################
+# tc_clipboard.rb
+#
+# Test case for the Windows::Clipboard module.
+#####################################################################
+require 'windows/clipboard'
+require 'test/unit'
+
+class TC_Windows_Clipboard < Test::Unit::TestCase
+   include Windows::Clipboard
+
+   def test_methods
+      assert_respond_to(self, :OpenClipboard)
+      assert_respond_to(self, :CloseClipboard)
+      assert_respond_to(self, :GetClipboardData)
+      assert_respond_to(self, :EmptyClipboard)
+      assert_respond_to(self, :SetClipboardData)
+      assert_respond_to(self, :CountClipboardFormats)
+      assert_respond_to(self, :IsClipboardFormatAvailable)
+      assert_respond_to(self, :GetClipboardFormatName)
+      assert_respond_to(self, :EnumClipboardFormats)
+      assert_respond_to(self, :RegisterClipboardFormat)
+   end
+
+   def test_constants
+      assert_equal(1, CF_TEXT)
+      assert_equal(2, CF_BITMAP)
+      assert_equal(3, CF_METAFILEPICT)
+      assert_equal(4, CF_SYLK)
+      assert_equal(5, CF_DIF)
+      assert_equal(6, CF_TIFF)
+      assert_equal(7, CF_OEMTEXT)
+      assert_equal(8, CF_DIB)
+      assert_equal(9, CF_PALETTE)
+      assert_equal(10, CF_PENDATA)
+      assert_equal(11, CF_RIFF)
+      assert_equal(12, CF_WAVE)
+      assert_equal(13, CF_UNICODETEXT)
+      assert_equal(14, CF_ENHMETAFILE)
+   end
+end

data/test/tc_com.rb

@@ -1,32 +1,32 @@
-#####################################################################
-# tc_com.rb
-#
-# Test case for the Windows::COM module.
-#####################################################################
-require "windows/com"
-require "test/unit"
-
-class TC_Windows_COM < Test::Unit::TestCase
-   include Windows::COM
-
-   def test_method_constants
-      assert_respond_to(self, :BindMoniker)
-      assert_respond_to(self, :CLSIDFromProgID)
-      assert_respond_to(self, :CLSIDFromProgIDEx)
-      assert_respond_to(self, :CoAddRefServerProcess)
-      assert_respond_to(self, :CoAllowSetForegroundWindow)
-      assert_respond_to(self, :CoCancelCall)
-      assert_respond_to(self, :CoCopyProxy)
-      assert_respond_to(self, :CoCreateFreeThreadedMarshaler)
-      assert_respond_to(self, :CoCreateGuid)
-      assert_respond_to(self, :CoCreateInstance)
-   end
-
-   def test_numeric_constants
-      assert_equal(0, VT_EMPTY)
-      assert_equal(1, VT_NULL)
-      assert_equal(2, VT_I2)
-      assert_equal(3, VT_I4)
-      assert_equal(4, VT_R4)
-   end
-end
+#####################################################################
+# tc_com.rb
+#
+# Test case for the Windows::COM module.
+#####################################################################
+require "windows/com"
+require "test/unit"
+
+class TC_Windows_COM < Test::Unit::TestCase
+   include Windows::COM
+
+   def test_method_constants
+      assert_respond_to(self, :BindMoniker)
+      assert_respond_to(self, :CLSIDFromProgID)
+      assert_respond_to(self, :CLSIDFromProgIDEx)
+      assert_respond_to(self, :CoAddRefServerProcess)
+      assert_respond_to(self, :CoAllowSetForegroundWindow)
+      assert_respond_to(self, :CoCancelCall)
+      assert_respond_to(self, :CoCopyProxy)
+      assert_respond_to(self, :CoCreateFreeThreadedMarshaler)
+      assert_respond_to(self, :CoCreateGuid)
+      assert_respond_to(self, :CoCreateInstance)
+   end
+
+   def test_numeric_constants
+      assert_equal(0, VT_EMPTY)
+      assert_equal(1, VT_NULL)
+      assert_equal(2, VT_I2)
+      assert_equal(3, VT_I4)
+      assert_equal(4, VT_R4)
+   end
+end

data/test/tc_com_automation.rb

@@ -1,15 +1,15 @@
-#####################################################################
-# tc_com_automation.rb
-#
-# Test case for the Windows::COM::Automation module.
-#####################################################################
-require 'windows/com/automation'
-require 'test/unit'
-
-class TC_Windows_COM_Automation < Test::Unit::TestCase
-   include Windows::COM::Automation
-
-   def test_method_constants
-      assert_respond_to(self, :BstrFromVector)
-   end
-end
+#####################################################################
+# tc_com_automation.rb
+#
+# Test case for the Windows::COM::Automation module.
+#####################################################################
+require 'windows/com/automation'
+require 'test/unit'
+
+class TC_Windows_COM_Automation < Test::Unit::TestCase
+   include Windows::COM::Automation
+
+   def test_method_constants
+      assert_respond_to(self, :BstrFromVector)
+   end
+end