microwave 11.400.3 → 11.400.4

data/lib/chef/win32/api/system.rb

@@ -0,0 +1,192 @@
+#
+# Author:: Seth Chisamore (<schisamo@opscode.com>)
+# Copyright:: Copyright 2011 Opscode, Inc.
+# License:: Apache License, Version 2.0
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+require 'chef/win32/api'
+
+class Chef
+  module ReservedNames::Win32
+    module API
+      module System
+        extend Chef::ReservedNames::Win32::API
+
+        ###############################################
+        # Win32 API Constants
+        ###############################################
+
+        # http://msdn.microsoft.com/en-us/library/ms724833(v=vs.85).aspx
+
+        # Suite Masks
+        # Microsoft BackOffice components are installed.
+        VER_SUITE_BACKOFFICE = 0x00000004
+        # Windows Server 2003, Web Edition is installed.
+        VER_SUITE_BLADE = 0x00000400
+        # Windows Server 2003, Compute Cluster Edition is installed.
+        VER_SUITE_COMPUTE_SERVER = 0x00004000
+        # Windows Server 2008 Datacenter, Windows Server 2003, Datacenter Edition, or Windows 2000 Datacenter Server is installed.
+        VER_SUITE_DATACENTER = 0x00000080
+        # Windows Server 2008 Enterprise, Windows Server 2003, Enterprise Edition, or Windows 2000 Advanced Server is installed. Refer to the Remarks section for more information about this bit flag.
+        VER_SUITE_ENTERPRISE = 0x00000002
+        # Windows XP Embedded is installed.
+        VER_SUITE_EMBEDDEDNT = 0x00000040
+        # Windows Vista Home Premium, Windows Vista Home Basic, or Windows XP Home Edition is installed.
+        VER_SUITE_PERSONAL = 0x00000200
+        # Remote Desktop is supported, but only one interactive session is supported. This value is set unless the system is running in application server mode.
+        VER_SUITE_SINGLEUSERTS = 0x00000100
+        # Microsoft Small Business Server was once installed on the system, but may have been upgraded to another version of Windows. Refer to the Remarks section for more information about this bit flag.
+        VER_SUITE_SMALLBUSINESS = 0x00000001
+        # Microsoft Small Business Server is installed with the restrictive client license in force. Refer to the Remarks section for more information about this bit flag.
+        VER_SUITE_SMALLBUSINESS_RESTRICTED = 0x00000020
+        # Windows Storage Server 2003 R2 or Windows Storage Server 2003is installed.
+        VER_SUITE_STORAGE_SERVER = 0x00002000
+        # Terminal Services is installed. This value is always set.
+        # If VER_SUITE_TERMINAL is set but VER_SUITE_SINGLEUSERTS is not set, the system is running in application server mode.
+        VER_SUITE_TERMINAL = 0x00000010
+        # Windows Home Server is installed.
+        VER_SUITE_WH_SERVER = 0x00008000
+
+        # Product Type
+        # The system is a domain controller and the operating system is Windows Server 2008 R2, Windows Server 2008, Windows Server 2003, or Windows 2000 Server.
+        VER_NT_DOMAIN_CONTROLLER = 0x0000002
+        # The operating system is Windows Server 2008 R2, Windows Server 2008, Windows Server 2003, or Windows 2000 Server.
+        # Note that a server that is also a domain controller is reported as VER_NT_DOMAIN_CONTROLLER, not VER_NT_SERVER.
+        VER_NT_SERVER = 0x0000003
+        # The operating system is Windows 7, Windows Vista, Windows XP Professional, Windows XP Home Edition, or Windows 2000 Professional.
+        VER_NT_WORKSTATION = 0x0000001
+
+        # Product Info
+        # http://msdn.microsoft.com/en-us/library/ms724358(v=vs.85).aspx
+        PRODUCT_BUSINESS = 0x00000006 # Business
+        PRODUCT_BUSINESS_N = 0x00000010 # Business N
+        PRODUCT_CLUSTER_SERVER = 0x00000012 # HPC Edition
+        PRODUCT_DATACENTER_SERVER = 0x00000008 # Server Datacenter (full installation)
+        PRODUCT_DATACENTER_SERVER_CORE = 0x0000000C # Server Datacenter (core installation)
+        PRODUCT_DATACENTER_SERVER_CORE_V = 0x00000027 # Server Datacenter without Hyper-V (core installation)
+        PRODUCT_DATACENTER_SERVER_V = 0x00000025 # Server Datacenter without Hyper-V (full installation)
+        PRODUCT_ENTERPRISE = 0x00000004 # Enterprise
+        PRODUCT_ENTERPRISE_E = 0x00000046 # Not supported
+        PRODUCT_ENTERPRISE_N = 0x0000001B # Enterprise N
+        PRODUCT_ENTERPRISE_SERVER = 0x0000000A # Server Enterprise (full installation)
+        PRODUCT_ENTERPRISE_SERVER_CORE = 0x0000000E # Server Enterprise (core installation)
+        PRODUCT_ENTERPRISE_SERVER_CORE_V = 0x00000029 # Server Enterprise without Hyper-V (core installation)
+        PRODUCT_ENTERPRISE_SERVER_IA64 = 0x0000000F # Server Enterprise for Itanium-based Systems
+        PRODUCT_ENTERPRISE_SERVER_V = 0x00000026 # Server Enterprise without Hyper-V (full installation)
+        PRODUCT_HOME_BASIC = 0x00000002 # Home Basic
+        PRODUCT_HOME_BASIC_E = 0x00000043 # Not supported
+        PRODUCT_HOME_BASIC_N = 0x00000005 # Home Basic N
+        PRODUCT_HOME_PREMIUM = 0x00000003 # Home Premium
+        PRODUCT_HOME_PREMIUM_E = 0x00000044 # Not supported
+        PRODUCT_HOME_PREMIUM_N = 0x0000001A # Home Premium N
+        PRODUCT_HYPERV = 0x0000002A # Microsoft Hyper-V Server
+        PRODUCT_MEDIUMBUSINESS_SERVER_MANAGEMENT = 0x0000001E # Windows Essential Business Server Management Server
+        PRODUCT_MEDIUMBUSINESS_SERVER_MESSAGING = 0x00000020 # Windows Essential Business Server Messaging Server
+        PRODUCT_MEDIUMBUSINESS_SERVER_SECURITY = 0x0000001F # Windows Essential Business Server Security Server
+        PRODUCT_PROFESSIONAL = 0x00000030 # Professional
+        PRODUCT_PROFESSIONAL_E = 0x00000045 # Not supported
+        PRODUCT_PROFESSIONAL_N = 0x00000031 # Professional N
+        PRODUCT_SERVER_FOR_SMALLBUSINESS = 0x00000018 # Windows Server 2008 for Windows Essential Server Solutions
+        PRODUCT_SERVER_FOR_SMALLBUSINESS_V = 0x00000023 # Windows Server 2008 without Hyper-V for Windows Essential Server Solutions
+        PRODUCT_SERVER_FOUNDATION = 0x00000021 # Server Foundation
+        PRODUCT_HOME_PREMIUM_SERVER = 0x00000022 # Windows Home Server 2011
+        PRODUCT_SB_SOLUTION_SERVER = 0x00000032 # Windows Small Business Server 2011 Essentials
+        PRODUCT_HOME_SERVER = 0x00000013 # Windows Storage Server 2008 R2 Essentials
+        PRODUCT_SMALLBUSINESS_SERVER = 0x00000009 # Windows Small Business Server
+        PRODUCT_SOLUTION_EMBEDDEDSERVER = 0x00000038 # Windows MultiPoint Server
+        PRODUCT_STANDARD_SERVER = 0x00000007 # Server Standard (full installation)
+        PRODUCT_STANDARD_SERVER_CORE = 0x0000000D # Server Standard (core installation)
+        PRODUCT_STANDARD_SERVER_CORE_V = 0x00000028 # Server Standard without Hyper-V (core installation)
+        PRODUCT_STANDARD_SERVER_V = 0x00000024 # Server Standard without Hyper-V (full installation)
+        PRODUCT_STARTER = 0x0000000B # Starter
+        PRODUCT_STARTER_E = 0x00000042 # Not supported
+        PRODUCT_STARTER_N = 0x0000002F # Starter N
+        PRODUCT_STORAGE_ENTERPRISE_SERVER = 0x00000017 # Storage Server Enterprise
+        PRODUCT_STORAGE_EXPRESS_SERVER = 0x00000014 # Storage Server Express
+        PRODUCT_STORAGE_STANDARD_SERVER = 0x00000015 # Storage Server Standard
+        PRODUCT_STORAGE_WORKGROUP_SERVER = 0x00000016 # Storage Server Workgroup
+        PRODUCT_UNDEFINED = 0x00000000 # An unknown product
+        PRODUCT_ULTIMATE = 0x00000001 # Ultimate
+        PRODUCT_ULTIMATE_E = 0x00000047 # Not supported
+        PRODUCT_ULTIMATE_N = 0x0000001C # Ultimate N
+        PRODUCT_WEB_SERVER = 0x00000011 # Web Server (full installation)
+        PRODUCT_WEB_SERVER_CORE = 0x0000001D # Web Server (core installation)
+
+        # GetSystemMetrics
+        # The build number if the system is Windows Server 2003 R2; otherwise, 0.
+        SM_SERVERR2 = 89
+
+        ###############################################
+        # Win32 API Bindings
+        ###############################################
+
+        ffi_lib 'kernel32', 'user32'
+
+        class OSVERSIONINFOEX < FFI::Struct
+          layout :dw_os_version_info_size, :DWORD,
+            :dw_major_version, :DWORD,
+            :dw_minor_version, :DWORD,
+            :dw_build_number, :DWORD,
+            :dw_platform_id, :DWORD,
+            :sz_csd_version, [:BYTE, 256],
+            :w_service_pack_major, :WORD,
+            :w_service_pack_minor, :WORD,
+            :w_suite_mask, :WORD,
+            :w_product_type, :BYTE,
+            :w_reserved, :BYTE
+        end
+
+=begin
+BOOL WINAPI CloseHandle(
+  __in  HANDLE hObject
+);
+=end
+        safe_attach_function :CloseHandle, [ :HANDLE ], :BOOL
+
+=begin
+DWORD WINAPI GetVersion(void);
+=end
+        safe_attach_function :GetVersion, [], :DWORD
+
+=begin
+BOOL WINAPI GetVersionEx(
+  __inout  LPOSVERSIONINFO lpVersionInfo
+);
+=end
+        safe_attach_function :GetVersionExW, [:pointer], :BOOL
+        safe_attach_function :GetVersionExA, [:pointer], :BOOL
+
+=begin
+BOOL WINAPI GetProductInfo(
+  __in   DWORD dwOSMajorVersion,
+  __in   DWORD dwOSMinorVersion,
+  __in   DWORD dwSpMajorVersion,
+  __in   DWORD dwSpMinorVersion,
+  __out  PDWORD pdwReturnedProductType
+);
+=end
+        safe_attach_function :GetProductInfo, [:DWORD, :DWORD, :DWORD, :DWORD, :PDWORD], :BOOL
+
+=begin
+int WINAPI GetSystemMetrics(
+  __in  int nIndex
+);
+=end
+        safe_attach_function :GetSystemMetrics, [:int], :int
+
+      end
+    end
+  end
+end

