rake-delphi 0.0.4

data/lib/rake/delphi/tool.rb

@@ -0,0 +1,140 @@
+# encoding: utf-8
+
+require 'rake/common/exectask'
+require 'rake/delphi/projectinfo'
+
+module Rake
+  module Delphi
+    class CustomDelphiTool < CustomExec
+        DelphiRegRoot =  'SOFTWARE\\Borland\\Delphi'
+        BDSRegRoot = 'SOFTWARE\\Borland\\BDS'
+        EDSRegRoot = 'SOFTWARE\\CodeGear\\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
+        end
+
+        def self.toolName
+            raise 'Abstract method "toolName". Override it'
+        end
+
+        def version
+            @@version
+        end
+
+        def delphidir
+            @@delphidir
+        end
+
+        def toolpath
+            @@toolpath
+        end
+
+        def versionInfoClass
+            return @@version.to_f < 11 ? BDSVersionInfo : RAD2007VersionInfo
+        end
+
+        def self.readUserOption(key, name, ver)
+            begin
+                require 'win32/registry'
+                root = rootForVersion(ver) + '\\' + key
+                begin
+                    ::Win32::Registry::HKEY_CURRENT_USER.open(root) do |reg|
+                        reg_typ, reg_val = reg.read(name)
+                        return reg_val.gsub('\\', '/')
+                    end
+                rescue ::Win32::Registry::Error
+                    return ''
+                end
+            rescue LoadError
+                return ''
+            end
+        end
+
+        def self.version4version(version)
+            if version.to_f >= 9
+                version = format('%.1f', version.to_f - 6)
+            end
+            if !version["."]
+                version << ".0"
+            end
+            return version
+        end
+
+        def self.rootForVersion(version)
+            if version.to_f < 9
+                regRoot = DelphiRegRoot
+            else
+                if version.to_f < 12
+                    regRoot = BDSRegRoot
+                else
+                    regRoot = EDSRegRoot
+                end
+            end
+            version = version4version(version)
+            return regRoot + '\\' + version
+        end
+
+        def self.readDelphiDir(ver)
+            begin
+                require 'win32/registry'
+                [::Win32::Registry::HKEY_LOCAL_MACHINE, \
+                        # for local/manual installations
+                        ::Win32::Registry::HKEY_CURRENT_USER].each do |regRoot|
+                    begin
+                        regRoot.open(rootForVersion(ver)) do |reg|
+                            reg_typ, reg_val = reg.read('RootDir')
+                            return reg_val.gsub('\\', '/')
+                        end
+                    rescue ::Win32::Registry::Error
+                    end
+                end
+                return nil
+            rescue LoadError
+                return nil
+            end
+        end
+
+        def self.find(failIfNotFound = false)
+            v = ENV['DELPHI_VERSION']
+            if ENV['DELPHI_DIR']
+                # append trailing path delimiter
+                ENV['DELPHI_DIR'] = ENV['DELPHI_DIR'].gsub(/[^\/]$/, '\&/')
+                tool = ENV['DELPHI_DIR'] + toolName
+                checkToolFailure(tool) if failIfNotFound
+                return v, ENV['DELPHI_DIR'], tool
+            end
+            if v.to_s.empty?
+                v = []
+                (4..14).each { |n| v << n.to_s }
+                v.reverse!
+            else
+                v = [v]
+            end
+            v.each do |ver|
+                path = readDelphiDir(ver)
+                next unless path
+                tool = path + toolName
+                if File.exists?(tool) # found it !
+                    ENV['DELPHI_VERSION'] = ver
+                    ENV['DELPHI_DIR'] = path
+                    return ver, path, tool
+                end
+            end
+            checkToolFailure(nil) 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)
+        end
+
+    end
+  end
+end

data/lib/rake/delphi/version.rb

@@ -0,0 +1,7 @@
+# encoding: utf-8
+
+module Rake
+  module Delphi
+    VERSION = '0.0.4'
+  end
+end

data/lib/rake/delphi.rb

@@ -0,0 +1,4 @@
+# encoding: utf-8
+
+require 'rake/helpers/rake'
+require 'rake/helpers/raketask'

data/lib/rake/helpers/digest.rb

@@ -0,0 +1,28 @@
+# encoding: utf-8
+
+require 'digest'
+require 'zlib'
+
+class Digest::CRC32 < Digest::Class
+    include Digest::Instance
+
+    def update(str)
+        @crc32 = Zlib.crc32(str, @crc32)
+    end
+
+    def initialize
+        reset
+    end
+
+    def reset
+        @crc32 = 0
+    end
+
+    def finish
+        @crc32.to_s
+    end
+
+    def hexdigest_to_digest(h)
+        h.unpack('a2' * (h.size / 2)).collect { |i| i.hex.chr }.join
+    end
+end

