de.oddb 2.0.0

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

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

data/lib/oddb/persistence/odba/export.rb

@@ -0,0 +1,26 @@
+#!/usr/bin/env ruby
+# Export -- de.oddb.org -- 10.10.2007 -- hwyss@ywesee.com
+
+require 'odba'
+require 'oddb/export/yaml'
+
+module ODBA
+  class Stub
+    def to_yaml(*args)
+      odba_instance.to_yaml(*args)
+    end
+  end
+  module Persistable
+    def to_yaml_properties
+      (super - odba_exclude_vars).reject { |name| 
+        /^@odba_/.match name}
+    end
+  end
+end
+module ODDB
+  class Model
+    def oid
+      @odba_id
+    end
+  end
+end

data/lib/oddb/persistence/odba/model.rb

@@ -0,0 +1,68 @@
+#!/usr/bin/env ruby
+# Model -- de.oddb.org -- 07.09.2006 -- hwyss@ywesee.com
+
+require 'oddb/model'
+
+module ODDB
+  class Model
+    include ODBA::Persistable
+    unless(instance_methods.include?('__odba_delete__'))
+      alias :__odba_delete__ :delete
+    end
+    def delete
+      __odba_delete__
+      self.class.connectors.each { |name|
+        if(conn = instance_variable_get(name))
+          conn.odba_delete
+        end
+      }
+      odba_delete
+    end
+    def odba_serializables
+      super.concat self.class.serializables
+    end
+    unless(instance_methods.include?('__odba_save__'))
+      alias :__odba_save__ :save
+    end
+    def save
+      __odba_save__
+      odba_isolated_store
+      self.class.connectors.each { |name|
+        if((conn = instance_variable_get(name)) && conn.respond_to?(:odba_store))
+          conn.odba_store
+        end
+      }
+      self
+    end
+    def saved?
+      !odba_unsaved?
+    end
+    alias :uid :odba_id
+    class << self
+      alias :all :odba_extent
+      alias :count :odba_count
+      def find_by_uid(uid)
+        obj = ODBA.cache.fetch(uid)
+        obj if(obj.class == self)
+      end
+      def serializables
+        @serializables ||= _serializables
+      end
+      def _serializables
+        if((kls = ancestors.at(1)) && kls.respond_to?(:serializables))
+          kls.serializables.dup
+        else
+          []
+        end
+      end
+      def serialize(*keys)
+        keys.each { |key|
+          name = "@#{key}"
+          connectors.delete(name)
+          serializables.push(name)
+        }
+      end
+    end
+    serialize :data_origins
+  end
+end

data/lib/oddb/persistence/odba/text/document.rb

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+# Text::Document -- de.oddb.org -- 11.03.2008 -- hwyss@ywesee.com
+
+module ODDB
+  module Text
+    class Document < Model
+      odba_index :source
+      serialize :chapters
+    end
+  end
+end

data/lib/oddb/persistence/odba/util/code.rb

@@ -0,0 +1,11 @@
+#!/usr/bin/env ruby
+# Util::Code -- de.oddb.org -- 12.09.2006 -- hwyss@ywesee.com
+
+require 'oddb/util/code'
+
+module ODDB
+  module Util
+    class Code
+    end
+  end
+end

data/lib/oddb/persistence/odba/util/m10l_document.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+# Util::M10lDocument -- de.oddb.org -- 11.03.2008 -- hwyss@ywesee.com
+
+require 'oddb/util/m10l_document'
+require 'oddb/persistence/odba/model'
+
+module ODDB
+  module Util
+    class M10lDocument < Model
+      serialize :previous_sources
+    end
+  end
+end

data/lib/oddb/persistence/og.rb

@@ -0,0 +1,16 @@
+#!/usr/bin/env ruby
+# Persistence::Og -- de.oddb.org -- 31.08.2006 -- hwyss@ywesee.com
+
+require 'og'
+
+require 'oddb/persistence/og/model'
+require 'oddb/persistence/og/drugs/product'
+require 'oddb/persistence/og/drugs/sequence'
+require 'oddb/persistence/og/drugs/composition'
+
+module ODDB
+  module Persistence
+    module Og
+    end
+  end
+end

