require 'corundum/version_control'
require 'strscan'

module Corundum
  class Monotone < VersionControl
    def default_namespace
      :monotone
    end

    def default_configuration(*args)
      super
      setting(:branch, nil)
    end

    def resolve_configuration
      @branch ||= guess_branch
    end

    def mtn_automate(cmd, *args)
      result = ""
      command = "mtn automate #{cmd} #{args.join(" ")}"
      puts command if verbose
      IO.popen(command) do |pipe|
        result = pipe.read
      end
      result
    end

    def parse_basic_io(string)
      items = []
      scanner = StringScanner.new(string)
      scanner.scan(/\s*/m)
      until scanner.eos? do
        symbol = scanner.scan(/[a-z_]*/)
        scanner.scan(/\s*/)
        value = ""
        case scanner.scan(/["\[]/)
        when '"'
          while (value += scanner.scan(/[^"]*/)) =~ /\\$/
          end
          scanner.scan(/"/)
        when '['
          value = scanner.scan(/[^\]]*/)
          scanner.scan(/]/)
        else
          raise "Improperly formatted basic_io: \
            \n  Got: #{items.inspect} + #{symbol}\
            \n  Rest:\
            \n    #{scanner.rest}"
        end
        items << [symbol, value]
        scanner.scan(/\s*/m)
      end
      return items
    end

    def parse_certs(string)
      items = parse_basic_io(string)
      pair = []
      hash = Hash.new do |h,k|
        h[k] = []
      end
      items.each do |name, value|
        case name
        when "name"
          pair[0] = value
        when "value"
          pair[1] = value
        when "trust"
          if value == "trusted"
            hash[pair[0]] << pair[1]
          end
          pair = []
        end
      end
      hash
    end

    def base_revision
      mtn_automate("get_base_revision_id").chomp
    end

    def guess_branch
      puts "Guessing branch - configure Monotone > branch"
      certs = parse_certs(mtn_automate("certs", base_revision))
      puts "  Guessed: #{certs["branch"].first}"
      certs["branch"].first
    end

    def define
      super

      in_namespace do
        task :not_tagged do
          items = parse_basic_io(mtn_automate("tags", branch))
          tags = items.find{|pair| pair[0] == "tag" && pair[1] == tag}
          unless tags.nil?
            fail "Tag #{tag} already exists in branch #{branch}"
          end
        end

        task :is_committed do
          items = parse_basic_io(mtn_automate("inventory"))
          changed = items.find{|pair| pair[0] == "changes"}
          unless changed.nil?
            fail "Uncommitted changes exist in workspace"
          end
        end

        task :tag do
          mtn_automate("cert", base_revision, "tag", tag)
        end

        task :commit do
          sh "mtn commit --branch #{branch} --message \"Automatic commit: gem built at version #{gemspec.version}\""
        end

        task :sync do
          mtn_automate("sync")
        end

        task :check_in => %w{commit sync}

        task :is_checked_in => [:is_committed]
      end
    end
  end
end