data/lib/rake/helpers/file.rb

@@ -0,0 +1,35 @@
+# encoding: utf-8
+
+class File
+	@@separator = nil
+	def self.cygwin?
+		RUBY_PLATFORM.downcase.include?('cygwin')
+	end
+
+	def self.separator
+		return @@separator if @@separator
+		# Return `backlash` for Cygwin and Windows (ALT_SEPARATOR)
+		# otherwise - system separator
+		return @@separator = cygwin? ? '\\' : (ALT_SEPARATOR ? ALT_SEPARATOR : SEPARATOR)
+	end
+
+	def self.cygpath(path, flag = nil)
+		flag ||= '-w'
+		# convert to Windows path
+		path = `cygpath #{flag} "#{path}"`.chomp
+	end
+
+	def self.expand_path2(path)
+		path = expand_path(path)
+		return path unless cygwin?
+		return cygpath(path)
+	end
+
+	def self.dirname2(path, flag = nil)
+		path = dirname(path)
+		return path unless cygwin?
+		path = cygpath(path, flag)
+		path.gsub!('\\', '\\\\') unless flag
+		path
+	end
+end

data/lib/rake/helpers/filelist.rb

@@ -0,0 +1,12 @@
+# encoding: utf-8
+
+module Rake
+    class FileList
+        def self.get_ignored_dir_pattern(dir)
+            Regexp.new("(^|[\\/\\\\])#{dir}([\\/\\\\]|$)", true)
+        end
+        IGNORE_GIT_PATTERN = get_ignored_dir_pattern('.git')
+        DEFAULT_IGNORE_PATTERNS << IGNORE_GIT_PATTERN \
+            if !DEFAULT_IGNORE_PATTERNS.include?(IGNORE_GIT_PATTERN)
+    end
+end

data/lib/rake/helpers/gemversion.rb

@@ -0,0 +1,42 @@
+# encoding: utf-8
+
+module Gem
+    class VersionImproved < Version
+        def initialize(version)
+            super
+            @version = '0.0.0.0' if @version.empty?
+            # avoid bug when Gem::Version <= 1.3.7
+            @segments = nil
+        end
+
+        ##
+        # Return a new version object where the previous to the last revision
+        # number is one lower (e.g., 5.3.1 => 5.2).
+        #
+        # Pre-release (alpha) parts, e.g, 5.3.1.b.2 => 5.2, are ignored.
+        def prev_release
+            segments = self.segments.dup
+            segments.pop while segments.any? { |s| String === s }
+            segments.pop if segments.size > 1
+
+            segments[-1] = segments[-1].to_i.pred.to_s
+            self.class.new segments.join(".")
+        end
+
+        ##
+        # The build for this version (e.g. 1.2.0.a -> 1.2.1).
+        # Non-prerelease versions return themselves.
+        def build
+            return self unless prerelease?
+
+            segments = self.segments.dup
+            segments.pop while segments.any? { |s| String === s }
+            segments[-1] = segments[-1].succ
+            self.class.new segments.join('.')
+        end
+
+        def comma
+            segments.dup.join(',')
+        end
+    end
+end

data/lib/rake/helpers/logger.rb

@@ -0,0 +1,15 @@
+# encoding: utf-8
+
+class Logger
+    class Formatter
+        # following manipulations with $-v
+        # are suppressing warning "already initialized constant"
+        ov = $-v
+        begin
+            $-v = nil
+            Format = "%6$s\n"
+        ensure
+            $-v = ov
+        end
+    end
+end

data/lib/rake/helpers/rake.rb

@@ -0,0 +1,29 @@
+# encoding: utf-8
+
+# extend Rake task with a `set_non_standard_vars` method
+module Rake
+    def self.set_non_standard_vars
+        # convert tasks to vars
+        # and remove them from the list of tasks
+        Rake.application.top_level_tasks.delete_if do |task|
+            # if task name is like <var.with.dot>=<value>
+            if /^[^.=][^=]+=.*/.match(task)
+                name, value = task.split('=', 2)
+                ENV[name] = value
+                true
+            end
+        end
+    end
+
+    def self.quotepath(switch, path)
+        return ! path.to_s.empty? ? "#{switch}\"#{path.to_s}\"" : ''
+    end
+
+    def self.ruby18?
+        /^1\.8/.match(RUBY_VERSION)
+    end
+
+    def self.cygwin?
+        RUBY_PLATFORM.downcase.include?('cygwin')
+    end
+end

