windows-pr 0.2.0 → 0.5.3

data/lib/windows/system_info.rb

@@ -0,0 +1,70 @@
+require 'Win32API'
+
+module Windows
+   module SystemInfo
+      # Obsolete processor info constants
+      PROCESSOR_INTEL_386     = 386
+      PROCESSOR_INTEL_486     = 486
+      PROCESSOR_INTEL_PENTIUM = 586
+      PROCESSOR_INTEL_IA64    = 2200
+      PROCESSOR_AMD_X8664     = 8664
+
+      # Enum COMPUTER_NAME_FORMAT
+      ComputerNameNetBIOS                    = 0
+      ComputerNameDnsHostname                = 1
+      ComputerNameDnsDomain                  = 2
+      ComputerNameDnsFullyQualified          = 3
+      ComputerNamePhysicalNetBIOS            = 4
+      ComputerNamePhysicalDnsHostname        = 5
+      ComputerNamePhysicalDnsDomain          = 6 
+      ComputerNamePhysicalDnsFullyQualified  = 7
+      ComputerNameMax                        = 8
+      
+      ExpandEnvironmentStrings = Win32API.new('kernel32', 'ExpandEnvironmentStrings', 'PPL', 'L')
+      
+      GetComputerName     = Win32API.new('kernel32', 'GetComputerName', 'PP', 'I')
+      GetComputerNameEx   = Win32API.new('kernel32', 'GetComputerNameEx', 'PPP', 'I')
+      GetSystemInfo       = Win32API.new('kernel32', 'GetSystemInfo', 'P', 'V')
+      GetUserName         = Win32API.new('advapi32', 'GetUserName', 'LL', 'I')
+      GetUserNameEx       = Win32API.new('secur32', 'GetUserNameEx', 'LPL', 'I')
+      GetVersion          = Win32API.new('kernel32', 'GetVersion', 'V', 'L')
+      GetVersionEx        = Win32API.new('kernel32', 'GetVersionEx', 'P', 'I')
+      GetWindowsDirectory = Win32API.new('kernel32', 'GetWindowsDirectory', 'LI', 'I')
+      
+      def ExpandEnvironmentStrings(src, dest, size)
+         ExpandEnvironmentStrings.call(src, dest, size)
+      end
+
+      def GetComputerName(buffer, size)
+         GetComputerNameEx.call(buffer, size) != 0
+      end
+
+      def GetComputerNameEx(name, buffer, size)
+         GetComputerNameEx.call(name, buffer, size) != 0
+      end
+
+      def GetSystemInfo(info)
+         GetSystemInfo.call(info)
+      end
+
+      def GetUserName(buf, size)
+         GetUserName.call(buf, size) != 0
+      end
+
+      def GetUserNameEx(format, buf, size)
+         GetUserNameEx.call(format, buf, size) != 0
+      end
+
+      def GetVersion()
+         GetVersion.call
+      end
+
+      def GetVersionEx(info)
+         GetVersionEx.call(info) != 0
+      end
+
+      def GetWindowsDirectory(buf, size)
+         GetWindowsDirectory.call(buf, size)
+      end
+   end
+end

data/lib/windows/unicode.rb

