ebps 1.0.2

data/lib/ebps/conversion/patinfo_yaml.rb

@@ -0,0 +1,107 @@
+require 'ebps/text/document'
+require 'yaml'
+
+module EBPS
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::Patinfo' do |type, val|
+    if descr = val.delete('descriptions')
+      doc = descr[EBPS.config.language]
+      doc.metadata.update val
+      doc
+    end
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::PatinfoDocument' do |type, val|
+    chapters = %w{galenic_form composition effects kinetic indications usage
+                  restrictions unwanted_effects interactions overdose
+                  other_advice delivery distribution fabrication iksnrs
+                  packages date}
+    Conversion::PatinfoYaml.assemble_document chapters, val
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::PatinfoDocument2001' do |type, val|
+    chapters = %w{amzv composition galenic_form indications usage
+                  contra_indications restrictions interactions pregnancy
+                  driving_ability unwanted_effects overdose effects kinetic
+                  preclinic other_advice iksnrs packages registration_owner
+                  date}
+    Conversion::PatinfoYaml.assemble_document chapters, val
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::Text::Chapter' do |type, val|
+    chp = Text::Chapter.new
+    chp.heading << val['heading']
+    Conversion::PatinfoYaml.encode chp.heading
+    chp.paragraphs.concat val['sections'].flatten.compact
+    chp
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::Text::Section' do |type, val|
+    paragraphs = []
+    if (txt = val['subheading']) && !txt.empty?
+      sh = Text::Subheading.new
+      sh << txt
+      Conversion::PatinfoYaml.encode sh.text
+      paragraphs << sh
+    end
+    paragraphs.concat val['paragraphs']
+    paragraphs
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::Text::Paragraph' do |type, val|
+    par = Text::Paragraph.new
+    par << val['text']
+    Conversion::PatinfoYaml.encode par.text
+    par.formats.replace val['formats']
+    if val['preformatted']
+      par.formats.each do |fmt|
+        fmt.values << 'pre'
+      end
+    end
+    par
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::Text::ImageLink' do |type, val|
+    src = File.join EBPS.config.image_prefix, val['src']
+    file = File.basename src
+    handle = nil
+    begin
+      handle = open src
+      picture = Text::Picture.new
+      picture << handle.read
+      picture
+    rescue
+    end
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::Text::Format' do |type, val|
+    fmt = Text::Format.new
+    fmt.values = val['values']
+    fmt.start = val['start']
+    fmt.end = val['end']
+    fmt
+  end
+  YAML.add_domain_type 'oddb.org,2003', 'ODDB::SimpleLanguage::Descriptions' do |type, val|
+    val
+  end
+  module Conversion
+    module PatinfoYaml
+      def self.import string_or_io, path=nil
+        collection = {}
+        YAML.each_document string_or_io do |doc|
+          if doc
+            collection.store Digest::MD5.hexdigest(doc.to_s), doc
+          end
+        end
+        ## apparently we have some nil-values here (?)
+        collection.values.compact
+      end
+      def self.assemble_document chapters, yaml_value
+        doc = Text::Document.new
+        doc.title = Conversion::PatinfoYaml.encode(yaml_value['name'])
+        chapters.each do |name|
+          if chapter = yaml_value[name]
+            doc.add_chapter chapter
+          end
+        end
+        doc
+      end
+      def self.encode txt
+        txt.force_encoding 'UTF-8'
+        txt
+      end
+    end
+  end
+end

data/lib/ebps/data/stylesheet.css

@@ -0,0 +1,16 @@
+.ebps {
+  display: block;
+  text-indent: 0;
+}
+h3 {
+  margin-top: 1em;
+}
+h4 {
+  margin-top: 0.5em;
+}
+table.ebps {
+  border-collapse: collapse;
+}
+table.ebps td {
+  border: 1px solid #999;
+}

data/lib/ebps/postprocess/bookworm.rb

@@ -0,0 +1,16 @@
+module EBPS
+  module Postprocess
+    module Bookworm
+      def self.postprocess data={}
+        target = EBPS.config.target
+        command = "curl -F epub_data=@#{target}"
+        data['params'].each do |name, value|
+          command << " -F #{name}=#{value}"
+        end
+        command << " #{data['url']}"
+        system command
+        "the generated Ebook %s was published on Bookworm" % File.basename(target)
+      end
+    end
+  end
+end

data/lib/ebps/postprocess/copy.rb

@@ -0,0 +1,28 @@
+require 'net/ftp'
+require 'uri'
+
+module EBPS
+  module Postprocess
+    module Copy
+      def self.postprocess data={}
+        target = EBPS.config.target
+        report = ["the generated Ebook %s was copied to the following locations" % File.basename(target)]
+        data['targets'].each do |path|
+          uri = ::URI.parse path
+          case uri.scheme
+          when 'ftp'
+            Net::FTP.open uri.host do |ftp|
+              ftp.login uri.user, uri.password
+              ftp.chdir File.dirname(uri.path)
+              ftp.putbinaryfile target, File.basename(uri.path)
+            end
+          else
+            FileUtils.cp target, path
+          end
+          report.push sprintf(" - %s", path)
+        end
+        report.join "\n"
+      end
+    end
+  end
+end

data/lib/ebps/postprocess/system_call.rb

