ramaze.ch.oddb.org 1.0.0

data/lib/oddb/remote/text/document.rb

@@ -0,0 +1,20 @@
+#!/usr/bin/env ruby
+# Remote::Text::Document -- ch.oddb.org -- 27.07.2009 -- hwyss@ywesee.com
+
+require 'oddb/remote/object'
+
+module ODDB
+  module Remote
+    module Text
+class Document < Remote::Object
+  delegate :chapter_names
+  def empty?
+    @remote.empty?
+  end
+  def method_missing *args, &block
+    @remote.send *args, &block
+  end
+end
+    end
+  end
+end

data/lib/oddb/remote/util/m10l_document.rb

@@ -0,0 +1,22 @@
+#!/usr/bin/env ruby
+# Remote::Util::M10lDocument -- ch.oddb.org -- 27.07.2009 -- hwyss@ywesee.com
+
+require 'oddb/remote/object'
+require 'oddb/remote/text/document'
+
+module ODDB
+  module Remote
+    module Util
+class M10lDocument < Remote::Object
+  def descriptions
+    @descriptions or begin
+      @descriptions = @remote.descriptions.inject({}) do |memo, (key, doc)|
+        memo.store key.to_s, Remote::Text::Document.new(@source, doc)
+        memo
+      end
+    end
+  end
+end
+    end
+  end
+end

data/lib/oddb/text/chapter.rb

@@ -0,0 +1,27 @@
+#!/usr/bin/env ruby
+# Text::Chapter -- de.oddb.org -- 24.10.2007 -- hwyss@ywesee.com
+
+require 'oddb/text/paragraph'
+require 'oddb/text/picture'
+require 'oddb/text/table'
+
+module ODDB
+  module Text
+    class Chapter
+      attr_reader :name, :paragraphs
+      def initialize(name)
+        @name = name
+        @paragraphs = []
+      end
+      def add_paragraph(paragraph)
+        @paragraphs.push paragraph unless paragraph.empty?
+      end
+      def append(chapter)
+        @paragraphs.concat chapter.paragraphs
+      end
+      def to_s
+        @paragraphs.join("\n")
+      end
+    end
+  end
+end

data/lib/oddb/text/document.rb

@@ -0,0 +1,43 @@
+#!/usr/bin/env ruby
+# Text::Document -- de.oddb.org -- 26.10.2007 -- hwyss@ywesee.com
+
+require 'oddb/model'
+require 'oddb/text/chapter'
+
+module ODDB
+  module Text
+    ## to migrate Document to be a subclass of Model:
+    #  Drugs::Sequence.all { |seq| need = false; [:fachinfo, :patinfo].each { |key| if(ml = seq.instance_variable_get("@#{key}")); need = true; seq.instance_variable_set("@#{key}", nil); if(doc = ml.de); info = seq.send(key); if(prev = doc.instance_variable_get('@previous_sources')); info.previous_sources[:de] = prev; doc.instance_eval { remove_instance_variable('@previous_sources') }; end; if((source = doc.source) && (saved = Text::Document.find_by_source(source))); doc = saved; end; info.de = doc; info.save; info.de.save; end; end }; seq.save if need }
+    class Document < Model
+      attr_accessor :source, :date
+      attr_reader :chapters
+      def initialize
+        @chapters = []
+      end
+      def add_chapter(chapter)
+        @chapters.push chapter
+      end
+      def chapter(idx_or_name)
+        case idx_or_name
+        when Integer
+          @chapters[idx_or_name]
+        else
+          @chapters.find { |ch| ch.name == idx_or_name }
+        end
+      end
+      def chapter_names
+        @chapters.select { |chapter| 
+          chapter.paragraphs.size > 1 
+        }.collect { |chapter| 
+          chapter.name 
+        }
+      end
+      def remove_chapter(chapter)
+        @chapters.delete(chapter)
+      end
+      def to_s
+        @chapters.join("\n")
+      end
+    end
+  end
+end

data/lib/oddb/text/format.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+# Text::Format -- de.oddb.org -- 19.10.2007 -- hwyss@ywesee.com
+
+module ODDB
+  module Text
+    class Format
+      attr_accessor :start, :end, :values
+      VALID_FORMATS = %w{b i sub sup u}
+      def initialize(*args)
+        @values = []
+        augment *args
+        @start = 0
+        @end = -1
+      end
+      def augment(*args)
+        @values.concat(args & VALID_FORMATS)
+        @values.sort!
+        @values.uniq!
+        @values
+      end
+      def range
+        @start..@end
+      end
+      def ==(other)
+        case other
+        when Format
+          @values == other.values
+        when Array
+          @values == (other & VALID_FORMATS).sort
+        else
+          false
+        end
+      end
+    end
+  end
+end
+

