rbbt-rest 1.1.0

data/lib/rbbt/rest/entity/entity_list_card.rb

@@ -0,0 +1,26 @@
+class EntityListCard
+
+  attr_accessor :list, :list_id
+  attr_accessor :meta, :description
+  attr_accessor :list_container, :action_controller
+
+  def initialize(list, list_id)
+    @list, @list_id = list, list_id
+  end
+
+  %w(meta description).each do |method|
+    self.send(:define_method, method.to_sym) do |&block|
+      if block
+        instance_variable_set("@#{method}", block)
+      else
+        instance_variable_get("@#{method}")
+      end
+    end
+  end
+end
+
+module EntityRESTHelpers
+  def entity_list_card_render(card)
+    partial_render('entity_partials/entity_list_card', :card => card)
+  end
+end

data/lib/rbbt/rest/entity/favourites.rb

@@ -0,0 +1,97 @@
+module EntityRESTHelpers
+
+  #{{{ Entities 
+
+  def favourite_entities
+    raise "You need to login to have favourites" unless authorized?
+
+    dir = Path.setup(File.join(settings.favourites_dir, user))
+    favourites = {}
+    dir.glob('**').each do |file|
+      type = File.basename(file)
+      entities = Annotated.load_tsv(TSV.open(file))
+      favourites[type] = entities
+    end
+    favourites
+  end
+
+  def add_favourite_entity(entity)
+    raise "You need to login to have favourites" unless authorized?
+
+    entity_type = entity.base_type
+    dir = Path.setup(File.join(settings.favourites_dir, user))
+
+    if (file = dir[entity_type]).exists?
+      entities = Annotated.load_tsv(TSV.open(file))
+      entities << entity
+      Open.write(file, Annotated.tsv(entities.uniq, :all).to_s)
+    else
+      entities = [entity]
+      Open.write(file, Annotated.tsv(entities, :all).to_s)
+    end
+  end
+
+  def remove_favourite_entity(entity)
+    raise "You need to login to have favourites" unless authorized?
+
+    entity_type = entity.base_type
+    dir = Path.setup(File.join(settings.favourites_dir, user))
+
+    if (file = dir[entity_type]).exists?
+      entities = Annotated.load_tsv(TSV.open(file))
+      entities -= [entity]
+      if entities.any?
+        Open.write(file, Annotated.tsv(entities.uniq, :all).to_s)
+      else
+        FileUtils.rm file
+      end
+    end
+  end
+
+  #{{{ Entity Lists
+
+  def favourite_entity_lists
+    raise "You need to login to have favourites" unless authorized?
+
+    dir = Path.setup(File.join(settings.favourite_lists_dir, user))
+    favourites = {}
+    dir.glob('**').each do |file|
+      type = File.basename(file)
+      lists = Open.read(file).split("\n")
+      favourites[type] = lists
+    end
+    favourites
+  end
+
+  def add_favourite_entity_list(entity_type, list)
+    raise "You need to login to have favourites" unless authorized?
+
+    dir = Path.setup(File.join(settings.favourite_lists_dir, user))
+
+    if (file = dir[entity_type]).exists?
+      lists = Open.read(file).split("\n")
+      lists << list
+      Open.write(file, lists * "\n")
+    else
+      lists = [list]
+      Open.write(file, lists * "\n")
+    end
+  end
+
+  def remove_favourite_entity_list(entity_type, list)
+    raise "You need to login to have favourites" unless authorized?
+
+    dir = Path.setup(File.join(settings.favourite_lists_dir, user))
+
+    if (file = dir[entity_type]).exists?
+      lists = Open.read(file).split("\n")
+      lists -= [list]
+      if lists.any?
+        Open.write(file, lists * "\n")
+      else
+        FileUtils.rm file
+      end
+    end
+  end
+
+end

data/lib/rbbt/rest/entity/finder.rb

