dev.rake

# Rake tasks for MagLev core developers.
#
# These tasks depend on the conventions used by the GemStone MagLev
# engineering team.
require 'rakelib/parser'


namespace :dev do
  TOPAZ_CMD = "#{GEMSTONE}/bin/topaz -q -I #{MAGLEV_HOME}/etc/.topazini -l "

  desc "Run the passing specs and the vm tests"
  task :smoke => [ 'dev:vm-tests', 'dev:passing' ]

  desc "Run the vm smoke tests"
  task :'vm-tests' => :stwrappers do
    output = run_on_stone(["run", "RubyContext _runVmUnit", "%"])
    puts output.join("\n")
  end

  desc "Run the passing specs"
  task :'passing' do
    sh "spec/mspec/bin/mspec run -B passing.mspec"
    puts "Log files in log/vmunit*"
  end

  # Run block after ensuring a fresh stone has been created and started
  # The block is passed the stone (e.g., to get the stone name).  The stone
  # will be shutdown and destroyed
  def with_fresh_stone(stone_prefix='TempStone', destroy_on_finish=true)
    stone = nil
    begin
      stones = GemStoneInstallation.current.stones
      stone_name = stone_prefix
      serial = 0
      while stones.include? stone_name
        serial += 1
        stone_name = "#{stone_prefix}#{serial}"
      end
      puts "=== Creating:  #{stone_name}"
      stone = MagLevStone.create(stone_name)
      puts "=== Starting:  #{stone_name}"
      stone.start
      puts "=== Yielding block"
      yield(stone)
      puts "=== block return"
    ensure
      unless stone.nil?
        puts "=== Stopping:  #{stone_name}"
        stone.stop
        if destroy_on_finish
          puts "=== Destroying:  #{stone_name}"
          stone.destroy!
        end
      end
    end
  end

  desc "Run the persistence tests on stone_name (default ptest). Create stone if it does not exist."
  task :'p-tests', :stone_name do
    with_fresh_stone('ptest') do |stone|
      run_ptests(stone.name)
    end
  end

  desc "Run persistence tests on stone per STONENAME env var"
  task :'p-tests-STONENAME' do
    run_ptests(nil)  
  end

  def run_ptests(stone_name=nil)
    pdir = "#{MAGLEV_HOME}/src/test/persistence/"
    stone_spec = stone_name.nil? ? "" : "--stone #{stone_name}"
    ['persistence_tests.rb', 'run_tests.rb', 'run_checks.rb'].each do |fname|
      puts
      puts "=================== #{fname} ======================="
      sh "maglev-ruby #{stone_spec} #{pdir}/#{fname}"
    end
  end

  desc 'Run p-tests on maglev'
  task :'quick-p-tests' do
    run_ptests
  end

  desc "Clean up after a test install of rubygems"
  task :'clean-gems' do
    puts "CLEANING GEMS"
    files = FileList.new('bin/maglev-gem', 'lib/maglev') do |fl|
      fl.include('bin/rackup')
      fl.include('bin/rake')
      fl.include('lib/ruby/site_ruby/1.8/*ubygems.rb')
      fl.include('lib/ruby/site_ruby/1.8/ubygems')
      fl.include('lib/ruby/site_ruby/1.8/rubygems/**/*.rb')
      fl.include('lib/ruby/site_ruby/1.8/rbconfig')

      fl.exclude('lib/ruby/site_ruby/1.8/rubygems/defaults/*')
    end
    files.each { |fn| rm_r fn rescue nil }
  end

  desc "Load the MagLev native parser"
  task :load_native_parser => ['maglev:start'] do
    run_on_stone("inp #{"src/kernel/parser/loadrp.inp"}")
  end

  desc "Clear out the old rubygems and install a new version"
  task :'new-gems' => 'dev:clean-gems' do
    cd('src/external/rubygems-1.3.5') do
      sh "maglev-ruby ./setup.rb --no-rdoc --no-ri"
    end
    cp "/Users/pmclain/GemStone/dev/maglev-gem", "bin"
  end

  desc "Run topaz (use rlwrap, if available)"
  task :topaz => :gemstone do
    sh %{ `which rlwrap 2> /dev/null` #{TOPAZ_CMD} }
  end

  desc "Load the primitives into the default image.  This makes subsequent stone creation faster as prims already loaded."
  task :installprims do
    # Backup the original extent
    cp GemStoneInstallation.current.initial_extent,
       "#{GemStoneInstallation.current.initial_extent}.orig"
    with_fresh_stone do |stone|
      stone.start # loads primitives
      stone.stop
      cp stone.extent_filename, GemStoneInstallation.current.initial_extent
    end
  end
end

PARSETREE_PORT = ENV['PARSETREE_PORT'] ||= "2001"
namespace :parser do
  desc "Start the ParseTree based parser (deprecated)"
  task :start => :gemstone do
    if Parser.running?
      puts "MagLev Parse Server process already running on port #{PARSETREE_PORT}"
    else
      Parser.start
    end
  end

  desc "Stop the ParseTree based parser (deprecated)"
  task :stop => :gemstone do
    puts "No parser running on port #{PARSETREE_PORT}" unless Parser.stop.nil?
  end

  desc "Show if the ParseTree based parser is running"
  task :status => :gemstone do
    if Parser.running?
      puts "MagLev Parse Server running on port #{PARSETREE_PORT}"
    else
      puts "MagLev Parse Server not running (port is #{PARSETREE_PORT})"
    end
  end
end

# These are dev specific tasks we want on a per stone basis
GemStoneInstallation.current.stones.each do |stone_name|
  namespace stone_name do
    stone = MagLevStone.new(stone_name, GemStoneInstallation.current)

    [[:reload_prims, "Reset the ruby context in \"#{stone_name}\" then reload primitives"]
    ].each do |action, desc|
      task_gemstone(stone, action, " [DEV] #{desc}")
    end
  end
end