windows-pr 1.2.2 → 1.2.3

data/lib/windows/thread.rb

@@ -1,64 +1,64 @@
-require 'windows/api'
-
-module Windows
-  module Thread
-    API.auto_namespace = 'Windows::Thread'
-    API.auto_constant  = true
-    API.auto_method    = true
-    API.auto_unicode   = true
-
-    private
-
-    SYNCHRONIZE                 = 0x00100000
-    THREAD_ALL_ACCESS           = 0x1F03FF
-    THREAD_DIRECT_IMPERSONATION = 0x0200
-    THREAD_GET_CONTEXT          = 0x0008
-    THREAD_IMPERSONATE          = 0x0100
-    THREAD_QUERY_INFORMATION    = 0x0040
-    THREAD_SET_CONTEXT          = 0x0010
-    THREAD_SET_INFORMATION      = 0x0020
-    THREAD_SET_THREAD_TOKEN     = 0x0080
-    THREAD_SUSPEND_RESUME       = 0x0002
-    THREAD_TERMINATE            = 0x0001
-
-    THREAD_PRIORITY_ABOVE_NORMAL  = 1
-    THREAD_PRIORITY_BELOW_NORMAL  = -1
-    THREAD_PRIORITY_HIGHEST       = 2
-    THREAD_PRIORITY_IDLE          = -15
-    THREAD_PRIORITY_LOWEST        = -2
-    THREAD_PRIORITY_NORMAL        = 0
-    THREAD_PRIORITY_TIME_CRITICAL = 15
-      
-    API.new('CreateRemoteThread', 'LPLLPLP', 'L')
-    API.new('CreateThread', 'PLKPLP', 'L')
-    API.new('ExitThread', 'L', 'V')
-    API.new('GetCurrentThread', 'V', 'L')
-    API.new('GetCurrentThreadId', 'V', 'L')
-    API.new('GetExitCodeThread', 'LP', 'B')
-    API.new('GetThreadPriority', 'L', 'I')
-    API.new('GetThreadPriorityBoost', 'LP', 'B')
-    API.new('GetThreadTimes', 'LPPPP', 'B')
-    API.new('OpenThread', 'LIL', 'L')
-    API.new('ResumeThread', 'L', 'L')
-    API.new('SetThreadAffinityMask', 'LP', 'P')
-    API.new('SetThreadIdealProcessor', 'LL', 'L')
-    API.new('SetThreadPriority', 'LI', 'B')
-    API.new('SetThreadPriorityBoost', 'LI', 'B')
-    API.new('Sleep', 'L', 'V')
-    API.new('SleepEx', 'LI', 'L')
-    API.new('SuspendThread', 'L', 'L')
-    API.new('SwitchToThread', 'V', 'B')
-    API.new('TerminateThread', 'LL', 'B')
-    API.new('TlsAlloc', 'V', 'L')
-    API.new('TlsFree', 'L', 'B')
-    API.new('TlsGetValue', 'L', 'L')
-    API.new('TlsSetValue', 'LL', 'B')
-
-    begin
-      API.new('AttachThreadInput', 'LLI', 'B', 'user32')
-      API.new('GetThreadIOPendingFlag', 'LP', 'B')
-    rescue Win32::API::LoadLibraryError
-      # Windows XP or later
-    end
-  end
-end
+require 'windows/api'
+
+module Windows
+  module Thread
+    API.auto_namespace = 'Windows::Thread'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = true
+
+    private
+
+    SYNCHRONIZE                 = 0x00100000
+    THREAD_ALL_ACCESS           = 0x1F03FF
+    THREAD_DIRECT_IMPERSONATION = 0x0200
+    THREAD_GET_CONTEXT          = 0x0008
+    THREAD_IMPERSONATE          = 0x0100
+    THREAD_QUERY_INFORMATION    = 0x0040
+    THREAD_SET_CONTEXT          = 0x0010
+    THREAD_SET_INFORMATION      = 0x0020
+    THREAD_SET_THREAD_TOKEN     = 0x0080
+    THREAD_SUSPEND_RESUME       = 0x0002
+    THREAD_TERMINATE            = 0x0001
+
+    THREAD_PRIORITY_ABOVE_NORMAL  = 1
+    THREAD_PRIORITY_BELOW_NORMAL  = -1
+    THREAD_PRIORITY_HIGHEST       = 2
+    THREAD_PRIORITY_IDLE          = -15
+    THREAD_PRIORITY_LOWEST        = -2
+    THREAD_PRIORITY_NORMAL        = 0
+    THREAD_PRIORITY_TIME_CRITICAL = 15
+      
+    API.new('CreateRemoteThread', 'LPLLPLP', 'L')
+    API.new('CreateThread', 'PLKPLP', 'L')
+    API.new('ExitThread', 'L', 'V')
+    API.new('GetCurrentThread', 'V', 'L')
+    API.new('GetCurrentThreadId', 'V', 'L')
+    API.new('GetExitCodeThread', 'LP', 'B')
+    API.new('GetThreadPriority', 'L', 'I')
+    API.new('GetThreadPriorityBoost', 'LP', 'B')
+    API.new('GetThreadTimes', 'LPPPP', 'B')
+    API.new('OpenThread', 'LIL', 'L')
+    API.new('ResumeThread', 'L', 'L')
+    API.new('SetThreadAffinityMask', 'LP', 'P')
+    API.new('SetThreadIdealProcessor', 'LL', 'L')
+    API.new('SetThreadPriority', 'LI', 'B')
+    API.new('SetThreadPriorityBoost', 'LI', 'B')
+    API.new('Sleep', 'L', 'V')
+    API.new('SleepEx', 'LI', 'L')
+    API.new('SuspendThread', 'L', 'L')
+    API.new('SwitchToThread', 'V', 'B')
+    API.new('TerminateThread', 'LL', 'B')
+    API.new('TlsAlloc', 'V', 'L')
+    API.new('TlsFree', 'L', 'B')
+    API.new('TlsGetValue', 'L', 'L')
+    API.new('TlsSetValue', 'LL', 'B')
+
+    begin
+      API.new('AttachThreadInput', 'LLI', 'B', 'user32')
+      API.new('GetThreadIOPendingFlag', 'LP', 'B')
+    rescue Win32::API::LoadLibraryError
+      # Windows XP or later
+    end
+  end
+end

