rakefile for delphi

gistfile1.rb

require 'rake/clean'

def win_sh(cmd)
   `#{cmd}`.each do |l|
      /\((\d*)\)/ =~ l.gsub!('
','')
      if $& == nil
         puts l
      else
         puts "#{$`}:#{$1}:#{$'}"
      end
   end
end

compiler = "dcc32 -Q -W -H "

imports = []
imports << "c:\\program files\\borland\\delphi7\\imports"
imports << "d:\\genki\\GisClient\\Lib"

dpr = "HogeHoge.dpr"
exe = "HogeHoge.exe"

task :default => exe

CLEAN.include("**/*.dcu", exe)

task exe => [dpr] do |t|
   units = ""
   imports.each do |u|
      units += " \"-U#{u}\" "
   end
   
   win_sh "#{compiler} #{units} #{dpr}"
end