data/lib/chef/win32/api/unicode.rb

@@ -0,0 +1,178 @@
+#
+# Author:: Seth Chisamore (<schisamo@opscode.com>)
+# Copyright:: Copyright 2011 Opscode, Inc.
+# License:: Apache License, Version 2.0
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+require 'chef/win32/api'
+
+class Chef
+  module ReservedNames::Win32
+    module API
+      module Unicode
+        extend Chef::ReservedNames::Win32::API
+
+        ###############################################
+        # Win32 API Constants
+        ###############################################
+
+        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
+
+        ###############################################
+        # Win32 API Bindings
+        ###############################################
+
+        ffi_lib 'kernel32', 'advapi32'
+
+=begin
+BOOL IsTextUnicode(
+  __in     const VOID *lpv,
+  __in     int iSize,
+  __inout  LPINT lpiResult
+);
+=end
+        safe_attach_function :IsTextUnicode, [:pointer, :int, :LPINT], :BOOL
+
+=begin
+int MultiByteToWideChar(
+  __in   UINT CodePage,
+  __in   DWORD dwFlags,
+  __in   LPCSTR lpMultiByteStr,
+  __in   int cbMultiByte,
+  __out  LPWSTR lpWideCharStr,
+  __in   int cchWideChar
+);
+=end
+        safe_attach_function :MultiByteToWideChar, [:UINT, :DWORD, :LPCSTR, :int, :LPWSTR, :int], :int
+
+=begin
+int WideCharToMultiByte(
+  __in   UINT CodePage,
+  __in   DWORD dwFlags,
+  __in   LPCWSTR lpWideCharStr,
+  __in   int cchWideChar,
+  __out  LPSTR lpMultiByteStr,
+  __in   int cbMultiByte,
+  __in   LPCSTR lpDefaultChar,
+  __out  LPBOOL lpUsedDefaultChar
+);
+=end
+        safe_attach_function :WideCharToMultiByte, [:UINT, :DWORD, :LPCWSTR, :int, :LPSTR, :int, :LPCSTR, :LPBOOL], :int
+
+        ###############################################
+        # Helpers
+        ###############################################
+
+        def utf8_to_wide(ustring)
+          # ensure it is actually UTF-8
+          # Ruby likes to mark binary data as ASCII-8BIT
+          ustring = (ustring + "").force_encoding('UTF-8') if ustring.respond_to?(:force_encoding) && ustring.encoding.name != "UTF-8"
+
+          # ensure we have the double-null termination Windows Wide likes
+          ustring = ustring + "\000\000" if ustring[-1].chr != "\000"
+
+          # encode it all as UTF-16LE AKA Windows Wide Character AKA Windows Unicode
+          ustring = begin
+            if ustring.respond_to?(:encode)
+              ustring.encode('UTF-16LE')
+            else
+              require 'iconv'
+              Iconv.conv("UTF-16LE", "UTF-8", ustring)
+            end
+          end
+          ustring
+        end
+
+        def wide_to_utf8(wstring)
+          # ensure it is actually UTF-16LE
+          # Ruby likes to mark binary data as ASCII-8BIT
+          wstring = wstring.force_encoding('UTF-16LE') if wstring.respond_to?(:force_encoding)
+
+          # encode it all as UTF-8
+          wstring = begin
+            if wstring.respond_to?(:encode)
+              wstring.encode('UTF-8')
+            else
+              require 'iconv'
+              Iconv.conv("UTF-8", "UTF-16LE", wstring)
+            end
+          end
+          # remove trailing CRLF and NULL characters
+          wstring.strip!
+          wstring
+        end
+
+      end
+    end
+  end
+end