data/lib/windows/time.rb

@@ -1,48 +1,48 @@
-require 'windows/api'
-
-# In general you will want to use this module with Windows::National because
-# it contains the various LOCALE and TIME constants.
-
-module Windows
-  module Time
-    API.auto_namespace = 'Windows::Time'
-    API.auto_constant  = true
-    API.auto_method    = true
-    API.auto_unicode   = true
-
-    private
-    
-    TIME_ZONE_ID_UNKNOWN  = 0
-    TIME_ZONE_ID_STANDARD = 1
-    TIME_ZONE_ID_DAYLIGHT = 2      
-
-    API.new('CompareFileTime', 'PP', 'L')
-    API.new('DosDateTimeToFileTime', 'IIP', 'B')
-    API.new('FileTimeToDosDateTime', 'PPP', 'B')
-    API.new('FileTimeToLocalFileTime', 'PP', 'B')
-    API.new('FileTimeToSystemTime', 'PP', 'B')
-    API.new('GetFileTime', 'LPPP', 'B')
-    API.new('GetLocalTime', 'P')
-    API.new('GetSystemTime', 'P')
-    API.new('GetSystemTimeAdjustment', 'PPP', 'B')
-    API.new('GetSystemTimeAsFileTime', 'P')
-    API.new('GetTickCount')
-    API.new('GetTimeFormat', 'ILPPPI', 'I')
-    API.new('GetTimeZoneInformation', 'P', 'L')
-    API.new('LocalFileTimeToFileTime', 'PP', 'B')
-    API.new('SetFileTime', 'LPPP', 'B')
-    API.new('SetLocalTime', 'P', 'B')
-    API.new('SetSystemTime', 'P', 'B')
-    API.new('SetTimeZoneInformation', 'P', 'B')
-    API.new('SetSystemTimeAdjustment', 'LI', 'B')
-    API.new('SystemTimeToFileTime', 'PP', 'B')
-    API.new('SystemTimeToTzSpecificLocalTime', 'PPP', 'B')
-
-    begin
-      API.new('GetSystemTimes', 'PPP', 'B')
-      API.new('TzSpecificLocalTimeToSystemTime', 'PPP', 'B')
-    rescue Win32::API::LoadLibraryError
-      # Windows XP or later
-    end
-  end
-end
+require 'windows/api'
+
+# In general you will want to use this module with Windows::National because
+# it contains the various LOCALE and TIME constants.
+
+module Windows
+  module Time
+    API.auto_namespace = 'Windows::Time'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = true
+
+    private
+    
+    TIME_ZONE_ID_UNKNOWN  = 0
+    TIME_ZONE_ID_STANDARD = 1
+    TIME_ZONE_ID_DAYLIGHT = 2      
+
+    API.new('CompareFileTime', 'PP', 'L')
+    API.new('DosDateTimeToFileTime', 'IIP', 'B')
+    API.new('FileTimeToDosDateTime', 'PPP', 'B')
+    API.new('FileTimeToLocalFileTime', 'PP', 'B')
+    API.new('FileTimeToSystemTime', 'PP', 'B')
+    API.new('GetFileTime', 'LPPP', 'B')
+    API.new('GetLocalTime', 'P')
+    API.new('GetSystemTime', 'P')
+    API.new('GetSystemTimeAdjustment', 'PPP', 'B')
+    API.new('GetSystemTimeAsFileTime', 'P')
+    API.new('GetTickCount')
+    API.new('GetTimeFormat', 'ILPPPI', 'I')
+    API.new('GetTimeZoneInformation', 'P', 'L')
+    API.new('LocalFileTimeToFileTime', 'PP', 'B')
+    API.new('SetFileTime', 'LPPP', 'B')
+    API.new('SetLocalTime', 'P', 'B')
+    API.new('SetSystemTime', 'P', 'B')
+    API.new('SetTimeZoneInformation', 'P', 'B')
+    API.new('SetSystemTimeAdjustment', 'LI', 'B')
+    API.new('SystemTimeToFileTime', 'PP', 'B')
+    API.new('SystemTimeToTzSpecificLocalTime', 'PPP', 'B')
+
+    begin
+      API.new('GetSystemTimes', 'PPP', 'B')
+      API.new('TzSpecificLocalTimeToSystemTime', 'PPP', 'B')
+    rescue Win32::API::LoadLibraryError
+      # Windows XP or later
+    end
+  end
+end

