prune 0.0.4

data/lib/prune/p_objects/base.rb

@@ -0,0 +1,45 @@
+# -*- coding:utf-8 -*-
+
+module Prune
+  module PObjects
+    class Base
+      include Errors
+
+      # Indent.
+      @@indent = 0
+
+      def space
+        "  " * @@indent
+      end
+
+      def indent!
+        @@indent += 1
+      end
+
+      def outdent!
+        @@indent -= 1
+      end
+
+      def value_to_s(value)
+        case value
+        when String
+          return value
+        when PName, PLiteralString, PHexadecimalString
+          return value.to_s
+        when PArray, PDictionary
+          indent!
+          out = LF + space + value.to_s
+          outdent!
+          return out
+        else
+          if value.is_a?(Prune::Elements::Base)
+            return value.reference_id
+          else
+            return value.to_s
+          end
+        end
+      end
+    end
+  end
+end
+

data/lib/prune/p_objects/p_array.rb

@@ -0,0 +1,62 @@
+# -*- coding:utf-8 -*-
+
+module Prune
+  module PObjects
+    class PArray < Base
+      # Size to line feed when converted to String.
+      LF_SIZE = 10 unless const_defined?(:LF_SIZE)
+
+      # Initialize.
+      def initialize(*args)
+        @array = args
+      end
+
+      def empty?
+        @array.empty?
+      end
+
+      def <<(value)
+        @array << value
+      end
+
+      def [](key)
+        @array[key]
+      end
+
+      def []=(key, value)
+        @array[key] = value
+      end
+
+      def size
+        @array.size
+      end
+
+      def to_s
+        unless self.empty?
+          # 配列が空でない場合
+          if @array.size > LF_SIZE
+            # 配列長がLF_SIZEを越える場合
+            head = @array[0, LF_SIZE]
+            tail = @array[LF_SIZE, @array.size]
+            out = []
+            out << "[ %s" % head.collect{|item| value_to_s(item)}.join(" ")
+            indent!
+            tail.each_slice(LF_SIZE){|slice|
+              out << space + slice.collect{|item| value_to_s(item)}.join(" ")
+            }
+            outdent!
+            out[out.size - 1] += " ]"
+            out.join(LF)
+          else
+            # 配列長がLF_SIZE以下の場合
+            "[ %s ]" % @array.collect{|item| value_to_s(item)}.join(" ")
+          end
+        else
+          # 配列が空の場合
+          "[ ]"
+        end
+      end
+    end
+  end
+end
+

data/lib/prune/p_objects/p_dictionary.rb

@@ -0,0 +1,83 @@
+# -*- coding:utf-8 -*-
+
+module Prune
+  module PObjects
+    class PDictionary < Base
+      attr_reader :dict
+
+      def initialize(pd = {})
+        @dict = {}
+        @dict.update(pd)
+      end
+
+      def empty?
+        return @dict.empty?
+      end
+
+      def [](key)
+        @dict[key]
+      end
+
+      def []=(key, value)
+        self.update(key => value)
+      end
+
+      def update(pd)
+        case pd
+        when PDictionary
+          raise PDictionaryKeyError unless pd.keys.all?{|key|
+            key.instance_of?(PName)
+          }
+          @dict.update(pd.dict)
+        when Hash
+          raise PDictionaryKeyError unless pd.keys.all?{|key|
+            key.instance_of?(PName)
+          }
+          @dict.update(pd)
+        else
+          raise PDictionaryTypeError
+        end
+      end
+
+      def has_key?(key)
+        @dict.has_key?(key)
+      end
+
+      def keys
+        keys = @dict.keys.sort_by{|key| key.to_s}
+        type_key = PName.new(:Type)
+        keys.unshift(type_key) if keys.delete(type_key)
+        keys
+      end
+
+      def size
+        @dict.size
+      end
+
+      def to_s
+        case self.size
+        when 0
+          "<< >>"
+        when 1
+          "<< %s >>" % pair_to_s(self.keys.first)
+        else
+          out = []
+          out << "<<"
+          indent!
+          self.keys.each{|key|
+            out << space + pair_to_s(key)
+          }
+          outdent!
+          out << space + ">>"
+          out.join(LF)
+        end
+      end
+
+      private
+      def pair_to_s(key)
+        "%s %s" % [value_to_s(key), value_to_s(self[key])]
+      end
+    end
+  end
+end
+

data/lib/prune/p_objects/p_hexadecimal_string.rb

@@ -0,0 +1,27 @@
+# -*- coding:utf-8 -*-
+
+module Prune
+  module PObjects
+    class PHexadecimalString < Base
+      attr_reader :string
+      
+      def initialize(string)
+        raise PHexadecimalStringTypeError unless
+          string.instance_of?(String)
+        @string = string.upcase
+        raise PHexadecimalStringContentError unless
+          /[0-9A-F]+/ === @string
+      end
+
+      def ==(value)
+        false unless value.instance_of?(self.class)
+        @string == value.string
+      end
+
+      def to_s
+        "<#{@string}>"
+      end
+    end
+  end
+end
+

data/lib/prune/p_objects/p_literal_string.rb

