de.oddb 2.0.0

data/lib/oddb/import/xml.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# Import::Xml -- de.oddb.org -- 17.11.2006 -- hwyss@ywesee.com
+
+require 'rexml/document'
+require 'oddb/import/importer'
+
+module ODDB
+  module Import
+    class Xml < Importer
+      def import(io)
+        import_document(REXML::Document.new(io))
+      end
+    end
+  end
+end

data/lib/oddb/model.rb

@@ -0,0 +1,179 @@
+#!/usr/bin/env ruby
+# Model -- de.oddb.org -- 04.09.2006 -- hwyss@ywesee.com
+
+require 'fixes/singular'
+require 'facet/module/basename'
+
+module ODDB
+  # forward definitions (circular dependency Model <-> M10lDocument)
+  class Model; end 
+  module Util; class M10lDocument < Model; end; end
+  class Model
+    class Predicate
+      attr_reader :action, :type, :delegators
+      def initialize(action, type, *delegators)
+        raise "unknown predicate type: #{type}" unless respond_to?(type)
+        @action, @type, @delegators = action, type, delegators
+      end
+      def cascade(action, next_level)
+        if(next_level.is_a?(Array))
+          next_level.each { |element| 
+            cascade(action, element)
+          }
+        else
+          next_level.send(action) if(next_level.respond_to?(action))
+        end
+      end
+      def delegate(action, next_level)
+      end
+      def execute(action, object)
+        if(action == @action)
+          @delegators.each { |delegator|
+            self.send(@type, action, object.send(delegator))
+          }
+        end
+      end
+    end
+    class << self
+      def belongs_to(groupname, *predicates)
+        attr_reader groupname
+        varname = "@#{groupname}"
+        connections.push(varname)
+        selfname = singular
+        define_method("#{groupname}=") { |group|
+          old = instance_variable_get(varname)
+          if(old != group)
+            if(old)
+              old.send("remove_#{selfname}", self)
+              old.save
+            end
+            if(group)
+              group.send("add_#{selfname}", self)
+              group.save
+            end
+          end
+          instance_variable_set(varname, group)
+        }
+        predicates.each { |predicate|
+          if(predicate.action == :method_missing)
+            predicate.delegators.each { |key|
+              define_method(key) { 
+                if(group = instance_variable_get(varname))
+                  group.send(key)
+                end
+              }
+            }
+          else
+            predicate.delegators.push(groupname)
+            self.predicates.push(predicate)
+          end
+        }
+      end
+      def connections
+        @connections ||= []
+      end
+      def connector(key)
+        connectors.push "@#{key}"
+      end
+      def connectors
+        @connectors ||= []
+      end
+      def delegates(*delegators)
+        Predicate.new(:method_missing, :delegate, *delegators)
+      end
+      def has_many(plural, *predicates)
+        varname = "@#{plural}"
+        define_method(plural) {
+          instance_variable_get(varname) or begin
+            instance_variable_set(varname, Array.new)
+          end
+        }
+        define_method("add_#{plural.to_s.singular}") { |inst|
+          container = self.send(plural)
+          unless(container.any? { |other| inst.eql? other })
+            container.push(inst) 
+          end
+          inst
+        }
+        define_method("remove_#{plural.to_s.singular}") { |inst|
+          self.send(plural).delete_if { |other| inst.eql? other }
+        }
+        connectors.push(varname)
+        predicates.each { |predicate|
+          if(predicate.type == :delegate)
+            predicate.delegators.each { |key|
+              define_method(key) {
+                self.send(plural).collect { |inst|
+                  inst.send(key)
+                }.flatten
+              }
+            }
+          else
+            predicate.delegators.push(plural)
+            self.predicates.push(predicate)
+          end
+        }
+      end
+      def on_delete(action, *delegators)
+        Predicate.new(:delete, action, *delegators)
+      end
+      def on_save(action, *delegators)
+        Predicate.new(:save, action, *delegators)
+      end
+      def predicates
+        @predicates ||= []
+      end
+      def is_coded
+        has_many :codes
+        define_method(:code) { |*args|
+          type, country = *args
+          codes.find { |code| code.is_for?(type, country || 'DE') }
+        }
+      end
+      def m10l_document(key)
+        varname = "@#{key}"
+        define_method(key) {
+          instance_variable_get(varname) or begin
+            instance_variable_set(varname, Util::M10lDocument.new)
+          end
+        }
+        connectors.push varname
+      end
+      def multilingual(key)
+        define_method(key) {
+          instance_variable_get("@#{key}") or begin
+            instance_variable_set("@#{key}", Util::Multilingual.new)
+          end
+        }
+        define_method(:to_s) { 
+          self.send(key).to_s
+        }
+      end
+      def singular
+        basename.gsub(/([a-z])([A-Z])/, '\1_\2').downcase
+      end
+      def serialize(key)
+      end
+    end
+    def data_origin(key)
+      data_origins[key]
+    end
+    def data_origins
+      @data_origins ||= {}
+    end
+    def delete
+      self.class.predicates.each { |predicate|
+        predicate.execute(:delete, self)
+      }
+      self
+    end
+    def save
+      self.class.predicates.each { |predicate|
+        predicate.execute(:save, self)
+      }
+      self
+    end
+  end
+end
+
+require 'oddb/util/m10l_document'

