clutil 2010.127.0

data/cl/util/test/stringtest.rb

@@ -0,0 +1,50 @@
+$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.
+      It's 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.
+It's 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.
+      It's 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.
+  It's 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
+end

data/cl/util/test/versiontest.rb

@@ -0,0 +1,72 @@
+$LOAD_PATH << '..'
+
+require 'test/unit'
+require 'version'
+require 'test'
+require 'cl/util/test'
+
+class TestVersion < TempDirTest
+  def setup
+    super
+    @lineBefore = 'test line before'
+    @lineAfter  = 'test line after'
+  end
+
+  def make_sample_file(v, indent)
+    fn = File.join(@tempDir, 'test.rb')
+    File.open(fn, 'w+') do |f|
+      f.puts ' ' * indent << @lineBefore
+      f.puts ' ' * indent << CLabs::Version.header_start
+      f.puts ' ' * indent << CLabs::Version.header_end
+      f.puts ' ' * indent << @lineAfter
+    end
+    v.write_version_header(fn)
+    fn
+  end
+
+  def do_test(indent=0)
+    v = CLabs::Version.new(1,2,'3')
+    fn = make_sample_file(v, indent)
+    readlines = nil
+    File.open(fn, 'r') do |f| readlines = f.readlines end
+    readlines.collect! { |ln| ln.rstrip.chomp }
+    #puts
+    #puts readlines
+    assert_equal(' ' * indent << @lineBefore, readlines[0])
+    assert_equal(' ' * indent << CLabs::Version.header_start, readlines[1])
+    assert_equal(' ' * indent << 'begin', readlines[2])
+    assert_equal(' ' * indent << '  ' << "require 'cl/util/version'", readlines[3])
+    assert_equal(' ' * indent << '  ' << "VERSION = CLabs::Version.new('1', '2', '3')", readlines[4])
+    assert_equal(' ' * indent << 'rescue LoadError', readlines[5])
+    assert_equal(' ' * indent << '  ' << "VERSION = '1.2.3'", readlines[6])
+    assert_equal(' ' * indent << 'end', readlines[7])
+    assert_equal(' ' * indent << CLabs::Version.header_end, readlines[8])
+    assert_equal(' ' * indent << @lineAfter, readlines[9])
+  end
+
+  def test_write_version_header_no_indent
+    do_test(0)
+  end
+  
+  def test_write_version_header_indent
+    do_test(2)
+  end
+  
+  def test_to_s
+    v = CLabs::Version.new(1,2,3)
+    assert_equal('1.2.3', v.to_s)
+
+    v = CLabs::Version.new(1,2,'3')
+    assert_equal('1.2.3', v.to_s)
+  end
+  
+  def test_comparison
+    assert_equal(0, CLabs::Version.new(0,0,0) <=> CLabs::Version.new(0,0,0)) 
+    assert_equal(1, CLabs::Version.new(1,0,0) <=> CLabs::Version.new(0,0,0)) 
+    assert_equal(1, CLabs::Version.new(0,1,0) <=> CLabs::Version.new(0,0,0)) 
+    assert_equal(1, CLabs::Version.new(0,0,1) <=> CLabs::Version.new(0,0,0)) 
+    assert_equal(-1, CLabs::Version.new(0,0,0) <=> CLabs::Version.new(1,0,0)) 
+    assert_equal(-1, CLabs::Version.new(0,0,0) <=> CLabs::Version.new(0,1,0)) 
+    assert_equal(-1, CLabs::Version.new(0,0,0) <=> CLabs::Version.new(0,0,1)) 
+  end
+end

data/cl/util/test/wintest.rb

@@ -0,0 +1,106 @@
+# $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/time.rb

@@ -0,0 +1,35 @@
+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/util.rb

@@ -0,0 +1,10 @@
+require 'cl/util/version'
+
+# VERSION auto generated section
+begin                                                                  
+  require 'cl/util/version'                                            
+  VERSION = CLabs::Version.new('2010', '127', '0')
+rescue LoadError                                                       
+  VERSION = '2010.127.0'                                                  
+end                                                                    
+# END_VERSION

data/cl/util/version.rb

@@ -0,0 +1,115 @@
+# $Id: version.rb,v 1.6 2005/06/02 03:39:31 chrismo Exp $
+=begin
+--------------------------------------------------------------------------
+Copyright (c) 2002-2005, 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.
+--------------------------------------------------------------------------------
+Contributors: Dan Butler
+=end
+begin
+  require 'cl/xmlserial'
+rescue LoadError
+  $NO_XMLS = true
+end
+
+module CLabs
+  class Version
+    include Comparable
+    include XmlSerialization if !$NO_XMLS
+
+    attr_accessor :major, :minor, :release
+
+    def initialize(maj=0, min=0, rel=0)
+      @major = maj
+      @minor = min
+      @release = rel
+    end
+
+    def <=>(other_ver)
+      res = (@major <=> other_ver.major)
+      res = (@minor <=> other_ver.minor) if res == 0
+      res = (@release <=> other_ver.release) if res == 0        
+      res
+    end
+    
+    def Version.header_start
+      '# VERSION auto generated section'
+    end
+
+    def Version.header_end
+      '# END_VERSION'
+    end
+
+    def version_header_code(indent=0)
+      ' ' * indent + Version.header_start                                                 + "\n" +
+      ' ' * indent + "begin                                                                  \n" +
+      ' ' * indent + "  require 'cl/util/version'                                            \n" +
+      ' ' * indent + "  VERSION = CLabs::Version.new('#{@major}', '#{@minor}', '#{@release}')\n" +
+      ' ' * indent + "rescue LoadError                                                       \n" +
+      ' ' * indent + "  VERSION = '#{to_s}'                                                  \n" +
+      ' ' * indent + "end                                                                    \n" +
+      ' ' * indent + Version.header_end                                                   + "\n"
+    end
+
+    def write_version_header(fn)
+      newfn = fn + '.new'
+      File.open(fn, 'r') do |fin|
+        File.open(newfn, 'w+') do |fout|
+          lines = fin.readlines
+          begindex = nil; endindex = nil; indent = 0
+          lines.each do |ln|
+            if ln =~ /^\s*#{Version.header_start}/
+              begindex = lines.index(ln)
+              indent = ln.scan(/^\s*/).to_s.length
+            end
+            endindex = lines.index(ln) if ln =~ /^\s*#{Version.header_end}/
+          end
+          if begindex && endindex
+            lines = lines[0..begindex-1]        <<
+                    version_header_code(indent) <<
+                    lines[endindex+1..-1]
+          else
+            raise 'VERSION section not found in ' + fn
+          end
+          fout.puts lines
+        end
+      end
+      File.delete(fn)
+      File.rename(newfn, fn)
+    end
+
+    def to_s
+      @major.to_s + '.' + @minor.to_s + '.' + @release.to_s
+    end
+  end
+end
+
+if __FILE__ == $0
+  v = CLabs::Version.new
+  puts v.version_header_code
+end

data/cl/util/win.rb

@@ -0,0 +1,351 @@
+# $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 'cl/util/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
+