rake-delphi 0.0.4 → 0.0.5

data/lib/rake/delphi/resources.rb

@@ -2,6 +2,7 @@
 
 require 'erb'
 require 'rake/common/classes'
+require 'rake/common/logger'
 require 'rake/delphi/rc'
 require 'rake/helpers/gemversion'
 require 'rake/helpers/rake'
@@ -39,7 +40,7 @@ module Rake
 
         def mainicon
             # take dcc33 task
-            icon = main_owner_task.mainicon
+            return main_owner_task.mainicon
         end
 
         def version
@@ -117,7 +118,7 @@ module Rake
             opts = { :args => a }
             opts.merge!(args)
             cmd = ([Rake.quotepath('', tool)] | opts[:args]).join(' ')
-            RakeFileUtils.verbose(trace?) do
+            RakeFileUtils.verbose(Logger.debug?) do
                 sh cmd
             end
         end

data/lib/rake/delphi/tool.rb

@@ -1,7 +1,9 @@
 # encoding: utf-8
 
 require 'rake/common/exectask'
+require 'rake/common/logger'
 require 'rake/delphi/projectinfo'
+require 'rake/delphi/envvariables'
 
 module Rake
   module Delphi
@@ -9,15 +11,17 @@ module Rake
         DelphiRegRoot =  'SOFTWARE\\Borland\\Delphi'
         BDSRegRoot = 'SOFTWARE\\Borland\\BDS'
         EDSRegRoot = 'SOFTWARE\\CodeGear\\BDS'
+        EmbarcaderoRegRoot = 'SOFTWARE\\Embarcadero\\BDS'
 
         # used mainly in tests
         def self.reinit
             @@version, @@delphidir, @@toolpath = nil, nil, nil
         end
+
         reinit
 
-        def initialize
-            @@version, @@delphidir, @@toolpath = self.class.find unless @@version
+        def initialize(checkExistance = false)
+            @@version, @@delphidir, @@toolpath = self.class.find(checkExistance) unless @@version
         end
 
         def self.toolName
@@ -28,31 +32,35 @@ module Rake
             @@version
         end
 
-        def delphidir
-            @@delphidir
-        end
-
         def toolpath
             @@toolpath
         end
 
         def versionInfoClass
-            return @@version.to_f < 11 ? BDSVersionInfo : RAD2007VersionInfo
+            return @@version.to_f < 11 ? BDSVersionInfo : \
+                @@version.to_f < 13 ? RAD2007VersionInfo : \
+                @@version.to_f < 14 ? RAD2010VersionInfo : XEVersionInfo
         end
 
         def self.readUserOption(key, name, ver)
             begin
                 require 'win32/registry'
                 root = rootForVersion(ver) + '\\' + key
+                key_exists = false
                 begin
+                    Logger.trace(Logger::DEBUG, "Reading user option '#{name}' in '#{root}'")
                     ::Win32::Registry::HKEY_CURRENT_USER.open(root) do |reg|
+                        key_exists = true
                         reg_typ, reg_val = reg.read(name)
                         return reg_val.gsub('\\', '/')
                     end
                 rescue ::Win32::Registry::Error
+                    Logger.trace(Logger::DEBUG, "No reg key '%s'?!" % \
+                      (key_exists ? "#{root}\\#{name}" : root))
                     return ''
                 end
             rescue LoadError
+                Logger.trace(Logger::DEBUG, 'No `win32/registry` gem?!')
                 return ''
             end
         end
@@ -73,12 +81,16 @@ module Rake
             else
                 if version.to_f < 12
                     regRoot = BDSRegRoot
-                else
+                elsif version.to_f < 14
                     regRoot = EDSRegRoot
+                else
+                    regRoot = EmbarcaderoRegRoot
                 end
             end
             version = version4version(version)
-            return regRoot + '\\' + version
+            regRoot = regRoot + '\\' + version
+            Logger.trace(Logger::DEBUG, "Root for version #{version}: '#{regRoot}'")
+            return regRoot
         end
 
         def self.readDelphiDir(ver)
@@ -88,22 +100,26 @@ module Rake
                         # for local/manual installations
                         ::Win32::Registry::HKEY_CURRENT_USER].each do |regRoot|
                     begin
+                        Logger.trace(Logger::DEBUG, "Finding Delphi dir for #{ver}")
                         regRoot.open(rootForVersion(ver)) do |reg|
                             reg_typ, reg_val = reg.read('RootDir')
                             return reg_val.gsub('\\', '/')
                         end
                     rescue ::Win32::Registry::Error
