windows-pr 1.0.8 → 1.0.9

data/lib/windows/msvcrt/string.rb

@@ -1,159 +1,159 @@
-require 'windows/api'
-
-module Windows
-   module MSVCRT
-      module String
-         API.auto_constant  = false # We want multiple versions
-         API.auto_method    = false # We need to handle 0 & nil explicitly
-         API.auto_unicode   = false
-
-         Strchr   = API.new('strchr', 'PI', 'P', MSVCRT_DLL)
-         Strcmp   = API.new('strcmp', 'PP', 'I', MSVCRT_DLL)
-         Strcpy   = API.new('strcpy', 'PL', 'L', MSVCRT_DLL)
-         Strcspn  = API.new('strcspn', 'PP', 'L', MSVCRT_DLL)
-         Strlen   = API.new('strlen', 'P', 'L', MSVCRT_DLL)
-         Strncpy  = API.new('strncpy', 'PPL', 'P', MSVCRT_DLL)
-         Strpbrk  = API.new('strpbrk',  'PP', 'P', MSVCRT_DLL)
-         Strrchr  = API.new('strrchr', 'PI', 'P', MSVCRT_DLL)
-         Strrev   = API.new('_strrev', 'P', 'P', MSVCRT_DLL)
-         Strspn   = API.new('strspn', 'PP', 'L', MSVCRT_DLL)
-         Strstr   = API.new('strstr', 'PP', 'P', MSVCRT_DLL)
-         Strtok   = API.new('strtok', 'PP', 'P', MSVCRT_DLL)
-        
-         Mbscmp   = API.new('_mbscmp', 'PP', 'I', 'msvcrt')
-         Mbscpy   = API.new('_mbscpy', 'PL', 'L', 'msvcrt')
-         Mbslen   = API.new('_mbslen', 'P', 'L', 'msvcrt')
-         Mbsrev   = API.new('_mbsrev', 'P', 'P', 'msvcrt')
-         
-         Wcscmp   = API.new('wcscmp', 'PP', 'I', MSVCRT_DLL)
-         Wcscpy   = API.new('wcscpy', 'PL', 'L', MSVCRT_DLL)
-         Wcslen   = API.new('wcslen', 'P', 'L', MSVCRT_DLL)
-         Wcsncpy  = API.new('wcsncpy', 'PPL', 'P', MSVCRT_DLL)
-         Wcsrev   = API.new('_wcsrev', 'P', 'P', MSVCRT_DLL)
-         
-         begin
-            Strtok_s = API.new('strtok_s', 'PPI', 'P', MSVCRT_DLL)
-         rescue Win32::API::LoadLibraryError
-            # Do nothing. Not supported on your system.
-         end
-         
-         def strchr(string, char)
-            return nil if string == 0 || char == 0
-            Strchr.call(string, char)
-         end
-
-         def strcmp(str1, str2)
-            if str1 == 0 || str2 == 0
-               return nil
-            end
-            Strcmp.call(str1, str2)
-         end
-         
-         def strcpy(dest, src)
-            return nil if src == 0
-            Strcpy.call(dest, src)
-         end
-         
-         def strlen(string)
-            return nil if string == 0
-            Strlen.call(string)
-         end
-         
-         def strcspn(string, charset)
-            return nil if string == 0
-            Strcspn.call(string, charset)
-         end
-         
-         def strncpy(dest, source, count)
-            return nil if source == 0
-            Strncpy.call(dest, source, count)
-         end
-
-         def strpbrk(string, charset)
-            return nil if string == 0 || charset == 0
-            Strpbrk.call(string, charset)
-         end
-         
-         def strrchr(string, int)
-            return nil if string == 0
-            Strrchr.call(string, int)
-         end
-         
-         def strrev(str)
-            return nil if str == 0
-            Strrev.call(str)
-         end
-
-         def strspn(string, charset)
-            return nil if string == 0 || charset == 0
-            Strspn.call(string, charset)
-         end
-
-         def strstr(string, search)
-            return nil if string == 0 || search == 0
-            Strstr.call(string, search)
-         end
-         
-         def strtok(token, delimeter)
-            return nil if token == 0 || delimeter == 0
-            Strtok.call(token, delimeter)
-         end
-
-         if defined? Strtok_s
-            def strtok_s(token, delimeter, context)
-               return nil if [token, delimter, context].include?(0)
-	            Strtok_s.call(token, delimeter, context)
-	         end
-         end         
-         
-         def mbscmp(str1, str2)
-            if str1 == 0 || str2 == 0
-               return nil
-            end
-            Mbscmp.call(str1, str2)
-         end
-         
-         def mbscpy(dest, src)
-            return nil if src == 0
-            Mbscpy.call(dest, src)
-         end
-         
-         def mbslen(string)
-            return nil if string == 0
-            Mbslen.call(string)
-         end
-         
-         def mbsrev(str)
-            return nil if str == 0
-            Mbsrev.call(str)
-         end
-         
-         def wcscmp(str1, str2)
-            if str1 == 0 || str2 == 0
-               return nil
-            end
-            Wcscmp.call(str1, str2)
-         end
-
-         def wcscpy(dest, src)
-            return nil if src == 0
-            Wcscpy.call(dest, src)
-         end
-         
-         def wcslen(string)
-            return nil if string == 0
-            Wcslen.call(string)
-         end
-         
-         def wcsncpy(dest, source, count)
-            return nil if source == 0
-            Wcsncpy.call(dest, source, count)
-         end          
-         
-         def wcsrev(str)
-            return nil if str == 0
-            Wcsrev.call(str)
-         end  
-      end
-   end
-end
+require 'windows/api'
+
+module Windows
+  module MSVCRT
+    module String
+      API.auto_constant  = false # We want multiple versions
+      API.auto_method    = false # We need to handle 0 & nil explicitly
+      API.auto_unicode   = false
+
+      Strchr   = API.new('strchr', 'PI', 'P', MSVCRT_DLL)
+      Strcmp   = API.new('strcmp', 'PP', 'I', MSVCRT_DLL)
+      Strcpy   = API.new('strcpy', 'PL', 'L', MSVCRT_DLL)
+      Strcspn  = API.new('strcspn', 'PP', 'L', MSVCRT_DLL)
+      Strlen   = API.new('strlen', 'P', 'L', MSVCRT_DLL)
+      Strncpy  = API.new('strncpy', 'PPL', 'P', MSVCRT_DLL)
+      Strpbrk  = API.new('strpbrk',  'PP', 'P', MSVCRT_DLL)
+      Strrchr  = API.new('strrchr', 'PI', 'P', MSVCRT_DLL)
+      Strrev   = API.new('_strrev', 'P', 'P', MSVCRT_DLL)
+      Strspn   = API.new('strspn', 'PP', 'L', MSVCRT_DLL)
+      Strstr   = API.new('strstr', 'PP', 'P', MSVCRT_DLL)
+      Strtok   = API.new('strtok', 'PP', 'P', MSVCRT_DLL)
+        
+      Mbscmp   = API.new('_mbscmp', 'PP', 'I', 'msvcrt')
+      Mbscpy   = API.new('_mbscpy', 'PL', 'L', 'msvcrt')
+      Mbslen   = API.new('_mbslen', 'P', 'L', 'msvcrt')
+      Mbsrev   = API.new('_mbsrev', 'P', 'P', 'msvcrt')
+      
+      Wcscmp   = API.new('wcscmp', 'PP', 'I', MSVCRT_DLL)
+      Wcscpy   = API.new('wcscpy', 'PL', 'L', MSVCRT_DLL)
+      Wcslen   = API.new('wcslen', 'P', 'L', MSVCRT_DLL)
+      Wcsncpy  = API.new('wcsncpy', 'PPL', 'P', MSVCRT_DLL)
+      Wcsrev   = API.new('_wcsrev', 'P', 'P', MSVCRT_DLL)
+       
+      begin
+        Strtok_s = API.new('strtok_s', 'PPI', 'P', MSVCRT_DLL)
+      rescue Win32::API::LoadLibraryError
+        # Do nothing. Not supported on your system.
+      end
+         
+      def strchr(string, char)
+        return nil if string == 0 || char == 0
+        Strchr.call(string, char)
+      end
+
+      def strcmp(str1, str2)
+        if str1 == 0 || str2 == 0
+          return nil
+        end
+         Strcmp.call(str1, str2)
+      end
+       
+      def strcpy(dest, src)
+        return nil if src == 0
+        Strcpy.call(dest, src)
+      end
+       
+      def strlen(string)
+        return nil if string == 0
+        Strlen.call(string)
+      end
+       
+      def strcspn(string, charset)
+        return nil if string == 0
+        Strcspn.call(string, charset)
+      end
+       
+      def strncpy(dest, source, count)
+        return nil if source == 0
+        Strncpy.call(dest, source, count)
+      end
+
+      def strpbrk(string, charset)
+        return nil if string == 0 || charset == 0
+        Strpbrk.call(string, charset)
+      end
+       
+      def strrchr(string, int)
+        return nil if string == 0
+        Strrchr.call(string, int)
+      end
+       
+      def strrev(str)
+        return nil if str == 0
+        Strrev.call(str)
+      end
+
+      def strspn(string, charset)
+        return nil if string == 0 || charset == 0
+        Strspn.call(string, charset)
+      end
+
+      def strstr(string, search)
+        return nil if string == 0 || search == 0
+        Strstr.call(string, search)
+      end
+       
+      def strtok(token, delimeter)
+        return nil if token == 0 || delimeter == 0
+        Strtok.call(token, delimeter)
+      end
+
+      if defined? Strtok_s
+        def strtok_s(token, delimeter, context)
+          return nil if [token, delimter, context].include?(0)
+          Strtok_s.call(token, delimeter, context)
+        end
+      end         
+       
+      def mbscmp(str1, str2)
+        if str1 == 0 || str2 == 0
+          return nil
+        end
+        Mbscmp.call(str1, str2)
+      end
+       
+      def mbscpy(dest, src)
+        return nil if src == 0
+        Mbscpy.call(dest, src)
+      end
+       
+      def mbslen(string)
+        return nil if string == 0
+        Mbslen.call(string)
+      end
+       
+      def mbsrev(str)
+        return nil if str == 0
+        Mbsrev.call(str)
+      end
+       
+      def wcscmp(str1, str2)
+        if str1 == 0 || str2 == 0
+          return nil
+        end
+        Wcscmp.call(str1, str2)
+      end
+
+      def wcscpy(dest, src)
+        return nil if src == 0
+        Wcscpy.call(dest, src)
+      end
+       
+      def wcslen(string)
+        return nil if string == 0
+        Wcslen.call(string)
+      end
+       
+      def wcsncpy(dest, source, count)
+        return nil if source == 0
+        Wcsncpy.call(dest, source, count)
+      end          
+       
+      def wcsrev(str)
+        return nil if str == 0
+        Wcsrev.call(str)
+      end  
+    end
+  end
+end

data/lib/windows/service.rb

@@ -81,6 +81,7 @@ module Windows
       SERVICE_ACCEPT_HARDWAREPROFILECHANGE =  0x00000020
       SERVICE_ACCEPT_POWEREVENT            =  0x00000040
       SERVICE_ACCEPT_SESSIONCHANGE         =  0x00000080
+      SERVICE_ACCEPT_PRESHUTDOWN           =  0x00000100
 
       # Service states
       SERVICE_ACTIVE    = 0x00000001

data/lib/windows/unicode.rb

@@ -1,142 +1,153 @@
-require 'windows/api'
-require 'windows/msvcrt/string'
-require 'windows/error'
-
-module Windows
-   module Unicode
-      include Windows::MSVCRT::String
-      include Windows::Error
-      
-      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 wide character string to a new character string using the
-      # specified +encoding+.  If no encoding is specified, then CP_UTF8 
-      # iss used if $KCODE 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
-            encoding = ($KCODE == 'UTF8') ? CP_UTF8 : CP_ACP
-         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 
-      # iss used if $KCODE 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
-            encoding = ($KCODE == 'UTF8') ? CP_UTF8 : CP_ACP
-         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
+    
+    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 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 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