windows-api 0.4.3 → 0.4.4

data/lib/windows/wide_string.rb

@@ -1,60 +1,60 @@
-require 'windows/unicode'
-require 'windows/msvcrt/string'
-
-# This is a class that simplifies wide string handling. It is NOT meant
-# for general consumption, but for internal use by the Win32Utils Team.
-# Use at your own risk.
-# 
-class WideString < String
-   include Windows::Unicode
-   include Windows::MSVCRT::String
-   
-   ACP  = CP_ACP
-   UTF7 = CP_UTF7
-   UTF8 = CP_UTF8
-   
-   # Get or set the encoding of the wide string object
-   #
-   attr_accessor :encoding
-   
-   # Creates a new wide +string+ with the given +encoding+, or UTF8 if
-   # no encoding is specified.
-   #
-   def initialize(string, encoding = UTF8)
-      super(multi_to_wide(string, encoding))
-      @encoding = encoding
-   end
-   
-   # Returns the multibyte version of the wide string.
-   #
-   def to_multi
-      wide_to_multi(self, @encoding)      
-   end
-
-   # Replaces the wide string with a multibyte version.
-   #   
-   def to_multi!
-      self.replace(wide_to_multi(self, @encoding))  
-   end
-   
-   alias to_s to_multi
-   alias to_str to_multi
-   alias inspect to_multi
-   
-   # Strips the trailing two null characters from the string.
-   #
-   def wstrip
-      self[0..-3] if string[-2..-1] == "\000\000"
-   end
-   
-   # The length of the wide string in chars.
-   #
-   def length
-      wcslen(self) * 2      
-   end
-   
-   # The size of the wide string in bytes.
-   def size
-      wcslen(self)      
-   end   
+require 'windows/unicode'
+require 'windows/msvcrt/string'
+
+# This is a class that simplifies wide string handling. It is NOT meant
+# for general consumption, but for internal use by the Win32Utils Team.
+# Use at your own risk.
+# 
+class WideString < String
+   include Windows::Unicode
+   include Windows::MSVCRT::String
+   
+   ACP  = CP_ACP
+   UTF7 = CP_UTF7
+   UTF8 = CP_UTF8
+   
+   # Get or set the encoding of the wide string object
+   #
+   attr_accessor :encoding
+   
+   # Creates a new wide +string+ with the given +encoding+, or UTF8 if
+   # no encoding is specified.
+   #
+   def initialize(string, encoding = UTF8)
+      super(multi_to_wide(string, encoding))
+      @encoding = encoding
+   end
+   
+   # Returns the multibyte version of the wide string.
+   #
+   def to_multi
+      wide_to_multi(self, @encoding)      
+   end
+
+   # Replaces the wide string with a multibyte version.
+   #   
+   def to_multi!
+      self.replace(wide_to_multi(self, @encoding))  
+   end
+   
+   alias to_s to_multi
+   alias to_str to_multi
+   alias inspect to_multi
+   
+   # Strips the trailing two null characters from the string.
+   #
+   def wstrip
+      self[0..-3] if string[-2..-1] == "\000\000"
+   end
+   
+   # The length of the wide string in chars.
+   #
+   def length
+      wcslen(self) * 2      
+   end
+   
+   # The size of the wide string in bytes.
+   def size
+      wcslen(self)      
+   end   
 end

data/test/test_windows_api.rb

