1 files changed, 55 insertions, 0 deletions
diff --git a/lib/ontology.rb b/lib/ontology.rb
new file mode 100644
index 0000000..c3952c3
--- /dev/null
+++ b/lib/ontology.rb
@@ -0,0 +1,55 @@
+module OpenTox
+  module Ontology
+    module Echa
+      require 'sparql/client'
+      @sparql = SPARQL::Client.new("http://apps.ideaconsult.net:8080/ontology")
+      def self.qs(classname="Endpoints")
+        return "PREFIX ot:<http://www.opentox.org/api/1.1#>
+        PREFIX ota:<http://www.opentox.org/algorithms.owl#>
+        PREFIX owl:<http://www.w3.org/2002/07/owl#>
+        PREFIX dc:<http://purl.org/dc/elements/1.1/>
+        PREFIX rdfs: <http://www.w3.org/2000/01/rdf-schema#>
+        PREFIX rdf:<http://www.w3.org/1999/02/22-rdf-syntax-ns#>
+        PREFIX otee:<http://www.opentox.org/echaEndpoints.owl#>
+        PREFIX toxcast:<http://www.opentox.org/toxcast.owl#>
+        select *
+          where {
+            ?endpoint  rdfs:subClassOf  otee:#{classname}.
+            ?endpoint dc:title ?title.
+          }"
+      end
+      
+      def self.make_option_list(endpoint="Endpoints", level=1)
+        out = ""
+        results = @sparql.query(qs(endpoint)) rescue results = []
+        results.each do |result|
+          endpointname = result.Endpoints.to_s.split('#').last
+          title = result.bound?(:title) ? result.title : endpointname     
+          out += "<option value='#{title}' id='#{endpointname}' class='level_#{level}'>#{title}</option>\n"
+          out += make_option_list(endpointname, level + 1)
+        end
+        return out
+      end
+    
+      def self.get_endpoint_selectlist(include_blank=true)
+        out = "<select id='endpoint' name='endpoint'>\n"
+        out += "<option value='' id='please_select'>Please select</option>\n" if include_blank 
+        out += make_option_list
+        out += "</select>\n"
+        return out
+      end
+
+      def self.endpoints#(endpoint="Endpoints")
+        endpoint_datasets = {}
+        RestClientWrapper.get("http://apps.ideaconsult.net:8080/ambit2/query/ndatasets_endpoint",:accept => "text/csv").each do |line|
+          if line.match(/^http/)
+            e = line.split(',')
+            endpoint_datasets["#{e.first} (#{e[1]})"] = RestClientWrapper.get(e.last, :accept => "text/uri-list").split("\n")#[0..e[1].to_i-1] # hack to get only the first count entries
+          end
+        end
+        endpoint_datasets
+      end
+    end
+
+  end
+end