Move Win32 from win32/ext/Win32 to ext/Win32

Message-ID: <1unen2lsrq4pnnt06933h96pqj1d8luh3b@4ax.com>

p4raw-id: //depot/perl@29483

3 files changed, 0 insertions, 1273 deletions

diff --git a/win32/ext/Win32/Makefile.PL b/win32/ext/Win32/Makefile.PL
deleted file mode 100644
index b6f5744f10..0000000000
--- a/win32/ext/Win32/Makefile.PL
+++ /dev/null
@@ -1,10 +0,0 @@
-use ExtUtils::MakeMaker;
-
-my @libs;
-push @libs, '-L/lib/w32api -lole32 -lversion' if $^O eq "cygwin";
-
-WriteMakefile(
-    NAME         => 'Win32',
-    VERSION_FROM => 'Win32.pm',
-    LIBS         => \@libs,
-);
diff --git a/win32/ext/Win32/Win32.pm b/win32/ext/Win32/Win32.pm
deleted file mode 100644
index e35efc90f9..0000000000
--- a/win32/ext/Win32/Win32.pm
+++ /dev/null
@@ -1,712 +0,0 @@
-package Win32;
-
-BEGIN {
-    use strict;
-    use vars qw|$VERSION @ISA @EXPORT @EXPORT_OK|;
-
-    require Exporter;
-    require DynaLoader;
-
-    @ISA = qw|Exporter DynaLoader|;
-    $VERSION = '0.2601_01';
-
-    @EXPORT = qw(
-	NULL
-	WIN31_CLASS
-	OWNER_SECURITY_INFORMATION
-	GROUP_SECURITY_INFORMATION
-	DACL_SECURITY_INFORMATION
-	SACL_SECURITY_INFORMATION
-	MB_ICONHAND
-	MB_ICONQUESTION
-	MB_ICONEXCLAMATION
-	MB_ICONASTERISK
-	MB_ICONWARNING
-	MB_ICONERROR
-	MB_ICONINFORMATION
-	MB_ICONSTOP
-    );
-    @EXPORT_OK = qw(
-        GetOSName
-        SW_HIDE
-        SW_SHOWNORMAL
-        SW_SHOWMINIMIZED
-        SW_SHOWMAXIMIZED
-        SW_SHOWNOACTIVATE
-
-        CSIDL_DESKTOP
-        CSIDL_PROGRAMS
-        CSIDL_PERSONAL
-        CSIDL_FAVORITES
-        CSIDL_STARTUP
-        CSIDL_RECENT
-        CSIDL_SENDTO
-        CSIDL_STARTMENU
-        CSIDL_MYMUSIC
-        CSIDL_MYVIDEO
-        CSIDL_DESKTOPDIRECTORY
-        CSIDL_NETHOOD
-        CSIDL_FONTS
-        CSIDL_TEMPLATES
-        CSIDL_COMMON_STARTMENU
-        CSIDL_COMMON_PROGRAMS
-        CSIDL_COMMON_STARTUP
-        CSIDL_COMMON_DESKTOPDIRECTORY
-        CSIDL_APPDATA
-        CSIDL_PRINTHOOD
-        CSIDL_LOCAL_APPDATA
-        CSIDL_COMMON_FAVORITES
-        CSIDL_INTERNET_CACHE
-        CSIDL_COOKIES
-        CSIDL_HISTORY
-        CSIDL_COMMON_APPDATA
-        CSIDL_WINDOWS
-        CSIDL_SYSTEM
-        CSIDL_PROGRAM_FILES
-        CSIDL_MYPICTURES
-        CSIDL_PROFILE
-        CSIDL_PROGRAM_FILES_COMMON
-        CSIDL_COMMON_TEMPLATES
-        CSIDL_COMMON_DOCUMENTS
-        CSIDL_COMMON_ADMINTOOLS
-        CSIDL_ADMINTOOLS
-        CSIDL_COMMON_MUSIC
-        CSIDL_COMMON_PICTURES
-        CSIDL_COMMON_VIDEO
-        CSIDL_RESOURCES
-        CSIDL_RESOURCES_LOCALIZED
-        CSIDL_CDBURN_AREA
-    );
-}
-
-# Routines available in core:
-# Win32::GetLastError
-# Win32::LoginName
-# Win32::NodeName
-# Win32::DomainName
-# Win32::FsType
-# Win32::GetCwd
-# Win32::GetOSVersion
-# Win32::FormatMessage ERRORCODE
-# Win32::Spawn COMMAND, ARGS, PID
-# Win32::GetTickCount
-# Win32::IsWinNT
-# Win32::IsWin95
-
-# We won't bother with the constant stuff, too much of a hassle.  Just hard
-# code it here.
-
-sub NULL 				{ 0 }
-sub WIN31_CLASS 			{ &NULL }
-
-sub OWNER_SECURITY_INFORMATION		{ 0x00000001 }
-sub GROUP_SECURITY_INFORMATION		{ 0x00000002 }
-sub DACL_SECURITY_INFORMATION		{ 0x00000004 }
-sub SACL_SECURITY_INFORMATION		{ 0x00000008 }
-
-sub MB_ICONHAND				{ 0x00000010 }
-sub MB_ICONQUESTION			{ 0x00000020 }
-sub MB_ICONEXCLAMATION			{ 0x00000030 }
-sub MB_ICONASTERISK			{ 0x00000040 }
-sub MB_ICONWARNING			{ 0x00000030 }
-sub MB_ICONERROR			{ 0x00000010 }
-sub MB_ICONINFORMATION			{ 0x00000040 }
-sub MB_ICONSTOP				{ 0x00000010 }
-
-#
-# Newly added constants.  These have an empty prototype, unlike the
-# the ones above, which aren't prototyped for compatibility reasons.
-#
-sub SW_HIDE           ()		{ 0 }
-sub SW_SHOWNORMAL     ()		{ 1 }
-sub SW_SHOWMINIMIZED  ()		{ 2 }
-sub SW_SHOWMAXIMIZED  ()		{ 3 }
-sub SW_SHOWNOACTIVATE ()		{ 4 }
-
-sub CSIDL_DESKTOP              ()       { 0x0000 }     # <desktop>
-sub CSIDL_PROGRAMS             ()       { 0x0002 }     # Start Menu\Programs
-sub CSIDL_PERSONAL             ()       { 0x0005 }     # "My Documents" folder
-sub CSIDL_FAVORITES            ()       { 0x0006 }     # <user name>\Favorites
-sub CSIDL_STARTUP              ()       { 0x0007 }     # Start Menu\Programs\Startup
-sub CSIDL_RECENT               ()       { 0x0008 }     # <user name>\Recent
-sub CSIDL_SENDTO               ()       { 0x0009 }     # <user name>\SendTo
-sub CSIDL_STARTMENU            ()       { 0x000B }     # <user name>\Start Menu
-sub CSIDL_MYMUSIC              ()       { 0x000D }     # "My Music" folder
-sub CSIDL_MYVIDEO              ()       { 0x000E }     # "My Videos" folder
-sub CSIDL_DESKTOPDIRECTORY     ()       { 0x0010 }     # <user name>\Desktop
-sub CSIDL_NETHOOD              ()       { 0x0013 }     # <user name>\nethood
-sub CSIDL_FONTS                ()       { 0x0014 }     # windows\fonts
-sub CSIDL_TEMPLATES            ()       { 0x0015 }
-sub CSIDL_COMMON_STARTMENU     ()       { 0x0016 }     # All Users\Start Menu
-sub CSIDL_COMMON_PROGRAMS      ()       { 0x0017 }     # All Users\Start Menu\Programs
-sub CSIDL_COMMON_STARTUP       ()       { 0x0018 }     # All Users\Startup
-sub CSIDL_COMMON_DESKTOPDIRECTORY ()    { 0x0019 }     # All Users\Desktop
-sub CSIDL_APPDATA              ()       { 0x001A }     # Application Data, new for NT4
-sub CSIDL_PRINTHOOD            ()       { 0x001B }     # <user name>\PrintHood
-sub CSIDL_LOCAL_APPDATA        ()       { 0x001C }     # non roaming, user\Local Settings\Application Data
-sub CSIDL_COMMON_FAVORITES     ()       { 0x001F }
-sub CSIDL_INTERNET_CACHE       ()       { 0x0020 }
-sub CSIDL_COOKIES              ()       { 0x0021 }
-sub CSIDL_HISTORY              ()       { 0x0022 }
-sub CSIDL_COMMON_APPDATA       ()       { 0x0023 }     # All Users\Application Data
-sub CSIDL_WINDOWS              ()       { 0x0024 }     # GetWindowsDirectory()
-sub CSIDL_SYSTEM               ()       { 0x0025 }     # GetSystemDirectory()
-sub CSIDL_PROGRAM_FILES        ()       { 0x0026 }     # C:\Program Files
-sub CSIDL_MYPICTURES           ()       { 0x0027 }     # "My Pictures", new for Win2K
-sub CSIDL_PROFILE              ()       { 0x0028 }     # USERPROFILE
-sub CSIDL_PROGRAM_FILES_COMMON ()       { 0x002B }     # C:\Program Files\Common
-sub CSIDL_COMMON_TEMPLATES     ()       { 0x002D }     # All Users\Templates
-sub CSIDL_COMMON_DOCUMENTS     ()       { 0x002E }     # All Users\Documents
-sub CSIDL_COMMON_ADMINTOOLS    ()       { 0x002F }     # All Users\Start Menu\Programs\Administrative Tools
-sub CSIDL_ADMINTOOLS           ()       { 0x0030 }     # <user name>\Start Menu\Programs\Administrative Tools
-sub CSIDL_COMMON_MUSIC         ()       { 0x0035 }     # All Users\My Music
-sub CSIDL_COMMON_PICTURES      ()       { 0x0036 }     # All Users\My Pictures
-sub CSIDL_COMMON_VIDEO         ()       { 0x0037 }     # All Users\My Video
-sub CSIDL_RESOURCES            ()       { 0x0038 }     # %windir%\Resources\, For theme and other windows resources.
-sub CSIDL_RESOURCES_LOCALIZED  ()       { 0x0039 }     # %windir%\Resources\<LangID>, for theme and other windows specific resources.
-sub CSIDL_CDBURN_AREA          ()       { 0x003B }     # <user name>\Local Settings\Application Data\Microsoft\CD Burning
-
-### This method is just a simple interface into GetOSVersion().  More
-### specific or demanding situations should use that instead.
-
-my ($found_os, $found_desc);
-
-sub GetOSName {
-    my ($os,$desc,$major, $minor, $build, $id)=("","");
-    unless (defined $found_os) {
-        # If we have a run this already, we have the results cached
-        # If so, return them
-
-        # Use the standard API call to determine the version
-        ($desc, $major, $minor, $build, $id) = Win32::GetOSVersion();
-
-        # If id==0 then its a win32s box -- Meaning Win3.11
-        unless($id) {
-            $os = 'Win32s';
-        }
-	else {
-	    # Magic numbers from MSDN documentation of OSVERSIONINFO
-	    # Most version names can be parsed from just the id and minor
-	    # version
-	    $os = {
-		1 => {
-		    0  => "95",
-		    10 => "98",
-		    90 => "Me"
-		},
-		2 => {
-		    0  => "NT4",
-		    1  => "XP/.Net",
-		    2  => "2003",
-		    51 => "NT3.51"
-		}
-	    }->{$id}->{$minor};
-	}
-
-        # This _really_ shouldnt happen.  At least not for quite a while
-        # Politely warn and return undef
-        unless (defined $os) {
-            warn qq[Windows version [$id:$major:$minor] unknown!];
-            return undef;
-        }
-
-        my $tag = "";
-
-        # But distinguising W2k and Vista from NT4 requires looking at the major version
-        if ($os eq "NT4") {
-	    $os = {5 => "2000", 6 => "Vista"}->{$major} || "NT4";
-        }
-
-        # For the rest we take a look at the build numbers and try to deduce
-	# the exact release name, but we put that in the $desc
-        elsif ($os eq "95") {
-            if ($build eq '67109814') {
-                    $tag = '(a)';
-            }
-	    elsif ($build eq '67306684') {
-                    $tag = '(b1)';
-            }
-	    elsif ($build eq '67109975') {
-                    $tag = '(b2)';
-            }
-        }
-	elsif ($os eq "98" && $build eq '67766446') {
-            $tag = '(2nd ed)';
-        }
-
-	if (length $tag) {
-	    if (length $desc) {
-	        $desc = "$tag $desc";
-	    }
-	    else {
-	        $desc = $tag;
-	    }
-	}
-
-        # cache the results, so we dont have to do this again
-        $found_os      = "Win$os";
-        $found_desc    = $desc;
-    }
-
-    return wantarray ? ($found_os, $found_desc) : $found_os;
-}
-
-bootstrap Win32;
-
-1;
-
-__END__
-
-=head1 NAME
-
-Win32 - Interfaces to some Win32 API Functions
-
-=head1 DESCRIPTION
-
-Perl on Win32 contains several functions to access Win32 APIs.  Some
-are included in Perl itself (on Win32) and some are only available
-after explicitly requesting the Win32 module with:
-
-	use Win32;
-
-The builtin functions are marked as [CORE] and the other ones
-as [EXT] in the following alphabetical listing.
-
-=head2 Alphabetical Listing of Win32 Functions
-
-=over
-
-=item Win32::AbortSystemShutdown(MACHINE)
-
-[EXT] Aborts a system shutdown (started by the
-InitiateSystemShutdown function) on the specified MACHINE.
-
-=item Win32::BuildNumber()
-
-[CORE] Returns the ActivePerl build number.  This function is
-only available in the ActivePerl binary distribution.
-
-=item Win32::CopyFile(FROM, TO, OVERWRITE)
-
-[CORE] The Win32::CopyFile() function copies an existing file to a new
-file.  All file information like creation time and file attributes will
-be copied to the new file.  However it will B<not> copy the security
-information.  If the destination file already exists it will only be
-overwritten when the OVERWRITE parameter is true.  But even this will
-not overwrite a read-only file; you have to unlink() it first
-yourself.
-
-=item Win32::DomainName()
-
-[CORE] Returns the name of the Microsoft Network domain that the
-owner of the current perl process is logged into.  This function does
-B<not> work on Windows 9x.
-
-=item Win32::ExpandEnvironmentStrings(STRING)
-
-[EXT] Takes STRING and replaces all referenced environment variable
-names with their defined values.  References to environment variables
-take the form C<%VariableName%>.  Case is ignored when looking up the
-VariableName in the environment.  If the variable is not found then the
-original C<%VariableName%> text is retained.  Has the same effect
-as the following:
-
-	$string =~ s/%([^%]*)%/$ENV{$1} || "%$1%"/eg
-
-=item Win32::FormatMessage(ERRORCODE)
-
-[CORE] Converts the supplied Win32 error number (e.g. returned by
-Win32::GetLastError()) to a descriptive string.  Analogous to the
-perror() standard-C library function.  Note that C<$^E> used
-in a string context has much the same effect.
-
-	C:\> perl -e "$^E = 26; print $^E;"
-	The specified disk or diskette cannot be accessed
-
-=item Win32::FsType()
-
-[CORE] Returns the name of the filesystem of the currently active
-drive (like 'FAT' or 'NTFS').  In list context it returns three values:
-(FSTYPE, FLAGS, MAXCOMPLEN).  FSTYPE is the filesystem type as
-before.  FLAGS is a combination of values of the following table:
-
-	0x00000001  supports case-sensitive filenames
-	0x00000002  preserves the case of filenames
-	0x00000004  supports Unicode in filenames
-	0x00000008  preserves and enforces ACLs
-	0x00000010  supports file-based compression
-	0x00000020  supports disk quotas
-	0x00000040  supports sparse files
-	0x00000080  supports reparse points
-	0x00000100  supports remote storage
-	0x00008000  is a compressed volume (e.g. DoubleSpace)
-	0x00010000  supports object identifiers
-	0x00020000  supports the Encrypted File System (EFS)
-
-MAXCOMPLEN is the maximum length of a filename component (the part
-between two backslashes) on this file system.
-
-=item Win32::FreeLibrary(HANDLE)
-
-[EXT] Unloads a previously loaded dynamic-link library.  The HANDLE is
-no longer valid after this call.  See L<LoadLibrary|Win32::LoadLibrary(LIBNAME)>
-for information on dynamically loading a library.
-
-=item Win32::GetArchName()
-
-[EXT] Use of this function is deprecated.  It is equivalent with
-$ENV{PROCESSOR_ARCHITECTURE}.  This might not work on Win9X.
-
-=item Win32::GetChipName()
-
-[EXT] Returns the processor type: 386, 486 or 586 for Intel processors,
-21064 for the Alpha chip.
-
-=item Win32::GetCwd()
-
-[CORE] Returns the current active drive and directory.  This function
-does not return a UNC path, since the functionality required for such
-a feature is not available under Windows 95.
-
-=item Win32::GetFileVersion(FILENAME)
-
-[EXT] Returns the file version number from the VERSIONINFO resource of
-the executable file or DLL.  This is a tuple of four 16 bit numbers.
-In list context these four numbers will be returned.  In scalar context
-they are concatenated into a string, separated by dots.
-
-=item Win32::GetFolderPath(FOLDER [, CREATE])
-
-[EXT] Returns the full pathname of one of the Windows special folders.
-The folder will be created if it doesn't exist and the optional CREATE
-argument is true.  The following FOLDER constants are defined by the
-Win32 module, but only exported on demand:
-
-        CSIDL_ADMINTOOLS
-        CSIDL_APPDATA
-        CSIDL_CDBURN_AREA
-        CSIDL_COMMON_ADMINTOOLS
-        CSIDL_COMMON_APPDATA
-        CSIDL_COMMON_DESKTOPDIRECTORY
-        CSIDL_COMMON_DOCUMENTS
-        CSIDL_COMMON_FAVORITES
-        CSIDL_COMMON_MUSIC
-        CSIDL_COMMON_PICTURES
-        CSIDL_COMMON_PROGRAMS
-        CSIDL_COMMON_STARTMENU
-        CSIDL_COMMON_STARTUP
-        CSIDL_COMMON_TEMPLATES
-        CSIDL_COMMON_VIDEO
-        CSIDL_COOKIES
-        CSIDL_DESKTOP
-        CSIDL_DESKTOPDIRECTORY
-        CSIDL_FAVORITES
-        CSIDL_FONTS
-        CSIDL_HISTORY
-        CSIDL_INTERNET_CACHE
-        CSIDL_LOCAL_APPDATA
-        CSIDL_MYMUSIC
-        CSIDL_MYPICTURES
-        CSIDL_MYVIDEO
-        CSIDL_NETHOOD
-        CSIDL_PERSONAL
-        CSIDL_PRINTHOOD
-        CSIDL_PROFILE
-        CSIDL_PROGRAMS
-        CSIDL_PROGRAM_FILES
-        CSIDL_PROGRAM_FILES_COMMON
-        CSIDL_RECENT
-        CSIDL_RESOURCES
-        CSIDL_RESOURCES_LOCALIZED
-        CSIDL_SENDTO
-        CSIDL_STARTMENU
-        CSIDL_STARTUP
-        CSIDL_SYSTEM
-        CSIDL_TEMPLATES
-        CSIDL_WINDOWS
-
-Note that not all folders are defined on all versions of Windows.
-
-Please refer to the MSDN documentation of the CSIDL constants,
-currently available at:
-
-http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/enums/csidl.asp
-
-=item Win32::GetFullPathName(FILENAME)
-
-[CORE] GetFullPathName combines the FILENAME with the current drive
-and directory name and returns a fully qualified (aka, absolute)
-path name.  In list context it returns two elements: (PATH, FILE) where
-PATH is the complete pathname component (including trailing backslash)
-and FILE is just the filename part.  Note that no attempt is made to
-convert 8.3 components in the supplied FILENAME to longnames or
-vice-versa.  Compare with Win32::GetShortPathName and
-Win32::GetLongPathName.
-
-=item Win32::GetLastError()
-
-[CORE] Returns the last error value generated by a call to a Win32 API
-function.  Note that C<$^E> used in a numeric context amounts to the
-same value.
-
-=item Win32::GetLongPathName(PATHNAME)
-
-[CORE] Returns a representation of PATHNAME composed of longname
-components (if any).  The result may not necessarily be longer
-than PATHNAME.  No attempt is made to convert PATHNAME to the
-absolute path.  Compare with Win32::GetShortPathName and
-Win32::GetFullPathName.
-
-=item Win32::GetNextAvailDrive()
-
-[CORE] Returns a string in the form of "<d>:" where <d> is the first
-available drive letter.
-
-=item Win32::GetOSVersion()
-
-[CORE] Returns the list (STRING, MAJOR, MINOR, BUILD, ID), where the
-elements are, respectively: An arbitrary descriptive string, the major
-version number of the operating system, the minor version number, the
-build number, and a digit indicating the actual operating system.
-For the ID, the values are 0 for Win32s, 1 for Windows 9X/Me and 2 for
-Windows NT/2000/XP/2003.  In scalar context it returns just the ID.
-
-Currently known values for ID MAJOR and MINOR are as follows:
-
-    OS                    ID    MAJOR   MINOR
-    Win32s                 0      -       -
-    Windows 95             1      4       0
-    Windows 98             1      4      10
-    Windows Me             1      4      90
-    Windows NT 3.51        2      3      51
-    Windows NT 4           2      4       0
-    Windows 2000           2      5       0
-    Windows XP             2      5       1
-    Windows Server 2003    2      5       2
-    Windows Vista          2      6       0
-
-On Windows NT 4 SP6 and later this function returns the following
-additional values: SPMAJOR, SPMINOR, SUITEMASK, PRODUCTTYPE.
-
-SPMAJOR and SPMINOR are are the version numbers of the latest
-installed service pack.
-
-SUITEMASK is a bitfield identifying the product suites available on
-the system.  Known bits are:
-
-    VER_SUITE_SMALLBUSINESS             0x00000001
-    VER_SUITE_ENTERPRISE                0x00000002
-    VER_SUITE_BACKOFFICE                0x00000004
-    VER_SUITE_COMMUNICATIONS            0x00000008
-    VER_SUITE_TERMINAL                  0x00000010
-    VER_SUITE_SMALLBUSINESS_RESTRICTED  0x00000020
-    VER_SUITE_EMBEDDEDNT                0x00000040
-    VER_SUITE_DATACENTER                0x00000080
-    VER_SUITE_SINGLEUSERTS              0x00000100
-    VER_SUITE_PERSONAL                  0x00000200
-    VER_SUITE_BLADE                     0x00000400
-    VER_SUITE_EMBEDDED_RESTRICTED       0x00000800
-    VER_SUITE_SECURITY_APPLIANCE        0x00001000
-
-The VER_SUITE_xxx names are listed here to crossreference the Microsoft
-documentation.  The Win32 module does not provide symbolic names for these
-constants.
-
-PRODUCTTYPE provides additional information about the system.  It should
-be one of the following integer values:
-
-    1 - Workstation (NT 4, 2000 Pro, XP Home, XP Pro)
-    2 - Domaincontroller
-    3 - Server
-
-=item Win32::GetOSName()
-
-[EXT] In scalar context returns the name of the Win32 operating system
-being used.  In list context returns a two element list of the OS name
-and whatever edition information is known about the particular build
-(for Win9X boxes) and whatever service packs have been installed.
-The latter is roughly equivalent to the first item returned by
-GetOSVersion() in list context.
-
-Currently the possible values for the OS name are
-
- Win32s Win95 Win98 WinMe WinNT3.51 WinNT4 Win2000 WinXP/.Net Win2003
-
-This routine is just a simple interface into GetOSVersion().  More
-specific or demanding situations should use that instead.  Another
-option would be to use POSIX::uname(), however the latter appears to
-report only the OS family name and not the specific OS.  In scalar
-context it returns just the ID.
-
-The name "WinXP/.Net" is used for historical reasons only, to maintain
-backwards compatibility of the Win32 module.  Windows .NET Server has
-been renamed as Windows 2003 Server before final release and uses a
-different major/minor version number than Windows XP.
-
-=item Win32::GetShortPathName(PATHNAME)
-
-[CORE] Returns a representation of PATHNAME that is composed of short
-(8.3) path components where available.  For path components where the
-file system has not generated the short form the returned path will
-use the long form, so this function might still for instance return a
-path containing spaces.  Compare with Win32::GetFullPathName and
-Win32::GetLongPathName.
-
-=item Win32::GetProcAddress(INSTANCE, PROCNAME)
-
-[EXT] Returns the address of a function inside a loaded library.  The
-information about what you can do with this address has been lost in
-the mist of time.  Use the Win32::API module instead of this deprecated
-function.
-
-=item Win32::GetTickCount()
-
-[CORE] Returns the number of milliseconds elapsed since the last
-system boot.  Resolution is limited to system timer ticks (about 10ms
-on WinNT and 55ms on Win9X).
-
-=item Win32::GuidGen()
-
-[EXT] Creates a globally unique 128 bit integer that can be used as a
-persistent identifier in a distributed setting. To a very high degree
-of certainty this function returns a unique value. No other
-invocation, on the same or any other system (networked or not), should
-return the same value.
-
-The return value is formatted according to OLE conventions, as groups
-of hex digits with surrounding braces.  For example:
-
-    {09531CF1-D0C7-4860-840C-1C8C8735E2AD}
- 
-=item Win32::InitiateSystemShutdown
-
-(MACHINE, MESSAGE, TIMEOUT, FORCECLOSE, REBOOT)
-
-[EXT] Shutsdown the specified MACHINE, notifying users with the
-supplied MESSAGE, within the specified TIMEOUT interval.  Forces
-closing of all documents without prompting the user if FORCECLOSE is
-true, and reboots the machine if REBOOT is true.  This function works
-only on WinNT.
-
-=item Win32::IsAdminUser()
-
-[EXT] Returns non zero if the account in whose security context the
-current process/thread is running belongs to the local group of
-Administrators in the built-in system domain; returns 0 if not.
-Returns the undefined value and prints a warning if an error occurred.
-This function always returns 1 on Win9X.
-
-=item Win32::IsWinNT()
-
-[CORE] Returns non zero if the Win32 subsystem is Windows NT.
-
-=item Win32::IsWin95()
-
-[CORE] Returns non zero if the Win32 subsystem is Windows 95.
-
-=item Win32::LoadLibrary(LIBNAME)
-
-[EXT] Loads a dynamic link library into memory and returns its module
-handle.  This handle can be used with Win32::GetProcAddress and
-Win32::FreeLibrary.  This function is deprecated.  Use the Win32::API
-module instead.
-
-=item Win32::LoginName()
-
-[CORE] Returns the username of the owner of the current perl process.
-
-=item Win32::LookupAccountName(SYSTEM, ACCOUNT, DOMAIN, SID, SIDTYPE)
-
-[EXT] Looks up ACCOUNT on SYSTEM and returns the domain name the SID and
-the SID type.
-
-=item Win32::LookupAccountSID(SYSTEM, SID, ACCOUNT, DOMAIN, SIDTYPE)
-
-[EXT] Looks up SID on SYSTEM and returns the account name, domain name,
-and the SID type.
-
-=item Win32::MsgBox(MESSAGE [, FLAGS [, TITLE]])
-
-[EXT] Create a dialogbox containing MESSAGE.  FLAGS specifies the
-required icon and buttons according to the following table:
-
-	0 = OK
-	1 = OK and Cancel
-	2 = Abort, Retry, and Ignore
-	3 = Yes, No and Cancel
-	4 = Yes and No
-	5 = Retry and Cancel
-
-	MB_ICONSTOP          "X" in a red circle
-	MB_ICONQUESTION      question mark in a bubble
-	MB_ICONEXCLAMATION   exclamation mark in a yellow triangle
-	MB_ICONINFORMATION   "i" in a bubble
-
-TITLE specifies an optional window title.  The default is "Perl".
-
-The function returns the menu id of the selected push button:
-
-	0  Error
-
-	1  OK
-	2  Cancel
-	3  Abort
-	4  Retry
-	5  Ignore
-	6  Yes
-	7  No
-
-=item Win32::NodeName()
-
-[CORE] Returns the Microsoft Network node-name of the current machine.
-
-=item Win32::RegisterServer(LIBRARYNAME)
-
-[EXT] Loads the DLL LIBRARYNAME and calls the function DllRegisterServer.
-
-=item Win32::SetChildShowWindow(SHOWWINDOW)
-
-[CORE] Sets the I<ShowMode> of child processes started by system().
-By default system() will create a new console window for child
-processes if Perl itself is not running from a console.  Calling
-SetChildShowWindow(0) will make these new console windows invisible.
-Calling SetChildShowWindow() without arguments reverts system() to the
-default behavior.  The return value of SetChildShowWindow() is the
-previous setting or C<undef>.
-
-[EXT] The following symbolic constants for SHOWWINDOW are available
-(but not exported) from the Win32 module: SW_HIDE, SW_SHOWNORMAL,
-SW_SHOWMINIMIZED, SW_SHOWMAXIMIZED and SW_SHOWNOACTIVATE.
-
-=item Win32::SetCwd(NEWDIRECTORY)
-
-[CORE] Sets the current active drive and directory.  This function does not
-work with UNC paths, since the functionality required to required for
-such a feature is not available under Windows 95.
-
-=item Win32::SetLastError(ERROR)
-
-[CORE] Sets the value of the last error encountered to ERROR.  This is
-that value that will be returned by the Win32::GetLastError()
-function.
-
-=item Win32::Sleep(TIME)
-
-[CORE] Pauses for TIME milliseconds.  The timeslices are made available
-to other processes and threads.
-
-=item Win32::Spawn(COMMAND, ARGS, PID)
-
-[CORE] Spawns a new process using the supplied COMMAND, passing in
-arguments in the string ARGS.  The pid of the new process is stored in
-PID.  This function is deprecated.  Please use the Win32::Process module
-instead.
-
-=item Win32::UnregisterServer(LIBRARYNAME)
-
-[EXT] Loads the DLL LIBRARYNAME and calls the function
-DllUnregisterServer.
-
-=back
-
-=cut
diff --git a/win32/ext/Win32/Win32.xs b/win32/ext/Win32/Win32.xs
deleted file mode 100644
index b92ae6570d..0000000000
--- a/win32/ext/Win32/Win32.xs
+++ /dev/null
@@ -1,551 +0,0 @@
-#include <windows.h>
-
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-#define SE_SHUTDOWN_NAMEA   "SeShutdownPrivilege"
-
-typedef BOOL (WINAPI *PFNSHGetSpecialFolderPath)(HWND, char*, int, BOOL);
-typedef HRESULT (WINAPI *PFNSHGetFolderPath)(HWND, int, HANDLE, DWORD, LPTSTR);
-typedef int (__stdcall *PFNDllRegisterServer)(void);
-typedef int (__stdcall *PFNDllUnregisterServer)(void);
-#ifndef CSIDL_FLAG_CREATE
-#   define CSIDL_FLAG_CREATE               0x8000
-#endif
-
-XS(w32_ExpandEnvironmentStrings)
-{
-    dXSARGS;
-    BYTE buffer[4096];
-
-    if (items != 1)
-	croak("usage: Win32::ExpandEnvironmentStrings($String);\n");
-
-    ExpandEnvironmentStringsA(SvPV_nolen(ST(0)), (char*)buffer, sizeof(buffer));
-    XSRETURN_PV((char*)buffer);
-}
-
-XS(w32_IsAdminUser)
-{
-    dXSARGS;
-    HINSTANCE                   hAdvApi32;
-    BOOL (__stdcall *pfnOpenThreadToken)(HANDLE hThr, DWORD dwDesiredAccess,
-                                BOOL bOpenAsSelf, PHANDLE phTok);
-    BOOL (__stdcall *pfnOpenProcessToken)(HANDLE hProc, DWORD dwDesiredAccess,
-                                PHANDLE phTok);
-    BOOL (__stdcall *pfnGetTokenInformation)(HANDLE hTok,
-                                TOKEN_INFORMATION_CLASS TokenInformationClass,
-                                LPVOID lpTokInfo, DWORD dwTokInfoLen,
-                                PDWORD pdwRetLen);
-    BOOL (__stdcall *pfnAllocateAndInitializeSid)(
-                                PSID_IDENTIFIER_AUTHORITY pIdAuth,
-                                BYTE nSubAuthCount, DWORD dwSubAuth0,
-                                DWORD dwSubAuth1, DWORD dwSubAuth2,
-                                DWORD dwSubAuth3, DWORD dwSubAuth4,
-                                DWORD dwSubAuth5, DWORD dwSubAuth6,
-                                DWORD dwSubAuth7, PSID pSid);
-    BOOL (__stdcall *pfnEqualSid)(PSID pSid1, PSID pSid2);
-    PVOID (__stdcall *pfnFreeSid)(PSID pSid);
-    HANDLE                      hTok;
-    DWORD                       dwTokInfoLen;
-    TOKEN_GROUPS                *lpTokInfo;
-    SID_IDENTIFIER_AUTHORITY    NtAuth = SECURITY_NT_AUTHORITY;
-    PSID                        pAdminSid;
-    int                         iRetVal;
-    unsigned int                i;
-    OSVERSIONINFO               osver;
-
-    if (items)
-        croak("usage: Win32::IsAdminUser()");
-
-    /* There is no concept of "Administrator" user accounts on Win9x systems,
-       so just return true. */
-    memset(&osver, 0, sizeof(OSVERSIONINFO));
-    osver.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
-    GetVersionEx(&osver);
-    if (osver.dwPlatformId == VER_PLATFORM_WIN32_WINDOWS)
-        XSRETURN_YES;
-
-    hAdvApi32 = LoadLibrary("advapi32.dll");
-    if (!hAdvApi32) {
-        warn("Cannot load advapi32.dll library");
-        XSRETURN_UNDEF;
-    }
-
-    pfnOpenThreadToken = (BOOL (__stdcall *)(HANDLE, DWORD, BOOL, PHANDLE))
-        GetProcAddress(hAdvApi32, "OpenThreadToken");
-    pfnOpenProcessToken = (BOOL (__stdcall *)(HANDLE, DWORD, PHANDLE))
-        GetProcAddress(hAdvApi32, "OpenProcessToken");
-    pfnGetTokenInformation = (BOOL (__stdcall *)(HANDLE,
-        TOKEN_INFORMATION_CLASS, LPVOID, DWORD, PDWORD))
-        GetProcAddress(hAdvApi32, "GetTokenInformation");
-    pfnAllocateAndInitializeSid = (BOOL (__stdcall *)(
-        PSID_IDENTIFIER_AUTHORITY, BYTE, DWORD, DWORD, DWORD, DWORD, DWORD,
-        DWORD, DWORD, DWORD, PSID))
-        GetProcAddress(hAdvApi32, "AllocateAndInitializeSid");
-    pfnEqualSid = (BOOL (__stdcall *)(PSID, PSID))
-        GetProcAddress(hAdvApi32, "EqualSid");
-    pfnFreeSid = (PVOID (__stdcall *)(PSID))
-        GetProcAddress(hAdvApi32, "FreeSid");
-
-    if (!(pfnOpenThreadToken && pfnOpenProcessToken &&
-          pfnGetTokenInformation && pfnAllocateAndInitializeSid &&
-          pfnEqualSid && pfnFreeSid))
-    {
-        warn("Cannot load functions from advapi32.dll library");
-        FreeLibrary(hAdvApi32);
-        XSRETURN_UNDEF;
-    }
-
-    if (!pfnOpenThreadToken(GetCurrentThread(), TOKEN_QUERY, FALSE, &hTok)) {
-        if (!pfnOpenProcessToken(GetCurrentProcess(), TOKEN_QUERY, &hTok)) {
-            warn("Cannot open thread token or process token");
-            FreeLibrary(hAdvApi32);
-            XSRETURN_UNDEF;
-        }
-    }
-
-    pfnGetTokenInformation(hTok, TokenGroups, NULL, 0, &dwTokInfoLen);
-    if (!New(1, lpTokInfo, dwTokInfoLen, TOKEN_GROUPS)) {
-        warn("Cannot allocate token information structure");
-        CloseHandle(hTok);
-        FreeLibrary(hAdvApi32);
-        XSRETURN_UNDEF;
-    }
-
-    if (!pfnGetTokenInformation(hTok, TokenGroups, lpTokInfo, dwTokInfoLen,
-            &dwTokInfoLen))
-    {
-        warn("Cannot get token information");
-        Safefree(lpTokInfo);
-        CloseHandle(hTok);
-        FreeLibrary(hAdvApi32);
-        XSRETURN_UNDEF;
-    }
-
-    if (!pfnAllocateAndInitializeSid(&NtAuth, 2, SECURITY_BUILTIN_DOMAIN_RID,
-            DOMAIN_ALIAS_RID_ADMINS, 0, 0, 0, 0, 0, 0, &pAdminSid))
-    {
-        warn("Cannot allocate administrators' SID");
-        Safefree(lpTokInfo);
-        CloseHandle(hTok);
-        FreeLibrary(hAdvApi32);
-        XSRETURN_UNDEF;
-    }
-
-    iRetVal = 0;
-    for (i = 0; i < lpTokInfo->GroupCount; ++i) {
-        if (pfnEqualSid(lpTokInfo->Groups[i].Sid, pAdminSid)) {
-            iRetVal = 1;
-            break;
-        }
-    }
-
-    pfnFreeSid(pAdminSid);
-    Safefree(lpTokInfo);
-    CloseHandle(hTok);
-    FreeLibrary(hAdvApi32);
-
-    EXTEND(SP, 1);
-    ST(0) = sv_2mortal(newSViv(iRetVal));
-    XSRETURN(1);
-}
-
-XS(w32_LookupAccountName)
-{
-    dXSARGS;
-    char SID[400];
-    DWORD SIDLen;
-    SID_NAME_USE snu;
-    char Domain[256];
-    DWORD DomLen;
-    BOOL bResult;
-
-    if (items != 5)
-	croak("usage: Win32::LookupAccountName($system, $account, $domain, "
-	      "$sid, $sidtype);\n");
-
-    SIDLen = sizeof(SID);
-    DomLen = sizeof(Domain);
-
-    bResult = LookupAccountNameA(SvPV_nolen(ST(0)),	/* System */
-                                 SvPV_nolen(ST(1)),	/* Account name */
-                                 &SID,			/* SID structure */
-                                 &SIDLen,		/* Size of SID buffer */
-                                 Domain,		/* Domain buffer */
-                                 &DomLen,		/* Domain buffer size */
-                                 &snu);			/* SID name type */
-    if (bResult) {
-	sv_setpv(ST(2), Domain);
-	sv_setpvn(ST(3), SID, SIDLen);
-	sv_setiv(ST(4), snu);
-	XSRETURN_YES;
-    }
-    XSRETURN_NO;
-}
-
-
-XS(w32_LookupAccountSID)
-{
-    dXSARGS;
-    PSID sid;
-    char Account[256];
-    DWORD AcctLen = sizeof(Account);
-    char Domain[256];
-    DWORD DomLen = sizeof(Domain);
-    SID_NAME_USE snu;
-    BOOL bResult;
-
-    if (items != 5)
-	croak("usage: Win32::LookupAccountSID($system, $sid, $account, $domain, $sidtype);\n");
-
-    sid = SvPV_nolen(ST(1));
-    if (IsValidSid(sid)) {
-        bResult = LookupAccountSidA(SvPV_nolen(ST(0)),	/* System */
-                                    sid,		/* SID structure */
-                                    Account,		/* Account name buffer */
-                                    &AcctLen,		/* name buffer length */
-                                    Domain,		/* Domain buffer */
-                                    &DomLen,		/* Domain buffer length */
-                                    &snu);		/* SID name type */
-	if (bResult) {
-	    sv_setpv(ST(2), Account);
-	    sv_setpv(ST(3), Domain);
-	    sv_setiv(ST(4), (IV)snu);
-	    XSRETURN_YES;
-	}
-    }
-    XSRETURN_NO;
-}
-
-XS(w32_InitiateSystemShutdown)
-{
-    dXSARGS;
-    HANDLE hToken;              /* handle to process token   */
-    TOKEN_PRIVILEGES tkp;       /* pointer to token structure  */
-    BOOL bRet;
-    char *machineName, *message;
-
-    if (items != 5)
-	croak("usage: Win32::InitiateSystemShutdown($machineName, $message, "
-	      "$timeOut, $forceClose, $reboot);\n");
-
-    machineName = SvPV_nolen(ST(0));
-
-    if (OpenProcessToken(GetCurrentProcess(),
-			 TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY,
-			 &hToken))
-    {
-        LookupPrivilegeValueA(machineName,
-                              SE_SHUTDOWN_NAMEA,
-                              &tkp.Privileges[0].Luid);
-
-	tkp.PrivilegeCount = 1; /* only setting one */
-	tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
-
-	/* Get shutdown privilege for this process. */
-	AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,
-			      (PTOKEN_PRIVILEGES)NULL, 0);
-    }
-
-    message = SvPV_nolen(ST(1));
-    bRet = InitiateSystemShutdownA(machineName, message,
-                                   SvIV(ST(2)), SvIV(ST(3)), SvIV(ST(4)));
-
-    /* Disable shutdown privilege. */
-    tkp.Privileges[0].Attributes = 0; 
-    AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,
-			  (PTOKEN_PRIVILEGES)NULL, 0); 
-    CloseHandle(hToken);
-    XSRETURN_IV(bRet);
-}
-
-XS(w32_AbortSystemShutdown)
-{
-    dXSARGS;
-    HANDLE hToken;              /* handle to process token   */
-    TOKEN_PRIVILEGES tkp;       /* pointer to token structure  */
-    BOOL bRet;
-    char *machineName;
-
-    if (items != 1)
-	croak("usage: Win32::AbortSystemShutdown($machineName);\n");
-
-    machineName = SvPV_nolen(ST(0));
-
-    if (OpenProcessToken(GetCurrentProcess(),
-			 TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY,
-			 &hToken))
-    {
-        LookupPrivilegeValueA(machineName,
-                              SE_SHUTDOWN_NAMEA,
-                              &tkp.Privileges[0].Luid);
-
-	tkp.PrivilegeCount = 1; /* only setting one */
-	tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
-
-	/* Get shutdown privilege for this process. */
-	AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,
-			      (PTOKEN_PRIVILEGES)NULL, 0);
-    }
-
-    bRet = AbortSystemShutdownA(machineName);
-
-    /* Disable shutdown privilege. */
-    tkp.Privileges[0].Attributes = 0;
-    AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,
-			  (PTOKEN_PRIVILEGES)NULL, 0);
-    CloseHandle(hToken);
-    XSRETURN_IV(bRet);
-}
-
-
-XS(w32_MsgBox)
-{
-    dXSARGS;
-    char *msg;
-    char *title = "Perl";
-    DWORD flags = MB_ICONEXCLAMATION;
-    I32 result;
-
-    if (items < 1 || items > 3)
-	croak("usage: Win32::MsgBox($message [, $flags [, $title]]);\n");
-
-    msg = SvPV_nolen(ST(0));
-    if (items > 1) {
-	flags = SvIV(ST(1));
-	if (items > 2)
-	    title = SvPV_nolen(ST(2));
-    }
-    result = MessageBoxA(GetActiveWindow(), msg, title, flags);
-    XSRETURN_IV(result);
-}
-
-XS(w32_LoadLibrary)
-{
-    dXSARGS;
-    HANDLE hHandle;
-
-    if (items != 1)
-	croak("usage: Win32::LoadLibrary($libname)\n");
-    hHandle = LoadLibraryA(SvPV_nolen(ST(0)));
-    XSRETURN_IV((long)hHandle);
-}
-
-XS(w32_FreeLibrary)
-{
-    dXSARGS;
-
-    if (items != 1)
-	croak("usage: Win32::FreeLibrary($handle)\n");
-    if (FreeLibrary(INT2PTR(HINSTANCE, SvIV(ST(0))))) {
-	XSRETURN_YES;
-    }
-    XSRETURN_NO;
-}
-
-XS(w32_GetProcAddress)
-{
-    dXSARGS;
-
-    if (items != 2)
-	croak("usage: Win32::GetProcAddress($hinstance, $procname)\n");
-    XSRETURN_IV(PTR2IV(GetProcAddress(INT2PTR(HINSTANCE, SvIV(ST(0))), SvPV_nolen(ST(1)))));
-}
-
-XS(w32_RegisterServer)
-{
-    dXSARGS;
-    BOOL result = FALSE;
-    HINSTANCE hnd;
-
-    if (items != 1)
-	croak("usage: Win32::RegisterServer($libname)\n");
-
-    hnd = LoadLibraryA(SvPV_nolen(ST(0)));
-    if (hnd) {
-	PFNDllRegisterServer func;
-	func = (PFNDllRegisterServer)GetProcAddress(hnd, "DllRegisterServer");
-	if (func && func() == 0)
-	    result = TRUE;
-	FreeLibrary(hnd);
-    }
-    ST(0) = boolSV(result);
-    XSRETURN(1);
-}
-
-XS(w32_UnregisterServer)
-{
-    dXSARGS;
-    BOOL result = FALSE;
-    HINSTANCE hnd;
-
-    if (items != 1)
-	croak("usage: Win32::UnregisterServer($libname)\n");
-
-    hnd = LoadLibraryA(SvPV_nolen(ST(0)));
-    if (hnd) {
-	PFNDllUnregisterServer func;
-	func = (PFNDllUnregisterServer)GetProcAddress(hnd, "DllUnregisterServer");
-	if (func && func() == 0)
-	    result = TRUE;
-	FreeLibrary(hnd);
-    }
-    ST(0) = boolSV(result);
-    XSRETURN(1);
-}
-
-/* XXX rather bogus */
-XS(w32_GetArchName)
-{
-    dXSARGS;
-    XSRETURN_PV(getenv("PROCESSOR_ARCHITECTURE"));
-}
-
-XS(w32_GetChipName)
-{
-    dXSARGS;
-    SYSTEM_INFO sysinfo;
-
-    Zero(&sysinfo,1,SYSTEM_INFO);
-    GetSystemInfo(&sysinfo);
-    /* XXX docs say dwProcessorType is deprecated on NT */
-    XSRETURN_IV(sysinfo.dwProcessorType);
-}
-
-XS(w32_GuidGen)
-{
-    dXSARGS;
-    GUID guid;
-    char szGUID[50] = {'\0'};
-    HRESULT  hr     = CoCreateGuid(&guid);
-
-    if (SUCCEEDED(hr)) {
-	LPOLESTR pStr = NULL;
-	if (SUCCEEDED(StringFromCLSID(&guid, &pStr))) {
-            WideCharToMultiByte(CP_ACP, 0, pStr, wcslen(pStr), szGUID,
-                                sizeof(szGUID), NULL, NULL);
-            CoTaskMemFree(pStr);
-            XSRETURN_PV(szGUID);
-        }
-    }
-    XSRETURN_UNDEF;
-}
-
-XS(w32_GetFolderPath)
-{
-    dXSARGS;
-    char path[MAX_PATH+1];
-    int folder;
-    int create = 0;
-    HMODULE module;
-
-    if (items != 1 && items != 2)
-	croak("usage: Win32::GetFolderPath($csidl [, $create])\n");
-
-    folder = SvIV(ST(0));
-    if (items == 2)
-        create = SvTRUE(ST(1)) ? CSIDL_FLAG_CREATE : 0;
-
-    module = LoadLibrary("shfolder.dll");
-    if (module) {
-        PFNSHGetFolderPath pfn;
-        pfn = (PFNSHGetFolderPath)GetProcAddress(module, "SHGetFolderPathA");
-        if (pfn && SUCCEEDED(pfn(NULL, folder|create, NULL, 0, path))) {
-            FreeLibrary(module);
-            XSRETURN_PV(path);
-        }
-        FreeLibrary(module);
-    }
-
-    module = LoadLibrary("shell32.dll");
-    if (module) {
-        PFNSHGetSpecialFolderPath pfn;
-        pfn = (PFNSHGetSpecialFolderPath)
-            GetProcAddress(module, "SHGetSpecialFolderPathA");
-        if (pfn && pfn(NULL, path, folder, !!create)) {
-            FreeLibrary(module);
-            XSRETURN_PV(path);
-        }
-        FreeLibrary(module);
-    }
-    XSRETURN_UNDEF;
-}
-
-XS(w32_GetFileVersion)
-{
-    dXSARGS;
-    DWORD size;
-    DWORD handle;
-    char *filename;
-    char *data;
-
-    if (items != 1)
-	croak("usage: Win32::GetFileVersion($filename)\n");
-
-    filename = SvPV_nolen(ST(0));
-    size = GetFileVersionInfoSize(filename, &handle);
-    if (!size)
-        XSRETURN_UNDEF;
-
-    New(0, data, size, char);
-    if (!data)
-        XSRETURN_UNDEF;
-
-    if (GetFileVersionInfo(filename, handle, size, data)) {
-        VS_FIXEDFILEINFO *info;
-        UINT len;
-        if (VerQueryValue(data, "\\", (void**)&info, &len)) {
-            int dwValueMS1 = (info->dwFileVersionMS>>16);
-            int dwValueMS2 = (info->dwFileVersionMS&0xffff);
-            int dwValueLS1 = (info->dwFileVersionLS>>16);
-            int dwValueLS2 = (info->dwFileVersionLS&0xffff);
-
-            if (GIMME_V == G_ARRAY) {
-                EXTEND(SP, 4);
-                XST_mIV(0, dwValueMS1);
-                XST_mIV(1, dwValueMS2);
-                XST_mIV(2, dwValueLS1);
-                XST_mIV(3, dwValueLS2);
-                items = 4;
-            }
-            else {
-                char version[50];
-                sprintf(version, "%d.%d.%d.%d", dwValueMS1, dwValueMS2, dwValueLS1, dwValueLS2);
-                XST_mPV(0, version);
-            }
-        }
-    }
-    else
-        items = 0;
-
-    Safefree(data);
-    XSRETURN(items);
-}
-
-XS(boot_Win32)
-{
-    dXSARGS;
-    char *file = __FILE__;
-
-    newXS("Win32::LookupAccountName", w32_LookupAccountName, file);
-    newXS("Win32::LookupAccountSID", w32_LookupAccountSID, file);
-    newXS("Win32::InitiateSystemShutdown", w32_InitiateSystemShutdown, file);
-    newXS("Win32::AbortSystemShutdown", w32_AbortSystemShutdown, file);
-    newXS("Win32::ExpandEnvironmentStrings", w32_ExpandEnvironmentStrings, file);
-    newXS("Win32::MsgBox", w32_MsgBox, file);
-    newXS("Win32::LoadLibrary", w32_LoadLibrary, file);
-    newXS("Win32::FreeLibrary", w32_FreeLibrary, file);
-    newXS("Win32::GetProcAddress", w32_GetProcAddress, file);
-    newXS("Win32::RegisterServer", w32_RegisterServer, file);
-    newXS("Win32::UnregisterServer", w32_UnregisterServer, file);
-    newXS("Win32::GetArchName", w32_GetArchName, file);
-    newXS("Win32::GetChipName", w32_GetChipName, file);
-    newXS("Win32::GuidGen", w32_GuidGen, file);
-    newXS("Win32::GetFolderPath", w32_GetFolderPath, file);
-    newXS("Win32::IsAdminUser", w32_IsAdminUser, file);
-    newXS("Win32::GetFileVersion", w32_GetFileVersion, file);
-
-    XSRETURN_YES;
-}