@@ -1,171 +1,171 @@
-############################################################################
-# test_windows_api.rb
-#
-# Test case for the Windows::API class. You should run this as Rake task,
-# i.e. 'rake test', instead of running it directly.
-############################################################################
-require 'windows/api'
-require 'test-unit'
-include Windows
-
-module Windows
-  module Test
-    API.auto_namespace = 'Windows::Test'
-    API.auto_unicode   = true
-    API.auto_method    = true
-    API.auto_constant  = true
-    $test_method = API.new('GetCurrentDirectory', 'PP', 'L')
-  end
-
-  module Foo
-    API.auto_namespace = 'Windows::Foo'
-    API.auto_unicode  = false
-    API.auto_method   = false
-    API.auto_constant = false
-    $foo_method = API.new('GetSystemDirectory', 'PL', 'L')
-  end
-
-  module Bar
-    API.auto_namespace = 'Windows::Bar'
-    API.auto_constant = true
-    API.auto_method   = true
-    $bar_method = API.new('GetUserName', 'PP', 'I', 'advapi32')
-  end
-
-  module Baz
-    API.auto_namespace = 'Windows::Baz'
-    API.auto_constant  = true
-    API.auto_method    = true
-
-    # No ANSI equivalent for ReadDirectoryChangesW
-    $strstr = API.new('strstr', 'PP', 'P', 'msvcrt')
-    $umask  = API.new('_umask', 'I', 'I', 'msvcrt')
-    $wave   = API.new('waveOutGetNumDevs', 'V', 'I', 'winmm')
-    $read   = API.new('ReadDirectoryChangesW', 'LPLILPPP', 'B')
-   end
-end
-
-class TC_Windows_API < Test::Unit::TestCase
-  include Windows::Test
-  include Windows::Foo
-  include Windows::Bar
-  include Windows::Baz
-
-  def setup
-    @buf = 0.chr * 256
-    @runtimes = ['msvcrt', 'msvcr80', 'msvcr90', 'msvcr100']
-  end
-
-  def test_version
-    assert_equal('0.4.3', API::VERSION)
-  end
-
-  def test_full_data_types
-    assert_nothing_raised{
-      API.new('GetWindowsDirectory', ['LPTSTR', 'UINT'], 'BOOL')
-    }
-  end
-
-  def test_msvcrt_constant
-    assert_true(@runtimes.include?(Windows::MSVCRT_DLL))
-  end
-
-  # Validate that funcs like 'strstr' get an uppercase constant like 'Strstr'
-  def test_lower_case_to_capitalized_constant
-    assert_not_nil(Windows::Baz::Strstr)
-    assert_not_nil(Windows::Baz::Umask)
-    assert_not_nil(Windows::Baz::WaveOutGetNumDevs)
-  end
-
-  def test_explicit_wide_function_only
-    assert_not_nil(Windows::Baz::ReadDirectoryChangesW)
-    assert_false(Windows::Baz.constants.include?('ReadDirectoryChanges'))
-    assert_false(Windows::Baz.constants.include?('ReadDirectoryChangesA'))
-  end
-
-  def test_lower_case_auto_methods
-    assert_respond_to(self, :strstr)
-    assert_respond_to(self, :umask)
-    assert_respond_to(self, :_umask)
-    assert_respond_to(self, :waveOutGetNumDevs)
-    assert_equal('llo', strstr('hello', 'l'))
-  end
-
-  def test_auto_unicode
-    assert_not_nil(Windows::Bar::GetUserName)
-    assert_respond_to(self, :GetUserName)
-    assert_not_respond_to(self, :GetUserNameA)
-    assert_not_respond_to(self, :GetUserNameW)
-  end
-
-  def test_auto_constant
-    assert_not_nil(Windows::Test::GetCurrentDirectory)
-    assert_not_nil(Windows::Bar::GetUserName)
-    assert_kind_of(Win32::API, Windows::Test::GetCurrentDirectory)
-    assert_respond_to(Windows::Test::GetCurrentDirectory, :call)
-  end
-
-  def test_auto_method
-    assert_respond_to(self, :GetCurrentDirectory)
-    assert_respond_to(self, :GetCurrentDirectoryA)
-    assert_respond_to(self, :GetCurrentDirectoryW)
-    assert_not_respond_to(self, :GetSystemDirectory)
-    assert_not_respond_to(self, :GetSystemDirectoryA)
-    assert_not_respond_to(self, :GetSystemDirectoryW)
-  end
-
-  def test_call
-    assert_respond_to($test_method, :call)
-    assert_respond_to($foo_method, :call)
-    assert_nothing_raised{ $test_method.call(@buf.length, @buf) }
-    assert_nothing_raised{ $foo_method.call(@buf, @buf.length) }
-  end
-
-  def test_dll_name
-    assert_respond_to($test_method, :dll_name)
-    assert_equal('kernel32', $test_method.dll_name)
-  end
-
-  def test_function_name
-    assert_respond_to($test_method, :function_name)
-    assert_equal('GetCurrentDirectory', $test_method.function_name)
-  end
-
-  def test_prototype
-    assert_respond_to($test_method, :prototype)
-    assert_equal(['P', 'P'], $test_method.prototype)
-  end
-
-  def test_return_type
-    assert_respond_to($test_method, :return_type)
-    assert_equal('L', $test_method.return_type)
-  end
-
-  def test_effective_function_name
-    assert_respond_to($test_method, :effective_function_name)
-    assert_equal('GetCurrentDirectoryA', $test_method.effective_function_name)
-    assert_equal('strstr', $strstr.effective_function_name)
-    assert_equal('waveOutGetNumDevs', $wave.effective_function_name)
-    assert_equal('ReadDirectoryChangesW', $read.effective_function_name)
-  end
-
-  def test_bad_prototype_raises_error
-    assert_raise(Win32::API::PrototypeError){
-      Windows::API.new('GetCurrentDirectory', 'XL', 'L')
-    }
-    assert_raise(Win32::API::PrototypeError){
-      Windows::API.new('GetCurrentDirectory', 'PL', 'X')
-    }
-  end
-
-  def test_bad_function_raises_error
-    assert_raise(Win32::API::LoadLibraryError){
-      Windows::API.new('GetCurrentFooBar', 'LL', 'L')
-    }
-  end
-
-  def teardown
-    @buf = nil
-    @runtimes = nil
-  end
-end
+############################################################################
+# test_windows_api.rb
+#
+# Test case for the Windows::API class. You should run this as Rake task,
+# i.e. 'rake test', instead of running it directly.
+############################################################################
+require 'windows/api'
+require 'test-unit'
+include Windows
+
+module Windows
+  module Test
+    API.auto_namespace = 'Windows::Test'
+    API.auto_unicode   = true
+    API.auto_method    = true
+    API.auto_constant  = true
+    $test_method = API.new('GetCurrentDirectory', 'PP', 'L')
+  end
+
+  module Foo
+    API.auto_namespace = 'Windows::Foo'
+    API.auto_unicode  = false
+    API.auto_method   = false
+    API.auto_constant = false
+    $foo_method = API.new('GetSystemDirectory', 'PL', 'L')
+  end
+
+  module Bar
+    API.auto_namespace = 'Windows::Bar'
+    API.auto_constant = true
+    API.auto_method   = true
+    $bar_method = API.new('GetUserName', 'PP', 'I', 'advapi32')
+  end
+
+  module Baz
+    API.auto_namespace = 'Windows::Baz'
+    API.auto_constant  = true
+    API.auto_method    = true
+
+    # No ANSI equivalent for ReadDirectoryChangesW
+    $strstr = API.new('strstr', 'PP', 'P', 'msvcrt')
+    $umask  = API.new('_umask', 'I', 'I', 'msvcrt')
+    $wave   = API.new('waveOutGetNumDevs', 'V', 'I', 'winmm')
+    $read   = API.new('ReadDirectoryChangesW', 'LPLILPPP', 'B')
+  end
+end
+
+class TC_Windows_API < Test::Unit::TestCase
+  include Windows::Test
+  include Windows::Foo
+  include Windows::Bar
+  include Windows::Baz
+
+  def setup
+    @buf = 0.chr * 256
+    @runtimes = ['msvcrt', 'msvcr80', 'msvcr90', 'msvcr100']
+  end
+
+  def test_version
+    assert_equal('0.4.4', API::VERSION)
+  end
+
+  def test_full_data_types
+    assert_nothing_raised{
+      API.new('GetWindowsDirectory', ['LPTSTR', 'UINT'], 'BOOL')
+    }
+  end
+
+  def test_msvcrt_constant
+    assert_true(@runtimes.include?(Windows::MSVCRT_DLL))
+  end
+
+  # Validate that funcs like 'strstr' get an uppercase constant like 'Strstr'
+  def test_lower_case_to_capitalized_constant
+    assert_not_nil(Windows::Baz::Strstr)
+    assert_not_nil(Windows::Baz::Umask)
+    assert_not_nil(Windows::Baz::WaveOutGetNumDevs)
+  end
+
+  def test_explicit_wide_function_only
+    assert_not_nil(Windows::Baz::ReadDirectoryChangesW)
+    assert_false(Windows::Baz.constants.include?('ReadDirectoryChanges'))
+    assert_false(Windows::Baz.constants.include?('ReadDirectoryChangesA'))
+  end
+
+  def test_lower_case_auto_methods
+    assert_respond_to(self, :strstr)
+    assert_respond_to(self, :umask)
+    assert_respond_to(self, :_umask)
+    assert_respond_to(self, :waveOutGetNumDevs)
+    assert_equal('llo', strstr('hello', 'l'))
+  end
+
+  def test_auto_unicode
+    assert_not_nil(Windows::Bar::GetUserName)
+    assert_respond_to(self, :GetUserName)
+    assert_not_respond_to(self, :GetUserNameA)
+    assert_not_respond_to(self, :GetUserNameW)
+  end
+
+  def test_auto_constant
+    assert_not_nil(Windows::Test::GetCurrentDirectory)
+    assert_not_nil(Windows::Bar::GetUserName)
+    assert_kind_of(Win32::API, Windows::Test::GetCurrentDirectory)
+    assert_respond_to(Windows::Test::GetCurrentDirectory, :call)
+  end
+
+  def test_auto_method
+    assert_respond_to(self, :GetCurrentDirectory)
+    assert_respond_to(self, :GetCurrentDirectoryA)
+    assert_respond_to(self, :GetCurrentDirectoryW)
+    assert_not_respond_to(self, :GetSystemDirectory)
+    assert_not_respond_to(self, :GetSystemDirectoryA)
+    assert_not_respond_to(self, :GetSystemDirectoryW)
+  end
+
+  def test_call
+    assert_respond_to($test_method, :call)
+    assert_respond_to($foo_method, :call)
+    assert_nothing_raised{ $test_method.call(@buf.length, @buf) }
+    assert_nothing_raised{ $foo_method.call(@buf, @buf.length) }
+  end
+
+  def test_dll_name
+    assert_respond_to($test_method, :dll_name)
+    assert_equal('kernel32', $test_method.dll_name)
+  end
+
+  def test_function_name
+    assert_respond_to($test_method, :function_name)
+    assert_equal('GetCurrentDirectory', $test_method.function_name)
+  end
+
+  def test_prototype
+    assert_respond_to($test_method, :prototype)
+    assert_equal(['P', 'P'], $test_method.prototype)
+  end
+
+  def test_return_type
+    assert_respond_to($test_method, :return_type)
+    assert_equal('L', $test_method.return_type)
+  end
+
+  def test_effective_function_name
+    assert_respond_to($test_method, :effective_function_name)
+    assert_equal('GetCurrentDirectoryA', $test_method.effective_function_name)
+    assert_equal('strstr', $strstr.effective_function_name)
+    assert_equal('waveOutGetNumDevs', $wave.effective_function_name)
+    assert_equal('ReadDirectoryChangesW', $read.effective_function_name)
+  end
+
+  def test_bad_prototype_raises_error
+    assert_raise(Win32::API::PrototypeError){
+      Windows::API.new('GetCurrentDirectory', 'XL', 'L')
+    }
+    assert_raise(Win32::API::PrototypeError){
+      Windows::API.new('GetCurrentDirectory', 'PL', 'X')
+    }
+  end
+
+  def test_bad_function_raises_error
+    assert_raise(Win32::API::LoadLibraryError){
+      Windows::API.new('GetCurrentFooBar', 'LL', 'L')
+    }
+  end
+
+  def teardown
+    @buf = nil
+    @runtimes = nil
+  end
+end