windows-pr 0.3.0-mswin32

data/lib/windows/synchronize.rb

@@ -0,0 +1,61 @@
+#######################################################################
+# synchronize.rb
+#
+# Defines the following functions:
+#
+# CreateEvent()
+# CreateMutex()
+# CreateSemaphore()
+# MsgWaitForMultipleObjects()
+# MsgWaitForMultipleObjectsEx()
+# OpenEvent()
+# OpenMutex()
+# OpenSemaphore()
+# WaitForDebugEvent()
+# WaitForSingleObject()
+# WaitForSingleObjectEx()
+# WaitForMultipleObjects()
+# WaitForMultipleObjectsEx()
+# WaitForInputIdle()
+#
+# Defines the the following constants:
+#
+# WAIT_ABANDONED
+# WAIT_OBJECT_0
+# WAIT_TIMEOUT
+# WAIT_FAILED
+# INFINITE
+#
+# TODO:
+#
+# Add the rest of the synchronization functions.
+#######################################################################
+require "Win32API"
+
+module Windows
+   module Synchronize
+      INFINITE       = 0xFFFFFFFF
+      WAIT_OBJECT_0  = 0
+      WAIT_TIMEOUT   = 0x102
+      WAIT_ABANDONED = 128
+      WAIT_FAILED    = 0xFFFFFFFF
+
+      CreateEvent     = Win32API.new('kernel32', 'CreateEvent', 'PIIP', 'L')
+      CreateMutex     = Win32API.new('kernel32', 'CreateMutex', 'PIP', 'L')
+      CreateSemaphore = Win32API.new('kernel32', 'CreateSemaphore', 'PLLP', 'L')
+      
+      MsgWaitForMultipleObjects   = Win32API.new('user32', 'MsgWaitForMultipleObjects', 'LPILL', 'L')
+      MsgWaitForMultipleObjectsEx = Win32API.new('user32', 'MsgWaitForMultipleObjectsEx', 'LPLLL', 'L')
+
+      OpenEvent     = Win32API.new('kernel32', 'OpenEvent', 'LIP', 'L')
+      OpenMutex     = Win32API.new('kernel32', 'OpenMutex', 'LIP', 'L')
+      OpenSemaphore = Win32API.new('kernel32', 'OpenSemaphore', 'LIP', 'L')
+
+      WaitForDebugEvent           = Win32API.new('kernel32', 'WaitForDebugEvent', 'PL', 'I')
+      WaitForMultipleObjects      = Win32API.new('kernel32', 'WaitForMultipleObjects', 'LPIL', 'L')
+      WaitForMultipleObjectsEx    = Win32API.new('kernel32', 'WaitForMultipleObjectsEx', 'LPILI', 'L')
+      WaitForSingleObject         = Win32API.new('kernel32', 'WaitForSingleObject', 'LL', 'L')
+      WaitForSingleObjectEx       = Win32API.new('kernel32', 'WaitForSingleObjectEx', 'LLI', 'L')
+      WaitForInputIdle            = Win32API.new('user32', 'WaitForInputIdle', 'LL', 'L')
+   end
+end

data/test/tc_error.rb

@@ -0,0 +1,57 @@
+#####################################################################
+# tc_error.rb
+#
+# Test case for the Windows::Error 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/error"
+require "test/unit"
+
+class Foo
+   include Windows::Error
+end
+
+class TC_Windows_Error < Test::Unit::TestCase
+  
+   def setup
+      @foo = Foo.new
+   end
+   
+   def test_numeric_constants
+      assert_equal(0x00000100, Foo::FORMAT_MESSAGE_ALLOCATE_BUFFER)
+      assert_equal(0x00000200, Foo::FORMAT_MESSAGE_IGNORE_INSERTS)
+      assert_equal(0x00000400, Foo::FORMAT_MESSAGE_FROM_STRING)
+      assert_equal(0x00000800, Foo::FORMAT_MESSAGE_FROM_HMODULE)
+      assert_equal(0x00001000, Foo::FORMAT_MESSAGE_FROM_SYSTEM)
+      assert_equal(0x00002000, Foo::FORMAT_MESSAGE_ARGUMENT_ARRAY) 
+      assert_equal(0x000000FF, Foo::FORMAT_MESSAGE_MAX_WIDTH_MASK) 
+      assert_equal(0x0001, Foo::SEM_FAILCRITICALERRORS)
+      assert_equal(0x0004, Foo::SEM_NOALIGNMENTFAULTEXCEPT)
+      assert_equal(0x0002, Foo::SEM_NOGPFAULTERRORBOX)
+      assert_equal(0x8000, Foo::SEM_NOOPENFILEERRORBOX)
+   end
+   
+   def test_method_constants
+      assert_not_nil(Foo::GetLastError)
+      assert_not_nil(Foo::SetLastError)
+      assert_not_nil(Foo::SetLastErrorEx)
+      assert_not_nil(Foo::SetErrorMode)
+      assert_not_nil(Foo::FormatMessage)
+   end
+   
+   def test_get_last_error
+      assert_respond_to(@foo, :get_last_error)
+      assert_nothing_raised{ @foo.get_last_error }
+      assert_kind_of(String, @foo.get_last_error)
+   end
+   
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_msvcrt_buffer.rb