data/lib/windows/tool_helper.rb

@@ -1,36 +1,36 @@
-require 'windows/api'
-
-# Functions and constants from tlhelp32.h
-
-module Windows
-  module ToolHelper
-    API.auto_namespace = 'Windows::ToolHelper'
-    API.auto_constant  = true
-    API.auto_method    = true
-    API.auto_unicode   = true
-
-    private
-
-    TH32CS_SNAPHEAPLIST = 0x00000001 
-    TH32CS_SNAPPROCESS  = 0x00000002 
-    TH32CS_SNAPTHREAD   = 0x00000004 
-    TH32CS_SNAPMODULE   = 0x00000008 
-    TH32CS_SNAPMODULE32 = 0x00000010 
-    TH32CS_INHERIT      = 0x80000000
-    TH32CS_SNAPALL = TH32CS_SNAPHEAPLIST | TH32CS_SNAPMODULE |
-       TH32CS_SNAPPROCESS | TH32CS_SNAPTHREAD
-    
-    API.new('CreateToolhelp32Snapshot', 'LL', 'L')
-    API.new('Heap32First', 'PLL', 'B')
-    API.new('Heap32ListFirst', 'LP', 'B')
-    API.new('Heap32ListNext', 'LP', 'B')
-    API.new('Heap32Next', 'P', 'B')
-    API.new('Module32First', 'LP', 'B')
-    API.new('Module32Next', 'LP', 'B')
-    API.new('Process32First', 'LP', 'B')
-    API.new('Process32Next', 'LP', 'B')
-    API.new('Thread32First', 'LP', 'B')
-    API.new('Thread32Next', 'LP', 'B')
-    API.new('Toolhelp32ReadProcessMemory', 'LLPLL', 'B')
-  end
-end
+require 'windows/api'
+
+# Functions and constants from tlhelp32.h
+
+module Windows
+  module ToolHelper
+    API.auto_namespace = 'Windows::ToolHelper'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = true
+
+    private
+
+    TH32CS_SNAPHEAPLIST = 0x00000001 
+    TH32CS_SNAPPROCESS  = 0x00000002 
+    TH32CS_SNAPTHREAD   = 0x00000004 
+    TH32CS_SNAPMODULE   = 0x00000008 
+    TH32CS_SNAPMODULE32 = 0x00000010 
+    TH32CS_INHERIT      = 0x80000000
+    TH32CS_SNAPALL = TH32CS_SNAPHEAPLIST | TH32CS_SNAPMODULE |
+       TH32CS_SNAPPROCESS | TH32CS_SNAPTHREAD
+    
+    API.new('CreateToolhelp32Snapshot', 'LL', 'L')
+    API.new('Heap32First', 'PLL', 'B')
+    API.new('Heap32ListFirst', 'LP', 'B')
+    API.new('Heap32ListNext', 'LP', 'B')
+    API.new('Heap32Next', 'P', 'B')
+    API.new('Module32First', 'LP', 'B')
+    API.new('Module32Next', 'LP', 'B')
+    API.new('Process32First', 'LP', 'B')
+    API.new('Process32Next', 'LP', 'B')
+    API.new('Thread32First', 'LP', 'B')
+    API.new('Thread32Next', 'LP', 'B')
+    API.new('Toolhelp32ReadProcessMemory', 'LLPLL', 'B')
+  end
+end