data/lib/oddb/text/paragraph.rb

@@ -0,0 +1,58 @@
+#!/usr/bin/env ruby
+# Text::Paragraph -- de.oddb.org -- 19.10.2007 -- hwyss@ywesee.com
+
+require 'delegate'
+require 'fixes/ruby19'
+require 'oddb/text/format'
+
+module ODDB
+  module Text
+    class Paragraph
+      attr_reader :text, :formats
+      attr_accessor :align
+      def initialize(str='')
+        @formats = []
+        @text = u(str.dup)
+				set_format()
+      end
+      def method_missing *args, &block
+        @text.send *args, &block
+      end
+      def preformatted?
+        @preformatted
+      end
+      def set_format(*args)
+        if(fmt = @formats.last)
+          return if(fmt == args)
+          if(fmt.start == @text.length)
+            @formats.pop
+            fmt = @formats.last
+            if(fmt == args)
+              fmt.end = -1
+              return
+            end
+          else
+            fmt.end	= (@text.length - 1)
+          end
+        end
+        fmt = Text::Format.new(*args)
+        fmt.start = (@text.length)
+        @formats.push(fmt)
+        fmt
+      end
+      def <<(str)
+        if(str.is_a? Paragraph)
+          @align = str.align
+          txt = str.text
+          str.formats.each { |fmt|
+            set_format(*fmt.values)
+            @text << txt[fmt.range]
+          }
+        else
+          @text << str
+        end
+        self
+      end
+    end
+  end
+end

data/lib/oddb/text/picture.rb

