delphivm 0.7.4

data/lib/delphivm/dsl.rb

@@ -0,0 +1,93 @@
+# encoding: UTF-8
+class Delphivm
+
+  module DSL
+    extend self
+     
+    def uses(path_to_file)
+      source = File.read(path_to_file)
+      class_eval(source, path_to_file, 1)
+    end
+    
+    def idever(value = nil, &block)
+      return @idever unless value
+      @idever = value
+      class_eval(&block)
+    end
+    
+    def source(value = nil)
+      return @source unless value
+      @source = value
+    end
+    
+    def import(libname, libver, options={})
+      configs = options[:config]
+      configs ||= ''
+      configs = ['Release', 'Debug'] if configs == '*'
+      configs = [configs] unless configs.is_a?Array
+      source_uri = source
+      configs.each do |config|
+        cfg_segment = config.strip
+        cfg_segment = "-#{cfg_segment}" unless cfg_segment.empty?
+        lib_file = "#{libname}-#{libver}-#{idever}#{cfg_segment}.zip"
+        result = download(source_uri, PATH_TO_VENDOR_CACHE, lib_file)
+        path_to_lib = PATH_TO_VENDOR_CACHE + lib_file
+        unzip(path_to_lib, PATH_TO_VENDOR_IMPORTS + idever) if result
+      end
+    end
+    
+  private
+  
+    def download(source_uri, dowonlad_root_path, file_name)
+      full_url = source_uri + '/' + file_name
+      to_here = dowonlad_root_path + file_name
+      pb = nil
+      puts "Downloading: #{full_url}"
+      start = lambda do |length, hint=''| 
+        pb = ProgressBar.new("#{file_name}", length);	
+        pb.instance_variable_set "@title_width", file_name.length + 2
+        pb.format =  "\s\s%-s #{hint} %3d%% %s %s"
+        pb.clear
+        pb.send :show
+      end
+
+      progress = lambda {|s| pb.set(s)}
+
+      if Pathname(to_here).exist?
+        start.call(0, "(cached)")
+      else
+        begin
+          content = open(full_url, "rb", content_length_proc: start, progress_proc: progress).read
+        	File.open(to_here, "wb") do |wfile|	
+            wfile.write(content)
+        	end
+        rescue Exception => e
+          puts e
+          Pathname(to_here).delete if File.exist?(to_here)
+          return false
+        end
+      end
+      return true
+    ensure
+      pb.finish if pb
+    end
+
+    def unzip(file, destination)
+      Zip::ZipFile.open(file) do |zip_file|
+        pb = ProgressBar.new("", zip_file.size)
+        pb.format =  "\s\s\s\sextracting: %3d%% %s file: %-34s"
+        pb.format_arguments = [:percentage, :bar, :title]
+        zip_file.each do |f|
+          f_path = destination + f.name
+          next if Pathname(f_path).directory?
+          f_path.dirname.mkpath
+          pb.instance_variable_set "@title", "#{f_path.basename}"
+          pb.inc
+          Pathname(f_path).delete if File.exist?(f_path)
+          zip_file.extract(f, f_path) 
+        end
+        pb.finish
+      end
+    end
+  end
+end

data/lib/delphivm/ide_services.rb