data/lib/rake/helpers/raketask.rb

@@ -0,0 +1,39 @@
+# encoding: utf-8
+
+require 'logger'
+require 'rake/helpers/logger'
+
+# extend Rake task with a logger
+module Rake
+    class Task
+        alias_method :initialize_base, :initialize
+        alias_method :execute_base, :execute
+        attr_reader :logger
+
+        def initialize(name, app)
+            @logger = Logger.new(STDOUT)
+            initialize_base(name, app)
+        end
+
+        # replace execute to indicate what method is executed
+        def execute(args=nil)
+            puts "Executing #{name}"
+            execute_base(args)
+        end
+
+        def out(msg)
+            logger.info(msg)
+        end
+
+        def trace?
+            application.options.trace || $DEBUG || false
+        end
+
+        def shortname
+            scope = @scope.dup.pop.to_s
+            n = name.dup
+            n.gsub!(scope + ':', '') unless scope.empty?
+            return n
+        end
+    end
+end

data/lib/rake/helpers/string.rb

@@ -0,0 +1,10 @@
+# encoding: utf-8
+
+# extend class String with a `prepend` method
+class String
+    if RUBY_VERSION =~ /^1\.8/
+        def prepend(value)
+            insert(0, value)
+        end
+    end
+end

data/lib/rake/helpers/unittest.rb

@@ -0,0 +1,17 @@
+# encoding: utf-8
+
+require 'test/unit'
+
+# Ruby 1.9 uses "minitest". There is no `name` property there
+if defined? MiniTest::Unit::TestCase && Test::Unit::TestCase < MiniTest::Unit::TestCase
+    module Test
+        module Unit
+            class TestCase
+                def name
+                    __name__
+                end
+            end
+        end
+    end
+end
+

data/lib/rake/templates/project.erb

@@ -0,0 +1,60 @@
+#define VS_FF_DEBUG             0x00000001
+#define VS_FF_PRERELEASE        0x00000002
+#define VS_FF_PATCHED           0x00000004
+#define VS_FF_PRIVATEBUILD      0x00000008
+#define VS_FF_INFOINFERRED      0x00000010
+#define VS_FF_SPECIALBUILD      0x00000020
+
+#ifndef DEBUG
+#define VER_DEBUG 0
+#else
+#define VER_DEBUG VS_FF_DEBUG
+#endif
+
+#ifndef RC
+#define VER_PRERELEASE 0
+#else
+#define VER_PRERELEASE VS_FF_PRERELEASE
+#endif
+
+
+#define _FILEFLAGS (VER_PRERELEASE|VER_DEBUG)
+
+LANGUAGE <%= language %>, <%= sublanguage %>
+MAINICON ICON <%= mainicon %>
+1 VERSIONINFO
+FILEVERSION <%= version.comma %>
+PRODUCTVERSION <%= product.comma %>
+FILEOS 0x40004
+FILETYPE <%= filetype %>
+FILEFLAGSMASK   _FILEFLAGS
+FILEFLAGS       _FILEFLAGS
+BEGIN
+    BLOCK "StringFileInfo"
+    BEGIN
+        BLOCK "<%= lang %><%= codepage %>"
+        BEGIN
+            VALUE "CompanyName", "<%= versioninfo.CompanyName %>\0"
+            VALUE "FileDescription", "<%= versioninfo.FileDescription %>\0"
+            VALUE "FileVersion", "<%= version %>\0"
+            VALUE "InternalName", "<%= versioninfo.InternalName %>\0"
+            VALUE "LegalCopyright", "<%= versioninfo.LegalCopyright %>\0"
+            VALUE "LegalTrademarks", "<%= versioninfo.LegalTrademarks %>\0"
+            VALUE "OriginalFilename", "<%= versioninfo.OriginalFilename %>\0"
+            VALUE "ProductName", "<%= versioninfo.ProductName %>\0"
+            VALUE "ProductVersion", "<%= versioninfo.ProductVersion %>\0"
+            VALUE "Comments", "<%= versioninfo.Comments %>\0"
+#ifdef DEBUG
+            VALUE "DebugBuild", "DebugBuild\0"
+#endif
+#ifdef RC
+            VALUE "ReleaseCandidate", "<%= releaseCandidate %>\0"
+#endif
+        END
+    END
+
+    BLOCK "VarFileInfo"
+    BEGIN
+        VALUE "Translation", 0x<%= lang %> 0x<%= codepage %>
+    END
+END

data/rake-delphi.gemspec