@@ -0,0 +1,93 @@
+#!/usr/bin/env ruby
+# Text::Picture -- de.oddb.org -- 24.10.2007 -- hwyss@ywesee.com
+
+require 'oddb/config'
+require 'digest/md5'
+require 'RMagick'
+
+module ODDB
+  module Text
+    class Picture < DelegateClass(String)
+      attr_accessor :height, :width, :xscale, :yscale, :height_goal, :width_goal
+      TWIP = 20 ## see http://en.wikipedia.org/wiki/Twip
+      PCNT = 100 
+      BDNS = 180 ## base density
+      DMAX = 360 ## maximum density
+      def initialize
+        super('')
+      end
+      def blob
+        [self].pack('H*')
+      end
+      def digest
+        @digest ||= Digest::MD5.hexdigest(self)
+      end
+      def empty?
+        super #|| !image
+      rescue StandardError => err
+        ODDB.logger.error("Text::Picture") { 
+          sprintf "%s: %s", err.class, err.message
+        }
+        true
+      end
+      def finalize!
+        wmf = File.join ODDB.config.var, path("%s.wmf" % digest)
+        FileUtils.mkdir_p File.dirname(wmf)
+        File.open(wmf, 'w') { |fh| fh.puts blob }
+
+        twidth = @width ? @width * _xscale / PCNT : @width_goal
+        theight = @height ? @height * _yscale / PCNT : @height_goal
+
+        geom = sprintf("%ix%i!", twidth / TWIP, theight / TWIP)
+        path = File.join ODDB.config.var, path("%s.png" % digest)
+        
+        # let imagemagick take care of file-conversion externally
+        out = %x{convert -resize #{geom} #{wmf} #{path}}
+        if $? != 0
+          raise out
+        end
+
+        png = File.read path
+        replace png.unpack('H*').first
+      end
+      def filename
+        @filename ||= "%s.png" % digest
+      end
+      def formats
+        []
+      end
+      def image
+        Magick::Image.from_blob(blob).first
+      end
+      def path(fn = filename)
+        File.join('/images', fn[0,2], fn)
+      end
+      def set_format(*ignore)
+      end
+      def to_png
+        blob
+      end
+      def to_s
+        image.inspect
+      end
+      def _xscale
+        if @xscale
+          @xscale
+        elsif @width && @width_goal
+          PCNT * @width_goal / @width 
+        else
+          PCNT
+        end
+      end
+      def _yscale
+        if @yscale
+          @yscale
+        elsif @height && @height_goal
+          PCNT * @height_goal / @height 
+        else
+          PCNT
+        end
+      end
+    end
+  end
+end

data/lib/oddb/text/table.rb

@@ -0,0 +1,68 @@
+#!/usr/bin/env ruby
+# Text::Table -- de.oddb.org -- 19.10.2007 -- hwyss@ywesee.com
+
+require 'oddb/text/paragraph'
+
+module ODDB
+  module Text
+    class Table
+      attr_reader :rows
+      def initialize
+        @rows = [[]]
+        next_cell!
+      end
+      def clean!
+        @rows.each { |row|
+          while((cell = row.last) && cell.empty?)
+            row.pop
+          end
+        }
+        while((row = @rows.last) && row.empty?)
+          @rows.pop
+        end
+      end
+      def column_widths
+        @rows.inject([]) { |memo, row|
+          row.each_with_index { |cell, idx|
+            memo[idx] = [memo[idx].to_i, cell.length].max
+          }
+          memo
+        }
+      end
+      def empty?
+        @rows.flatten.all? { |cell| cell.strip.empty? }
+      end
+      def next_cell!
+        cell = Paragraph.new
+        @rows.last.push cell
+        cell
+      end
+      def next_row!
+        @rows.push []
+        next_cell!
+      end
+      def each_normalized(&block)
+        wd = width
+        @rows.each { |row|
+          block.call(row + Array.new(wd - row.length))
+        }
+      end
+      def to_s
+        widths = column_widths
+        @rows.collect { |row|
+          line = ''
+          row.each_with_index { |cell, idx|
+            line << cell.to_s.ljust(widths.at(idx) + 2)
+          }
+          line
+        }.join("\n")
+      end
+      def width
+        @rows.collect { |row| row.length }.max  
+      end
+      def <<(str)
+        @rows.last.last << str
+      end
+    end
+  end
+end

data/lib/oddb/util.rb

@@ -0,0 +1,8 @@
+#!/usr/bin/env ruby
+# Util -- de.oddb.org -- 21.11.2006 -- hwyss@ywesee.com
+
+require 'oddb/util/code'
+require 'oddb/util/money'
+require 'oddb/util/multilingual'
+require 'oddb/util/quanty'
+require 'oddb/util/server'

data/lib/oddb/util/annotated_list.rb

@@ -0,0 +1,37 @@
+#!/usr/bin/env ruby
+# Util::AnnotatedList -- de.oddb.org -- 06.12.2006 -- hwyss@ywesee.com
+
+module ODDB
+  module Util
+class AnnotatedList < Array
+  def initialize(annotations = {})
+    if(annotations.is_a?(Hash))
+      super()
+      @annotations = annotations
+    else
+      super
+      @annotations = {}
+    end
+  end
+  def sort_by(*args, &block)
+    _delegate(super(*args, &block))
+  end
+  def [](*args, &block)
+    _delegate(super(*args, &block))
+  end
+  def method_missing(key, *args)
+    mname = key.id2name
+    if(args.size == 1 && /=$/.match(mname))
+      mname.chop!
+      @annotations[mname.to_sym] = args.first
+    else
+      @annotations[key]
+    end
+  end
+  private
+  def _delegate(content)
+    self.dup.clear.concat(content)
+  end
+end
+  end
+end

data/lib/oddb/util/code.rb

@@ -0,0 +1,69 @@
+#!/usr/bin/env ruby
+# Util::Code -- de.oddb.org -- 12.09.2006 -- hwyss@ywesee.com
+
+require 'date'
+
+module ODDB
+  module Util
+    class Code
+      attr_accessor :type, :value, :country, :format
+      def initialize(type, value, country, valid_from=Date.today)
+        @values = { valid_from => value}
+        @type, @country = type.to_s.downcase, country.to_s.upcase
+      end
+      def hash
+        [@type, @value, @country].hash
+      end
+      def is_for?(type, country)
+        @type == type.to_s.downcase && @country == country.to_s.upcase
+      end
+      def format
+        @format || case @type
+        when 'registration'
+          case @country
+          when 'CH'
+            "%05i"
+          else
+            "%s"
+          end
+        else 
+          "%s"
+        end
+      end
+      def to_s
+        format % value
+      end
+      def value(date=Date.today)
+        pair = @values.sort.reverse.find { |valid_from, value|
+          valid_from <= date
+        }
+        pair && pair.last
+      end
+      def value=(value_and_date)
+        value, valid_from = nil
+        if(value_and_date.is_a?(Array))
+          value, valid_from = value_and_date
+        else
+          value = value_and_date
+          valid_from = Date.today
+        end
+        if(value(valid_from) != value)
+          @values.store(valid_from, value)
+        end
+      end
+      def ==(other)
+        if(other.is_a?(Code))
+          other.type == @type && other.value == value \
+            && other.country == @country
+        elsif(other.is_a?(Hash))
+          res = other[:type].to_s.downcase == @type \
+            && other[:value] == value \
+            && other[:country] == @country
+        else
+          value == other || value.to_s == other
+        end
+      end
+      alias :eql? :==
+    end
+  end
+end