@@ -0,0 +1,152 @@
+# encoding: UTF-8
+
+SendMessageTimeout = Win32API.new('user32', 'SendMessageTimeout', 'LLLPLLP', 'L') 
+HWND_BROADCAST = 0xffff
+WM_SETTINGCHANGE = 0x001A
+SMTO_ABORTIFHUNG = 2
+
+class	Delphivm
+
+	class IDEServices
+    attr :idever
+    attr :workdir
+    GROUP_FILE_EXT = ['groupproj', 'bdsgroup']
+    IDEInfos = {
+			'D100' => {regkey: 'Software\Borland\BDS\4.0', name: '2006', desc: 'Borland Developer Stuido 4.0'},
+			'D150' => {regkey: 'Software\Embarcadero\BDS\8.0', name: 'XE', desc: 'Embarcadero RAD Stuido XE'},
+			'D160' => {regkey: 'Software\Embarcadero\BDS\9.0', name: 'XE2', desc: 'Embarcadero RAD Stuido XE2'},
+			'D170' => {regkey: 'Software\Embarcadero\BDS\10.0', name: 'XE3', desc: 'Embarcadero RAD Stuido XE3'}
+    }
+
+    def self.idelist
+      result = []
+      IDEInfos.each {|ide, info| result << ide if (Win32::Registry::HKEY_CURRENT_USER.open(info[:regkey]) {|reg| reg} rescue false)}
+      result.sort.reverse
+    end
+    
+    def self.ideused
+			#TODO ensure we return only ides listed at IDEInfos
+		  ROOT.glob("{src,samples}/**/*.{#{GROUP_FILE_EXT.join(',')}}").map {|f| f.dirname.basename.to_s.split('-')[0]}.uniq.sort
+    end
+    
+		def self.use(ide_tag)
+			bin_paths = ide_paths.map{ |p| p + 'bin' }
+			path = Win32::Registry::HKEY_CURRENT_USER.open('Environment'){|r| r['PATH']}
+
+			path = path.split(';')
+			path.reject! { |p| bin_paths.include?(p) }
+			new_path = ide_paths(ide_tag.upcase).map{ |p| p + 'bin' }.first
+			path.unshift new_path
+			path = path.join(';')
+			self.winpath= path
+			return new_path
+		end
+		
+		def initialize(idever, workdir)
+			@idever = idever.upcase
+			@workdir = workdir
+			@reg = Win32::Registry::HKEY_CURRENT_USER     
+		end
+     
+    def [](key)
+      @reg.open(IDEInfos[idever][:regkey]) {|r|  r[key] }
+    end
+      
+    def set_env
+      ENV["PATH"] =  '$(BDSCOMMONDIR)\bpl;' + ENV["PATH"]
+      ENV["PATH"] = self['RootDir'] + 'bin;' + ENV["PATH"]
+      ENV["BDSPROJECTGROUPDIR"] = workdir.win
+      ENV["IDEVERSION"] = idever
+    end
+
+    def start
+      set_env
+      Process.detach(spawn "#{self['App']}", "-r#{prj_slug}")
+      say "started bds -r#{prj_slug}"
+    end
+    
+    def prj_slug
+      workdir.basename.to_s.upcase
+    end
+    
+		def supports_msbuild?(idever)
+      ide_number = idever[1..-1].to_i
+			ide_number > 140			
+		end
+		
+    def msbuild(config, target)
+      set_env
+      self.class.winshell(out_filter: ->(line){line =~ /(error)/}) do |i|
+        Pathname.glob(workdir + "{src,samples}/#{idever}**/*.{#{GROUP_FILE_EXT.join(',')}}") do |f|
+          f_to_show = f.relative_path_from(workdir)
+          say "#{target} (#{config}) #{f_to_show.win} ...."
+          # paths can contains spaces so we need use quotes
+					if supports_msbuild?(idever)
+          	i.puts %Q["#{self['RootDir'] + 'bin\rsvars.bat'}"]
+          	i.puts %Q[msbuild /nologo /t:#{target} /p:Config=#{config} "#{f.win}"]
+					else						
+          	i.puts %Q[bds -b "#{f.win}"]
+					end
+        end  
+      end    
+    end
+    
+    def self.winshell(options = {})
+			acmd = options[:cmd] || 'cmd /k'
+			out_filter = options[:out_filter] || ->(line){true}
+			err_filter = options[:err_filter] || ->(line){true}
+
+			Open3.popen3(acmd) do |i,o,e,t|
+				err_t = Thread.new(e) do |stm|
+					while (line = stm.gets)
+						say "STDERR: #{line}" if err_filter.call(line)
+					end
+				end 
+
+				out_t = Thread.new(o) do |stm|
+					while (line = stm.gets)
+						say "#{line}" if out_filter.call(line) 
+					end
+				end
+
+				begin
+					yield i if block_given?
+					i.close
+					err_t.join
+					out_t.join
+					o.close
+					e.close
+				rescue Exception => excep
+					say excep
+				end
+				t.value
+			end      
+		end
+
+  private
+    
+		def self.say(msg)
+			puts msg
+		end
+		
+    def say(msg)
+			self.class.say(msg)
+		end
+
+		def self.ide_paths(idetag=nil)
+			result = []
+			@reg = Win32::Registry::HKEY_CURRENT_USER 
+			IDEInfos.each { |key, data|
+				@reg.open(data[:regkey]) {|r| result << 'RootDir' } if idetag.nil? || idetag.to_s == key
+			} 
+			result
+		end
+    
+		def self.winpath=(path)
+			Win32::Registry::HKEY_CURRENT_USER.open('Environment', Win32::Registry::KEY_WRITE) do |r| 
+				r['PATH'] = path
+			end
+			SendMessageTimeout.call(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 'Environment', SMTO_ABORTIFHUNG, 5000, 0)    
+		end
+  end
+end

data/lib/delphivm/version.rb

@@ -0,0 +1,7 @@
+# encoding: UTF-8
+class Delphivm
+  VERSION = "0.7.4"
+  include(VersionInfo)
+  self.VERSION.file_name = __FILE__
+end
+

data/lib/delphivm.rb

@@ -0,0 +1,167 @@
+#!/usr/bin/env ruby
+# encoding: UTF-8
+
+require 'thor'
+require 'pathname'
+
+Delphivm = Thor
+
+class Delphivm
+  ROOT = ::Pathname.getwd
+end
+
+require 'zip/zip'
+
+require 'open3'
+require 'nokogiri'
+
+require 'win32/registry.rb'
+require 'Win32API'
+
+require 'version_info'
+require 'open-uri'
+require 'net/http'
+require 'progressbar'
+
+require 'extensions'
+require 'delphivm/version'
+require 'delphivm/ide_services'
+require 'delphivm/dsl'
+
+require 'thor/runner'
+
+if Delphivm::ROOT == Pathname(__FILE__).dirname.parent
+  TARGET = Object.const_get('Delphivm')
+else
+  VersionInfo.file_format = :text
+  target = Module.new
+  target.module_exec do
+    include VersionInfo
+    self.VERSION.file_name = Delphivm::ROOT + 'VERSION'
+  end
+  Object.const_set(Delphivm::ROOT.basename.to_s.snake_case.camelize, target)
+  target.freeze
+  VersionInfo.install_tasks(:target => target)
+
+  TARGET = Object.const_get(target.name)
+end
+
+module Thor::Util #:nodoc:
+  SEARCH_ROOT = File.dirname(__FILE__)
+  # redefine to search tasks only for this app
+  def self.globs_for(path)
+    ["#{SEARCH_ROOT}/tasks/*.thor", "#{Delphivm::ROOT}/dvm/*.thor"]
+  end
+end
+
+
+class BuildTarget < Thor
+  attr_accessor :idetag
+  attr_accessor :config
+   
+  INCL_BUILD = /(_|\/|\A)build(_|\/|\Z)/ # REX for recognize a build subpath
+  
+  include Thor::Actions
+  
+  def self.inherited(klass)
+    klass.source_root(ROOT)
+    klass.publish
+  end
+
+  def method_missing(name, *args, &block)
+    if name.to_s.match(/(\w+)_path$/)
+      convert_to_path $1
+    else
+      super
+    end
+  end
+
+protected
+  def self.depends(*task_names)
+    @depends ||=[]
+    @depends.push *task_names
+    @depends
+  end
+  
+  def clear_products
+    @products = [] 
+  end
+    
+  def catch_products
+    @catch_products = true
+    yield
+  ensure
+    @catch_products = false
+  end
+
+  def catch_product(*prods)
+    @products.push *prods
+    yield *prods unless @catch_products
+  end
+  
+  def do_clean(idetag, cfg)
+    catch_products do
+      do_make(idetag, cfg)
+    end
+    @products.each do |p| 
+      remove_file(p) 
+    end
+  end
+  
+  def do_make(idetag, cfg)
+  end
+
+  def do_build(idetag, cfg)
+    invoke :clean
+    invoke :make
+  end
+
+  def self.publish    
+    [:clean, :make, :build].each do |mth|
+      desc "#{mth}", "#{mth} #{self.namespace} products"
+      method_option :config,  type: :array, aliases: '-c', default: 'Debug', desc: "use IDE config(s): Debug, Release, etc"
+      define_method mth do
+        IDEServices.ideused.each do |idetag|
+          configs = [options[:config]].flatten
+          configs.each do |cfg|
+            self.idetag = idetag
+            self.config = cfg
+            self.clear_products
+            self.class.depends.each { |task| self.invoke "#{task}:#{mth}" }
+            send("do_#{mth}", idetag, cfg)
+          end
+        end
+      end
+    end
+  end
+
+  def convert_to_path(under_scored='')
+    buildpath_as_str = (Pathname('out') + self.idetag + self.config).to_s
+    ROOT + under_scored.to_s.split('_').join('/').gsub(INCL_BUILD, '\1' + buildpath_as_str + '\2')
+  end
+  
+end
+
+class Delphivm
+  EXE_NAME = File.basename($0, '.rb')
+  
+  PATH_TO_VENDOR = ROOT + 'vendor'
+  PATH_TO_VENDOR_CACHE = PATH_TO_VENDOR + 'cache'
+  PATH_TO_VENDOR_IMPORTS = PATH_TO_VENDOR + 'imports'
+  DVM_IMPORTS_FILE = PATH_TO_VENDOR + 'imports.dvm'
+
+  class Runner
+    # remove some tasks not needed
+    remove_task :install, :installed, :uninstall, :update
+
+    # default version and banner outputs THOR, so redefine it
+    def self.banner(task, all = false, subcommand = false)
+      "#{Delphivm::EXE_NAME} " + task.formatted_usage(self, all, subcommand)
+    end    
+
+    desc "version", "Show #{Delphivm::EXE_NAME} version"
+    def version
+      say "#{Delphivm::VERSION}"
+    end
+  end
+end

data/lib/extensions.rb

@@ -0,0 +1,37 @@
+# encoding: UTF-8
+class ::Pathname 
+  def glob(*args, &block)
+    args[0] = (self + args[0]).to_s
+    Pathname.glob(*args, &block)
+  end
+
+  def win
+    self.to_s.gsub('/','\\')
+  end
+  
+  def to_str
+    win
+  end
+end
+
+class String
+  def snake_case
+    gsub(/([A-Z]+)([A-Z][a-z])/,'\1_\2').
+    gsub(/([a-z\d])([A-Z])/,'\1_\2').
+    tr("-", "_").
+    downcase
+  end
+
+  def camelize
+    self.split('_').map(&:capitalize).join
+  end
+end
+
+module Kernel
+  def silence_warnings
+    old_verbose, $VERBOSE = $VERBOSE, nil
+    yield
+  ensure
+    $VERBOSE = old_verbose
+  end
+end

data/lib/tasks/ide.thor

@@ -0,0 +1,38 @@
+# encoding: UTF-8
+
+class Ide < Thor
+
+  desc "list", "show instaled IDE versions"
+  def list
+    report_ides IDEServices.idelist
+  end
+
+  desc "use IDE-TAG", "use IDE with IDE-TAG"
+  def use(ide_tag)
+    puts "Active path: " + IDEServices.use(ide_tag)
+  end
+  
+  desc "used", "list used IDEs in project"
+  def used
+    report_ides IDEServices.ideused
+  end
+
+  desc "start IDE-TAG  ", "start IDE with IDE-TAG"
+  def start(idever=nil)
+    idever ||= IDEServices.idelist.first
+    ide = IDEServices.new(idever, ROOT)
+    ide.start 
+  end
+
+private
+
+  def report_ides(ides)
+    if ides.empty?
+      say "NO IDE(s) found\n"
+    else
+      say "found IDEs:\n"
+      say ides.join("\n")
+    end
+  end
+
+end

data/lib/tasks/project.thor

@@ -0,0 +1,73 @@
+# encoding: UTF-8
+
+	
+class Project < BuildTarget
+
+	SHIP_FILE = "#{TARGET}-#{TARGET.VERSION.tag}"
+
+	desc  "clean", "clean #{SHIP_FILE} products", :for => :clean
+	
+	desc  "make", "make #{SHIP_FILE} products", :for => :make
+	desc  "build", "build #{SHIP_FILE} products", :for => :build
+
+	desc  "ship", "create ship file #{SHIP_FILE}.zip file"
+	method_option :config,  type: :array, aliases: '-c', default: '', desc: "use IDE config(s): Debug, Release, etc"
+	def ship
+		get_idevers.each do |idever|
+			#ide = IDEServices.new(idever, ROOT)
+			configs = [options[:config]].flatten
+			configs.each do |cfg|
+				build_ship(idever, cfg)
+			end
+		end
+	end
+	
+protected
+
+	def do_clean(idetag, cfg)
+		ide = IDEServices.new(idetag, ROOT)
+		ide.msbuild(cfg, 'Clean')
+	end
+
+	def do_make(idetag, cfg)
+		ide = IDEServices.new(idetag, ROOT)
+		ide.msbuild(cfg, 'Make')
+	end
+
+	def do_build(idetag, cfg)
+		ide = IDEServices.new(idetag, ROOT)
+		ide.msbuild(cfg, 'Build')
+	end
+
+private
+
+	def get_idevers
+		IDEServices.ideused
+	end
+
+	def build_ship(idever, config)
+		cfg_segment = config.strip
+		cfg_segment = "-#{cfg_segment}" unless cfg_segment.empty?
+    
+		zip_fname = ROOT + 'ship' + "#{SHIP_FILE}-#{idever}#{cfg_segment}.zip"
+		zip_fname.dirname.mkpath
+		zip_fname.delete if zip_fname.exist? 
+		
+		groups = [
+			["output", ROOT + 'out' + idever + config, Pathname('.')],
+			["source", ROOT + 'src', Pathname('src') + SHIP_FILE],
+			["sample", ROOT + 'samples', Pathname('samples') + SHIP_FILE],
+			["documentation", ROOT + 'doc', Pathname('doc') + SHIP_FILE]
+		]
+		puts "Ship file " + zip_fname.to_s
+		Zip::ZipFile.open(zip_fname, Zip::ZipFile::CREATE) do |zipfile|
+		  groups.each do |group|
+				puts "Add #{group[0]} files"		
+				Pathname.glob((group[1] + '**' + '*.*').to_s).each do |source_file|
+					zip_entry = group[2] + source_file.relative_path_from(group[1])
+					zipfile.get_output_stream(zip_entry) { |f| f.puts source_file.read(:mode => "rb") }
+				end
+			end
+		end
+	end
+end

data/lib/tasks/vendor.thor

@@ -0,0 +1,73 @@
+# encoding: UTF-8
+class Vendor < Thor
+  include Thor::Actions
+  
+  desc "init", "create and initialize vendor directory"
+  def init
+    vendor_path = PATH_TO_VENDOR
+    empty_directory vendor_path
+    empty_directory vendor_path + 'cache'
+    empty_directory vendor_path + 'imports'
+    create_file(DVM_IMPORTS_FILE, :skip => true) do <<-EOS
+# sample imports file for delphivm
+
+# first set source url
+source "http://home.jcangas.info/ship"
+
+# for each IDE version yo need
+idever "D150" do
+  # define some imports:
+  import "SummerFW4D", "0.4.6"
+end
+
+# you can repeat it for other IDEs & sources
+
+# source "#{PATH_TO_VENDOR}/local"
+# etc..
+
+EOS
+    end
+  end
+  
+  desc "import", "download and install vendor imports"
+  method_option :clean,  type: :boolean, aliases: '-c', default: false, desc: "clean cache first"
+  method_option :deploy,  type: :boolean, aliases: '-d', default: false, desc: "deploy after the import"
+  def import
+    clean_vendor(options) if options.clean?
+    prepare
+    silence_warnings{DSL.uses(DVM_IMPORTS_FILE)}
+    deploy_vendor if options.deploy?
+  end
+
+  desc "clean", "Clean imports. Use -c (--cache) to also clean downloads cache"
+  method_option :cache,  type: :boolean, aliases: '-c', default: false, desc: "also clean cache"
+  def clean
+    clean_vendor(options)
+    prepare
+  end
+
+  desc "deploy", "deploy vendor bin files to project out dir"
+  def deploy
+    deploy_vendor
+  end
+
+private
+
+  def deploy_vendor
+    self.class.source_root PATH_TO_VENDOR_IMPORTS
+    PATH_TO_VENDOR_IMPORTS.glob('**/bin/*.*') do |f|
+      fname = f.relative_path_from(PATH_TO_VENDOR_IMPORTS)
+      copy_file(fname, ROOT + 'out' + fname)
+    end
+  end
+
+  def clean_vendor(opts)
+    remove_dir(PATH_TO_VENDOR_IMPORTS)
+    remove_dir PATH_TO_VENDOR_CACHE if opts.cache?
+  end
+
+  def prepare
+    empty_directory PATH_TO_VENDOR_CACHE
+    empty_directory PATH_TO_VENDOR_IMPORTS
+  end	
+end

data/vendor/imports.dvm

@@ -0,0 +1,11 @@
+# encoding: UTF-8
+
+source 'http://home.jcangas.info/ship'
+
+idever 'D150' do
+  import "SummerFW4D", "0.4.6", config: '*'
+end
+
+idever 'D160' do
+  import "SummerFW4D", "0.4.6", config: '*'
+end