data/lib/oddb/persistence/og/drugs/composition.rb

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+# Drugs::Composition -- de.oddb.org -- 01.09.2006 -- hwyss@ywesee.com
+
+require 'oddb/drugs/composition'
+require 'oddb/drugs/sequence'
+
+module ODDB
+  module Drugs
+    class Composition < Model
+      property :oddb_id
+      belongs_to :sequence, Sequence
+    end
+  end
+end

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

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+# Drugs::Product -- de.oddb.org -- 09.08.2006 -- hwyss@ywesee.com
+
+require 'oddb/drugs/product'
+require 'oddb/drugs/sequence'
+
+module ODDB
+  module Drugs
+    class Product < Model
+      property :oddb_id
+      has_many :sequences, Sequence
+    end
+  end
+end

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

@@ -0,0 +1,15 @@
+#!/usr/bin/env ruby
+# Drugs::Sequence -- de.oddb.org -- 31.08.2006 -- hwyss@ywesee.com
+
+require 'oddb/drugs/product'
+require 'oddb/drugs/composition'
+
+module ODDB
+  module Drugs
+    class Sequence < Model
+      property :oddb_id
+      belongs_to :product, Product
+      has_many :compositions, Composition
+    end
+  end
+end

data/lib/oddb/persistence/og/model.rb

@@ -0,0 +1,25 @@
+#!/usr/bin/env ruby
+# Model -- de.oddb.org -- 04.09.2006 -- hwyss@ywesee.com
+
+require 'oddb/model'
+require 'oddb/persistence/og/util/multilingual'
+
+module ODDB
+  class Model
+    class << self
+      def multilingual(key)
+        property :oddb_id
+        refers_to key, Util::Multilingual
+        puts "multilingual(#{self}:#{key}), defined in persistence/og/model"
+        define_method(key) {
+          puts "method '#{key}', defined in persistence/og/model"
+          puts instance_variable_get("@#{key}")
+          instance_variable_get("@#{key}") or begin
+            puts "creating new Multilingual"
+            instance_variable_set("@#{key}", Util::Multilingual.new)
+          end
+        }
+      end
+    end
+  end
+end

data/lib/oddb/persistence/og/util/multilingual.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+# Util::Multilingual -- de.oddb.org -- 04.09.2006 -- hwyss@ywesee.com
+
+require 'oddb/util/multilingual'
+
+module ODDB
+  module Util
+    class Multilingual
+      property :canonical, Hash
+      property :synonyms, Array
+    end
+  end
+end

data/lib/oddb/redist/rtf_tools/reader.rb

