clutil 2011.138.0 → 2014.304.0

data/cl/util/test/stringtest.rb

@@ -1,58 +0,0 @@
-$LOAD_PATH << '..'
-
-require 'test/unit'
-require 'string'
-
-class TestUtilString < Test::Unit::TestCase
-  def test_here_ltrim
-    test = <<-TEST
-      This is a test of the here_ltrim function.
-      Its purpose is to shift this whole paragraph to the left, removing
-      the indention.
-    TEST
-
-    expected = <<-EXP
-This is a test of the here_ltrim function.
-Its purpose is to shift this whole paragraph to the left, removing
-the indention.
-    EXP
-  
-    assert_equal(expected, here_ltrim(test))
-  end
-
-  def test_here_ltrim_indent
-    test = <<-TEST
-      This is a test of the here_ltrim function.
-      Its purpose is to shift this whole paragraph to the left, removing
-      the indention.
-    TEST
-
-    expected = <<-EXP
-  This is a test of the here_ltrim function.
-  Its purpose is to shift this whole paragraph to the left, removing
-  the indention.
-    EXP
-  
-    assert_equal(expected, here_ltrim(test, 2))
-  end
-  
-  def test_indent
-    # NOTE: empty lines are not indented - they are ignored
-  
-    s = "hey\nhey\n\n"
-    s = indent(s, 2)
-    assert_equal("  hey\n  hey\n\n", s)
-    s = indent(s, -1)
-    assert_equal(" hey\n hey\n\n", s)
-    s = indent(s, -3)
-    assert_equal("hey\nhey\n\n", s)
-  end
-
-  def test_rbpath
-    assert_equal('c:/temp/dir', "c:\\temp\\dir".rbpath)
-  end
-
-  def test_winpath
-    assert_equal('c:\\temp\\dir', "c:/temp/dir".winpath)
-  end
-end

data/cl/util/test/wintest.rb

@@ -1,106 +0,0 @@
-# $Id: wintest.rb,v 1.6 2004/10/21 15:57:57 chrismo Exp $
-=begin
---------------------------------------------------------------------------
-Copyright (c) 2002, Chris Morris
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without modification,
-are permitted provided that the following conditions are met:
-
-1. Redistributions of source code must retain the above copyright notice, this
-list of conditions and the following disclaimer.
-
-2. Redistributions in binary form must reproduce the above copyright notice,
-this list of conditions and the following disclaimer in the documentation and/or
-other materials provided with the distribution.
-
-3. Neither the names Chris Morris, cLabs nor the names of contributors to this
-software may be used to endorse or promote products derived from this software
-without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
-FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
-TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
-THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
---------------------------------------------------------------------------------
-=end
-$LOAD_PATH << '..'
-require 'win'
-require 'test/unit'
-
-class TestUtilWin < Test::Unit::TestCase
-  def testDeleteFile
-    fileName = "clutilwintest.test.safe.to.delete.txt"
-    f = File.new(fileName, File::CREAT)
-    f.close
-    File.chmod(0644, fileName)
-    File.delete(fileName)
-    assert(Dir[fileName] == [])
-
-    f = File.new(fileName, File::CREAT)
-    f.close
-    File.chmod(0444, fileName)
-    begin
-      File.delete(fileName)
-      fail('should have raised exception')
-    rescue ClUtilWinErr => e
-      # nada, expected exception
-    end
-    assert(Dir[fileName] != [])
-    File.delete_all(fileName)
-    assert(Dir[fileName] == [])
-  end
-  
-  def test_win_to_rb_path
-    assert_equal('c:/temp', File.win_to_rb_path("c:\\temp"))
-    assert_equal('c:/temp', File.rbpath("c:\\temp"))
-  end
-
-  def test_rb_to_win_path
-    assert_equal("c:\\temp", File.rb_to_win_path("c:/temp"))
-    assert_equal("c:\\temp", File.winpath("c:/temp"))
-  end
-  
-  def test_special_folders
-    # quirky test, cuz the test code is the production code, but can't
-    # think of an easy way to have a hardcode result that would work on
-    # any machine. I guess I could go into the registry myself and look
-    # one of these up - but hey...
-    
-    shell = WIN32OLE.new("WScript.Shell")
-    desktop = shell.SpecialFolders(File::DESKTOP)
-    assert_equal(desktop, File.special_folders('Desktop'))
-  end
-  
-  def test_drives
-    # does not fully evaluate output
-    # just runs to make sure it doesn't blow up
-    Windows.drives.each do |drv| puts drv.name + ' ' + drv.typedesc end
-    Windows.drives(Windows::Drives::DRIVE_FIXED).each do |drv|
-      puts drv.name + ' ' + drv.typedesc
-    end
-    
-    Windows::Drives.drives.each do |drv| puts drv.name + ' ' + drv.typedesc end
-    Windows::Drives.drives(Windows::Drives::DRIVE_FIXED).each do |drv| 
-      puts drv.name + ' ' + drv.typedesc
-    end
-  end
-end
-
-class TestSystemReturnExitCode < Test::Unit::TestCase
-  def test_system_return_exit_code
-    tmpfn = File.join(File.dirname(__FILE__), '_test.child.rb')
-    File.delete tmpfn if File.exists?(tmpfn)
-    File.open(tmpfn, 'w+') do |f| f.puts 'exit(2)' end
-    
-    cmd = "ruby.exe -C #{File.dirname(tmpfn)} #{File.basename(tmpfn)}"
-    assert_equal(2, system_return_exitcode(cmd))
-    File.delete tmpfn if File.exists?(tmpfn)
-  end
-end