@@ -0,0 +1,71 @@
+#####################################################################
+# tc_msvcrt_buffer.rb
+#
+# Test case for the Windows::MSVCRT::Buffer 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/msvcrt/buffer"
+require "test/unit"
+
+class Foo
+   include Windows::MSVCRT::Buffer
+end
+
+class TC_Windows_MSVCRT_Buffer < Test::Unit::TestCase
+   def setup
+      @foo = Foo.new
+   end
+   
+   def test_method_constants
+      assert_not_nil(Foo::Memcpy)
+      assert_not_nil(Foo::Memccpy)
+      assert_not_nil(Foo::Memchr)
+      assert_not_nil(Foo::Memcmp)
+      assert_not_nil(Foo::Memicmp)
+      assert_not_nil(Foo::Memmove)
+      assert_not_nil(Foo::Memset)
+      assert_not_nil(Foo::Swab)
+   end
+   
+   def test_memcpy
+      assert_respond_to(@foo, :memcpy)
+   end
+   
+   def test_memccpy
+      assert_respond_to(@foo, :memccpy)
+   end
+   
+   def test_memchr
+      assert_respond_to(@foo, :memchr)
+   end
+   
+   def test_memcmp
+      assert_respond_to(@foo, :memcmp)
+   end
+   
+   def test_memicmp
+      assert_respond_to(@foo, :memicmp)
+   end
+   
+   def test_memmove
+      assert_respond_to(@foo, :memmove)
+   end
+   
+   def test_memset
+      assert_respond_to(@foo, :memset)
+   end
+   
+   def test_swab
+      assert_respond_to(@foo, :swab)
+   end
+   
+   def teardown
+      @foo  = nil
+   end
+end

data/test/tc_path.rb

