def _display_tasks(tasks)

  width = tasks.collect {|t| t.name_with_args.length}.max || 10

  max_column = Rake.application.truncate_output? ? Rake.application.terminal_width - 'name'.size - width - 7 : nil

  tasks.each do |t|

    printf "%-#{width}s  # %s\n",

           t.name_with_args, max_column ? Rake.application.truncate(t.comment || '', max_column) : t.comment || ''

  end

end

task :info do

  puts 'Choose one of the following:'

  puts

  _display_tasks(Rake.application.tasks_in_scope(['info']))

end

namespace :info do

  desc 'Dump environment variables and their values'

  task :environment do

    puts 'Environment variables'

    ENV.each {|key, value| puts "  #{key}=\"#{value}\""}

    puts '---------------------'

  end

  desc 'Alias for task into:environment'

  task :env => :environment

  desc 'Dumps variables and their values'

  task :variables do

    puts "BUILD_DIR = #{BUILD_DIR}"

  end

  desc 'Show all available tasks'

  task :tasks do

    puts 'All tasks:'

    puts

    Rake.application.tasks.each {|t| puts t.name}

  end

  namespace :tasks do

    desc 'Print all tasks that depends on given one'

    task :dependents, :task do |t, args|

      task_n = args[:task] || (error 'No task specified')

      task = t.application.lookup(task_n)

      puts "Task #{task_n} not defined. Forgot to call setup task?" unless task

      puts "Tasks that depend on #{task_n}:"

      t.application.tasks.each do |each_nm|

        each = t.application[each_nm]

        puts " #{each_nm}" if each.prerequisites.include? task_n

      end

    end

    desc 'Print internal state of on given task'

    task :inspect, :task do |t, args|

      task_n = args[:task] || (error 'No task specified')

      task = t.application.lookup(task_n)

      if task

        puts task.investigation

        puts 'requisited by:'

        task.application.tasks.each do |each_nm|

          each = task.application[each_nm]

          if each.prerequisites.include? task.name

            puts " #{each_nm}"

          end

        end

        puts

        puts 'actions: '

        task.actions.each do |a|

          puts "  #{a}"

        end

      else

        puts "Task #{task_n} not defined. Forgot to call setup task?"

      end

    end

    desc 'Print all prerequisites of given task topologically sorted'

    task :'prereq-all', :task do |t, args|

      task_n = args[:task] || (error 'No task specified')

      task = t.application.lookup(task_n)

      puts "task '#{task_n}'"

      task.all_prerequisites_sorted.each {|prereq| puts "  => #{prereq} "}

    end

    desc 'Show given task and its prerequisites, all tasks if task not specified.'

    task :prereq, :task do |t, args|

      task = args[:task] || nil

      task ? (tasks = [t.application.lookup(task)]) : (tasks = t.application.tasks)

      puts "task '#{task}'"

      tasks.each do |t2|

        puts t2.name

        t2.prerequisites.each {|prereq| puts "  => #{prereq} "}

      end

    end

  end # namespace :'tasks'

end

namespace :info do

  namespace :project do

    desc 'Print project name'

    task :name => :'setup:project' do

      puts project.app_name

    end

    desc 'Print project version'

    task :version => :'setup:project' do

      puts project.app_version

    end

  end

  desc 'Print current build name'

  task :buildname => :'setup:project' do

    puts BUILD_NAME

  end

  task :tasks => :'setup:tasks'

  desc 'Print info about currently selected project'

  task :project => :'setup:project' do

    Rake::Stx::Configuration::Printer.new.visit(project)

  end

  desc 'Print project packages in topological order'

  task :packages => 'setup:project' do

    puts "project #{project.name} consists of:"

    project.packages_and_application.each do |pkg|

      puts "  #{pkg.name}"

      puts "    req'd prereqs: #{pkg.prereqs(mandatory: true).join(', ')}"

      puts "    ref'd prereqs: #{pkg.prereqs(referenced: true).join(', ')}"

    end

  end

  desc 'List all available projects'

  task :projects => :'setup:projects' do

    puts ''

    puts 'Available projects:'

    names = projects.values.collect {|prj| String(prj.name)}

    names.sort!

    names.each {|nm| puts " - #{nm}"}

    puts

    puts "PROJECT_DIR = \"projects:#{File.join(ENV['HOME'], '.smalltalk', 'rakefiles', 'projects')}:#{PROJECT_DIRS}\""

    puts

  end

end