+                        Logger.trace(Logger::DEBUG, "No reg key '#{regRoot}'?!")
                     end
                 end
                 return nil
             rescue LoadError
+                Logger.trace(Logger::DEBUG, 'No `win32/registry` gem?!')
                 return nil
             end
         end
 
         def self.find(failIfNotFound = false)
-            v = ENV['DELPHI_VERSION']
+            v = EnvVariables.delphi_version
             if ENV['DELPHI_DIR']
+                Logger.trace(Logger::DEBUG, 'DELPHI_DIR is set: ' + ENV['DELPHI_DIR'])
                 # append trailing path delimiter
                 ENV['DELPHI_DIR'] = ENV['DELPHI_DIR'].gsub(/[^\/]$/, '\&/')
                 tool = ENV['DELPHI_DIR'] + toolName
@@ -112,27 +128,43 @@ module Rake
             end
             if v.to_s.empty?
                 v = []
-                (4..14).each { |n| v << n.to_s }
+                (4..20).each { |n| v << n.to_s }
                 v.reverse!
             else
+                Logger.trace(Logger::DEBUG, 'DELPHI_VERSION is set: ' + v)
                 v = [v]
             end
+            tool_was_found = false
             v.each do |ver|
                 path = readDelphiDir(ver)
                 next unless path
                 tool = path + toolName
+                tool_was_found = true
+                Logger.trace(Logger::DEBUG, "Got tool: '#{tool}'")
                 if File.exists?(tool) # found it !
                     ENV['DELPHI_VERSION'] = ver
                     ENV['DELPHI_DIR'] = path
+                    Logger.trace(Logger::DEBUG, "Set: DELPHI_VERSION=#{ver}; DELPHI_DIR='#{path}'")
                     return ver, path, tool
+                else
+                    Logger.trace(Logger::DEBUG, 'But file does not exist!')
                 end
             end
-            checkToolFailure(nil) if failIfNotFound
+            checkToolFailure(tool_was_found) if failIfNotFound
             return nil
         end
 
         def self.checkToolFailure(toolpath)
-            fail 'Could not find %s: (%s)' % [toolName, toolpath.to_s] unless File.exists?(toolpath.to_s)
+            if toolpath.kind_of?(TrueClass) || toolpath.kind_of?(FalseClass)
+                unless toolpath
+                    fail 'Could not detect path for %s! Check your registry and DELPHI_VERSION environment variable.' % [toolName]
+                end
+                cond = ! toolpath
+                toolpath = ''
+            else
+              cond = File.exists?(toolpath)
+            end
+            fail 'Could not find %s: (%s)' % [toolName, toolpath] unless cond
         end
 
     end

data/lib/rake/delphi/version.rb

@@ -2,6 +2,6 @@
 
 module Rake
   module Delphi
-    VERSION = '0.0.4'
+    VERSION = '0.0.5'
   end
 end

data/lib/rake/helpers/filelist.rb

@@ -1,4 +1,5 @@
 # encoding: utf-8
+require 'rake'
 
 module Rake
     class FileList

data/lib/rake/helpers/logger.rb

@@ -1,4 +1,5 @@
 # encoding: utf-8
+require 'logger'
 
 class Logger
     class Formatter

data/lib/rake/helpers/rake.rb

@@ -1,4 +1,5 @@
 # encoding: utf-8
+require 'rake'
 
 # extend Rake task with a `set_non_standard_vars` method
 module Rake

data/lib/rake/helpers/raketask.rb

@@ -1,6 +1,5 @@
 # encoding: utf-8
-
-require 'logger'
+require 'rake'
 require 'rake/helpers/logger'
 
 # extend Rake task with a logger

data/rake-delphi.gemspec

@@ -13,7 +13,8 @@ Gem::Specification.new do |spec|
   spec.homepage      = 'http://github.com/ashumkin/rake-delphi.gem'
   spec.license       = 'MIT'
 
-  spec.files         = `git ls-files`.split($/)
+  spec.files         = Dir['*', 'lib/**/*.*rb',
+    'test/*', 'test/helpers/*', 'test/resources/**/*', 'test/resources/**/.gitkeep']
   spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
   spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
   spec.require_paths = ["lib"]

data/test/helpers/verinfo.rb