@@ -0,0 +1,97 @@
+#####################################################################
+# tc_path.rb
+#
+# Test case for the Windows::Path 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/path"
+require "test/unit"
+
+class Foo
+   include Windows::Path
+end
+
+class TC_Windows_Path < Test::Unit::TestCase
+   def setup
+      @foo  = Foo.new
+      @path = "C:\\"
+   end
+
+   def test_numeric_constants
+      assert_equal(0x0000, Foo::GCT_INVALID)
+      assert_equal(0x0001, Foo::GCT_LFNCHAR)
+      assert_equal(0x0002, Foo::GCT_SHORTCHAR)
+      assert_equal(0x0004, Foo::GCT_WILD)
+      assert_equal(0x0008, Foo::GCT_SEPARATOR)
+   end
+
+   def test_method_constants
+      assert_not_nil(Foo::PathAddBackslash)
+      assert_not_nil(Foo::PathAddExtension)
+      assert_not_nil(Foo::PathAppend)
+      assert_not_nil(Foo::PathBuildRoot)
+      assert_not_nil(Foo::PathCanonicalize)
+      assert_not_nil(Foo::PathCombine)
+      assert_not_nil(Foo::PathCommonPrefix)
+      assert_not_nil(Foo::PathCompactPath)
+      assert_not_nil(Foo::PathCompactPathEx)
+      assert_not_nil(Foo::PathCreateFromUrl)
+      assert_not_nil(Foo::PathFileExists)
+      assert_not_nil(Foo::PathFindExtension)
+      assert_not_nil(Foo::PathFindFileName)
+      assert_not_nil(Foo::PathFindNextComponent)
+      assert_not_nil(Foo::PathFindOnPath)
+      assert_not_nil(Foo::PathFindSuffixArray)
+      assert_not_nil(Foo::PathGetArgs)
+      assert_not_nil(Foo::PathGetCharType)
+      assert_not_nil(Foo::PathGetDriveNumber)
+      assert_not_nil(Foo::PathIsContentType)
+      assert_not_nil(Foo::PathIsDirectory)
+      assert_not_nil(Foo::PathIsDirectoryEmpty)
+      assert_not_nil(Foo::PathIsFileSpec)
+      #assert_not_nil(Foo::PathIsHTMLFile)
+      assert_not_nil(Foo::PathIsLFNFileSpec)
+      assert_not_nil(Foo::PathIsNetworkPath)
+      assert_not_nil(Foo::PathIsPrefix)
+      assert_not_nil(Foo::PathIsRelative)
+      assert_not_nil(Foo::PathIsRoot)
+      assert_not_nil(Foo::PathIsSameRoot)
+      assert_not_nil(Foo::PathIsSystemFolder)
+      assert_not_nil(Foo::PathIsUNC)
+      assert_not_nil(Foo::PathIsUNCServer)
+      assert_not_nil(Foo::PathIsUNCServerShare)
+      assert_not_nil(Foo::PathIsURL)
+      assert_not_nil(Foo::PathMakePretty)
+      assert_not_nil(Foo::PathMakeSystemFolder)
+      assert_not_nil(Foo::PathMatchSpec)
+      assert_not_nil(Foo::PathParseIconLocation)
+      assert_not_nil(Foo::PathQuoteSpaces)
+      assert_not_nil(Foo::PathRelativePathTo)
+      assert_not_nil(Foo::PathRemoveArgs)
+      assert_not_nil(Foo::PathRemoveBackslash)
+      assert_not_nil(Foo::PathRemoveBlanks)
+      assert_not_nil(Foo::PathRemoveExtension)
+      assert_not_nil(Foo::PathRemoveFileSpec)
+      assert_not_nil(Foo::PathRenameExtension)
+      assert_not_nil(Foo::PathSearchAndQualify)
+      assert_not_nil(Foo::PathSetDlgItemPath)
+      assert_not_nil(Foo::PathSkipRoot)
+      assert_not_nil(Foo::PathStripPath)
+      assert_not_nil(Foo::PathStripToRoot)
+      assert_not_nil(Foo::PathUndecorate)
+      assert_not_nil(Foo::PathUnExpandEnvStrings)
+      assert_not_nil(Foo::PathUnmakeSystemFolder)
+      assert_not_nil(Foo::PathUnquoteSpaces)
+   end
+
+   def teardown
+      @foo  = nil
+      @path = nil
+   end
+end

data/test/tc_security.rb

@@ -0,0 +1,111 @@
+#####################################################################
+# tc_security.rb
+#
+# Test case for the Windows::Security 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/security"
+require "test/unit"
+
+class Foo
+   include Windows::Security
+end
+
+class TC_Windows_Path < Test::Unit::TestCase
+   def setup
+      @foo = Foo.new
+   end
+
+   def test_numeric_constants
+      assert_equal(2,  Foo::ACL_REVISION)
+      assert_equal(2,  Foo::ACL_REVISION2)
+      assert_equal(3,  Foo::ACL_REVISION3)
+      assert_equal(4,  Foo::ACL_REVISION4)
+      assert_equal(62, Foo::ALLOW_ACE_LENGTH)
+      assert_equal(4,  Foo::DACL_SECURITY_INFORMATION)
+      assert_equal(4,  Foo::SE_DACL_PRESENT)
+      assert_equal(20, Foo::SECURITY_DESCRIPTOR_MIN_LENGTH)
+      assert_equal(1,  Foo::SECURITY_DESCRIPTOR_REVISION)
+      assert_equal(4026597376, Foo::GENERIC_RIGHTS_MASK)
+      assert_equal(4026531840, Foo::GENERIC_RIGHTS_CHK)
+      assert_equal(2097151, Foo::REST_RIGHTS_MASK)
+   end
+
+   def test_method_constants
+      assert_not_nil(Foo::AddAce)
+      assert_not_nil(Foo::CopySid)
+      assert_not_nil(Foo::GetAce)
+      assert_not_nil(Foo::GetFileSecurity)
+      assert_not_nil(Foo::GetLengthSid)
+      assert_not_nil(Foo::GetSecurityDescriptorControl)
+      assert_not_nil(Foo::GetSecurityDescriptorDacl)
+      assert_not_nil(Foo::InitializeAcl)
+      assert_not_nil(Foo::InitializeSecurityDescriptor)
+      assert_not_nil(Foo::LookupAccountName)
+      assert_not_nil(Foo::LookupAccountSid)
+      assert_not_nil(Foo::SetFileSecurity)
+      assert_not_nil(Foo::SetSecurityDescriptorDacl)
+   end
+
+   def test_add_ace
+      assert_respond_to(@foo, :AddAce)
+   end
+
+   def test_copy_sid
+      assert_respond_to(@foo, :CopySid)
+   end
+
+   def test_get_ace
+      assert_respond_to(@foo, :GetAce)
+   end
+
+   def test_get_file_security
+      assert_respond_to(@foo, :GetFileSecurity)
+   end
+
+   def test_get_length_sid
+      assert_respond_to(@foo, :GetLengthSid)
+   end
+
+   def test_security_descriptr_control
+      assert_respond_to(@foo, :GetSecurityDescriptorControl)
+   end
+
+   def test_security_descriptor_dacl
+      assert_respond_to(@foo, :GetSecurityDescriptorDacl)
+   end
+
+   def test_initialize_acl
+      assert_respond_to(@foo, :InitializeAcl)
+   end
+
+   def test_initialize_security_descriptor
+      assert_respond_to(@foo, :InitializeSecurityDescriptor)
+   end
+
+   def test_lookup_account_name
+      assert_respond_to(@foo, :LookupAccountName)
+   end
+
+   def test_lookup_account_sid
+      assert_respond_to(@foo, :LookupAccountSid)
+   end
+
+   def test_set_file_security
+      assert_respond_to(@foo, :SetFileSecurity)
+   end
+
+   def test_set_security_descriptor_dacl
+      assert_respond_to(@foo, :SetSecurityDescriptorDacl)
+   end
+
+   def teardown
+      @foo = nil
+   end
+end