data/lib/windows/unicode.rb

@@ -1,155 +1,155 @@
-# encoding: ascii-8bit
-require 'windows/api'
-require 'windows/msvcrt/string'
-require 'windows/error'
-
-module Windows
-  module Unicode
-    include Windows::MSVCRT::String
-    include Windows::Error
-
-    private
-
-    API.auto_namespace = 'Windows::Unicode'
-    API.auto_constant  = true
-    API.auto_method    = true
-    API.auto_unicode   = false
-
-    CP_ACP         = 0
-    CP_OEMCP       = 1
-    CP_MACCP       = 2
-    CP_THREAD_ACP  = 3
-    CP_SYMBOL      = 42
-    CP_UTF7        = 65000
-    CP_UTF8        = 65001
-
-    MB_PRECOMPOSED       = 0x00000001
-    MB_COMPOSITE         = 0x00000002
-    MB_USEGLYPHCHARS     = 0x00000004
-    MB_ERR_INVALID_CHARS = 0x00000008
-
-    WC_COMPOSITECHECK    = 0x00000200
-    WC_DISCARDNS         = 0x00000010
-    WC_SEPCHARS          = 0x00000020
-    WC_DEFAULTCHAR       = 0x00000040
-    WC_NO_BEST_FIT_CHARS = 0x00000400
-
-    ANSI_CHARSET        = 0
-    DEFAULT_CHARSET     = 1
-    SYMBOL_CHARSET      = 2
-    SHIFTJIS_CHARSET    = 128
-    HANGEUL_CHARSET     = 129
-    HANGUL_CHARSET      = 129
-    GB2312_CHARSET      = 134
-    CHINESEBIG5_CHARSET = 136
-    OEM_CHARSET         = 255
-    JOHAB_CHARSET       = 130
-    HEBREW_CHARSET      = 177
-    ARABIC_CHARSET      = 178
-    GREEK_CHARSET       = 161
-    TURKISH_CHARSET     = 162
-    VIETNAMESE_CHARSET  = 163
-    THAI_CHARSET        = 222
-    EASTEUROPE_CHARSET  = 238
-    RUSSIAN_CHARSET     = 204
-
-    IS_TEXT_UNICODE_ASCII16            = 0x0001
-    IS_TEXT_UNICODE_REVERSE_ASCII16    = 0x0010
-    IS_TEXT_UNICODE_STATISTICS         = 0x0002
-    IS_TEXT_UNICODE_REVERSE_STATISTICS = 0x0020
-    IS_TEXT_UNICODE_CONTROLS           = 0x0004
-    IS_TEXT_UNICODE_REVERSE_CONTROLS   = 0x0040
-    IS_TEXT_UNICODE_SIGNATURE          = 0x0008
-    IS_TEXT_UNICODE_REVERSE_SIGNATURE  = 0x0080
-    IS_TEXT_UNICODE_ILLEGAL_CHARS      = 0x0100
-    IS_TEXT_UNICODE_ODD_LENGTH         = 0x0200
-    IS_TEXT_UNICODE_DBCS_LEADBYTE      = 0x0400
-    IS_TEXT_UNICODE_NULL_BYTES         = 0x1000
-    IS_TEXT_UNICODE_UNICODE_MASK       = 0x000F
-    IS_TEXT_UNICODE_REVERSE_MASK       = 0x00F0
-    IS_TEXT_UNICODE_NOT_UNICODE_MASK   = 0x0F00
-    IS_TEXT_UNICODE_NOT_ASCII_MASK     = 0xF000
-
-    TCI_SRCCHARSET  = 1
-    TCI_SRCCODEPAGE = 2
-    TCI_SRCFONTSIG  = 3
-    TCI_SRCLOCALE   = 0x100
-
-    API.new('GetTextCharset', 'L', 'I', 'gdi32')
-    API.new('GetTextCharsetInfo', 'LPL', 'I', 'gdi32')
-    API.new('IsDBCSLeadByte', 'P', 'B')
-    API.new('IsDBCSLeadByteEx', 'IP', 'B')
-    API.new('IsTextUnicode', 'SIP', 'B', 'advapi32')
-    API.new('MultiByteToWideChar', 'ILSIPI', 'I')
-    API.new('TranslateCharsetInfo', 'PPL', 'B', 'gdi32')
-    API.new('WideCharToMultiByte', 'ILSIPIPP', 'I')
-
-    # Convenient wrapper methods
-
-    # Maps a character string to a UTF-16 (wide) character string using the
-    # specified +encoding+.  If no encoding is specified, then CP_UTF8
-    # is used if $KCODE (or the encoding name in Ruby 1.9.x) is set to UTF8.
-    # Otherwise, CP_ACP is used.
-    #
-    # If the function fails it simply returns the string as-is.
-    #
-    def multi_to_wide(string, encoding=nil)
-      return nil unless string
-      raise TypeError unless string.is_a?(String)
-      return string if IsTextUnicode(string, string.size, nil)
-
-      unless encoding
-        if RUBY_VERSION.to_f >= 1.9
-          encoding = (string.encoding.name == 'UTF-8') ? CP_UTF8 : CP_ACP
-        else
-          encoding = ($KCODE == 'UTF8') ? CP_UTF8 : CP_ACP
-        end
-      end
-
-      int = MultiByteToWideChar(encoding, 0, string, -1, nil, 0)
-
-      # Trailing nulls are retained
-      if int > 0
-        buf = ' ' * int * 2
-        MultiByteToWideChar(encoding, 0, string, -1, buf, int)
-        buf
-      else
-        raise ArgumentError, get_last_error
-      end
-    end
-
-    # Maps a wide character string to a new character string using the
-    # specified +encoding+. If no encoding is specified, then CP_UTF8
-    # is used if $KCODE (or the encoding name in Ruby 1.9.x) is set to UTF8.
-    # Otherwise, CP_ACP is used.
-    #
-    # If the function fails it simply returns the string as-is.
-    #
-    def wide_to_multi(wstring, encoding=nil)
-      return nil unless wstring
-      raise TypeError unless wstring.is_a?(String)
-
-      unless encoding
-        if RUBY_VERSION.to_f >= 1.9
-          encoding = (wstring.encoding.name == 'UTF-8') ? CP_UTF8 : CP_ACP
-        else
-          encoding = ($KCODE == 'UTF8') ? CP_UTF8 : CP_ACP
-        end
-      end
-
-      # Add a trailing double null if necessary
-      wstring << "\000\000" if wstring[-1].chr != "\000"
-
-      int = WideCharToMultiByte(encoding, 0, wstring, -1, 0, 0, nil, nil)
-
-      # Trailing nulls are stripped
-      if int > 0
-        buf = ' ' * int
-        WideCharToMultiByte(encoding, 0, wstring, -1, buf, strlen(buf), nil, nil)
-        buf[ /^[^\0]*/ ]
-      else
-        raise ArgumentError, get_last_error
-      end
-    end
-  end
-end
+# encoding: ascii-8bit
+require 'windows/api'
+require 'windows/msvcrt/string'
+require 'windows/error'
+
+module Windows
+  module Unicode
+    include Windows::MSVCRT::String
+    include Windows::Error
+
+    private
+
+    API.auto_namespace = 'Windows::Unicode'
+    API.auto_constant  = true
+    API.auto_method    = true
+    API.auto_unicode   = false
+
+    CP_ACP         = 0
+    CP_OEMCP       = 1
+    CP_MACCP       = 2
+    CP_THREAD_ACP  = 3
+    CP_SYMBOL      = 42
+    CP_UTF7        = 65000
+    CP_UTF8        = 65001
+
+    MB_PRECOMPOSED       = 0x00000001
+    MB_COMPOSITE         = 0x00000002
+    MB_USEGLYPHCHARS     = 0x00000004
+    MB_ERR_INVALID_CHARS = 0x00000008
+
+    WC_COMPOSITECHECK    = 0x00000200
+    WC_DISCARDNS         = 0x00000010
+    WC_SEPCHARS          = 0x00000020
+    WC_DEFAULTCHAR       = 0x00000040
+    WC_NO_BEST_FIT_CHARS = 0x00000400
+
+    ANSI_CHARSET        = 0
+    DEFAULT_CHARSET     = 1
+    SYMBOL_CHARSET      = 2
+    SHIFTJIS_CHARSET    = 128
+    HANGEUL_CHARSET     = 129
+    HANGUL_CHARSET      = 129
+    GB2312_CHARSET      = 134
+    CHINESEBIG5_CHARSET = 136
+    OEM_CHARSET         = 255
+    JOHAB_CHARSET       = 130
+    HEBREW_CHARSET      = 177
+    ARABIC_CHARSET      = 178
+    GREEK_CHARSET       = 161
+    TURKISH_CHARSET     = 162
+    VIETNAMESE_CHARSET  = 163
+    THAI_CHARSET        = 222
+    EASTEUROPE_CHARSET  = 238
+    RUSSIAN_CHARSET     = 204
+
+    IS_TEXT_UNICODE_ASCII16            = 0x0001
+    IS_TEXT_UNICODE_REVERSE_ASCII16    = 0x0010
+    IS_TEXT_UNICODE_STATISTICS         = 0x0002
+    IS_TEXT_UNICODE_REVERSE_STATISTICS = 0x0020
+    IS_TEXT_UNICODE_CONTROLS           = 0x0004
+    IS_TEXT_UNICODE_REVERSE_CONTROLS   = 0x0040
+    IS_TEXT_UNICODE_SIGNATURE          = 0x0008
+    IS_TEXT_UNICODE_REVERSE_SIGNATURE  = 0x0080
+    IS_TEXT_UNICODE_ILLEGAL_CHARS      = 0x0100
+    IS_TEXT_UNICODE_ODD_LENGTH         = 0x0200
+    IS_TEXT_UNICODE_DBCS_LEADBYTE      = 0x0400
+    IS_TEXT_UNICODE_NULL_BYTES         = 0x1000
+    IS_TEXT_UNICODE_UNICODE_MASK       = 0x000F
+    IS_TEXT_UNICODE_REVERSE_MASK       = 0x00F0
+    IS_TEXT_UNICODE_NOT_UNICODE_MASK   = 0x0F00
+    IS_TEXT_UNICODE_NOT_ASCII_MASK     = 0xF000
+
+    TCI_SRCCHARSET  = 1
+    TCI_SRCCODEPAGE = 2
+    TCI_SRCFONTSIG  = 3
+    TCI_SRCLOCALE   = 0x100
+
+    API.new('GetTextCharset', 'L', 'I', 'gdi32')
+    API.new('GetTextCharsetInfo', 'LPL', 'I', 'gdi32')
+    API.new('IsDBCSLeadByte', 'P', 'B')
+    API.new('IsDBCSLeadByteEx', 'IP', 'B')
+    API.new('IsTextUnicode', 'SIP', 'B', 'advapi32')
+    API.new('MultiByteToWideChar', 'ILSIPI', 'I')
+    API.new('TranslateCharsetInfo', 'PPL', 'B', 'gdi32')
+    API.new('WideCharToMultiByte', 'ILSIPIPP', 'I')
+
+    # Convenient wrapper methods
+
+    # Maps a character string to a UTF-16 (wide) character string using the
+    # specified +encoding+.  If no encoding is specified, then CP_UTF8
+    # is used if $KCODE (or the encoding name in Ruby 1.9.x) is set to UTF8.
+    # Otherwise, CP_ACP is used.
+    #
+    # If the function fails it simply returns the string as-is.
+    #
+    def multi_to_wide(string, encoding=nil)
+      return nil unless string
+      raise TypeError unless string.is_a?(String)
+      return string if IsTextUnicode(string, string.size, nil)
+
+      unless encoding
+        if RUBY_VERSION.to_f >= 1.9
+          encoding = (string.encoding.name == 'UTF-8') ? CP_UTF8 : CP_ACP
+        else
+          encoding = ($KCODE == 'UTF8') ? CP_UTF8 : CP_ACP
+        end
+      end
+
+      int = MultiByteToWideChar(encoding, 0, string, -1, nil, 0)
+
+      # Trailing nulls are retained
+      if int > 0
+        buf = ' ' * int * 2
+        MultiByteToWideChar(encoding, 0, string, -1, buf, int)
+        buf
+      else
+        raise ArgumentError, get_last_error
+      end
+    end
+
+    # Maps a wide character string to a new character string using the
+    # specified +encoding+. If no encoding is specified, then CP_UTF8
+    # is used if $KCODE (or the encoding name in Ruby 1.9.x) is set to UTF8.
+    # Otherwise, CP_ACP is used.
+    #
+    # If the function fails it simply returns the string as-is.
+    #
+    def wide_to_multi(wstring, encoding=nil)
+      return nil unless wstring
+      raise TypeError unless wstring.is_a?(String)
+
+      unless encoding
+        if RUBY_VERSION.to_f >= 1.9
+          encoding = (wstring.encoding.name == 'UTF-8') ? CP_UTF8 : CP_ACP
+        else
+          encoding = ($KCODE == 'UTF8') ? CP_UTF8 : CP_ACP
+        end
+      end
+
+      # Add a trailing double null if necessary
+      wstring << "\000\000" if wstring[-1].chr != "\000"
+
+      int = WideCharToMultiByte(encoding, 0, wstring, -1, 0, 0, nil, nil)
+
+      # Trailing nulls are stripped
+      if int > 0
+        buf = ' ' * int
+        WideCharToMultiByte(encoding, 0, wstring, -1, buf, strlen(buf), nil, nil)
+        buf[ /^[^\0]*/ ]
+      else
+        raise ArgumentError, get_last_error
+      end
+    end
+  end
+end