@@ -0,0 +1,42 @@
+require 'fileutils'
+require 'test/unit'
+require 'helpers/consts'
+require 'rake/delphi/envvariables'
+
+module DelphiTests
+
+class TestVerInfo < Test::Unit::TestCase
+    DPROJ_VERSIONS = { '10' => '2006.bdsproj', '11' => '2007.dproj', \
+                       '13' => '2010.dproj', '18' => 'xe5.dproj' }
+
+protected
+    def delphi_version
+        return Rake::Delphi::EnvVariables.delphi_version
+    end
+
+    def prepare_ver_info_file?
+        return true
+    end
+
+public
+    def setup
+        @saved_delphi_version = Rake::Delphi::EnvVariables.delphi_version
+        ENV['DELPHI_VERSION'] = delphi_version
+
+        template_ext = DPROJ_VERSIONS[delphi_version]
+        raise 'DELPHI_VERSION unknown (%s). Please update tests' \
+                % delphi_version \
+            unless template_ext
+        @ver_info_source = PROJECT_PATH.pathmap('%X%s%n.' + template_ext)
+        @ver_info_file = PROJECT_PATH.pathmap('%X%s%n') + template_ext.pathmap('%x')
+
+        FileUtils.cp(@ver_info_source, @ver_info_file) if prepare_ver_info_file?
+    end
+
+    def teardown
+        File.unlink(@ver_info_file) if @ver_info_file && prepare_ver_info_file?
+        ENV['DELPHI_VERSION'] = @saved_delphi_version
+    end
+end
+
+end

data/test/resources/testproject/Rakefile.rb

@@ -31,7 +31,10 @@ namespace :test do
     task :prepare, :useresources, :options do |t, opts|
         _task = Rake::Task['test:compile']
         dpr = Rake.application.define_task(Rake::Delphi::Project, (_task.shortname + ':delphi').to_sym)
-        dpr[:resources_additional] = 'resources' unless opts[:useresources]
+        dpr[:resources_additional] = 'resources' if opts[:useresources]
+        if ENV['DELPHI_VERSION'].to_i >= 14
+            dpr[:platform] = 'Win32'
+        end
         options = opts[:options] || {}
         if options.kind_of?(String)
             options = eval(options)
@@ -51,4 +54,4 @@ namespace :test do
 
 end
 
-end
+end

data/test/resources/testproject/bin/test_compile_debug_info/testproject.drc