data/lib/chef/win32/error.rb

@@ -0,0 +1,73 @@
+#
+# Author:: John Keiser (<jkeiser@opscode.com>)
+# Copyright:: Copyright 2011 Opscode, Inc.
+# License:: Apache License, Version 2.0
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+require 'chef/win32/api/error'
+require 'chef/win32/memory'
+require 'chef/win32/unicode'
+require 'chef/exceptions'
+
+class Chef
+  module ReservedNames::Win32
+    class Error
+      include Chef::ReservedNames::Win32::API::Error
+      extend Chef::ReservedNames::Win32::API::Error
+
+      def self.format_message(message_id = 0, args = {})
+        flags = args[:flags] || FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_ARGUMENT_ARRAY
+        source = args[:source]
+        language_id = args[:language_id] || 0
+        varargs = args[:varargs] || [:int, 0]
+        buffer = FFI::MemoryPointer.new :pointer
+        num_chars = FormatMessageW(flags | FORMAT_MESSAGE_ALLOCATE_BUFFER, source, message_id, language_id, buffer, 0, *varargs)
+        if num_chars == 0
+          raise!
+        end
+
+        # Extract the string
+        begin
+          return buffer.read_pointer.read_wstring(num_chars)
+        ensure
+          Chef::ReservedNames::Win32::Memory.local_free(buffer.read_pointer)
+        end
+      end
+
+      def self.get_last_error
+        GetLastError()
+      end
+
+      # Raises the last error.  This should only be called by
+      # Win32 API wrapper functions, and then only when wrapped
+      # in an if() statement (since it unconditionally exits)
+      # === Returns
+      # nil::: always returns nil when it does not raise
+      # === Raises
+      # Chef::Exceptions::Win32APIError:::
+      def self.raise!(message = nil)
+        code = get_last_error
+        msg = format_message(code).strip
+        formatted_message = ""
+        formatted_message << message if message
+        formatted_message << "---- Begin Win32 API output ----\n"
+        formatted_message << "System Error Code: #{code}\n"
+        formatted_message << "System Error Message: #{msg}\n"
+        formatted_message << "---- End Win32 API output ----\n"
+        raise Chef::Exceptions::Win32APIError, msg + "\n" + formatted_message
+      end
+    end
+  end
+end

