rbbt-rest 1.4.3 → 1.4.4

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 8812343a2a8345c1f58516ea3564d9f7c69a242c
-  data.tar.gz: 0a82376a6d54a79d43e0dec28a621c042648ccdd
+  metadata.gz: f9221c25d61dd1032e5b8b84cf2d53757a34cc64
+  data.tar.gz: b1075e7931eaef5f7135e798af4055d4aab1a4a8
 SHA512:
-  metadata.gz: ea16ac1a23c93d58ca5d8c808a7b4c650022fa250e7831403203c75b8e0e25474bf19232343102e0b07a4af397a39ee9c192924f5d1b0dc3222ef869f933ad08
-  data.tar.gz: 6fb04bf125f9cdccefa1db06f0723133f60b65e8761314aaba1288e14ad9bbfd3f4441e5bfc65bd0968e9dc10a8510f952e44a3489f086197c83658013126e23
+  metadata.gz: 2703f327403947d1cb6899d59419713559ab2d25bda267655709dca55d88dee4a938fac9362398e72609153457afd4e3d8aec9101535e9375fc7e14c5373c9a0
+  data.tar.gz: 3f167c4d69d1ae1d8e65b2089cce94d98bc8926f834e656be721a23de7ae3d6153297f96a2ddafdb6838a4e18ce02658544aa0db5258a7e0b3cd724391e713c3

data/lib/rbbt/rest/common/table.rb

@@ -178,7 +178,7 @@ module RbbtRESTHelpers
         
         case
         when value =~ /^([<>]=?)(.*)/
-          tsv = tsv.select(key, invert){|k| k = k.first if Array === k; k.to_f.send($1, $2.to_f)}
+          tsv = tsv.select(key, invert){|k| k = k.first if Array === k; (k.nil? or k.empty?) ? false : k.to_f.send($1, $2.to_f)}
         when value =~ /^\/(.+)\/.{0,2}\s*$/
           tsv = tsv.select({key => Regexp.new($1)}, invert)
         when (value =~ /^\d+$/ and tsv.type == :double or tsv.type == :flat)

data/lib/rbbt/rest/knowledge_base.rb

@@ -5,452 +5,453 @@ require 'sinatra/base'
 require 'rbbt/knowledge_base'
 require 'rbbt/rest/knowledge_base/query'
 require 'rbbt/rest/knowledge_base/helpers'
+require 'rbbt/rest/knowledge_base/locate'
+require 'rbbt/rest/knowledge_base/render'
 
 module Sinatra
   module RbbtRESTKnowledgeBase
     def self.registered(base)
       base.module_eval do