@@ -0,0 +1,18 @@
+module EBPS
+  module Postprocess
+    module SystemCall
+      def self.postprocess data={}
+        report = ["the following commands were executed"]
+        pwd = Dir.pwd
+        data['command_lines'].each do |dir, command|
+          Dir.chdir dir
+          system(command)
+          report.push sprintf(" - %s in directory %s", command, dir)
+        end
+        report.join "\n"
+      ensure
+        Dir.chdir pwd
+      end
+    end
+  end
+end

data/lib/ebps/preprocess/copy.rb

@@ -0,0 +1,28 @@
+require 'net/ftp'
+require 'uri'
+
+module EBPS
+  module Preprocess
+    module Copy
+      def self.preprocess data={}
+        report = ["The following files were copied"]
+        data['transfers'].each do |path, destination|
+          FileUtils.mkdir_p File.dirname(destination)
+          uri = ::URI.parse path
+          case uri.scheme
+          when 'ftp'
+            Net::FTP.open uri.host do |ftp|
+              ftp.login uri.user, uri.password
+              ftp.chdir File.dirname(uri.path)
+              ftp.getbinaryfile File.basename(uri.path), destination
+            end
+          else
+            FileUtils.cp path, destination
+          end
+          report.push sprintf(" - from %s to %s")
+        end
+        report.join "\n"
+      end
+    end
+  end
+end

data/lib/ebps/preprocess/system_call.rb

@@ -0,0 +1,18 @@
+module EBPS
+  module Preprocess
+    module SystemCall
+      def self.preprocess data={}
+        report = ["the following commands were executed"]
+        pwd = Dir.pwd
+        data['command_lines'].each do |dir, command|
+          Dir.chdir dir
+          system(command)
+          report.push sprintf(" - %s in directory %s", command, dir)
+        end
+        report.join "\n"
+      ensure
+        Dir.chdir pwd
+      end
+    end
+  end
+end

data/lib/ebps/text/chapter.rb

@@ -0,0 +1,36 @@
+require 'ebps/text/paragraph'
+require 'ebps/text/picture'
+require 'ebps/text/table'
+
+module EBPS
+  module Text
+    class Chapter
+      attr_reader :paragraphs, :heading
+      def initialize
+        @heading = ''
+        @paragraphs = []
+      end
+      def add_paragraph(paragraph)
+        case paragraph
+        when Paragraph, Picture, Table
+        else
+          raise TypeError
+        end
+        unless @paragraphs.include?(paragraph)
+          @paragraphs.push paragraph
+          paragraph
+        end
+      end
+      def append chapter
+        @paragraphs.concat chapter.paragraphs
+      end
+      def partial?
+        @heading.empty? || @paragraphs.empty?
+      end
+      def to_s
+        head = @heading.empty? ? [] : [@heading]
+        head.concat(@paragraphs).join("\n")
+      end
+    end
+  end
+end

data/lib/ebps/text/document.rb

@@ -0,0 +1,36 @@
+require 'ebps/text/chapter'
+
+module EBPS
+  module Text
+    class Document
+      attr_reader :chapters, :metadata
+      attr_accessor :title
+      def initialize
+        @chapters = []
+        @metadata = {}
+        @title = ''
+      end
+      def add_chapter(chapter)
+        raise TypeError unless chapter.is_a?(Chapter)
+        unless @chapters.include?(chapter)
+          @chapters.push chapter
+          chapter
+        end
+      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 remove_chapter(chapter)
+        @chapters.delete(chapter)
+      end
+      def to_s
+        @chapters.join("\n")
+      end
+    end
+  end
+end

data/lib/ebps/text/format.rb

@@ -0,0 +1,34 @@
+module EBPS
+  module Text
+    class Format
+      attr_accessor :start, :end, :values
+      VALID_FORMATS = %w{b i pre 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/ebps/text/paragraph.rb

@@ -0,0 +1,63 @@
+require 'ebps/text/format'
+
+module EBPS
+  module Text
+    class Paragraph
+      attr_reader :text, :formats
+      attr_accessor :align
+      def initialize(str='')
+        @formats = []
+        @text = ''
+				set_format()
+        self << str
+      end
+      def method_missing *args, &block
+        @text.send *args, &block
+      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 to_s
+        @text.dup
+      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
+    class Subheading < Paragraph
+    end
+    class LinkedParagraph < Paragraph
+      attr_reader :url
+      def initialize(url, str='')
+        @url = url
+        super str
+      end
+    end
+  end
+end

data/lib/ebps/text/picture.rb

@@ -0,0 +1,41 @@
+require 'ebps/config'
+require 'delegate'
+require 'digest/md5'
+require 'RMagick'
+
+module EBPS
+  module Text
+    class Picture < DelegateClass(String)
+      attr_accessor :height, :width, :xscale, :yscale, :height_goal, :width_goal
+      def initialize
+        super('')
+      end
+      def digest
+        @digest ||= Digest::MD5.hexdigest(self)
+      end
+      def empty?
+        super
+      rescue StandardError => err
+        EBPS.logger.error("Text::Picture") { 
+          sprintf "%s: %s", err.class, err.message
+        }
+        true
+      end
+      def filename
+        @filename ||= "%s.%s" % [digest, EBPS.config.image_format]
+      end
+      def formats
+        []
+      end
+      def image
+        Magick::Image.from_blob(self).first
+      end
+      def set_format(*ignore)
+        # ignore
+      end
+      def to_s
+        image.inspect
+      end
+    end
+  end
+end