data/lib/chef/win32/file.rb

@@ -0,0 +1,167 @@
+#
+# Author:: Seth Chisamore (<schisamo@opscode.com>)
+# Author:: Mark Mzyk (<mmzyk@ospcode.com>)
+# Copyright:: Copyright 2011 Opscode, Inc.
+# License:: Apache License, Version 2.0
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+#
+
+require 'chef/win32/api/file'
+require 'chef/win32/api/security'
+require 'chef/win32/error'
+
+class Chef
+  module ReservedNames::Win32
+    class File
+      include Chef::ReservedNames::Win32::API::File
+      extend Chef::ReservedNames::Win32::API::File
+
+      # Creates a symbolic link called +new_name+ for the file or directory
+      # +old_name+.
+      #
+      # This method requires Windows Vista or later to work. Otherwise, it
+      # returns nil as per MRI.
+      #
+      def self.link(old_name, new_name)
+        raise Errno::ENOENT, "(#{old_name}, #{new_name})" unless ::File.exist?(old_name)
+        # TODO do a check for CreateHardLinkW and
+        # raise NotImplemented exception on older Windows
+        old_name = encode_path(old_name)
+        new_name = encode_path(new_name)
+        unless CreateHardLinkW(new_name, old_name, nil)
+          Chef::ReservedNames::Win32::Error.raise!
+        end
+      end
+
+      # Creates a symbolic link called +new_name+ for the file or directory
+      # +old_name+.
+      #
+      # This method requires Windows Vista or later to work. Otherwise, it
+      # returns nil as per MRI.
+      #
+      def self.symlink(old_name, new_name)
+        # raise Errno::ENOENT, "(#{old_name}, #{new_name})" unless ::File.exist?(old_name)
+        # TODO do a check for CreateSymbolicLinkW and
+        # raise NotImplemented exception on older Windows
+        flags = ::File.directory?(old_name) ? SYMBOLIC_LINK_FLAG_DIRECTORY : 0
+        old_name = encode_path(old_name)
+        new_name = encode_path(new_name)
+        unless CreateSymbolicLinkW(new_name, old_name, flags)
+          Chef::ReservedNames::Win32::Error.raise!
+        end
+      end
+
+      # Return true if the named file is a symbolic link, false otherwise.
+      #
+      # This method requires Windows Vista or later to work. Otherwise, it
+      # always returns false as per MRI.
+      #
+      def self.symlink?(file_name)
+        is_symlink = false
+        path = encode_path(file_name)
+        if ::File.exists?(file_name)
+          if ((GetFileAttributesW(path) & FILE_ATTRIBUTE_REPARSE_POINT) > 0)
+            file_search_handle(file_name) do |handle, find_data|
+              if find_data[:dw_reserved_0] == IO_REPARSE_TAG_SYMLINK
+                is_symlink = true
+              end
+            end
+          end
+        end
+        is_symlink
+      end
+
+      # Returns the path of the of the symbolic link referred to by +file+.
+      #
+      # Requires Windows Vista or later. On older versions of Windows it
+      # will raise a NotImplementedError, as per MRI.
+      #
+      def self.readlink(link_name)
+        raise Errno::ENOENT, link_name unless ::File.exists?(link_name)
+        symlink_file_handle(link_name) do |handle|
+          # Go to DeviceIoControl to get the symlink information
+          # http://msdn.microsoft.com/en-us/library/windows/desktop/aa364571(v=vs.85).aspx
+          reparse_buffer = FFI::MemoryPointer.new(MAXIMUM_REPARSE_DATA_BUFFER_SIZE)
+          parsed_size = FFI::Buffer.new(:long).write_long(0)
+          if DeviceIoControl(handle, FSCTL_GET_REPARSE_POINT, nil, 0, reparse_buffer, MAXIMUM_REPARSE_DATA_BUFFER_SIZE, parsed_size, nil) == 0
+            Chef::ReservedNames::Win32::Error.raise!
+          end
+
+          # Ensure it's a symbolic link
+          reparse_buffer = REPARSE_DATA_BUFFER.new(reparse_buffer)
+          if reparse_buffer[:ReparseTag] != IO_REPARSE_TAG_SYMLINK
+            raise Errno::EACCES, "#{link_name} is not a symlink"
+          end
+
+          # Return the link destination (strip off \??\ at the beginning, which is a local filesystem thing)
+          link_dest = reparse_buffer.reparse_buffer.substitute_name
+          if link_dest =~ /^\\\?\?\\/
+            link_dest = link_dest[4..-1]
+          end
+          link_dest
+        end
+      end
+
+      # Gets the short form of a path (Administrator -> ADMINI~1)
+      def self.get_short_path_name(path)
+        path = path.to_wstring
+        size = GetShortPathNameW(path, nil, 0)
+        if size == 0
+          Chef::ReservedNames::Win32::Error.raise!
+        end
+        result = FFI::MemoryPointer.new :char, (size+1)*2
+        if GetShortPathNameW(path, result, size+1) == 0
+          Chef::ReservedNames::Win32::Error.raise!
+        end
+        result.read_wstring(size)
+      end
+
+      # Gets the long form of a path (ADMINI~1 -> Administrator)
+      def self.get_long_path_name(path)
+        path = path.to_wstring
+        size = GetLongPathNameW(path, nil, 0)
+        if size == 0
+          Chef::ReservedNames::Win32::Error.raise!
+        end
+        result = FFI::MemoryPointer.new :char, (size+1)*2
+        if GetLongPathNameW(path, result, size+1) == 0
+          Chef::ReservedNames::Win32::Error.raise!
+        end
+        result.read_wstring(size)
+      end
+
+      def self.info(file_name)
+        Info.new(file_name)
+      end
+
+      def self.verify_links_supported!
+        begin
+          CreateSymbolicLinkW(nil)
+        rescue Chef::Exceptions::Win32APIFunctionNotImplemented => e
+          raise e
+        rescue Exception
+          # things are ok.
+        end
+      end
+
+      # ::File compat
+      class << self
+        alias :stat :info
+      end
+
+    end
+  end
+end
+
+require 'chef/win32/file/info'