@@ -0,0 +1,366 @@
+/* VER260
+  Generated by the Embarcadero Delphi Pascal Compiler
+  because -GD or --drc was supplied to the compiler.
+
+  This file contains compiler-generated resources that
+  were bound to the executable.
+  If this file is empty, then no compiler-generated
+  resources were bound to the produced executable.
+*/
+
+#define System_RTLConsts_SWindowsVista 65360
+#define System_RTLConsts_SWindowsServer2008 65361
+#define System_RTLConsts_SWindows7 65362
+#define System_RTLConsts_SWindowsServer2008R2 65363
+#define System_RTLConsts_SWindows2000 65364
+#define System_RTLConsts_SWindowsXP 65365
+#define System_RTLConsts_SWindowsServer2003 65366
+#define System_RTLConsts_SWindowsServer2003R2 65367
+#define System_RTLConsts_SWindowsServer2012 65368
+#define System_RTLConsts_SWindows8 65369
+#define System_RTLConsts_sObserverUnsupported 65370
+#define System_RTLConsts_sObserverMultipleSingleCast 65371
+#define System_RTLConsts_sObserverNoInterface 65372
+#define System_RTLConsts_sObserverNoSinglecastFound 65373
+#define System_RTLConsts_sObserverNoMulticastFound 65374
+#define System_RTLConsts_sTimespanValueCannotBeNan 65376
+#define System_RTLConsts_sCannotNegateTimespan 65377
+#define System_RTLConsts_sInvalidTimespanFormat 65378
+#define System_RTLConsts_sTimespanElementTooLong 65379
+#define System_RTLConsts_SArgumentOutOfRange 65380
+#define System_RTLConsts_SGenericItemNotFound 65381
+#define System_RTLConsts_SGenericDuplicateItem 65382
+#define System_RTLConsts_SInsufficientRtti 65383
+#define System_RTLConsts_SParameterCountMismatch 65384
+#define System_RTLConsts_SNonPublicType 65385
+#define System_RTLConsts_SByRefArgMismatch 65386
+#define System_RTLConsts_SVersionStr 65387
+#define System_RTLConsts_SSPVersionStr 65388
+#define System_RTLConsts_SVersion32 65389
+#define System_RTLConsts_SVersion64 65390
+#define System_RTLConsts_SWindows 65391
+#define System_RTLConsts_SMemoryStreamError 65392
+#define System_RTLConsts_SNoComSupport 65393
+#define System_RTLConsts_SPropertyException 65394
+#define System_RTLConsts_SReadError 65395
+#define System_RTLConsts_SReadOnlyProperty 65396
+#define System_RTLConsts_SResNotFound 65397
+#define System_RTLConsts_SSeekNotImplemented 65398
+#define System_RTLConsts_SUnknownGroup 65399
+#define System_RTLConsts_SUnknownProperty 65400
+#define System_RTLConsts_SWriteError 65401
+#define System_RTLConsts_SParamIsNegative 65402
+#define System_RTLConsts_SInputBufferExceed 65403
+#define System_RTLConsts_SFileNotFound 65404
+#define System_RTLConsts_sInvalidTimeoutValue 65405
+#define System_RTLConsts_sTimespanTooLong 65406
+#define System_RTLConsts_sInvalidTimespanDuration 65407
+#define System_RTLConsts_SCantWriteResourceStreamError 65408
+#define System_RTLConsts_SClassNotFound 65409
+#define System_RTLConsts_SDuplicateClass 65410
+#define System_RTLConsts_SDuplicateItem 65411
+#define System_RTLConsts_SDuplicateName 65412
+#define System_RTLConsts_SFCreateErrorEx 65413
+#define System_RTLConsts_SFOpenErrorEx 65414
+#define System_RTLConsts_SInvalidFileName 65415
+#define System_RTLConsts_SInvalidImage 65416
+#define System_RTLConsts_SInvalidName 65417
+#define System_RTLConsts_SInvalidProperty 65418
+#define System_RTLConsts_SInvalidPropertyPath 65419
+#define System_RTLConsts_SInvalidPropertyValue 65420
+#define System_RTLConsts_SListCapacityError 65421
+#define System_RTLConsts_SListCountError 65422
+#define System_RTLConsts_SListIndexError 65423
+#define System_SysConst_SLongDayNameMon 65424
+#define System_SysConst_SLongDayNameTue 65425
+#define System_SysConst_SLongDayNameWed 65426
+#define System_SysConst_SLongDayNameThu 65427
+#define System_SysConst_SLongDayNameFri 65428
+#define System_SysConst_SLongDayNameSat 65429
+#define System_SysConst_SInvalidSourceArray 65430
+#define System_SysConst_SInvalidDestinationArray 65431
+#define System_SysConst_SCharIndexOutOfBounds 65432
+#define System_SysConst_SByteIndexOutOfBounds 65433
+#define System_SysConst_SInvalidCharCount 65434
+#define System_SysConst_SInvalidDestinationIndex 65435
+#define System_SysConst_SInvalidCodePage 65436
+#define System_SysConst_SInvalidEncodingName 65437
+#define System_RTLConsts_SAncestorNotFound 65438
+#define System_RTLConsts_SAssignError 65439
+#define System_SysConst_SLongMonthNameMay 65440
+#define System_SysConst_SLongMonthNameJun 65441
+#define System_SysConst_SLongMonthNameJul 65442
+#define System_SysConst_SLongMonthNameAug 65443
+#define System_SysConst_SLongMonthNameSep 65444
+#define System_SysConst_SLongMonthNameOct 65445
+#define System_SysConst_SLongMonthNameNov 65446
+#define System_SysConst_SLongMonthNameDec 65447
+#define System_SysConst_SShortDayNameSun 65448
+#define System_SysConst_SShortDayNameMon 65449
+#define System_SysConst_SShortDayNameTue 65450
+#define System_SysConst_SShortDayNameWed 65451
+#define System_SysConst_SShortDayNameThu 65452
+#define System_SysConst_SShortDayNameFri 65453
+#define System_SysConst_SShortDayNameSat 65454
+#define System_SysConst_SLongDayNameSun 65455
+#define System_SysConst_SShortMonthNameJan 65456
+#define System_SysConst_SShortMonthNameFeb 65457
+#define System_SysConst_SShortMonthNameMar 65458
+#define System_SysConst_SShortMonthNameApr 65459
+#define System_SysConst_SShortMonthNameMay 65460
+#define System_SysConst_SShortMonthNameJun 65461
+#define System_SysConst_SShortMonthNameJul 65462
+#define System_SysConst_SShortMonthNameAug 65463
+#define System_SysConst_SShortMonthNameSep 65464
+#define System_SysConst_SShortMonthNameOct 65465
+#define System_SysConst_SShortMonthNameNov 65466
+#define System_SysConst_SShortMonthNameDec 65467
+#define System_SysConst_SLongMonthNameJan 65468
+#define System_SysConst_SLongMonthNameFeb 65469
+#define System_SysConst_SLongMonthNameMar 65470
+#define System_SysConst_SLongMonthNameApr 65471
+#define System_SysConst_SVarBadType 65472
+#define System_SysConst_SVarNotImplemented 65473
+#define System_SysConst_SVarUnexpected 65474
+#define System_SysConst_SExternalException 65475
+#define System_SysConst_SAssertionFailed 65476
+#define System_SysConst_SIntfCastError 65477
+#define System_SysConst_SSafecallException 65478
+#define System_SysConst_SMonitorLockException 65479
+#define System_SysConst_SNoMonitorSupportException 65480
+#define System_SysConst_SNotImplemented 65481
+#define System_SysConst_SObjectDisposed 65482
+#define System_SysConst_SAssertError 65483
+#define System_SysConst_SAbstractError 65484
+#define System_SysConst_SModuleAccessViolation 65485
+#define System_SysConst_SOSError 65486
+#define System_SysConst_SUnkOSError 65487
+#define System_SysConst_SWriteAccess 65488
+#define System_SysConst_SVarArrayCreate 65489
+#define System_SysConst_SVarArrayBounds 65490
+#define System_SysConst_SVarArrayLocked 65491
+#define System_SysConst_SInvalidVarCast 65492
+#define System_SysConst_SInvalidVarOp 65493
+#define System_SysConst_SInvalidVarNullOp 65494
+#define System_SysConst_SInvalidVarOpWithHResultWithPrefix 65495
+#define System_SysConst_SVarTypeOutOfRangeWithPrefix 65496
+#define System_SysConst_SVarTypeAlreadyUsedWithPrefix 65497
+#define System_SysConst_SVarTypeNotUsableWithPrefix 65498
+#define System_SysConst_SVarTypeTooManyCustom 65499
+#define System_SysConst_SVarTypeCouldNotConvert 65500
+#define System_SysConst_SVarTypeConvertOverflow 65501
+#define System_SysConst_SVarOverflow 65502
+#define System_SysConst_SVarInvalid 65503
+#define System_SysConst_SZeroDivide 65504
+#define System_SysConst_SOverflow 65505
+#define System_SysConst_SUnderflow 65506
+#define System_SysConst_SInvalidPointer 65507
+#define System_SysConst_SInvalidCast 65508
+#define System_SysConst_SAccessViolationArg3 65509
+#define System_SysConst_SAccessViolationNoArg 65510
+#define System_SysConst_SStackOverflow 65511
+#define System_SysConst_SControlC 65512
+#define System_SysConst_SPrivilege 65513
+#define System_SysConst_SException 65514
+#define System_SysConst_SExceptTitle 65515
+#define System_SysConst_SInvalidFormat 65516
+#define System_SysConst_SArgumentMissing 65517
+#define System_SysConst_SDispatchError 65518
+#define System_SysConst_SReadAccess 65519
+#define System_SysConst_SUnknown 65520
+#define System_SysConst_SInvalidInteger 65521
+#define System_SysConst_SInvalidTimeStamp 65522
+#define System_SysConst_STimeEncodeError 65523
+#define System_SysConst_SDateEncodeError 65524
+#define System_SysConst_SOutOfMemory 65525
+#define System_SysConst_SInOutError 65526
+#define System_SysConst_STooManyOpenFiles 65527
+#define System_SysConst_SAccessDenied 65528
+#define System_SysConst_SEndOfFile 65529
+#define System_SysConst_SDiskFull 65530
+#define System_SysConst_SInvalidInput 65531
+#define System_SysConst_SDivByZero 65532
+#define System_SysConst_SRangeError 65533
+#define System_SysConst_SIntOverflow 65534
+#define System_SysConst_SInvalidOp 65535
+STRINGTABLE
+BEGIN
+	System_RTLConsts_SWindowsVista,	L"Windows Vista"
+	System_RTLConsts_SWindowsServer2008,	L"Windows Server 2008"
+	System_RTLConsts_SWindows7,	L"Windows 7"
+	System_RTLConsts_SWindowsServer2008R2,	L"Windows Server 2008 R2"
+	System_RTLConsts_SWindows2000,	L"Windows 2000"
+	System_RTLConsts_SWindowsXP,	L"Windows XP"
+	System_RTLConsts_SWindowsServer2003,	L"Windows Server 2003"
+	System_RTLConsts_SWindowsServer2003R2,	L"Windows Server 2003 R2"
+	System_RTLConsts_SWindowsServer2012,	L"Windows Server 2012"
+	System_RTLConsts_SWindows8,	L"Windows 8"
+	System_RTLConsts_sObserverUnsupported,	L"Observer is not supported"
+	System_RTLConsts_sObserverMultipleSingleCast,	L"Cannot have multiple single cast observers added to the observers collection"
+	System_RTLConsts_sObserverNoInterface,	L"The object does not implement the observer interface"
+	System_RTLConsts_sObserverNoSinglecastFound,	L"No single cast observer with ID %d was added to the observer collection"
+	System_RTLConsts_sObserverNoMulticastFound,	L"No multi cast observer with ID %d was added to the observer collection"
+	System_RTLConsts_sTimespanValueCannotBeNan,	L"Value cannot be NaN"
+	System_RTLConsts_sCannotNegateTimespan,	L"Negating the minimum value of a Timespan is invalid"
+	System_RTLConsts_sInvalidTimespanFormat,	L"Invalid Timespan format"
+	System_RTLConsts_sTimespanElementTooLong,	L"Timespan element too long"
+	System_RTLConsts_SArgumentOutOfRange,	L"Argument out of range"
+	System_RTLConsts_SGenericItemNotFound,	L"Item not found"
+	System_RTLConsts_SGenericDuplicateItem,	L"Duplicates not allowed"
+	System_RTLConsts_SInsufficientRtti,	L"Insufficient RTTI available to support this operation"
+	System_RTLConsts_SParameterCountMismatch,	L"Parameter count mismatch"
+	System_RTLConsts_SNonPublicType,	L"Type '%s' is not declared in the interface section of a unit"
+	System_RTLConsts_SByRefArgMismatch,	L"VAR and OUT arguments must match parameter type exactly"
+	System_RTLConsts_SVersionStr,	L"%s (Version %d.%d, Build %d, %5:s)"
+	System_RTLConsts_SSPVersionStr,	L"%s Service Pack %4:d (Version %1:d.%2:d, Build %3:d, %5:s)"
+	System_RTLConsts_SVersion32,	L"32-bit Edition"
+	System_RTLConsts_SVersion64,	L"64-bit Edition"
+	System_RTLConsts_SWindows,	L"Windows"
+	System_RTLConsts_SMemoryStreamError,	L"Out of memory while expanding memory stream"
+	System_RTLConsts_SNoComSupport,	L"%s has not been registered as a COM class"
+	System_RTLConsts_SPropertyException,	L"Error reading %s%s%s: %s"
+	System_RTLConsts_SReadError,	L"Stream read error"
+	System_RTLConsts_SReadOnlyProperty,	L"Property is read-only"
+	System_RTLConsts_SResNotFound,	L"Resource %s not found"
+	System_RTLConsts_SSeekNotImplemented,	L"%s.Seek not implemented"
+	System_RTLConsts_SUnknownGroup,	L"%s not in a class registration group"
+	System_RTLConsts_SUnknownProperty,	L"Property %s does not exist"
+	System_RTLConsts_SWriteError,	L"Stream write error"
+	System_RTLConsts_SParamIsNegative,	L"Parameter %s cannot be a negative value"
+	System_RTLConsts_SInputBufferExceed,	L"Input buffer exceeded for %s = %d, %s = %d"
+	System_RTLConsts_SFileNotFound,	L"The specified file was not found"
+	System_RTLConsts_sInvalidTimeoutValue,	L"Invalid Timeout value: %s"
+	System_RTLConsts_sTimespanTooLong,	L"Timespan too long"
+	System_RTLConsts_sInvalidTimespanDuration,	L"The duration cannot be returned because the absolute value exceeds the value of TTimeSpan.MaxValue"
+	System_RTLConsts_SCantWriteResourceStreamError,	L"Can't write to a read-only resource stream"
+	System_RTLConsts_SClassNotFound,	L"Class %s not found"
+	System_RTLConsts_SDuplicateClass,	L"A class named %s already exists"
+	System_RTLConsts_SDuplicateItem,	L"List does not allow duplicates ($0%x)"
+	System_RTLConsts_SDuplicateName,	L"A component named %s already exists"
+	System_RTLConsts_SFCreateErrorEx,	L"Cannot create file \"%s\". %s"
+	System_RTLConsts_SFOpenErrorEx,	L"Cannot open file \"%s\". %s"
+	System_RTLConsts_SInvalidFileName,	L"Invalid file name - %s"
+	System_RTLConsts_SInvalidImage,	L"Invalid stream format"
+	System_RTLConsts_SInvalidName,	L"''%s'' is not a valid component name"
+	System_RTLConsts_SInvalidProperty,	L"Invalid property value"
+	System_RTLConsts_SInvalidPropertyPath,	L"Invalid property path"
+	System_RTLConsts_SInvalidPropertyValue,	L"Invalid property value"
+	System_RTLConsts_SListCapacityError,	L"List capacity out of bounds (%d)"
+	System_RTLConsts_SListCountError,	L"List count out of bounds (%d)"
+	System_RTLConsts_SListIndexError,	L"List index out of bounds (%d)"
+	System_SysConst_SLongDayNameMon,	L"Monday"
+	System_SysConst_SLongDayNameTue,	L"Tuesday"
+	System_SysConst_SLongDayNameWed,	L"Wednesday"
+	System_SysConst_SLongDayNameThu,	L"Thursday"
+	System_SysConst_SLongDayNameFri,	L"Friday"
+	System_SysConst_SLongDayNameSat,	L"Saturday"
+	System_SysConst_SInvalidSourceArray,	L"Invalid source array"
+	System_SysConst_SInvalidDestinationArray,	L"Invalid destination array"
+	System_SysConst_SCharIndexOutOfBounds,	L"Character index out of bounds (%d)"
+	System_SysConst_SByteIndexOutOfBounds,	L"Start index out of bounds (%d)"
+	System_SysConst_SInvalidCharCount,	L"Invalid count (%d)"
+	System_SysConst_SInvalidDestinationIndex,	L"Invalid destination index (%d)"
+	System_SysConst_SInvalidCodePage,	L"Invalid code page"
+	System_SysConst_SInvalidEncodingName,	L"Invalid encoding name"
+	System_RTLConsts_SAncestorNotFound,	L"Ancestor for '%s' not found"
+	System_RTLConsts_SAssignError,	L"Cannot assign a %s to a %s"
+	System_SysConst_SLongMonthNameMay,	L"May"
+	System_SysConst_SLongMonthNameJun,	L"June"
+	System_SysConst_SLongMonthNameJul,	L"July"
+	System_SysConst_SLongMonthNameAug,	L"August"
+	System_SysConst_SLongMonthNameSep,	L"September"
+	System_SysConst_SLongMonthNameOct,	L"October"
+	System_SysConst_SLongMonthNameNov,	L"November"
+	System_SysConst_SLongMonthNameDec,	L"December"
+	System_SysConst_SShortDayNameSun,	L"Sun"
+	System_SysConst_SShortDayNameMon,	L"Mon"
+	System_SysConst_SShortDayNameTue,	L"Tue"
+	System_SysConst_SShortDayNameWed,	L"Wed"
+	System_SysConst_SShortDayNameThu,	L"Thu"
+	System_SysConst_SShortDayNameFri,	L"Fri"
+	System_SysConst_SShortDayNameSat,	L"Sat"
+	System_SysConst_SLongDayNameSun,	L"Sunday"
+	System_SysConst_SShortMonthNameJan,	L"Jan"
+	System_SysConst_SShortMonthNameFeb,	L"Feb"
+	System_SysConst_SShortMonthNameMar,	L"Mar"
+	System_SysConst_SShortMonthNameApr,	L"Apr"
+	System_SysConst_SShortMonthNameMay,	L"May"
+	System_SysConst_SShortMonthNameJun,	L"Jun"
+	System_SysConst_SShortMonthNameJul,	L"Jul"
+	System_SysConst_SShortMonthNameAug,	L"Aug"
+	System_SysConst_SShortMonthNameSep,	L"Sep"
+	System_SysConst_SShortMonthNameOct,	L"Oct"
+	System_SysConst_SShortMonthNameNov,	L"Nov"
+	System_SysConst_SShortMonthNameDec,	L"Dec"
+	System_SysConst_SLongMonthNameJan,	L"January"
+	System_SysConst_SLongMonthNameFeb,	L"February"
+	System_SysConst_SLongMonthNameMar,	L"March"
+	System_SysConst_SLongMonthNameApr,	L"April"
+	System_SysConst_SVarBadType,	L"Invalid variant type"
+	System_SysConst_SVarNotImplemented,	L"Operation not supported"
+	System_SysConst_SVarUnexpected,	L"Unexpected variant error"
+	System_SysConst_SExternalException,	L"External exception %x"
+	System_SysConst_SAssertionFailed,	L"Assertion failed"
+	System_SysConst_SIntfCastError,	L"Interface not supported"
+	System_SysConst_SSafecallException,	L"Exception in safecall method"
+	System_SysConst_SMonitorLockException,	L"Object lock not owned"
+	System_SysConst_SNoMonitorSupportException,	L"Monitor support function not initialized"
+	System_SysConst_SNotImplemented,	L"Feature not implemented"
+	System_SysConst_SObjectDisposed,	L"Method called on disposed object"
+	System_SysConst_SAssertError,	L"%s (%s, line %d)"
+	System_SysConst_SAbstractError,	L"Abstract Error"
+	System_SysConst_SModuleAccessViolation,	L"Access violation at address %p in module '%s'. %s of address %p"
+	System_SysConst_SOSError,	L"System Error.  Code: %d.\r\n%s%s"
+	System_SysConst_SUnkOSError,	L"A call to an OS function failed"
+	System_SysConst_SWriteAccess,	L"Write"
+	System_SysConst_SVarArrayCreate,	L"Error creating variant or safe array"
+	System_SysConst_SVarArrayBounds,	L"Variant or safe array index out of bounds"
+	System_SysConst_SVarArrayLocked,	L"Variant or safe array is locked"
+	System_SysConst_SInvalidVarCast,	L"Invalid variant type conversion"
+	System_SysConst_SInvalidVarOp,	L"Invalid variant operation"
+	System_SysConst_SInvalidVarNullOp,	L"Invalid NULL variant operation"
+	System_SysConst_SInvalidVarOpWithHResultWithPrefix,	L"Invalid variant operation (%s%.8x)\n%s"
+	System_SysConst_SVarTypeOutOfRangeWithPrefix,	L"Custom variant type (%s%.4x) is out of range"
+	System_SysConst_SVarTypeAlreadyUsedWithPrefix,	L"Custom variant type (%s%.4x) already used by %s"
+	System_SysConst_SVarTypeNotUsableWithPrefix,	L"Custom variant type (%s%.4x) is not usable"
+	System_SysConst_SVarTypeTooManyCustom,	L"Too many custom variant types have been registered"
+	System_SysConst_SVarTypeCouldNotConvert,	L"Could not convert variant of type (%s) into type (%s)"
+	System_SysConst_SVarTypeConvertOverflow,	L"Overflow while converting variant of type (%s) into type (%s)"
+	System_SysConst_SVarOverflow,	L"Variant overflow"
+	System_SysConst_SVarInvalid,	L"Invalid argument"
+	System_SysConst_SZeroDivide,	L"Floating point division by zero"
+	System_SysConst_SOverflow,	L"Floating point overflow"
+	System_SysConst_SUnderflow,	L"Floating point underflow"
+	System_SysConst_SInvalidPointer,	L"Invalid pointer operation"
+	System_SysConst_SInvalidCast,	L"Invalid class typecast"
+	System_SysConst_SAccessViolationArg3,	L"Access violation at address %p. %s of address %p"
+	System_SysConst_SAccessViolationNoArg,	L"Access violation"
+	System_SysConst_SStackOverflow,	L"Stack overflow"
+	System_SysConst_SControlC,	L"Control-C hit"
+	System_SysConst_SPrivilege,	L"Privileged instruction"
+	System_SysConst_SException,	L"Exception %s in module %s at %p.\r\n%s%s\r\n"
+	System_SysConst_SExceptTitle,	L"Application Error"
+	System_SysConst_SInvalidFormat,	L"Format '%s' invalid or incompatible with argument"
+	System_SysConst_SArgumentMissing,	L"No argument for format '%s'"
+	System_SysConst_SDispatchError,	L"Variant method calls not supported"
+	System_SysConst_SReadAccess,	L"Read"
+	System_SysConst_SUnknown,	L"<unknown>"
+	System_SysConst_SInvalidInteger,	L"'%s' is not a valid integer value"
+	System_SysConst_SInvalidTimeStamp,	L"'%d.%d' is not a valid timestamp"
+	System_SysConst_STimeEncodeError,	L"Invalid argument to time encode"
+	System_SysConst_SDateEncodeError,	L"Invalid argument to date encode"
+	System_SysConst_SOutOfMemory,	L"Out of memory"
+	System_SysConst_SInOutError,	L"I/O error %d"
+	System_SysConst_STooManyOpenFiles,	L"Too many open files"
+	System_SysConst_SAccessDenied,	L"File access denied"
+	System_SysConst_SEndOfFile,	L"Read beyond end of file"
+	System_SysConst_SDiskFull,	L"Disk full"
+	System_SysConst_SInvalidInput,	L"Invalid numeric input"
+	System_SysConst_SDivByZero,	L"Division by zero"
+	System_SysConst_SRangeError,	L"Range check error"
+	System_SysConst_SIntOverflow,	L"Integer overflow"
+	System_SysConst_SInvalidOp,	L"Invalid floating point operation"
+END
+
+/* C:\cygwin\home\ashu\v3_0\lib\rake-delphi\test\resources\testproject\testproject.res */
+/* C:\cygwin\tmp\dtfEEBA.tmp */