ramaze.ch.oddb.org 1.0.0

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/text/document'
+require 'oddb/persistence/odba/model'
+
+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

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/regulatory/authority.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+# Regulatory::Authority -- ch.oddb.org -- 23.07.2009 -- hwyss@ywesee.com
+
+require 'oddb/persistence/odba/model'
+require 'oddb/regulatory/authority'
+
+module ODDB
+  module Regulatory
+    class Authority < Model
+      odba_index :name, 'name.all'
+    end
+  end
+end

data/lib/oddb/persistence/odba/regulatory/registration.rb

@@ -0,0 +1,13 @@
+#!/usr/bin/env ruby
+# Regulatory::Registration -- ch.oddb.org -- 23.07.2009 -- hwyss@ywesee.com
+
+require 'oddb/persistence/odba/model'
+require 'oddb/regulatory/registration'
+
+module ODDB
+  module Regulatory
+    class Registration < Model
+      odba_index :code
+    end
+  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