data/cl/util/test.rb

@@ -1,90 +0,0 @@
-# $Id: test.rb,v 1.5 2005/04/22 03:59:43 chrismo Exp $
-=begin
---------------------------------------------------------------------------
-Copyright (c) 2001, Chris Morris
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without modification,
-are permitted provided that the following conditions are met:
-
-1. Redistributions of source code must retain the above copyright notice, this
-list of conditions and the following disclaimer.
-
-2. Redistributions in binary form must reproduce the above copyright notice,
-this list of conditions and the following disclaimer in the documentation and/or
-other materials provided with the distribution.
-
-3. Neither the names Chris Morris, cLabs nor the names of contributors to this
-software may be used to endorse or promote products derived from this software
-without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
-FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
-TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
-THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
---------------------------------------------------------------------------------
-(based on BSD Open Source License)
-=end
-
-require File.dirname(__FILE__) + '/file'
-require 'fileutils'
-require 'tmpdir'
-require 'test/unit'
-
-class TempDirTest < Test::Unit::TestCase
-  def set_temp_dir
-    @temp_dir = Dir.mktmpdir
-  end
-
-  def setup
-    @file_name_inc = 0
-    set_temp_dir
-    FileUtils::makedirs(@temp_dir) if !FileTest.directory?(@temp_dir)
-  end
-
-  def teardown
-    ClUtilFile.delTree(@temp_dir)
-  end
-
-  # to ward off the new Test::Unit detection of classes with no test
-  # methods
-  def default_test
-    super unless(self.class == TempDirTest)
-  end
-  
-  def make_sub_dir(dirname)
-    newdirname = File.join(@temp_dir, dirname)
-    FileUtils::makedirs(newdirname) if !FileTest.directory?(newdirname)
-    newdirname
-  end
-
-  def make_sample_text_file(dirname='', size=0)
-    crlf_length = 2
-
-    if size == 0
-      content = 'this is a sample file'
-    else
-      content = ''
-      (size - crlf_length).times do content << 'x' end
-    end
-
-    if dirname.empty?
-      sample_file_dir = @temp_dir
-    else
-      sample_file_dir = File.join(@temp_dir, dirname)
-    end
-
-    @file_name_inc += 1
-    filename = File.join(sample_file_dir, 'sample' + @file_name_inc.to_s + '.txt')
-    File.open(filename, 'w+') do |f|
-      f.puts content
-    end
-    filename
-  end
-end

data/cl/util/time.rb

@@ -1,35 +0,0 @@
-require 'date'
-
-class Time
-  DAY = (60 * 60 * 24)
-
-  def days_ago(days)
-    self - (DAY * days)
-  end
-  
-  def days_ahead(days)
-    days_ago(-days)
-  end
-end
-
-class Date  
-  def days_ago(days)
-    self - days
-  end
-
-  def days_ahead(days)
-    days_ago(-days)
-  end
-  
-  def years_ago(years)
-    self << (12 * years)    
-  end
-  
-  def years_ahead(years)
-    years_ago(-years)
-  end
-  
-  def mdy
-    "#{month}/#{day}/#{year}"
-  end
-end

data/cl/util/win.rb