data/test/tc_synchronize.rb

@@ -0,0 +1,43 @@
+##################################################################
+# tc_synchronize.rb
+#
+# Test case for the windows/synchronize package.
+##################################################################
+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/synchronize"
+require "test/unit"
+
+class Foo
+   include Windows
+end
+
+class TC_Windows_Synchronize < Test::Unit::TestCase
+   def setup
+      @handle = (0.chr * 16).unpack('LLLL')
+      @foo    = Foo.new
+   end
+   
+   def test_numeric_constants
+      assert_not_nil(Foo::INFINITE)
+   end
+   
+   def test_method_constants
+      assert_not_nil(Foo::WaitForSingleObject)
+   end
+   
+   def test_wait_for_single_object
+      assert_respond_to(@foo, :wait_for_single_object)
+      assert_nothing_raised{ @foo.wait_for_single_object(@handle[0], 1) }
+   end
+   
+   def teardown
+      @foo = nil
+      @handle = nil
+   end
+end

data/test/ts_all.rb

@@ -0,0 +1,10 @@
+$LOAD_PATH.unshift(Dir.pwd)
+$LOAD_PATH.unshift(Dir.pwd + '/lib')
+$LOAD_PATH.unshift(Dir.pwd + '/lib/windows')
+$LOAD_PATH.unshift(Dir.pwd + '/lib/windows/msvcrt')
+$LOAD_PATH.unshift(Dir.pwd + '/test')
+
+Dir.chdir('test') rescue nil
+
+require 'tc_error'
+require 'tc_msvcrt_buffer'

metadata

@@ -0,0 +1,69 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: windows-pr
+version: !ruby/object:Gem::Version 
+  version: 0.3.0
+date: 2006-04-22 00:00:00 -06:00
+summary: Windows functions and constants predefined via Win32API
+require_paths: 
+- lib
+email: djberg96@gmail.com
+homepage: http://www.rubyforge.org/projects/win32utils
+rubyforge_project: 
+description: Windows functions and constants predefined via Win32API
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: mswin32
+signing_key: 
+cert_chain: 
+authors: 
+- Daniel J. Berger
+files: 
+- doc/conversion_guide.txt
+- lib/windows/clipboard.rb
+- lib/windows/device_io.rb
+- lib/windows/error.rb
+- lib/windows/file.rb
+- lib/windows/filesystem.rb
+- lib/windows/handle.rb
+- lib/windows/limits.rb
+- lib/windows/memory.rb
+- lib/windows/path.rb
+- lib/windows/security.rb
+- lib/windows/sound.rb
+- lib/windows/synchronize.rb
+- test/ts_all.rb
+- lib/windows/msvcrt/buffer.rb
+- lib/windows/msvcrt/file.rb
+- test/tc_error.rb
+- test/tc_msvcrt_buffer.rb
+- test/tc_path.rb
+- test/tc_security.rb
+- test/tc_synchronize.rb
+- CHANGES
+- MANIFEST
+- README
+test_files: 
+- test/ts_all.rb
+rdoc_options: []
+
+extra_rdoc_files: 
+- README
+- CHANGES
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: []
+