@@ -0,0 +1,138 @@
+require 'Win32API'
+
+module Windows
+   module Unicode
+      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
+
+      GetTextCharset       = Win32API.new('gdi32', 'GetTextCharset', 'L', 'I')
+      GetTextCharsetInfo   = Win32API.new('gdi32', 'GetTextCharsetInfo', 'LPL', 'I')
+      IsDBCSLeadByte       = Win32API.new('kernel32', 'IsDBCSLeadByte', 'P', 'I')
+      IsDBCSLeadByteEx     = Win32API.new('kernel32', 'IsDBCSLeadByteEx', 'IP', 'I')
+      IsTextUnicode        = Win32API.new('advapi32', 'IsTextUnicode', 'PIP', 'I')
+      MultiByteToWideChar  = Win32API.new('kernel32', 'MultiByteToWideChar', 'ILPIPI', 'I')
+      TranslateCharsetInfo = Win32API.new('gdi32', 'TranslateCharsetInfo', 'PPL', 'I')
+      WideCharToMultiByte  = Win32API.new('kernel32', 'WideCharToMultiByte', 'ILPIPIPP', 'I')
+
+      def GetTextCharset(hdc)
+         GetTextCharset.call(hdc)
+      end
+
+      def GetTextCharsetInfo(hdc, sig, flags)
+         GetTextCharsetInfo.call(hdc, sig, flags)
+      end
+
+      def IsDBCSLeadByte(char)
+         IsDBCSLeadByte.call(char) != 0
+      end
+
+      def IsDBCSLeadByteEx(code_page, char)
+         IsDBCSLeadByteEx.call(code_pag, char) != 0
+      end
+
+      def IsTextUnicode(buf, size = buf.size, options = 0)
+         IsTextUnicode.call(buf, size, options) != 0
+      end
+
+      def MultiByteToWideChar(page, flags, str, str_size, buf, buf_size)
+         MultiByteToWideChar.call(page, flags, str, str_size, buf, buf_size)
+      end
+
+      def TranslateCharsetInfo(src, cs, flags)
+         TranslateCharsetInfo.call(src, cs, flags) != 0
+      end
+
+      def WideCharToMultiByte(page, flags, str, str_size, buf, buf_size, defchar, used_def)
+         WideCharToMultiByte.call(page, flags, str, str_size, buf, buf_size, defchar, used_def)
+      end
+      
+      # Convenient wrapper methods
+      
+      # Maps a string to a wide (unicode) string using UTF8.  If the function
+      # fails it just returns the string as is.
+      # 
+      def multi_to_wide(str)
+         cp  = ($KCODE == 'UTF8') ? CP_UTF8 : CP_ACP
+         buf = 0.chr * str.size * 2 # sizeof(WCHAR)
+         int = MultiByteToWideChar(cp, 0, str, str.size, buf, buf.size)
+         
+         if int > 0
+            buf[0, int*2]
+         else
+            str
+         end
+      end
+      
+      # Maps a wide character string to a new character string.  If the
+      # function fails it just returns the string as is.
+      # 
+      def wide_to_multi(str)
+         cp  = ($KCODE == 'UTF8') ? CP_UTF8 : CP_ACP
+         buf = 0.chr * str.size
+         int = WideCharToMultiByte(cp, 0, str, str.size/2, buf, buf.size, 0, 0)
+
+         if int > 0
+            buf[0, int]
+         else
+            str
+         end
+      end
+   end
+end

data/lib/windows/window.rb

@@ -0,0 +1,22 @@
+require 'Win32API'
+
+module Windows
+   module Window
+      # ShowWindow() constants
+      SW_HIDE             = 0
+      SW_SHOWNORMAL       = 1
+      SW_NORMAL           = 1
+      SW_SHOWMINIMIZED    = 2
+      SW_SHOWMAXIMIZED    = 3
+      SW_MAXIMIZE         = 3
+      SW_SHOWNOACTIVATE   = 4
+      SW_SHOW             = 5
+      SW_MINIMIZE         = 6
+      SW_SHOWMINNOACTIVE  = 7
+      SW_SHOWNA           = 8
+      SW_RESTORE          = 9
+      SW_SHOWDEFAULT      = 10
+      SW_FORCEMINIMIZE    = 11
+      SW_MAX              = 11
+   end
+end

data/test/tc_clipboard.rb

@@ -0,0 +1,58 @@
+#####################################################################
+# tc_clipboard.rb
+#
+# Test case for the Windows::Clipboard module.
+#####################################################################
+base = File.basename(Dir.pwd)
+if base == 'test' || base =~ /windows-pr/
+   Dir.chdir '..' if base == 'test'
+   $LOAD_PATH.unshift Dir.pwd + '/lib'
+   Dir.chdir 'test' rescue nil
+end
+
+require "windows/clipboard"
+require "test/unit"
+
+class Foo
+   include Windows::Clipboard
+end
+
+class TC_Windows_Clipboard < Test::Unit::TestCase
+   def setup
+      @foo = Foo.new
+   end
+   
+   def test_numeric_constants
+      assert_equal(1, Foo::CF_TEXT)
+      assert_equal(2, Foo::CF_BITMAP)
+      assert_equal(3, Foo::CF_METAFILEPICT)
+      assert_equal(4, Foo::CF_SYLK)
+      assert_equal(5, Foo::CF_DIF)
+      assert_equal(6, Foo::CF_TIFF)
+      assert_equal(7, Foo::CF_OEMTEXT)
+      assert_equal(8, Foo::CF_DIB)
+      assert_equal(9, Foo::CF_PALETTE)
+      assert_equal(10, Foo::CF_PENDATA)
+      assert_equal(11, Foo::CF_RIFF)
+      assert_equal(12, Foo::CF_WAVE)
+      assert_equal(13, Foo::CF_UNICODETEXT)
+      assert_equal(14, Foo::CF_ENHMETAFILE)
+   end
+   
+   def test_method_constants
+      assert_not_nil(Foo::OpenClipboard)
+      assert_not_nil(Foo::CloseClipboard)
+      assert_not_nil(Foo::GetClipboardData)
+      assert_not_nil(Foo::EmptyClipboard)
+      assert_not_nil(Foo::SetClipboardData)
+      assert_not_nil(Foo::CountClipboardFormats)
+      assert_not_nil(Foo::IsClipboardFormatAvailable)
+      assert_not_nil(Foo::GetClipboardFormatName)
+      assert_not_nil(Foo::EnumClipboardFormats)
+      assert_not_nil(Foo::RegisterClipboardFormat)
+   end
+   
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_console.rb