@@ -1,350 +0,0 @@
-# $Id: win.rb,v 1.17 2004/10/21 17:00:57 chrismo Exp $
-=begin
---------------------------------------------------------------------------
-Copyright (c) 2001-2002, Chris Morris
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without modification,
-are permitted provided that the following conditions are met:
-
-1. Redistributions of source code must retain the above copyright notice, this
-list of conditions and the following disclaimer.
-
-2. Redistributions in binary form must reproduce the above copyright notice,
-this list of conditions and the following disclaimer in the documentation and/or
-other materials provided with the distribution.
-
-3. Neither the names Chris Morris, cLabs nor the names of contributors to this
-software may be used to endorse or promote products derived from this software
-without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
-FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR
-TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
-THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
---------------------------------------------------------------------------------
-=end
-require 'Win32API'
-require 'win32ole'
-require File.dirname(__FILE__) + '/file'
-
-# MENON Jean-Francois [Jean-Francois.MENON@meteo.fr]
-# http://ruby-talk.com/41583
-# But I see two potential problems that make not consistent with the
-# original ruby command:
-# 1) it takes only one argument
-
-# code by Hee-Sob Park - posted here:
-# http://ruby-talk.com/10006
-def system(command)
-  # 2) it always set "$?" variable to false - should be working now...
-
-  # not allowed to set $?
-  # $? = Win32API.new("crtdll", "system", ['P'], 'L').Call(command)
-  # $? == 0
-
-  # http://msdn.microsoft.com/library/en-us/vccore98/html/_crt_system.2c_._wsystem.asp
-  Win32API.new("crtdll", "system", ['P'], 'L').Call(command)
-end
-
-# the system cmd in MSVC built ruby does not set $?, so no access to 
-# the exit code can be had. The following works, but is obtuse enough
-# for me to encapsulate in this method.
-# Bit slightly modified from - nobu http://ruby-talk.com/76086
-def system_return_exitcode(cmd)
-  exitcode = nil
-  IO.popen(cmd) { |f|
-     # must bit shift by 8 to get the error code
-     exitcode = Process.waitpid2(f.pid)[1] >> 8
-  }
-  return exitcode
-end
-
-# MENON Jean-Francois [Jean-Francois.MENON@meteo.fr]
-# http://ruby-talk.com/41583
-# But I see two potential problems that make not consistent with the
-# original ruby command:
-# 1) it always set "$?" variable to false
-
-# code by Hee-Sob Park - posted here:
-# http://ruby-talk.com/10006
-def `(command)
-  # http://msdn.microsoft.com/library/en-us/vccore98/HTML/_crt__popen.2c_._wpopen.asp
-  popen = Win32API.new("crtdll", "_popen", ['P','P'], 'L')
-  pclose = Win32API.new("crtdll", "_pclose", ['L'], 'L')
-  fread = Win32API.new("crtdll", "fread", ['P','L','L','L'], 'L')
-  feof = Win32API.new("crtdll", "feof", ['L'], 'L')
-  saved_stdout = $stdout.clone
-  psBuffer = " " * 128
-  rBuffer = ""
-  f = popen.Call(command,"r")
-  while feof.Call( f )==0
-      l = fread.Call( psBuffer,1,128,f )
-      # fix emailed direct to me from Park from 10006 code
-      # was:
-      #   rBuffer += psBuffer[0..l]
-      rBuffer += psBuffer[0...l]
-  end
-  pclose.Call f
-  $stdout.reopen(saved_stdout)
-  rBuffer
-end
-
-P_WAIT        = 0
-P_NOWAIT      = 1
-OLD_P_OVERLAY = 2
-P_NOWAITO     = 3
-P_DETACH      = 4
-
-def async_system(command)
-  # http://msdn.microsoft.com/library/en-us/vccore98/html/_crt__spawnv.2c_._wspawnv.asp
-  # this is working -- but frequently Segfaults ruby 1.6.6 mswin32
-
-  spawn = Win32API.new("crtdll", "_spawnvp", ['I', 'P', 'P'] ,'L')
-  res = spawn.Call(P_NOWAIT, command, '')
-  if res == -1
-    Win32API.new("crtdll", "perror", ['P'], 'V').call('async_system')
-  end
-  res
-end
-
-# from WinBase.h in SDK
-# dwCreationFlag values
-NORMAL_PRIORITY_CLASS = 0x00000020
-
-STARTUP_INFO_SIZE = 68
-PROCESS_INFO_SIZE = 16
-
-def create_process(command)
-  # from WinBase.h in SDK
-  # Passing nil for a pointer -- I've seen it work with a P type param and
-  # an empty string ... here L with a 0 is the only way that works with
-  # CreateProcess. (see FormatMessage in raise_last_win32_error for an
-  # example of 'P' and '' that works)
-  params = [
-    'L', # IN LPCSTR lpApplicationName
-    'P', # IN LPSTR lpCommandLine
-    'L', # IN LPSECURITY_ATTRIBUTES lpProcessAttributes
-    'L', # IN LPSECURITY_ATTRIBUTES lpThreadAttributes
-    'L', # IN BOOL bInheritHandles
-    'L', # IN DWORD dwCreationFlags
-    'L', # IN LPVOID lpEnvironment
-    'L', # IN LPCSTR lpCurrentDirectory
-    'P', # IN LPSTARTUPINFOA lpStartupInfo
-    'P'  # OUT LPPROCESS_INFORMATION lpProcessInformation
-  ]
-  returnValue = 'I' # BOOL
-
-  startupInfo = [STARTUP_INFO_SIZE].pack('I') + ([0].pack('I') * (STARTUP_INFO_SIZE - 4))
-  processInfo = [0].pack('I') * PROCESS_INFO_SIZE
-  createProcess = Win32API.new("kernel32", "CreateProcess", params, returnValue)
-  if createProcess.call(0, command, 0, 0, 0, NORMAL_PRIORITY_CLASS, 0, 0,
-    startupInfo, processInfo) == 0
-    raise_last_win_32_error
-  end
-  processInfo
-end
-
-ERROR_SUCCESS = 0x00
-FORMAT_MESSAGE_FROM_SYSTEM = 0x1000
-FORMAT_MESSAGE_ARGUMENT_ARRAY = 0x2000
-
-def raise_last_win_32_error
-  errorCode = Win32API.new("kernel32", "GetLastError", [], 'L').call
-  if errorCode != ERROR_SUCCESS
-    params = [
-      'L', # IN DWORD dwFlags,
-      'P', # IN LPCVOID lpSource,
-      'L', # IN DWORD dwMessageId,
-      'L', # IN DWORD dwLanguageId,
-      'P', # OUT LPSTR lpBuffer,
-      'L', # IN DWORD nSize,
-      'P', # IN va_list *Arguments
-    ]
-
-    formatMessage = Win32API.new("kernel32", "FormatMessage", params, 'L')
-    msg = ' ' * 255
-    msgLength = formatMessage.call(FORMAT_MESSAGE_FROM_SYSTEM +
-      FORMAT_MESSAGE_ARGUMENT_ARRAY, '', errorCode, 0, msg, 255, '')
-    msg.gsub!("\\000", '')
-    msg.strip!
-    raise msg
-  else
-    raise 'GetLastError returned ERROR_SUCCESS'
-  end
-end
-
-class ClUtilWinErr < Exception
-end
-
-class << File
-  alias o_delete delete
-
-  def win_api_delete(filename)
-    # http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/filesio_5n8l.asp
-    # BOOL DeleteFile(
-    #  LPCTSTR lpFileName   // file name
-    # );
-
-    # delete file if not read only
-    fdelete = Win32API.new("kernel32", "DeleteFile", ["P"], "I")
-    fdelete.Call(filename) != 0
-  end
-
-  # def recycle
-    # function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall;
-      # TSHFileOpStruct = packed record
-        # Wnd: HWND;  //   HWND = type LongWord; Longword	0..4294967295	unsigned 32-bit
-        # wFunc: UINT; // UINT = LongWord;
-        # pFrom: PWideChar; // pointer to unicode string
-        # pTo: PWideChar;
-        # fFlags: FILEOP_FLAGS; // FILEOP_FLAGS = Word; Word	0..65535	unsigned 16-bit
-        # fAnyOperationsAborted: BOOL; // BOOL = LongBool;  a LongBool variable occupies four bytes (two words).
-        # hNameMappings: Pointer;
-        # lpszProgressTitle: PWideChar; { only used if FOF_SIMPLEPROGRESS }
-      # end;
-
-      # http://msdn.microsoft.com/en-us/shellcc/platform/shell/reference/structures/shfileopstruct.asp
-      # see FOF_ALLOWUNDO, specifically
-  # end
-
-  def win_file_ro?(filename)
-    fFILE_ATTRIBUTE_READONLY = 0x1
-    # http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/filesio_9pgz.asp
-    # DWORD GetFileAttributes(
-    #   LPCTSTR lpFileName   // name of file or directory
-    # );
-    fgetattr = Win32API.new("kernel32", "GetFileAttributes", ["P"], "N")
-    fattr = fgetattr.Call(filename)
-    (fattr & fFILE_ATTRIBUTE_READONLY) != 0
-  end
-
-  def delete(*files)
-    files.flatten!
-    files.each do |file|
-      if !win_file_ro?(file)
-        win_api_delete(file)
-      else
-        raise ClUtilWinErr.new(file + ' is read only, cannot delete. Use File.delete_all')
-      end
-    end
-  end
-
-  # I wanted to add a second param to delete, called deleteReadOnly with
-  # a default value of false but (a) I can't have a default value param
-  # after the *files param because (b) I can't have any non *param after
-  # the *files param. So, my compromise was a separate method
-
-  # I have no idea why I'm doing an api specific call here.
-  # I think when I started this journey, I thought the API
-  # call would delete read-only files, then when I learned
-  # it wouldn't, I forgot my original purpose and just
-  # worked around it. It's silly now -- I've moved delete_all
-  # to cl/util/file.rb which is a pure Ruby implementation
-  # of this one.
-
-  #def delete_all(*files)
-  #  files.flatten!
-  #  files.each do |file|
-  #    # make writable to allow deletion
-  #    File.chmod(0644, file)
-  #    win_api_delete(file)
-  #  end
-  #end
-
-  def create_shortcut(targetFileName, linkName)
-    shell = WIN32OLE.new("WScript.Shell")
-    scut = shell.CreateShortcut(linkName + '.lnk')
-    scut.TargetPath = File.expand_path(targetFileName)
-    scut.Save
-    scut
-  end
-
-  def win_to_rb_path(winpath)
-    winpath.gsub(/\\/, '/')
-  end
-
-  def rb_to_win_path(rbpath)
-    rbpath.gsub('/', "\\")
-  end
-
-  alias rbpath win_to_rb_path
-  alias winpath rb_to_win_path
-
-  def special_folders(folderName)
-    shell = WIN32OLE.new("WScript.Shell")
-    shell.SpecialFolders(folderName)
-  end
-end
-
-module Windows
-  def Windows.drives(typeFilter=nil)
-    Drives::drives(typeFilter)
-  end
-
-  module Drives
-    GetDriveType = Win32API.new("kernel32", "GetDriveTypeA", ['P'], 'L')
-    GetLogicalDriveStrings = Win32API.new("kernel32", "GetLogicalDriveStrings", ['L', 'P'], 'L')
-
-    DRIVE_UNKNOWN      = 0 # The drive type cannot be determined.
-    DRIVE_NO_ROOT_DIR  = 1 # The root path is invalid. For example, no volume is mounted at the path.
-    DRIVE_REMOVABLE    = 2 # The disk can be removed from the drive.
-    DRIVE_FIXED        = 3 # The disk cannot be removed from the drive.
-    DRIVE_REMOTE       = 4 # The drive is a remote (network) drive.
-    DRIVE_CDROM        = 5 # The drive is a CD-ROM drive.
-    DRIVE_RAMDISK      = 6 # The drive is a RAM disk.
-    DriveTypes = {
-      DRIVE_UNKNOWN      => 'Unknown',
-      DRIVE_NO_ROOT_DIR  => 'Invalid',
-      DRIVE_REMOVABLE    => 'Removable/Floppy',
-      DRIVE_FIXED        => 'Fixed',
-      DRIVE_REMOTE       => 'Network',
-      DRIVE_CDROM        => 'CD',
-      DRIVE_RAMDISK      => 'RAM'
-    }
-
-    Drive = Struct.new('Drive', :name, :type, :typedesc)
-
-    def Drives.drives(typeFilter=nil)
-      driveNames = ' ' * 255
-      GetLogicalDriveStrings.Call(255, driveNames)
-      driveNames.strip!
-      driveNames = driveNames.split("\000")
-      drivesAry = []
-      driveNames.each do |drv|
-        type = GetDriveType.Call(drv)
-        if (!typeFilter) || (type == typeFilter)
-          drive = Drive.new(drv, type, DriveTypes[type])
-          drivesAry << drive
-        end
-      end
-      drivesAry
-    end
-  end
-end
-
-class File
-  # from WSH 5.6 docs
-  ALLUSERSDESKTOP   = "AllUsersDesktop"
-  ALLUSERSSTARTMENU = "AllUsersStartMenu"
-  ALLUSERSPROGRAMS  = "AllUsersPrograms"
-  ALLUSERSSTARTUP   = "AllUsersStartup"
-  DESKTOP           = "Desktop"
-  FAVORITES         = "Favorites"
-  FONTS             = "Fonts"
-  MYDOCUMENTS       = "MyDocuments"
-  NETHOOD           = "NetHood"
-  PRINTHOOD         = "PrintHood"
-  PROGRAMS          = "Programs"
-  RECENT            = "Recent"
-  SENDTO            = "SendTo"
-  STARTMENU         = "StartMenu"
-  STARTUP           = "Startup"
-  TEMPLATES         = "Templates"
-end