@@ -0,0 +1,139 @@
+#!/usr/bin/ruby
+
+################################################################################
+# Class   : rtf_tools/reader
+#
+# Version : 1.000
+# Dated   : 25th January 2003
+# Author  : Peter Hickman <peterhi@ntlworld.com>
+#
+# Description
+# -----------
+# Take a string of RTF as input and return it token by token.
+################################################################################
+
+class RTFReader
+	TOKEN_CONTROL = 'control'
+	TOKEN_EOF = 'eof'
+	TOKEN_GROUP = 'group'
+	TOKEN_TEXT = 'text'
+
+	def initialize(buffer)
+		@bufferstring = buffer
+		@buffer = Array.new
+	end
+
+	public
+
+	def get_token
+		@token = ''
+		@body = ''
+		@extra = ''
+
+		chr = _read_char
+
+		if not chr then
+			@token = TOKEN_EOF
+		else
+			@body << chr
+
+			case chr
+			when '{', '}'
+				@token = TOKEN_GROUP
+			when '\\'
+				chr = _read_char
+
+				@body << chr
+
+				if chr =~ /[a-zA-Z]/ then
+					@token = TOKEN_CONTROL
+					process_control
+				else
+					@token = TOKEN_TEXT
+					process_text
+				end
+			else
+				@token = TOKEN_TEXT
+				process_text
+			end
+		end
+
+		if @token == TOKEN_CONTROL and @body =~ /^(\\[a-zA-Z]+)(.*)$/ then
+			@body = $1
+			@extra = $2
+		end
+
+		return @token, @body, @extra
+	end
+
+	private
+
+	def _read_char
+		if @buffer.empty? then
+			if @bufferstring.size > 100 then
+				x = @bufferstring.slice!(0,100)
+			else
+				x = @bufferstring
+				@bufferstring = ''
+			end
+
+			@buffer = x.split(//)
+		end
+
+		return @buffer.shift
+	end
+
+	def _unread_char(char)
+		@buffer.unshift(char)
+	end
+
+	def process_text
+		chr = _read_char
+		while chr and chr != '\\' and chr != '{' and chr != '}' do
+			@body << chr
+			chr = _read_char
+		end
+		_unread_char(chr) if chr
+	end
+
+	def process_control
+		chr = _read_char
+
+		while chr =~ /[a-zA-Z]/ do
+			@body << chr
+			chr = _read_char
+		end
+
+		if chr == '-' then
+			@body << chr
+			chr = _read_char
+		end
+
+		while chr =~ /[0-9]/ do
+			@body << chr
+			chr = _read_char
+		end
+
+		if chr == ' ' then
+			@body << chr
+			chr = _read_char
+		end
+
+		_unread_char(chr)
+	end
+end
+
+if $0 == __FILE__ then
+	line = '{\pard \qc \b\f3\fs40 Section 1: The Larch \par}'
+
+	r = RTFReader.new(line)
+
+	puts line
+
+	type, value, extra = r.get_token
+	while type != 'eof' do
+		puts "[#{type},#{value},#{extra}]\n"
+
+		type, value, extra = r.get_token
+	end
+end

data/lib/oddb/remote/business/company.rb

@@ -0,0 +1,17 @@
+#!/usr/bin/env ruby
+# Remote::Business::Company -- de.oddb.org -- 16.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/remote/object'
+require 'oddb/util/multilingual'
+
+module ODDB
+  module Remote
+    module Business
+class Company < Remote::Object
+  def name
+    @name ||= Util::Multilingual.new(:de => @remote.name)
+  end
+end
+    end
+  end
+end

data/lib/oddb/remote/drugs/active_agent.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+# Remote::Drugs::ActiveAgent -- de.oddb.org -- 16.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/remote/object'
+require 'oddb/remote/drugs/substance'
+
+module ODDB
+  module Remote
+    module Drugs
+class ActiveAgent < Remote::Object
+  def dose
+    @dose ||= @remote.dose
+  end
+  def substance
+    @substance ||= Remote::Drugs::Substance.new(@source, @remote.substance)
+  end
+  def <=>(other)
+    if(dose.nil?)
+      substance <=> other.substance
+    else
+      [substance, dose] <=> [other.substance, other.dose]
+    end
+  end
+end
+    end
+  end
+end

data/lib/oddb/remote/drugs/atc.rb

@@ -0,0 +1,31 @@
+#!/usr/bin/env ruby
+# Remote::Drugs::Atc -- de.oddb.org -- 16.02.2007 -- hwyss@ywesee.com
+
+require 'oddb/remote/object'
+require 'oddb/util/multilingual'
+
+module ODDB
+  module Remote
+    module Drugs
+class Atc < Remote::Object
+  delegate :code, :parent_code
+  def initialize *args
+    super
+    @ddds = {}
+  end
+  def name
+    @name ||= Util::Multilingual.new(:de => @remote.name)
+  end
+  def ddds(administration)
+    @ddds[administration] ||= @remote.ddds.inject([]) { |memo, (roa, ddd)| 
+      memo.push ddd if roa == administration 
+      memo
+    }
+  end
+  def interesting?
+    false
+  end
+end
+    end
+  end
+end