@@ -0,0 +1,107 @@
+######################################################################
+# tc_console.rb
+#
+# Test case for the Windows::Console module.
+######################################################################
+base = File.basename(Dir.pwd)
+if base == 'test' || base =~ /windows-pr/
+   Dir.chdir '..' if base == 'test'
+   $LOAD_PATH.unshift Dir.pwd + '/lib'
+   Dir.chdir 'test' rescue nil
+end
+
+require 'windows/console'
+require 'test/unit'
+
+class Foo
+   include Windows::Console
+end
+
+class TC_Windows_Console < Test::Unit::TestCase
+   def setup
+      @foo = Foo.new
+   end
+
+   def test_numeric_constants
+      assert_equal(0, Foo::CTRL_C_EVENT)
+      assert_equal(1, Foo::CTRL_BREAK_EVENT)
+      assert_equal(5, Foo::CTRL_LOGOFF_EVENT)
+      assert_equal(6, Foo::CTRL_SHUTDOWN_EVENT)
+
+      assert_equal(0x0001, Foo::ENABLE_PROCESSED_INPUT)
+      assert_equal(0x0002, Foo::ENABLE_LINE_INPUT)
+      assert_equal(0x0002, Foo::ENABLE_WRAP_AT_EOL_OUTPUT)
+      assert_equal(0x0004, Foo::ENABLE_ECHO_INPUT)
+      assert_equal(0x0008, Foo::ENABLE_WINDOW_INPUT)
+      assert_equal(0x0010, Foo::ENABLE_MOUSE_INPUT)
+      assert_equal(0x0020, Foo::ENABLE_INSERT_MODE)
+      assert_equal(0x0040, Foo::ENABLE_QUICK_EDIT_MODE)
+
+      assert_equal(-10, Foo::STD_INPUT_HANDLE)
+      assert_equal(-11, Foo::STD_OUTPUT_HANDLE)
+      assert_equal(-12, Foo::STD_ERROR_HANDLE)
+   end
+
+   def test_method_constants
+      assert_not_nil(Foo::AddConsoleAlias)
+      assert_not_nil(Foo::AllocConsole)
+      assert_not_nil(Foo::AttachConsole)
+      assert_not_nil(Foo::CreateConsoleScreenBuffer)
+      assert_not_nil(Foo::FillConsoleOutputAttribute)
+      assert_not_nil(Foo::FillConsoleOutputCharacter)
+      assert_not_nil(Foo::FlushConsoleInputBuffer)
+      assert_not_nil(Foo::FreeConsole)
+      assert_not_nil(Foo::GenerateConsoleCtrlEvent)
+      assert_not_nil(Foo::GetConsoleAlias)
+      assert_not_nil(Foo::GetConsoleAliases)
+      assert_not_nil(Foo::GetConsoleAliasesLength)
+      assert_not_nil(Foo::GetConsoleAliasExes)
+      assert_not_nil(Foo::GetConsoleAliasExesLength)
+      assert_not_nil(Foo::GetConsoleCP)
+      assert_not_nil(Foo::GetConsoleCursorInfo)
+      assert_not_nil(Foo::GetConsoleDisplayMode)
+      assert_not_nil(Foo::GetConsoleFontSize)
+      assert_not_nil(Foo::GetConsoleMode)
+      assert_not_nil(Foo::GetConsoleOutputCP)
+      assert_not_nil(Foo::GetConsoleProcessList)
+      assert_not_nil(Foo::GetConsoleScreenBufferInfo)
+      assert_not_nil(Foo::GetConsoleSelectionInfo)
+      assert_not_nil(Foo::GetConsoleTitle)
+      assert_not_nil(Foo::GetConsoleWindow)
+      assert_not_nil(Foo::GetCurrentConsoleFont)
+      assert_not_nil(Foo::GetLargestConsoleWindowSize)
+      assert_not_nil(Foo::GetNumberOfConsoleInputEvents)
+      assert_not_nil(Foo::GetNumberOfConsoleMouseButtons)
+      assert_not_nil(Foo::GetStdHandle)
+      assert_not_nil(Foo::PeekConsoleInput)
+      assert_not_nil(Foo::ReadConsole)
+      assert_not_nil(Foo::ReadConsoleInput)
+      assert_not_nil(Foo::ReadConsoleOutput)
+      assert_not_nil(Foo::ReadConsoleOutputAttribute)
+      assert_not_nil(Foo::ReadConsoleOutputCharacter)
+      assert_not_nil(Foo::ScrollConsoleScreenBuffer)
+      assert_not_nil(Foo::SetConsoleActiveScreenBuffer)
+      assert_not_nil(Foo::SetConsoleCommandHistoryMode)
+      assert_not_nil(Foo::SetConsoleCP)
+      assert_not_nil(Foo::SetConsoleCtrlHandler)
+      assert_not_nil(Foo::SetConsoleCursorInfo)
+      assert_not_nil(Foo::SetConsoleCursorPosition)
+      assert_not_nil(Foo::SetConsoleDisplayMode)
+      assert_not_nil(Foo::SetConsoleMode)
+      assert_not_nil(Foo::SetConsoleOutputCP)
+      assert_not_nil(Foo::SetConsoleScreenBufferSize)
+      assert_not_nil(Foo::SetConsoleTextAttribute)
+      assert_not_nil(Foo::SetConsoleTitle)
+      assert_not_nil(Foo::SetConsoleWindowInfo)
+      assert_not_nil(Foo::SetStdHandle)
+      assert_not_nil(Foo::WriteConsole)
+      assert_not_nil(Foo::WriteConsoleInput)
+      assert_not_nil(Foo::WriteConsoleOutput)
+      assert_not_nil(Foo::WriteConsoleOutputAttribute)
+      assert_not_nil(Foo::WriteConsoleOutputCharacter)
+   end
+
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_eventlog.rb