@@ -0,0 +1,23 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'rake/delphi/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "rake-delphi"
+  spec.version       = Rake::Delphi::VERSION
+  spec.authors       = ['Alexey Shumkin']
+  spec.email         = ['Alex.Crezoff@gmail.com']
+  spec.description   = 'Tasks for building Delphi projects'
+  spec.summary       = 'Tasks for building Delphi projects'
+  spec.homepage      = 'http://github.com/ashumkin/rake-delphi.gem'
+  spec.license       = 'MIT'
+
+  spec.files         = `git ls-files`.split($/)
+  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"]
+
+  spec.add_development_dependency "bundler", "~> 1.3"
+  spec.add_development_dependency "rake"
+end

data/test/helpers/consts.rb

@@ -0,0 +1,4 @@
+module DelphiTests
+    PROJECT_PATH = File.expand_path('../../resources/testproject', __FILE__)
+    PROJECT_EXE = PROJECT_PATH + '/bin/%s/testproject.exe'
+end

data/test/resources/echo/file.in

@@ -0,0 +1 @@
+${echo_variable} must be replaced by its <value>

data/test/resources/echo/file.out

@@ -0,0 +1 @@
+echo_variable_value must be replaced by its <value>

data/test/resources/hashes/hash.2.file

@@ -0,0 +1 @@
+some content if a file 2

data/test/resources/hashes/hash.file

@@ -0,0 +1 @@
+some content

data/test/resources/ini/file.ini

@@ -0,0 +1,7 @@
+[IniSection]
+IniValue1=some ini value 1
+IniValue2=some ini value 2
+
+[IniSection-2]
+IniValue1=ini section 2 value 1
+IniValue2=ini section 2 value 2

data/test/resources/testproject/.gitignore

@@ -0,0 +1,8 @@
+/bin/
+*.res
+*.exe
+*.dcu
+*.local
+*.map
+*.rc
+*.drc

data/test/resources/testproject/ExplicitLib/ExplicitLibUnit.pas

@@ -0,0 +1,17 @@
+unit ExplicitLibUnit;
+
+interface
+
+uses
+  SysUtils;
+
+function ExplicitLibUnitFunction: string;
+
+implementation
+
+function ExplicitLibUnitFunction: string;
+begin
+  Result := '-=WITH EXPLICIT LIBS=-';
+end;
+
+end.

data/test/resources/testproject/Rakefile.rb

@@ -0,0 +1,54 @@
+# encoding: utf-8
+
+=begin rdoc
+
+=end
+
+require 'rake'
+require 'rake/delphi'
+require 'rake/delphi/project'
+
+if RAKEVERSION !~ /^0\.8/
+    require 'rake/dsl_definition'
+    include Rake::DSL
+    Rake::TaskManager.record_task_metadata = true if Rake::TaskManager.respond_to?('record_task_metadata')
+end
+
+module TestModule
+    PROJECT_NAME = 'Rake test project'
+    PROJECT_FILE = 'testproject'
+
+task :default => 'test:compile'
+
+namespace :test do
+
+    desc 'Compilation'
+    _task = task :compile do |t|
+        puts 'task %s executed' % t.name
+    end
+
+    desc 'Preparation'
+    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]
+        options = opts[:options] || {}
+        if options.kind_of?(String)
+            options = eval(options)
+        end
+        options.each do |k, v|
+            dpr[k] = v
+        end
+        dpr_vars = {}
+        dpr_vars[:bin_path] = options[:bin] || File.expand_path(File.dirname(__FILE__) + '/bin')
+
+        dpr_vars[:bin] = File.expand_path2(dpr_vars[:bin_path])
+        dpr.init(Module.nesting, File.expand_path(__FILE__), dpr_vars, 0)
+
+        directory dpr_vars[:bin_path]
+        _task.enhance [dpr_vars[:bin_path], dpr]
+    end
+
+end
+
+end

data/test/resources/testproject/lib/AnyLib/LibUnit.pas

@@ -0,0 +1,17 @@
+unit LibUnit;
+
+interface
+
+uses
+  SysUtils;
+
+function LibUnitFunction: string;
+
+implementation
+
+function LibUnitFunction: string;
+begin
+  Result := '-=WITH LIBS=-';
+end;
+
+end.

data/test/resources/testproject/local.resources.txt

@@ -0,0 +1 @@
+-=WITH RESOURCES=-

data/test/resources/testproject/release.dcc.cfg

@@ -0,0 +1 @@
+-DRELEASE_CFG

data/test/resources/testproject/resources.rc

@@ -0,0 +1 @@
+LOCAL_RESOURCES     RCDATA  local.resources.txt