module Ontopia::Topicmaps

# File lib/ontopia/topicmaps.rb, line 82
def base=(base)
  setup_classpath(base)
end

# File lib/ontopia/topicmaps.rb, line 66
def count(file, *args)
  file(file).count(*args)
end

# File lib/ontopia/topicmaps.rb, line 50
def default_stringifier
  @default_stringifier ||= name_stringifier
end

# File lib/ontopia/topicmaps.rb, line 46
def default_stringifier=(str)
  @default_stringifier = stringifier(str)
end

# File lib/ontopia/topicmaps.rb, line 62
def file(file)
  Topicmap.new(file)
end

# File lib/ontopia/topicmaps.rb, line 70
def query(file, *args, &block)
  file(file).query(*args, &block)
end

# File lib/ontopia/topicmaps.rb, line 74
def query_maps(file, *args)
  file(file).query_maps(*args)
end

# File lib/ontopia/topicmaps.rb, line 86
def setup_classpath(base = nil, jars = nil)
  if @base
    return unless base
    raise "#{self}: $CLASSPATH already set up: #{@base}"
  end

  @base = base ||= DEFAULT_BASE

  Array(jars || DEFAULT_JARS).join(':').split(':').each { |jar|
    (path = Dir[File.join(base, 'lib', "#{jar}.jar")].sort.last) ?
      $CLASSPATH << path : raise("JAR not found: #{jar} (#{base})")
  }

  init.each { |klass, (modules, block)|
    klass.send :include, Packages, *modules.map { |m| const_get(m) }
    klass.class_eval(&block) if block
  }.clear
end

# File lib/ontopia/topicmaps.rb, line 54
def stringifier(str)
  case str
    when self::StringifierIF then str.method(:to_string)
    when Symbol              then send("#{str}_stringifier")
    else                          str
  end
end

# File lib/ontopia/topicmaps.rb, line 78
def topics(file, *args)
  file(file).topics(*args)
end

# File lib/ontopia/topicmaps.rb, line 111
def define_stringifier(name)
  define_singleton_method(attr = "#{name}_stringifier") {
    singleton_class.send(:attr_reader, attr)
    instance_variable_set("@#{attr}", stringifier(yield))
  }
end

# File lib/ontopia/topicmaps.rb, line 107
def init(klass = nil, *modules, &block)
  klass ? Topicmaps.init[klass] = [modules, block] : @init
end

# File lib/ontopia/topicmaps.rb, line 118
def register_stringifier(klass, name)
  init(klass, :StringifierIF) {
    Topicmaps.define_stringifier(name) { new }
    yield if block_given?
  }
end