-        helpers KnowledgeBaseRESTHelpers
-        use KnowledgeBaseRESTQuery
-
-        ##{{{ Single entity
-        #
-        #get '/knowledge_base/:name/:database/children/:entity' do 
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  entity = consume_parameter :entity
-
-        #  kb = get_knowledge_base name
-        #  matches = kb.children(database, entity)
-        #  case @format
-        #  when :tsv
-        #    content_type "text/tab-separated-values"
-        #    halt 200, matches.tsv.to_s
-        #  when :html
-        #    template_render('knowledge_base_partials/matches', {:matches => matches}, "Children: #{ [name, database, entity] }")
-        #  when :json
-        #    content_type :json
-        #    halt 200, matches.target.to_json
-        #  else
-        #    content_type :text
-        #    halt 200, matches.target * "\n"
-        #  end
-        #end
-
-        #get '/knowledge_base/:name/:database/parents/:entity' do 
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  entity = consume_parameter :entity
-
-        #  kb = get_knowledge_base name
-        #  matches = kb.parents(database, entity)
-        #  case @format
-        #  when :tsv
-        #    content_type "text/tab-separated-values"
-        #    halt 200, matches.tsv.to_s
-        #  when :html
-        #    template_render('knowledge_base_partials/matches', {:matches => matches}, "Parents: #{ [name, database, entity] }")
-        #  when :json
-        #    content_type :json
-        #    halt 200, matches.source.to_json
-        #  else
-        #    content_type :text
-        #    halt 200, matches.source * "\n"
-        #  end
-        #end
-
-        #get '/knowledge_base/:name/:database/neighbours/:entity' do 
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  entity = consume_parameter :entity
-
-        #  kb = get_knowledge_base name
-        #  neighbours = kb.neighbours(database, entity)
-        #  case @format
-        #  when :tsv
-        #    content_type "text/tab-separated-values"
-        #    halt 200, neighbours.values.collect{|m| m.tsv.to_s } * "\n\n"
-        #  when :html
-        #    template_render('knowledge_base_partials/matches', {:matches => neighbours}, "Neighbours: #{ [name, database, entity] }")
-        #  when :json
-        #    content_type :json
-        #    neighs = {}
-        #    neighs[:parents] = neighbours[:parents].source if neighbours[:parents]
-        #    neighs[:children] = neighbours[:children].target
-        #    halt 200, neighs.to_json
-        #  else
-        #    content_type :text
-        #    neighs = []
-        #    neighs.concat neighbours[:parents].source if neighbours[:parents]
-        #    neighs.concat neighbours[:children].target
-        #    halt 200, neighs * "\n"
-        #  end
-        #end
-
-        #get '/knowledge_base/:name/:database/subset' do 
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  source = consume_parameter :source
-        #  target = consume_parameter :target
-
-        #  source = source == "all" ? :all : source.split(@array_separator) if source
-        #  target = target == "all" ? :all : target.split(@array_separator) if target
-        #  entities = { :source => source, :target => target }
-
-        #  kb = get_knowledge_base name
-        #  subset = kb.subset(database, entities)
-        #  case @format
-        #  when :tsv
-        #    content_type "text/tab-separated-values"
-        #    halt 200, subset.tsv.to_s
-        #  when :html
-        #    template_render('knowledge_base_partials/subset', {:subset => subset}, "Subset: #{ [name, database] }")
-        #  when :json
-        #    content_type :json
-        #    halt 200, subset.source.to_json
-        #  else
-        #    content_type :text
-        #    halt 200, subset.source * "\n"
-        #  end
-        #end
-
-        #
-        ##{{{ Collection
-
-        #post '/knowledge_base/:name/:database/collection_children' do 
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  collection = consume_parameter :collection 
-        #  raise ParameterException, "No collection specified" if collection.nil?
-        #  collection = JSON.parse(collection)
-
-        #  kb = get_knowledge_base name
-        #  matches = collection.keys.inject({}){|acc,type|
-        #    entities = collection[type]
-        #    entities.each do |entity|
-        #      _matches = kb.children(database, entity)
-        #      acc.merge!({ _matches.target_type => _matches}) if _matches and _matches.any?
-        #    end
-        #    acc
-        #  }
-        #  case @format
-        #  when :tsv
-        #    content_type "text/tab-separated-values"
-        #    matches = matches.sort_by{|k,list| list.length }.last.last
-        #    halt 200, matches.tsv.to_s
-        #  when :html
-        #    template_render('knowledge_base_partials/matches', {:matches => matches}, "Collection Children: #{ [name, database] }")
-        #  when :json
-        #    content_type :json
-        #    _matches = {}
-        #     matches.each{|type,list|
-        #       _matches[type] = list.target
-        #     }
-        #    halt 200, _matches.to_json
-        #  else
-        #    content_type :text
-        #    matches = matches.sort_by{|k,list| list.length }.last.last
-        #    halt 200, matches.target * "\n"
-        #  end
-        #end
-
-        #post '/knowledge_base/:name/:database/collection_parents' do 
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  collection = consume_parameter :collection 
-        #  raise ParameterException, "No collection specified" if collection.nil?
-        #  collection = JSON.parse(collection)
-
-        #  kb = get_knowledge_base name
-        #  matches = collection.keys.inject({}){|acc,type|
-        #    entities = collection[type]
-        #    entities.each do |entity|
-        #      _matches = kb.parents(database, entity)
-        #      acc.merge!({ _matches.target_type => _matches}) if _matches and _matches.any?
-        #    end
-        #    acc
-        #  }
-        #  case @format
-        #  when :tsv
-        #    content_type "text/tab-separated-values"
-        #    matches = matches.sort_by{|k,list| list.length }.last.last
-        #    halt 200, matches.tsv.to_s
-        #  when :html
-        #    template_render('knowledge_base_partials/matches', {:matches => matches}, "Collection Parents: #{ [name, database] }")
-        #  when :json
-        #    content_type :json
-        #    _matches = {}
-        #     matches.each{|type,list|
-        #       _matches[type] = list.target
-        #     }
-        #    halt 200, _matches.to_json
-        #  else
-        #    content_type :text
-        #    matches = matches.sort_by{|k,list| list.length }.last.last
-        #    halt 200, matches.target * "\n"
-        #  end
-        #end
-
-        #post '/knowledge_base/:name/:database/collection_neighbours' do 
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  collection = consume_parameter :collection 
-        #  raise ParameterException, "No collection specified" if collection.nil?
-        #  collection = JSON.parse(collection)
-
-        #  kb = get_knowledge_base name
-        #  matches = collection.keys.inject({}){|acc,type|
-        #    entities = collection[type]
-        #    entities.each do |entity|
-        #      _matches_h = kb.neighbours(database, entity)
-        #      _matches_h.each do |key, _matches|
-        #        target_type = case key
-        #                      when :children
-        #                        _matches.target_entity_type
-        #                      when :parents
-        #                        _matches.source_entity_type
-        #                      end
-        #        _matches = acc[target_type].concat _matches if acc[target_type] and acc[target_type].any?
-        #        acc.merge!({ target_type => _matches }) if _matches and _matches.any?
-        #      end
-        #    end
-        #    acc
-        #  }
-
-        #  case @format
-        #  when :tsv
-        #    content_type "text/tab-separated-values"
-        #    matches = matches.sort_by{|k,list| list.length }.last.last
-        #    halt 200, matches.tsv.to_s
-        #  when :html
-        #    template_render('knowledge_base_partials/matches', {:matches => matches}, "Collection Parents: #{ [name, database] }")
-        #  when :json
-        #    content_type :json
-        #    _matches = {}
-        #     matches.each{|type,list|
-        #       _matches[type] = list.target.uniq.sort
-        #     }
-        #    halt 200, _matches.to_json
-        #  else
-        #    content_type :text
-        #    matches = matches.sort_by{|k,list| list.length }.last.last
-        #    halt 200, matches.target * "\n"
-        #  end
-        #end
-
-        #get '/knowledge_base/:name/:database/subset' do 
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  source = consume_parameter :source
-        #  target = consume_parameter :target
-
-        #  source = source == "all" ? :all : source.split(@array_separator) if source
-        #  target = target == "all" ? :all : target.split(@array_separator) if target
-        #  entities = { :source => source, :target => target }
-
-        #  kb = get_knowledge_base name
-        #  subset = kb.subset(database, entities)
-        #  case @format
-        #  when :tsv
-        #    content_type "text/tab-separated-values"
-        #    halt 200, subset.tsv.to_s
-        #  when :html
-        #    template_render('knowledge_base_partials/subset', {:subset => subset}, "Subset: #{ [name, database] }")
-        #  when :json
-        #    content_type :json
-        #    halt 200, subset.source.to_json
-        #  else
-        #    content_type :text
-        #    halt 200, subset.source * "\n"
-        #  end
-        #end
-
-        ##{{{ Info
-        #
-        #get '/knowledge_base/info/:name/:database/:pair' do 
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  pair = consume_parameter :pair
-
-        #  kb = get_knowledge_base name
-        #  index = kb.get_index(database)
-
-        #  AssociationItem.setup(pair, kb, database, false)
-        #  template_render('knowledge_base_partials/association', {:pair => pair, :kb => kb, :index => index, :database => database}, "Association: #{ pair }")
-        #end
-        #
-        ##{{{ Children
-
-        #get '/knowledge_base/:name/:database/entity_children/:entity' do
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  entity = consume_parameter :entity
-
-        #  kb = get_knowledge_base name
-        #  found = kb.identify database, entity
-        #  raise ParameterException, "Entity #{entity} was not found" unless found
-
-        #  list = kb.children(database, found).target_entity
-
-        #  case @format
-        #  when :json
-        #    content_type "application/json"
-        #    halt 200, prepare_entities_for_json(list).to_json
-        #  when :html
-        #  end
-        #end
-
-        ## List children
-        #post '/knowledge_base/:name/:database/entity_list_children/' do
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  entities = consume_parameter :entities
-
-        #  raise ParameterException, "No 'entities' provided" if entities.nil?
-
-        #  entities = entities.split("|")
-
-        #  kb = get_knowledge_base name
-
-        #  children = {}
-        #  entities.each do |entity|
-        #    found = kb.identify database, entity
-        #    next if found.nil?
-        #    children[entity] = kb.children(database, found).target_entity
-        #  end
-        #  case @format
-        #  when :json
-        #    content_type "application/json"
-        #    halt 200, prepare_entities_for_json(children).to_json
-        #  when :html
-        #  end
-        #end
-
-        ## Collection children
-        #post '/knowledge_base/:name/:database/entity_collection_children' do
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  entities = consume_parameter :entities
-
-        #  raise ParameterException, "No 'entities' provided" if entities.nil?
-
-        #  entities = JSON.parse(entities)
-
-        #  kb = get_knowledge_base name
-
-        #  entities.each do |type,list|
-        #    list.each do |entity|
-        #      found = kb.identify database, entity
-        #      next if found.nil?
-        #      targets = kb.children(database, found).target_entity
-        #      next if targets.nil? or targets.empty?
-        #      target_type = kb.target database
-        #      children[target_type] ||= []
-        #      children[target_type].concat targets
-        #    end
-        #  end
-
-        #  case @format
-        #  when :json
-        #    content_type "application/json"
-        #    halt 200, prepare_entities_for_json(children).to_json
-        #  when :html
-        #  end
-        #end
-
-        ##{{{ Neighbours
-
-        #get '/knowledge_base/:name/:database/entity_neighbours/:entity' do
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  entity = consume_parameter :entity
-
-        #  kb = get_knowledge_base name
-        #  found = kb.identify database, entity
-        #  raise ParameterException, "Entity #{entity} was not found" unless found
-
-        #  list = kb.neighbours(database, found).values.select{|list| list and list.any?}.first
-        #  list = list.target_entity if list.respond_to? :target_entity
-        #  list ||= []
-
-        #  case @format
-        #  when :json
-        #    content_type "application/json"
-        #    halt 200, prepare_entities_for_json(list).to_json
-        #  when :html
-        #  end
-        #end
-
-        #post '/knowledge_base/:name/:database/entity_list_neighbours/' do
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  entities = consume_parameter :entities
-
-        #  raise ParameterException, "No 'entities' provided" if entities.nil?
-
-        #  entities = entities.split("|")
-
-        #  kb = get_knowledge_base name
-
-        #  children = {}
-        #  entities.each do |entity|
-        #    found = kb.identify database, entity
-        #    next if found.nil?
-        #    matches = kb.neighbours(database, found).values.select{|list| list and list.any?}.first
-        #    next if matches.nil? or matches.empty?
-        #    children[entity] = matches.target_entity
-        #  end
-        #  case @format
-        #  when :json
-        #    content_type "application/json"
-        #    halt 200, prepare_entities_for_json(children).to_json
-        #  when :html
-        #  end
-        #end
-
-        #post '/knowledge_base/:name/:database/entity_collection_neighbours' do
-        #  name = consume_parameter :name
-        #  database = consume_parameter :database
-        #  entities = consume_parameter :entities
-
-        #  raise ParameterException, "No 'entities' provided" if entities.nil?
-
-        #  entities = JSON.parse(entities)
-
-        #  kb = get_knowledge_base name
-
-        #  neighbours = {}
-        #  entities.each do |type,list|
-        #    list.each do |entity|
-
-        #      found = kb.identify_source database, entity
-        #      if found.nil?
-        #        reverse = true
-        #        found = kb.identify_target database, entity
-        #      else
-        #        reverse = false
-        #      end
-        #      next if found.nil?
-
-        #      matches = kb.neighbours(database, found)[reverse ? :parents : :children]
-        #      next if matches.nil? or matches.empty?
-        #      targets = matches.target
-
-        #      entity_type = reverse ? kb.source_type(database) : kb.target_type(database)
-        #      neighbours[entity_type] ||= []
-        #      neighbours[entity_type].concat targets
-        #    end
-        #  end
-
-        #  neighbours.each{|type, list| list.uniq!}
-
-        #  case @format
-        #  when :json
-        #    content_type "application/json"
-        #    halt 200, prepare_entities_for_json(neighbours).to_json
-        #  when :html
-        #  end
-        #end
+        include RbbtRESTHelpers
+        include KnowledgeBaseRESTHelpers
+
+        get '/knowledge_base/:name/:database/children/:entity' do 
+          name = consume_parameter :name
+          database = consume_parameter :database
+          entity = consume_parameter :entity
+
+          kb = get_knowledge_base name
+          matches = kb.children(database, entity)
+          case @format
+          when :tsv
+            content_type "text/tab-separated-values"
+            halt 200, matches.tsv.to_s
+          when :html
+            template_render('knowledge_base_partials/matches', {:matches => matches}, "Children: #{ [name, database, entity] }")
+          when :json
+            content_type :json
+            halt 200, matches.target.to_json
+          else
+            content_type :text
+            halt 200, matches.target * "\n"
+          end
+        end
+
+        get '/knowledge_base/:name/:database/parents/:entity' do 
+          name = consume_parameter :name
+          database = consume_parameter :database
+          entity = consume_parameter :entity
+
+          kb = get_knowledge_base name
+          matches = kb.parents(database, entity)
+          case @format
+          when :tsv
+            content_type "text/tab-separated-values"
+            halt 200, matches.tsv.to_s
+          when :html
+            template_render('knowledge_base_partials/matches', {:matches => matches}, "Parents: #{ [name, database, entity] }")
+          when :json
+            content_type :json
+            halt 200, matches.source.to_json
+          else
+            content_type :text
+            halt 200, matches.source * "\n"
+          end
+        end
+
+        get '/knowledge_base/:name/:database/neighbours/:entity' do 
+          name = consume_parameter :name
+          database = consume_parameter :database
+          entity = consume_parameter :entity
+
+          kb = get_knowledge_base name
+          neighbours = kb.neighbours(database, entity)
+          case @format
+          when :tsv
+            content_type "text/tab-separated-values"
+            halt 200, neighbours.values.collect{|m| m.tsv.to_s } * "\n\n"
+          when :html
+            template_render('knowledge_base_partials/matches', {:matches => neighbours}, "Neighbours: #{ [name, database, entity] }")
+          when :json
+            content_type :json
+            neighs = {}
+            neighs[:parents] = neighbours[:parents].source if neighbours[:parents]
+            neighs[:children] = neighbours[:children].target
+            halt 200, neighs.to_json
+          else
+            content_type :text
+            neighs = []
+            neighs.concat neighbours[:parents].source if neighbours[:parents]
+            neighs.concat neighbours[:children].target
+            halt 200, neighs * "\n"
+          end
+        end
+
+        get '/knowledge_base/:name/:database/subset' do 
+          name = consume_parameter :name
+          database = consume_parameter :database
+          source = consume_parameter :source
+          target = consume_parameter :target
+
+          source = source == "all" ? :all : source.split(@array_separator) if source
+          target = target == "all" ? :all : target.split(@array_separator) if target
+          entities = { :source => source, :target => target }
+
+          kb = get_knowledge_base name
+          subset = kb.subset(database, entities)
+          case @format
+          when :tsv
+            content_type "text/tab-separated-values"
+            halt 200, subset.tsv.to_s
+          when :html
+            template_render('knowledge_base_partials/subset', {:subset => subset}, "Subset: #{ [name, database] }")
+          when :json
+            content_type :json
+            halt 200, subset.source.to_json
+          else
+            content_type :text
+            halt 200, subset.source * "\n"
+    end
+  end
+
+
+  #{{{ Collection
+
+  post '/knowledge_base/:name/:database/collection_children' do 
+    name = consume_parameter :name
+    database = consume_parameter :database
+    collection = consume_parameter :collection 
+    raise ParameterException, "No collection specified" if collection.nil?
+    collection = JSON.parse(collection)
+
+    kb = get_knowledge_base name
+    matches = collection.keys.inject({}){|acc,type|
+      entities = collection[type]
+      entities.each do |entity|
+        _matches = kb.children(database, entity)
+        acc.merge!({ _matches.target_type => _matches}) if _matches and _matches.any?
+      end
+      acc
+    }
+    case @format
+    when :tsv
+      content_type "text/tab-separated-values"
+      matches = matches.sort_by{|k,list| list.length }.last.last
+      halt 200, matches.tsv.to_s
+    when :html
+      template_render('knowledge_base_partials/matches', {:matches => matches}, "Collection Children: #{ [name, database] }")
+    when :json
+      content_type :json
+      _matches = {}
+      matches.each{|type,list|
+        _matches[type] = list.target
+      }
+      halt 200, _matches.to_json
+    else
+      content_type :text
+      matches = matches.sort_by{|k,list| list.length }.last.last
+      halt 200, matches.target * "\n"
+    end
+  end
+
+  post '/knowledge_base/:name/:database/collection_parents' do 
+    name = consume_parameter :name
+    database = consume_parameter :database
+    collection = consume_parameter :collection 
+    raise ParameterException, "No collection specified" if collection.nil?
+    collection = JSON.parse(collection)
+
+    kb = get_knowledge_base name
+    matches = collection.keys.inject({}){|acc,type|
+      entities = collection[type]
+      entities.each do |entity|
+        _matches = kb.parents(database, entity)
+        acc.merge!({ _matches.target_type => _matches}) if _matches and _matches.any?
+      end
+      acc
+    }
+    case @format
+    when :tsv
+      content_type "text/tab-separated-values"
+      matches = matches.sort_by{|k,list| list.length }.last.last
+      halt 200, matches.tsv.to_s
+    when :html
+      template_render('knowledge_base_partials/matches', {:matches => matches}, "Collection Parents: #{ [name, database] }")
+    when :json
+      content_type :json
+      _matches = {}
+      matches.each{|type,list|
+        _matches[type] = list.target
+      }
+      halt 200, _matches.to_json
+    else
+      content_type :text
+      matches = matches.sort_by{|k,list| list.length }.last.last
+      halt 200, matches.target * "\n"
+    end
+  end
+
+  post '/knowledge_base/:name/:database/collection_neighbours' do 
+    name = consume_parameter :name
+    database = consume_parameter :database
+    collection = consume_parameter :collection 
+    raise ParameterException, "No collection specified" if collection.nil?
+    collection = JSON.parse(collection)
+
+    kb = get_knowledge_base name
+    matches = collection.keys.inject({}){|acc,type|
+      entities = collection[type]
+      entities.each do |entity|
+        _matches_h = kb.neighbours(database, entity)
+        _matches_h.each do |key, _matches|
+          target_type = case key
+                        when :children
+                          _matches.target_entity_type
+                        when :parents
+                          _matches.source_entity_type
+                        end
+          _matches = acc[target_type].concat _matches if acc[target_type] and acc[target_type].any?
+          acc.merge!({ target_type => _matches }) if _matches and _matches.any?
+        end
+      end
+      acc
+    }
+
+    @format ||= :json
+    case @format
+    when :tsv
+      content_type "text/tab-separated-values"
+      matches = matches.sort_by{|k,list| list.length }.last.last
+      halt 200, matches.tsv.to_s
+    when :html
+      template_render('knowledge_base_partials/matches', {:matches => matches}, "Collection Parents: #{ [name, database] }")
+    when :json
+      content_type :json
+      _matches = {}
+      matches.each{|type,list|
+        _matches[type] = list.target.uniq.sort
+      }
+      halt 200, _matches.to_json
+    else
+      content_type :text
+      matches = matches.sort_by{|k,list| list.length }.last.last
+      halt 200, matches.target * "\n"
+    end
+  end
+
+  get '/knowledge_base/:name/:database/subset' do 
+    name = consume_parameter :name
+    database = consume_parameter :database
+    source = consume_parameter :source
+    target = consume_parameter :target
+
+    source = source == "all" ? :all : source.split(@array_separator) if source
+    target = target == "all" ? :all : target.split(@array_separator) if target
+    entities = { :source => source, :target => target }
+
+    kb = get_knowledge_base name
+    subset = kb.subset(database, entities)
+    case @format
+    when :tsv
+      content_type "text/tab-separated-values"
+      halt 200, subset.tsv.to_s
+    when :html
+      template_render('knowledge_base_partials/subset', {:subset => subset}, "Subset: #{ [name, database] }")
+    when :json
+      content_type :json
+      halt 200, subset.source.to_json
+    else
+      content_type :text
+      halt 200, subset.source * "\n"
+    end
+  end
+
+  #{{{ Info
+
+  get '/knowledge_base/info/:name/:database/:pair' do 
+    name = consume_parameter :name
+    database = consume_parameter :database
+    pair = consume_parameter :pair
+
+    kb = get_knowledge_base name
+    index = kb.get_index(database)
+
+    AssociationItem.setup(pair, kb, database, false)
+    template_render('knowledge_base_partials/association', {:pair => pair, :kb => kb, :index => index, :database => database}, "Association: #{ pair } #{[name, database] * ":"}", :cache_type => :async)
+  end
+
+  #{{{ Children
+
+  get '/knowledge_base/:name/:database/entity_children/:entity' do
+    name = consume_parameter :name
+    database = consume_parameter :database
+    entity = consume_parameter :entity
+
+    kb = get_knowledge_base name
+    found = kb.identify database, entity
+    raise ParameterException, "Entity #{entity} was not found" unless found
+
+    list = kb.children(database, found).target_entity
+
+    case @format
+    when :json
+      content_type "application/json"
+      halt 200, prepare_entities_for_json(list).to_json
+    when :html
+    end
+  end
+
+  # List children
+  post '/knowledge_base/:name/:database/entity_list_children/' do
+    name = consume_parameter :name
+    database = consume_parameter :database
+    entities = consume_parameter :entities
+
+    raise ParameterException, "No 'entities' provided" if entities.nil?
+
+    entities = entities.split("|")
+
+    kb = get_knowledge_base name
+
+    children = {}
+    entities.each do |entity|
+      found = kb.identify database, entity
+      next if found.nil?
+      children[entity] = kb.children(database, found).target_entity
+    end
+    case @format
+    when :json
+      content_type "application/json"
+      halt 200, prepare_entities_for_json(children).to_json
+    when :html
+    end
+  end
+
+  # Collection children
+  post '/knowledge_base/:name/:database/entity_collection_children' do
+    name = consume_parameter :name
+    database = consume_parameter :database
+    entities = consume_parameter :entities
+
+    raise ParameterException, "No 'entities' provided" if entities.nil?
+
+    entities = JSON.parse(entities)
+
+    kb = get_knowledge_base name
+
+    entities.each do |type,list|
+      list.each do |entity|
+        found = kb.identify database, entity
+        next if found.nil?
+        targets = kb.children(database, found).target_entity
+        next if targets.nil? or targets.empty?
+        target_type = kb.target database
+        children[target_type] ||= []
+        children[target_type].concat targets
+      end
+    end
+
+    case @format
+    when :json
+      content_type "application/json"
+      halt 200, prepare_entities_for_json(children).to_json
+    when :html
+    end
+  end
+
+  #{{{ Neighbours
+
+  get '/knowledge_base/:name/:database/entity_neighbours/:entity' do
+    name = consume_parameter :name
+    database = consume_parameter :database
+    entity = consume_parameter :entity
+
+    kb = get_knowledge_base name
+    found = kb.identify database, entity
+    raise ParameterException, "Entity #{entity} was not found" unless found
+
+    list = kb.neighbours(database, found).values.select{|list| list and list.any?}.first
+    list = list.target_entity if list.respond_to? :target_entity
+    list ||= []
+
+    case @format
+    when :json
+      content_type "application/json"
+      halt 200, prepare_entities_for_json(list).to_json
+    when :html
+    end
+  end
+
+  post '/knowledge_base/:name/:database/entity_list_neighbours/' do
+    name = consume_parameter :name
+    database = consume_parameter :database
+    entities = consume_parameter :entities
+
+    raise ParameterException, "No 'entities' provided" if entities.nil?
+
+    entities = entities.split("|")
+
+    kb = get_knowledge_base name
+
+    children = {}
+    entities.each do |entity|
+      found = kb.identify database, entity
+      next if found.nil?
+      matches = kb.neighbours(database, found).values.select{|list| list and list.any?}.first
+      next if matches.nil? or matches.empty?
+      children[entity] = matches.target_entity
+    end
+    case @format
+    when :json
+      content_type "application/json"
+      halt 200, prepare_entities_for_json(children).to_json
+    when :html
+    end
+  end
+
+  post '/knowledge_base/:name/:database/entity_collection_neighbours' do
+    name = consume_parameter :name
+    database = consume_parameter :database
+    entities = consume_parameter :entities
+
+    raise ParameterException, "No 'entities' provided" if entities.nil?
+
+    entities = JSON.parse(entities)
+
+    kb = get_knowledge_base name
+
+    neighbours = {}
+    entities.each do |type,list|
+      list.each do |entity|
+
+        found = kb.identify_source database, entity
+        if found.nil?
+          reverse = true
+          found = kb.identify_target database, entity
+        else
+          reverse = false
+        end
+        next if found.nil?
+
+        matches = kb.neighbours(database, found)[reverse ? :parents : :children]
+        next if matches.nil? or matches.empty?
+        targets = matches.target
+
+        entity_type = reverse ? kb.source_type(database) : kb.target_type(database)
+        neighbours[entity_type] ||= []
+        neighbours[entity_type].concat targets
+      end
+    end
+
+    neighbours.each{|type, list| list.uniq!}
+
+    case @format
+    when :json
+      content_type "application/json"
+      halt 200, prepare_entities_for_json(neighbours).to_json
+    when :html
+    end
+  end
       end
     end
   end