@@ -0,0 +1,25 @@
+# -*- coding:utf-8 -*-
+
+module Prune
+  module PObjects
+    class PLiteralString < Base
+      attr_reader :string
+      
+      def initialize(string)
+        raise PLiteralStringTypeError unless
+          string.instance_of?(String)
+        @string = string
+      end
+
+      def ==(value)
+        false unless value.instance_of?(self.class)
+        @string == value.string
+      end
+
+      def to_s
+        "(#{@string})"
+      end
+    end
+  end
+end
+

data/lib/prune/p_objects/p_name.rb

@@ -0,0 +1,45 @@
+# -*- coding:utf-8 -*-
+
+module Prune
+  module PObjects
+    class PName < Base
+      attr_reader :name
+      
+      # Initialize.
+      def initialize(name)
+        case name
+        when String
+          @name = "/" + name
+        when Symbol
+          @name = "/" + name.to_s
+        else
+          raise PNameTypeError
+        end
+        @name.freeze
+      end
+
+      # Calculate hash value for PName.
+      def hash
+        @name.hash
+      end
+
+      # Compare as a key of hash.
+      def eql?(value)
+        false if value.instance_of?(self.class)
+        @name.eql?(value.name)
+      end
+
+      # Compare the value of string.
+      def ==(value)
+        false if value.instance_of?(self.class)
+        @name == value.name
+      end
+
+      # Convert content to string.
+      def to_s
+        @name
+      end
+    end
+  end
+end
+

data/lib/prune/p_objects/p_stream.rb

@@ -0,0 +1,29 @@
+# -*- coding:utf-8 -*-
+
+module Prune
+  module PObjects
+    class PStream < Base
+      # Initialize.
+      def initialize
+        @stream = []
+      end
+
+      # Add content.
+      def <<(text)
+        raise PStreamTypeError unless text.instance_of?(String)
+        @stream << text
+      end
+
+      # Length of the content.
+      def length
+        self.to_s.size
+      end
+
+      # Convert content to string.
+      def to_s
+        ["stream", @stream, "endstream"].flatten.join(LF)
+      end
+    end
+  end
+end
+

data/lib/prune/parsers/base.rb

@@ -0,0 +1,13 @@
+# -*- coding:utf-8 -*-
+
+module Prune
+  module Parsers
+    class Base
+      include Errors
+      include Functions
+      include PObjects
+      include Elements
+    end
+  end
+end
+

data/lib/prune/parsers/document/page/table/tr_parser.rb

@@ -0,0 +1,77 @@
+# -*- coding:utf-8 -*-
+
+module Prune
+  module Parsers
+    # Parser for directive "tr".
+    class TrParser < Base
+      attr_reader :x
+      attr_reader :y
+      attr_reader :width
+      attr_reader :height
+
+      # Initialize.
+      def initialize(table, options = {})
+        @table = table
+        @options = options
+        # Boundary of this object.
+        @x = @table.page.x
+        @y = @table.page.y
+        @width = 0.0
+        @height = 0.0
+        @widths = options[:widths] || @table.options[:widths] || []
+
+        # All td tags inside this tag.
+        @tds = []
+      end
+
+      # Render td tags.
+      def render
+        prev_td = nil
+        orig_x = @table.page.x
+        orig_y = @table.page.y
+
+        # Get width of the table line.
+        @width = @tds.inject(0.0){|result, td| result += td.width}
+        # Get the highest column height and set it to all columns.
+        @height = @tds.sort_by{|td| td.height}[-1].height
+
+        # Render each td tags.
+        @tds.each_with_index do |td, index|
+          # Set td height to highest.
+          td.height = @height
+          # Set x of the page.
+          unless prev_td.nil?
+            td.x = prev_td.x + prev_td.width
+            @table.page.x = td.x
+          end
+          prev_td = td
+          td.render
+        end
+
+        # Set x,y to next line position.
+        @table.page.x = orig_x
+        @table.page.y = orig_y - @height
+      end
+
+      protected
+      # Td tag.
+      def td(string, options = {})
+        # Set width.
+        width = @widths[@tds.size]
+        options[:width] = mm_to_pt(width) unless width.nil?
+        # Set height.
+        unless options[:height].nil?
+          options[:height] = mm_to_pt(options[:height])
+        end
+
+        # Initialize text box.
+        td = Shapes::TextBox.new(@table.page, string, @options.merge(options))
+
+        # Set width and height for tr tag.
+        @tds << td
+        td
+      end
+    end
+  end
+end
+

data/lib/prune/parsers/document/page/table_parser.rb

@@ -0,0 +1,32 @@
+# -*- coding:utf-8 -*-
+
+module Prune
+  module Parsers
+    # Parser for directive "table".
+    class TableParser < Base
+      attr_reader :page
+      attr_reader :options
+
+      # Initialize.
+      def initialize(page, options = {})
+        @page = page
+        @options = options
+        @x = @orig_x = @page.x
+        @y = @orig_y = @page.y
+        @width = 0.0
+        @height = 0.0
+      end
+
+      protected
+      # Tr tag.
+      def tr(options = {}, &block)
+        tr_parser = TrParser.new(self, @options.merge(options))
+        tr_parser.instance_eval(&block)
+        @page.x = @orig_x
+        @page.y -= tr_parser.height
+        tr_parser.render
+      end
+    end
+  end
+end
+