@@ -0,0 +1,30 @@
+require 'rbbt/ner/finder'
+
+module EntityRESTHelpers
+  def finder_find(term)
+    return [] unless settings.respond_to? :finder and not settings.finder.nil?
+    results = settings.finder.find(term)
+
+    results.uniq.collect{|r| 
+      info = r.info
+      format_string = [info[:namespace], info[:format]].compact * ":"
+
+      info[:code] = r
+
+      if not format_string.empty?
+        info[:value] = r + " [#{format_string}]" 
+      else
+        info[:value] = r
+      end
+
+      score = info.delete :score
+
+      if Array === score
+        info[:score] = score[0]
+        info[:best] = score[1]
+      end
+
+      info 
+    }.sort_by{|i| i[:score] || 0}.reverse
+  end
+end

data/lib/rbbt/rest/entity/helpers.rb

@@ -0,0 +1,130 @@
+
+module EntityRESTHelpers
+
+  def list(list, list_id = nil, text = nil)
+    partial_render('entity_partials/entity_list', :list => list, :list_id => list_id, :text => text)
+  end
+
+  def action_parameters_id
+    case
+    when (params[:entity] and params[:action])
+      ["action_params", params[:entity], params[:action]] * "__"
+    else
+      ["action_params", (rand * 1000).to_i] * "__"
+    end
+  end
+
+  def action_parameters(values = nil, &block)
+    o = Object.new
+    o.extend AnnotatedModule
+
+    if values.nil?
+      values = @clean_params
+    else
+      values = @clean_params.merge(values)
+    end
+
+    o.instance_eval &block
+
+    inputs = o.inputs
+    input_types = o.input_types
+    input_defaults = o.input_defaults
+    input_options = o.input_options
+    input_descriptions = o.input_descriptions
+
+    hidden_inputs = []
+    inputs.each do |input|
+      values[input] = values.delete input.to_s unless values.include? input
+      input_value = values[input]
+      input_default = input_defaults[input]
+      input_option = input_options[input]
+    end
+
+    locals = {}
+    info = {:inputs => inputs, :input_descriptions => input_descriptions, :input_defaults => input_defaults, :input_options => input_options, :input_types => input_types, :values => values}
+    locals[:id] = action_parameters_id
+    locals[:action] = @ajax_url
+    locals[:klass] = 'action_parameter_form'
+    locals[:info] = info
+
+    html_tag :div, partial_render('partials/form', locals), :class => 'action_parameters'
+  end
+
+  def page_type(path = nil)
+    path = request.path_info
+
+    case
+    when path.match(/^\/entity\//)
+      return "entity"; 
+    when path.match(/^\/entity_action\//)
+      return "entity_action"; 
+    when path.match(/^\/entity_list\//)
+      return "entity_list"; 
+    when path.match(/^\/entity_list_action\//)
+      return "entity_list_action"; 
+    else
+      return nil;
+    end
+  end
+
+ def page_entity(path = nil)
+   path = request.path_info
+ 
+   case page_type
+   when "entity"
+     return Entity::REST.restore_element(path.split("/")[3])
+   when "entity_action"
+     return Entity::REST.restore_element(path.split("/")[4])
+   else
+     return nil
+   end
+ end
+
+ def page_action(path = nil)
+   path = request.path_info
+ 
+   case page_type
+   when "entity_action", "entity_list_action"
+     return Entity::REST.restore_element(path.split("/")[3])
+   else
+     return nil
+   end
+ end
+ 
+
+ def page_entity_list(path = nil)
+   path = request.path_info
+ 
+   case page_type
+   when "entity_list"
+     return Entity::REST.restore_element(path.split("/")[3])
+   when "entity_list_action"
+     return Entity::REST.restore_element(path.split("/")[4])
+   else
+     return nil
+   end
+ end
+ 
+ def page_entity_type(path = nil)
+   path = request.path_info
+ 
+   case page_type
+   when "entity", "entity_list", "entity_action", "entity_list_action"
+     return Entity::REST.restore_element(path.split("/")[2])
+   else
+     return nil
+   end
+ end
+ #
+ #
+ #function page_entity_base_type(){
+ #  return page_entity_type().split(":")[0]
+ #}
+ #
+ #
+ #function page_entity_format(){
+ #  return page_entity_type().split(":")[1]
+ #}
+
+
+end

data/lib/rbbt/rest/entity/list.rb

@@ -0,0 +1,92 @@
+require 'rbbt/entity'
+require 'cgi'
+
+module Entity
+  module List
+
+    def self.list_file(entity_type, id, user = nil)
+      id = Misc.sanitize_filename(id)
+
+      entity_type = entity_type.split(":").first
+
+      raise "Ilegal list id: #{ id }" unless Misc.path_relative_to Entity.entity_list_cache, File.join(Entity.entity_list_cache, id)
+
+      path = if user.nil?
+        File.join(Entity.entity_list_cache, entity_type.to_s, id)
+      else
+        File.join(Entity.entity_list_cache, user.to_s, entity_type.to_s, id)
+      end
+
+      path
+    end
+
+    def self.list_files(user = nil)
+
+      path = user.nil? ?
+        File.join(Entity.entity_list_cache, '*', '*') :
+        File.join(Entity.entity_list_cache, user, '*', '*') 
+
+      lists = {}
+      Dir.glob(path).each do |file|
+        next if File.directory? file
+
+        file = File.expand_path(file)
+        raise "Ilegal path: #{ file }. Not relative to #{File.expand_path(Entity.entity_list_cache)}" unless 
+          Misc.path_relative_to(File.expand_path(Entity.entity_list_cache), file)
+
+        if user.nil?
+          entity_type, list = file.split("/")[-2..-1]
+        else
+          user, entity_type, list = file.split("/")[-3..-1]
+        end
+
+        lists[entity_type] ||= []
+        lists[entity_type] << list
+      end
+
+      lists
+    end
+
+    def self.load_list(entity_type, id, user = nil)
+      path = list_file(entity_type, id, user)
+      path = list_file(entity_type, id, :public) unless path != nil and File.exists? path
+      path = list_file(entity_type, id) unless path != nil and File.exists? path
+
+      begin
+        list = Annotated.load_tsv TSV.open(path)
+        list.extend AnnotatedArray
+        list
+      rescue
+        nil
+      end
+    end
+
+    def self.save_list(entity_type, id, list, user = nil)
+      path = list_file(entity_type, id, user)
+
+      Misc.lock path do
+        begin
+          Open.write(path, Annotated.tsv(list, :all).to_s)
+        rescue
+          FileUtils.rm path if File.exists? path
+          raise $!
+        end
+      end
+    end
+
+    def self.delete_list(entity_type, id, user)
+      path = list_file(entity_type, id, user)
+
+      "This list does not belong to #{ user }: #{[entity_type, id] * ": "}" unless File.exists? path
+
+      Misc.lock path do
+        begin
+          FileUtils.rm path if File.exists? path
+        rescue
+          raise $!
+        end
+      end
+    end
+  end
+end
+

data/lib/rbbt/rest/entity/list_container.rb

@@ -0,0 +1,22 @@
+class ListContainer
+  attr_accessor :lists
+  def initialize
+    @lists = []
+  end
+
+  def add(list_id, list = nil, text = nil, options = {}, &block)
+    text, options, list = list, text, block if  block_given?
+    options, text = text, options if Hash === text
+
+    if list and (Proc === list or list.any?)
+      @lists << [list_id, list, text, options]
+    end
+  end
+
+end
+
+module EntityRESTHelpers
+  def list_container_render(container)
+    partial_render('entity_partials/list_container', :container => container)
+  end
+end

data/lib/rbbt/rest/entity/locate.rb

@@ -0,0 +1,281 @@
+module EntityRESTHelpers
+
+  def self.entity_resources
+    @entity_resources ||= [Rbbt.share.views.find(:lib)]
+  end
+
+  def entity_resources
+    [Rbbt.www.views.find(:lib)] +  EntityRESTHelpers.entity_resources
+  end
+ 
+  #{{{ ENTITY
+
+  def locate_entity_template_from_resource(resource, entity)
+    if entity == "Default" 
+      path = resource.entity["Default.haml"]
+      if path.exists?
+        return path
+      else
+        return nil
+      end
+    end
+
+    entity.annotation_types.each do |annotation|
+      path = resource.entity[annotation.to_s + ".haml"]
+      return path if path.exists?
+    end
+
+    nil
+  end   
+
+  def locate_entity_template(entity)
+
+    if entity.respond_to? :dir and Path === entity.dir
+      entity_views = entity.dir.www.views
+
+      entity.annotation_types.each do |annotation|
+        path = entity_views.entity[annotation.to_s + ".haml"]
+        return path if path.exists?
+      end
+    end
+
+    entity_resources.each do |resource|
+      path = locate_entity_template_from_resource(resource, entity)
+      return path if path and path.exists?
+    end
+
+    entity_resources.each do |resource|
+      path = locate_entity_template_from_resource(resource, "Default")
+      return path if path and path.exists?
+    end
+
+    raise "Template not found for entity: #{ entity } (#{entity.annotation_types * ", "})"
+  end
+
+  #{{{ ENTITY ACTION
+
+  def find_all_entity_action_templates_from_resource(resource, entity)
+    if entity == "Default" 
+      resource.entity["Default"].glob("*.haml")
+    else
+      entity.annotation_types.collect do |annotation|
+        resource.entity[annotation].glob('*.haml')
+      end.compact.flatten
+    end
+  end   
+
+  def find_all_entity_action_templates(entity, check = false)
+    paths = []
+
+    if entity.respond_to? :dir and Path === entity.dir
+      paths.concat find_all_entity_action_templates_from_resource(entity.dir.www.views, entity)
+    end
+
+    entity_resources.each do |resource|
+      paths.concat find_all_entity_action_templates_from_resource(resource, entity)
+    end
+
+    entity_resources.each do |resource|
+      paths.concat find_all_entity_action_templates_from_resource(resource, "Default")
+    end
+
+    if check
+      paths = paths.reject do |path|
+        check_file = path.sub(/\.haml$/, '.check')
+        case
+        when (path.basename == "edit.haml" or path.basename == 'new.haml')
+          true
+        when File.exists?(check_file)
+          begin
+            Log.debug("Checking action template: #{path}")
+            code = File.read(check_file)
+            accept = eval code
+            not accept
+          rescue
+            Log.debug("Error Checking action template #{path}: #{$!.message}")
+            true
+          end
+        else
+          false
+        end
+      end
+    end
+
+    paths.collect{|file| file.basename.sub('.haml', '') }.uniq
+  end
+
+  def locate_entity_action_template_from_resource(resource, entity, action)
+    if entity == "Default" 
+      path = resource.entity["Default"][action.to_s + ".haml"]
+      if path.exists?
+        return path
+      else
+        return nil
+      end
+    end
+
+    entity.annotation_types.each do |annotation|
+      path = resource.entity[annotation][action.to_s + ".haml"]
+      return path if path.exists?
+    end
+
+    nil
+  end   
+
+  def locate_entity_action_template(entity, action)
+
+    if entity.respond_to? :dir and Path === entity.dir
+      path = locate_entity_action_template_from_resource(entity.dir.www.views, entity, action)
+      return path if path and path.exists?
+    end
+
+    entity_resources.each do |resource|
+      path = locate_entity_action_template_from_resource(resource, entity, action)
+      return path if path and path.exists?
+    end
+
+    entity_resources.each do |resource|
+      path = locate_entity_action_template_from_resource(resource, "Default", action)
+      return path if path and path.exists?
+    end
+
+    raise "Template not found for action #{action}: #{ entity } (#{entity.annotation_types * ", "})"
+  end
+
+  #{{{ ENTITY LIST
+
+  def locate_entity_list_template_from_resource(resource, list)
+    if list == "Default" 
+      path = resource.entity_list["Default.haml"]
+      if path.exists?
+        return path
+      else
+        return nil
+      end
+    end
+
+    list.annotation_types.each do |annotation|
+      path = resource.entity_list[annotation.to_s + ".haml"]
+      return path if path.exists?
+    end
+
+    nil
+  end   
+
+  def locate_entity_list_template(list)
+
+    if list.respond_to? :dir and Path === list.dir
+      list_views = list.dir.www.views
+
+      list.annotation_types.each do |annotation|
+        path = list_views.entity_list[annotation.to_s + ".haml"]
+        return path if path.exists?
+      end
+    end
+
+    entity_resources.each do |resource|
+      path = locate_entity_list_template_from_resource(resource, list)
+      return path if path and path.exists?
+    end
+
+    entity_resources.each do |resource|
+      path = locate_entity_list_template_from_resource(resource, "Default")
+      return path if path and path.exists?
+    end
+
+    raise "Template not found for list (#{list.annotation_types * ", "})"
+  end
+
+
+  #{{{ ENTITY LIST ACTION
+ 
+  def find_all_entity_list_action_templates_from_resource(resource, entity)
+
+    if entity == "Default" 
+      resource.entity_list["Default"].glob("*.haml")
+    else
+      entity.annotation_types.collect do |annotation|
+        resource.entity_list[annotation].glob('*.haml')
+      end.compact.flatten
+    end
+  end   
+
+  def find_all_entity_list_action_templates(list, check = false)
+    paths = []
+
+    if list.respond_to? :dir and Path === list.dir
+      paths.concat find_all_entity_list_action_templates_from_resource(list.dir.www.views, list)
+    end
+
+    entity_resources.each do |resource|
+      paths.concat find_all_entity_list_action_templates_from_resource(resource, list)
+    end
+
+    entity_resources.each do |resource|
+      paths.concat find_all_entity_list_action_templates_from_resource(resource, "Default")
+    end
+
+    if check
+      paths = paths.reject do |path|
+        check_file = path.sub(/\.haml$/, '.check')
+        case
+        when (path.basename == "edit.haml" or path.basename == 'new.haml')
+          true
+        when File.exists?(check_file)
+          begin
+            Log.debug("Checking action template: #{path}")
+            code = File.read(check_file)
+            accept = eval code
+            not accept
+          rescue
+            Log.debug("Error Checking action template #{path}: #{$!.message}")
+            true
+          end
+        else
+          false
+        end
+      end
+    end
+
+    paths.collect{|file| file.basename.sub('.haml', '') }.uniq
+  end
+
+ 
+  def locate_entity_list_action_template_from_resource(resource, list, action)
+    if list == "Default" 
+      path = resource.entity_list["Default"][action.to_s + ".haml"]
+      if path.exists?
+        return path
+      else
+        return nil
+      end
+    end
+
+    list.annotation_types.each do |annotation|
+      path = resource.entity_list[annotation][action.to_s + ".haml"]
+      return path if path.exists?
+    end
+
+    nil
+  end   
+
+  def locate_entity_list_action_template(list, action)
+
+    if list.respond_to? :dir and Path === list.dir
+      path = locate_entity_list_action_template_from_resource(list.dir.www.views, list, action)
+      return path if path and path.exists?
+    end
+
+    entity_resources.each do |resource|
+      path = locate_entity_list_action_template_from_resource(resource, list, action)
+      return path if path and path.exists?
+    end
+
+    entity_resources.each do |resource|
+      path = locate_entity_list_action_template_from_resource(resource, "Default", action)
+      return path if path and path.exists?
+    end
+
+    raise "Template not found for list #{ action } (#{list.annotation_types * ", "})"
+  end
+end