data/lib/oddb/persistence.rb

@@ -0,0 +1,22 @@
+require 'oddb/config'
+
+module ODDB
+  require File.join('oddb', 'persistence', @config.persistence)
+  persistence = nil
+  case @config.persistence
+  when 'odba'
+    DRb.install_id_conv ODBA::DRbIdConv.new
+    @persistence = ODDB::Persistence::ODBA
+  when 'og'
+    DRb.install_id_conv DRb::TimerIdConv.new
+    Og.setup({
+      :name     => @config.db_name,
+      :user     => @config.db_user,
+      :password => @config.db_auth,
+      :store    => @config.db_backend,
+      :evolve_schema => true,
+      :evolve_schema_cautious => false,
+    })
+    @persistence = ODDB::Persistence::Og
+  end
+end

data/lib/oddb/persistence/odba.rb

@@ -0,0 +1,32 @@
+#!/usr/bin/env ruby
+# Persistence::ODBA -- de.oddb.org -- 01.09.2006 -- hwyss@ywesee.com
+
+require 'oddb/config'
+require 'odba'
+require 'odba/connection_pool'
+require 'odba/drbwrapper'
+
+require 'oddb/persistence/odba/business/company'
+require 'oddb/persistence/odba/business/invoice'
+require 'oddb/persistence/odba/business/grant_download'
+require 'oddb/persistence/odba/drugs/atc'
+require 'oddb/persistence/odba/drugs/galenic_form'
+require 'oddb/persistence/odba/drugs/galenic_group'
+require 'oddb/persistence/odba/drugs/package'
+require 'oddb/persistence/odba/drugs/product'
+require 'oddb/persistence/odba/drugs/sequence'
+require 'oddb/persistence/odba/drugs/substance'
+require 'oddb/persistence/odba/drugs/substance_group'
+require 'oddb/persistence/odba/drugs/unit'
+require 'oddb/persistence/odba/text/document'
+require 'oddb/persistence/odba/util/m10l_document'
+
+module ODDB
+  module Persistence
+    module ODBA
+    end
+  end
+  ODBA.storage.dbi = ODBA::ConnectionPool.new("DBI:pg:#{@config.db_name}",
+                                              @config.db_user, @config.db_auth)
+  ODBA.cache.setup
+end

data/lib/oddb/persistence/odba/business/company.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+# Business::Company -- de.oddb.org -- 22.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/business/company'
+require 'oddb/persistence/odba/model'
+
+module ODDB
+  module Business
+    class Company < Model
+      odba_index :name, 'name.all'
+    end
+  end
+end

data/lib/oddb/persistence/odba/business/grant_download.rb

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+# ODDB::Business::GrantDownload -- de.oddb.org -- 18.11.2010 -- mhatakeyama@ywesee.com
+
+require 'oddb/business/grant_download'
+require 'oddb/persistence/odba/model'
+
+module ODDB
+  module Business
+    class GrantDownload < Model
+      odba_index :email
+      serialize :grant_list
+    end
+  end
+end

data/lib/oddb/persistence/odba/business/invoice.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# Business::Invoice -- de.oddb.org -- 23.01.2008 -- hwyss@ywesee.com
+
+require 'oddb/business/invoice'
+require 'oddb/persistence/odba/model'
+
+module ODDB
+  module Business
+    class Invoice < Model
+      odba_index :yus_name
+      odba_index :id
+      serialize :items
+    end
+  end
+end

data/lib/oddb/persistence/odba/drugs/atc.rb

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# Drugs::Atc -- de.oddb.org -- 17.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/drugs/atc'
+require 'oddb/persistence/odba/model'
+
+module ODDB
+  module Drugs
+    class Atc < Model
+      odba_index :code
+      odba_index :level, :code
+      odba_index :name, 'name.all'
+    end
+  end
+end