@@ -0,0 +1,65 @@
+#####################################################################
+# tc_eventlog.rb
+#
+# Test case for the Windows::EventLog module.
+#####################################################################
+base = File.basename(Dir.pwd)
+if base == 'test' || base =~ /windows-pr/
+   Dir.chdir '..' if base == 'test'
+   $LOAD_PATH.unshift Dir.pwd + '/lib'
+   Dir.chdir 'test' rescue nil
+end
+
+require 'windows/eventlog'
+require 'test/unit'
+
+class Foo
+   include Windows::EventLog
+end
+
+class TC_Windows_EventLog < Test::Unit::TestCase
+   def setup
+      @foo = Foo.new
+   end
+   
+   def test_numeric_constants
+      assert_equal(1, Foo::EVENTLOG_SEQUENTIAL_READ)
+      assert_equal(2, Foo::EVENTLOG_SEEK_READ)
+      assert_equal(4, Foo::EVENTLOG_FORWARDS_READ)
+      assert_equal(8, Foo::EVENTLOG_BACKWARDS_READ)
+      assert_equal(0, Foo::EVENTLOG_SUCCESS)
+      assert_equal(1, Foo::EVENTLOG_ERROR_TYPE)
+      assert_equal(2, Foo::EVENTLOG_WARNING_TYPE)
+      assert_equal(4, Foo::EVENTLOG_INFORMATION_TYPE)
+      assert_equal(8, Foo::EVENTLOG_AUDIT_SUCCESS)
+      assert_equal(16, Foo::EVENTLOG_AUDIT_FAILURE)
+      assert_equal(0, Foo::EVENTLOG_FULL_INFO)
+   end
+   
+   def test_method_constants
+      assert_not_nil(Foo::BackupEventLog)
+      assert_not_nil(Foo::BackupEventLogW)
+      assert_not_nil(Foo::ClearEventLog)
+      assert_not_nil(Foo::ClearEventLogW)
+      assert_not_nil(Foo::CloseEventLog)
+      assert_not_nil(Foo::DeregisterEventSource)
+      assert_not_nil(Foo::GetEventLogInformation)
+      assert_not_nil(Foo::GetNumberOfEventLogRecords)
+      assert_not_nil(Foo::GetOldestEventLogRecord)
+      assert_not_nil(Foo::NotifyChangeEventLog)
+      assert_not_nil(Foo::OpenBackupEventLog)
+      assert_not_nil(Foo::OpenBackupEventLogW)
+      assert_not_nil(Foo::OpenEventLog)
+      assert_not_nil(Foo::OpenEventLogW)
+      assert_not_nil(Foo::ReadEventLog)
+      assert_not_nil(Foo::ReadEventLogW)
+      assert_not_nil(Foo::RegisterEventSource)
+      assert_not_nil(Foo::RegisterEventSourceW)
+      assert_not_nil(Foo::ReportEvent)
+      assert_not_nil(Foo::ReportEventW)
+   end
+   
+   def teardown
+      @foo = nil
+   end
+end