data/lib/oddb/persistence/odba/drugs/galenic_form.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+# Drugs::GalenicForm -- de.oddb.org -- 11.09.2006 -- hwyss@ywesee.com
+
+require 'oddb/drugs/product'
+require 'oddb/drugs/galenic_form'
+require 'oddb/persistence/odba/model'
+require 'oddb/util/code'
+
+module ODDB
+  module Drugs
+    class GalenicForm < Model
+      odba_index :description, 'description.all'
+      odba_index :code, :codes, {:type => 'type.to_s', 
+        :country => 'country', :value => 'to_s'}, Util::Code
+      serialize :codes
+    end
+  end
+end

data/lib/oddb/persistence/odba/drugs/galenic_group.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+# Drugs::GalenicGroup -- de.oddb.org -- 21.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/drugs/galenic_group'
+require 'oddb/persistence/odba/model'
+
+module ODDB
+  module Drugs
+    class GalenicGroup < Model
+      odba_index :name, 'name.all'
+    end
+  end
+end

data/lib/oddb/persistence/odba/drugs/package.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+# Drugs::Package -- de.oddb.org -- 21.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/drugs/package'
+require 'oddb/persistence/odba/model'
+require 'oddb/persistence/odba/drugs/substance'
+require 'oddb/persistence/odba/util/code'
+
+module ODDB
+  module Drugs
+    class Package < Model
+      odba_index :code, :codes, {:type => 'type.to_s', 
+        :country => 'country', :value => 'to_s'}, Util::Code
+      odba_index :atc, 'atc.code'
+      odba_index :name, 'name.all'
+      odba_index :substance, :substances, 'name.all', Drugs::Substance,
+        :resolve_target => :packages
+      odba_index :company, :company, 'name.all', Business::Company,
+        :resolve_target => :packages
+      odba_index :product, :product, 'name.all', Drugs::Product,
+        :resolve_target => :packages
+      serialize :codes, :prices
+    end
+  end
+end

data/lib/oddb/persistence/odba/drugs/product.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+# Drugs::Product -- de.oddb.org -- 07.09.2006 -- hwyss@ywesee.com
+
+require 'oddb/drugs/product'
+require 'oddb/persistence/odba/model'
+
+module ODDB
+  module Drugs
+    class Product < Model
+      odba_index :name, 'name.all'
+    end
+  end
+end

data/lib/oddb/persistence/odba/drugs/sequence.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# Drugs::Sequence -- de.oddb.org -- 08.01.2008 -- hwyss@ywesee.com
+
+require 'oddb/drugs/sequence'
+require 'oddb/persistence/odba/model'
+require 'oddb/text/document'
+
+module ODDB
+  module Drugs
+    class Sequence < Model
+      odba_index :code, :codes, {:type => 'type.to_s', :country => 'country', 
+        :value => 'to_s'}, Util::Code
+      odba_index :fachinfo_indications_de, 'fachinfo.de',
+                 'chapter("indications").to_s', Text::Document,
+                 :fulltext => true, :dictionary => 'german'
+      odba_index :product, :product, 'name.all', Drugs::Product,
+        :resolve_target => :sequences
+      serialize :codes
+    end
+  end
+end

data/lib/oddb/persistence/odba/drugs/substance.rb

@@ -0,0 +1,21 @@
+#!/usr/bin/env ruby
+# Drugs::Substance -- de.oddb.org -- 12.09.2006 -- hwyss@ywesee.com
+
+require 'oddb/drugs/substance'
+require 'oddb/persistence/odba/model'
+
+module ODDB
+  module Drugs
+    class Substance < Model
+      odba_index :name, 'name.all'
+      odba_index :code, :codes, {:type => 'type.to_s', :country => 'country', 
+        :value => 'to_s'}, Util::Code
+      attr_reader :group
+      def group=(group)
+        group.add_substance(self)
+        @group = group
+      end
+      serialize :codes
+    end
+  end
+end

data/lib/oddb/persistence/odba/drugs/substance_group.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+# Drugs::SubstanceGroup -- de.oddb.org -- 13.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/drugs/substance_group'
+require 'oddb/persistence/odba/model'
+
+module ODDB
+  module Drugs
+    class SubstanceGroup < Model
+      odba_index :name, 'name.all'
+    end
+  end
+end