fn_document 0.9.2

data/lib/fn/migrate.xslt

@@ -0,0 +1,224 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
+    xmlns:func="http://exslt.org/functions" xmlns:math="http://exslt.org/math" xmlns:str="http://exslt.org/strings"
+    xmlns:dyn="http://exslt.org/dynamic"
+    extension-element-prefixes="func math str dyn">
+  <xsl:output indent="yes" />
+  
+  <!-- User variables --> 
+  <xsl:variable name="document_version" select="2.0" />
+  <xsl:variable name="insert_sample_menu" select="true()" />
+  
+  <func:function name="func:dec2hex">
+    <xsl:param name="dec" />
+    <xsl:param name="level" select="0" />
+    <xsl:variable name="divisor" select="math:power(16, $level)"/>
+    <xsl:variable name="digit" select="floor($dec div $divisor) mod 16"/>
+    <xsl:variable name="s" select="substring('0123456789ABCDEF', $digit + 1, 1)"/>
+    <xsl:choose>
+      <xsl:when test="$level=6">
+        <func:result select="'#'" />
+      </xsl:when>
+      <xsl:otherwise>
+        <func:result select="concat(func:dec2hex($dec, $level + 1), $s)" />
+      </xsl:otherwise>
+    </xsl:choose>
+  </func:function>
+    
+  <xsl:template match="document">
+    <xsl:copy>
+      <xsl:attribute name="version"><xsl:value-of select="$document_version" /></xsl:attribute>
+            
+      <resources>
+        <xsl:apply-templates select="." mode="resources" />
+      </resources>
+      
+      <menu>
+        <!-- We usually assign dynamically -->
+        <xsl:if test="$insert_sample_menu">
+        	<item label="File">
+        		<item label="New" url="template.xml" action="redirect" />
+        		<item label="Open" url="fixtures/document-list.xml" action="open" />
+        		<item label="Save" url="save.do" action="save" />
+        		<item label="Save as.." url="test/fixtures/dummyaction" action="saveas" />
+        		<item label="Quit" url="javascript:window.close()" action="redirect" />
+        	</item>
+          <item label="Edit">
+            <xsl:apply-templates select="style"/>
+          </item>
+          <item label="Output">
+      			<item label="Publish" url="publish.do" action="send" />
+      		</item>
+      		<item label="Compliance">
+      			<item label="Send!" url="compliance.do" action="send" />
+      		</item>
+        </xsl:if>
+      </menu>
+      
+      <pages>
+        <xsl:apply-templates select="node()[name() != 'style']" mode="pages" />
+      </pages>
+      <texts>
+        <xsl:apply-templates select="node()[name() != 'style']" mode="texts"/>
+      </texts>
+    </xsl:copy>
+  </xsl:template>
+  
+  <xsl:template match="document" mode="resources">
+    <xsl:for-each select="//page">
+      <xsl:variable name="n" select="concat('bkg', @number)" />
+      <resource type="bkg"><xsl:attribute name="id"><xsl:value-of select="$n" /></xsl:attribute></resource>
+    </xsl:for-each>
+    <xsl:for-each select="//style">
+      <resource type="font"><xsl:attribute name="id"><xsl:value-of select="@font" /></xsl:attribute></resource>
+    </xsl:for-each>
+    <xsl:for-each select="//block[starts-with(@name,'photo')]">
+      <resource type="photo"><xsl:attribute name="id"><xsl:value-of select="@contents" /></xsl:attribute></resource>
+    </xsl:for-each>      
+  </xsl:template>
+  
+  <xsl:template match="page" mode="pages">
+    <xsl:copy>
+      <xsl:attribute name="background"><xsl:value-of select="concat('bkg', @number)" /></xsl:attribute>
+      <xsl:apply-templates select="@*|node()" mode="pages" />
+    </xsl:copy>
+  </xsl:template>
+  
+  <xsl:template match="block[starts-with(@name, 'photo')]" mode="pages">
+    <!-- <block actualwidth="90" name="photo3" x="487" y="710" width="90" height="37" contents="company_logo" anchor="1" pdfxheight="0" static="yes"/> -->
+    <!-- to -->
+    <!-- <block type="photo" id="3" boxX="0" boxY="220" boxWidth="362" boxHeight="129" width="170" src="photo" align="middlecenter" /> -->
+    <block>
+      <xsl:attribute name="type">photo</xsl:attribute>
+      <xsl:attribute name="id"><xsl:value-of select="substring(@name, 6)"/></xsl:attribute>
+      <xsl:attribute name="src"><xsl:value-of select="@contents"/></xsl:attribute>
+      <xsl:attribute name="static"><xsl:value-of select="@static"/></xsl:attribute>
+      <xsl:attribute name="multipage"><xsl:value-of select="@multipage"/></xsl:attribute>
+      <xsl:attribute name="width"><xsl:value-of select="@actualwidth"/></xsl:attribute>
+      <xsl:attribute name="boxX"><xsl:value-of select="@x"/></xsl:attribute>
+      <xsl:attribute name="boxY"><xsl:value-of select="@y"/></xsl:attribute>
+      <xsl:attribute name="boxWidth"><xsl:value-of select="@width"/></xsl:attribute>
+      <xsl:attribute name="boxHeight"><xsl:value-of select="@height"/></xsl:attribute>
+      <xsl:choose>
+        <xsl:when test="@anchor='0'"><xsl:attribute name="align">topleft</xsl:attribute></xsl:when>
+        <xsl:when test="@anchor='1'"><xsl:attribute name="align">bottomleft</xsl:attribute></xsl:when>
+        <xsl:when test="@anchor='2'"><xsl:attribute name="align">topright</xsl:attribute></xsl:when>
+        <xsl:when test="@anchor='3'"><xsl:attribute name="align">bottomright</xsl:attribute></xsl:when>
+        <xsl:when test="@anchor='4'"><xsl:attribute name="align">middlecenter</xsl:attribute></xsl:when>
+      </xsl:choose>
+    </block>
+  </xsl:template>
+  
+  <xsl:template match="block[starts-with(@name, 'text')]" mode="pages">
+    <!-- <block name="text2_2" x="322" y="348" width="252" height="340" pdfxheight="4.5" /> -->
+    <!-- to -->
+    <!-- <block type="text" x="250" y="145" width="385" height="229" text="1" index="2">    -->
+    <block>
+      <xsl:attribute name="type">text</xsl:attribute>
+      <xsl:attribute name="text"><xsl:value-of select="substring(str:split(@name, '_')[1], 5)"/></xsl:attribute>
+      <xsl:attribute name="static"><xsl:value-of select="@static"/></xsl:attribute>
+      <xsl:attribute name="index"><xsl:value-of select="str:split(@name, '_')[2]"/></xsl:attribute>
+      <xsl:attribute name="x"><xsl:value-of select="@x"/></xsl:attribute>
+      <xsl:attribute name="y"><xsl:value-of select="@y"/></xsl:attribute>
+      <xsl:attribute name="width"><xsl:value-of select="@width"/></xsl:attribute>
+      <xsl:attribute name="height"><xsl:value-of select="@height"/></xsl:attribute>
+      <xsl:attribute name="multipage"><xsl:value-of select="@multipage"/></xsl:attribute>
+    </block>
+  </xsl:template>
+  
+  <!-- Ignore these elements/attributes -->
+  <xsl:template match="content" mode="pages" />
+  
+  <xsl:template match="content" mode="texts">
+    <text>
+      <xsl:attribute name="id"><xsl:value-of select="@number"/></xsl:attribute>
+      <xsl:apply-templates select="p" mode="p"/>
+    </text>
+  </xsl:template>
+  
+  <xsl:template match="p" mode="p">
+    <xsl:variable name="class" select="@class" />
+    <xsl:variable name="style" select="//style[@name=$class]" />
+    <p>
+      <xsl:attribute name="align"><xsl:choose><xsl:when test="@center='1'">center</xsl:when><xsl:otherwise>left</xsl:otherwise></xsl:choose></xsl:attribute>
+      <xsl:apply-templates select="." mode="b"/>
+    </p>
+  </xsl:template>
+  
+  <xsl:template match="p" mode="b">
+    <xsl:variable name="class" select="@class" />
+    <xsl:variable name="style" select="//style[@name=$class]" />
+    <xsl:choose>
+      <xsl:when test="$style/@bold='1' and text()[normalize-space(.)]">
+        <b><xsl:apply-templates select="." mode="i"/></b>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:apply-templates select="." mode="i"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+  
+  <xsl:template match="p" mode="i">
+    <xsl:variable name="class" select="@class" />
+    <xsl:variable name="style" select="//style[@name=$class]" />
+    <xsl:choose>
+      <xsl:when test="$style/@italic='1' and text()[normalize-space(.)]">
+        <i><xsl:apply-templates select="." mode="etc"/></i>
+      </xsl:when>
+      <xsl:otherwise>
+        <xsl:apply-templates select="." mode="etc"/>
+      </xsl:otherwise>
+    </xsl:choose>
+  </xsl:template>
+  
+  <xsl:template match="p" mode="etc">
+    <xsl:variable name="class" select="@class" />
+    <xsl:variable name="style" select="//style[@name=$class]" />
+    <font>
+      <xsl:attribute name="size"><xsl:value-of select="$style/@size" /></xsl:attribute>
+      <xsl:attribute name="face"><xsl:value-of select="translate($style/@font, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')" /></xsl:attribute>
+      <xsl:attribute name="color"><xsl:value-of select="func:dec2hex($style/@color)" /></xsl:attribute>
+      <textformat>
+        <xsl:value-of select="." />
+      </textformat>
+    </font>
+  </xsl:template>
+  
+  <xsl:template match="text()" mode="innerxml"><xsl:value-of select="."/></xsl:template>
+  <xsl:template match="node()" mode="innerxml">&lt;<xsl:value-of select="name()"/><xsl:apply-templates select="@*" mode="innerxml"/>&gt;<xsl:apply-templates select="text()" mode="innerxml"/>&lt;/<xsl:value-of select="name()"/>&gt;</xsl:template>
+  <xsl:template match="@*" mode="innerxml"><xsl:text> </xsl:text><xsl:value-of select="name()"/>="<xsl:value-of select="."/>"</xsl:template>
+  
+  <xsl:template match="style">
+    <item>
+      <!-- Label -->
+      <xsl:attribute name="label"><xsl:value-of select="@name" /></xsl:attribute>
+      <xsl:attribute name="action">format</xsl:attribute>
+      
+      <!-- Boolean attributes -->
+      <xsl:attribute name="bold"><xsl:choose><xsl:when test="@bold='1'">true</xsl:when><xsl:otherwise>false</xsl:otherwise></xsl:choose></xsl:attribute>
+      <xsl:attribute name="italic"><xsl:choose><xsl:when test="@italic='1'">true</xsl:when><xsl:otherwise>false</xsl:otherwise></xsl:choose></xsl:attribute>
+      
+      <!-- Integer attributes -->
+      <xsl:attribute name="color"><xsl:value-of select="@color" /></xsl:attribute>
+      <xsl:attribute name="leading"><xsl:value-of select="@leading" /></xsl:attribute>
+      <xsl:attribute name="leftMargin"><xsl:value-of select="@x" /></xsl:attribute>
+      <xsl:attribute name="size"><xsl:value-of select="@size" /></xsl:attribute>
+            
+      <!-- String attributes -->
+      <xsl:attribute name="align"><xsl:choose><xsl:when test="@center='1'">center</xsl:when><xsl:otherwise>left</xsl:otherwise></xsl:choose></xsl:attribute>
+      <xsl:attribute name="font"><xsl:value-of select="translate(@font, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')" /></xsl:attribute>
+    </item>
+  </xsl:template>
+
+  <xsl:template match="@*|node()" mode="pages">
+    <xsl:copy>
+      <xsl:apply-templates select="@*|node()"/>
+    </xsl:copy>
+  </xsl:template>
+  
+  <xsl:template match="@*|node()">
+    <xsl:copy>
+      <xsl:apply-templates select="@*|node()"/>
+    </xsl:copy>
+  </xsl:template>
+</xsl:stylesheet>

data/lib/fn/node/base.rb

@@ -0,0 +1,69 @@
+require File.dirname(__FILE__) + "/../util"
+module FN
+  module Node
+    def self.Base(name, attributes = {})
+      n = XML::Node.new(name)
+      attributes.each {|k, v| n[k.to_s] = Base.value(v) }
+      n.extend(Base)
+      return n
+    end
+    
+    module Base
+      
+      CURRENT_PAGE_WIDTH  = "__current_page_width"
+      CURRENT_PAGE_HEIGHT = "__current_page_height"
+    
+      def visit(struct)
+        visit_children(struct)
+      end
+      
+      def has_no_children
+        @logger = Logger.new("#{RAILS_ROOT}/log/pdf_writer_logs/#{Time.now.strftime('pdf_writer_log_%Y_%m_%d')}.log")
+        if children.any?{|c| !c.cdata?}
+          # @logger.info "HAS NO CHILDREN "*88
+          raise "should have no children" 
+        else
+          # @logger.info "This should not have any children and it does not"
+        end
+      end
+      
+      def visit_children(struct)
+        children.each do |c| 
+          if c.element?
+            mixin(c)
+            c.visit(struct)
+          end
+        end
+        return struct
+      end
+      
+      def mixin(node)
+        name = classify(node.name)
+        mod = FN::SWF::Node.const_get(name) rescue 
+              FN::PDF::Node.const_get(name)
+        node.extend(mod)
+      end
+      
+      def classify(name)
+        name.split("_").map{|s| s.capitalize}.join("")
+      end
+      
+      def with_attributes_like(node)
+        node.attributes.each do |attr|
+          self[attr.name] = attr.value
+        end
+        self
+      end
+      
+      def value(v)
+        case v
+        when Array: v.map{|e| value(e)}.join(" ")
+        else
+          v.to_s
+        end
+      end
+      
+      extend self
+    end
+  end
+end

data/lib/fn/node/context.rb

@@ -0,0 +1,70 @@
+require "PDFlib"
+Dir[File.dirname(__FILE__) + "/node/*.rb"].each do |f|
+  require f.sub(/\.rb$/, '')
+end
+module FN
+  module Node
+    class Context
+      attr_reader :doc
+      attr_accessor :current
+      
+      def initialize
+        @doc = XML::Document.new
+        @doc.root = @current = FN::Node::Root()
+      end
+      
+      def <<(node)
+        add node
+        @current = node
+      end
+      
+      def root
+        doc.root
+      end
+      
+      def root?
+        current == root
+      end
+      
+      def add(node)
+        @current << node
+      end
+      
+      def retain_after
+        old = @current
+        yield self
+        @current = old
+      end
+      
+      def visit(struct)
+        root.visit(struct)
+        struct
+      end
+      
+      def pre(item)
+        if @current.first? 
+          @current.first.prev = item
+        else
+          @current << item
+        end
+      end
+      
+      def inject_at_head(item)
+        head = @doc.find_first("//begin_document")
+        if head.first? 
+          head.first.prev = item
+        else
+          head << item
+        end
+      end
+      
+      def inject_at_page(number)
+        old = @current
+        @current = @doc.find_first("//begin_page_ext[@number='#{number}']") or 
+                   raise "page not found: #{number}.  Pages: #{@doc.find('//begin_page_ext').map{|n|n.to_s}.inspect}"
+        yield self
+        @current = old
+      end
+    end
+  end
+end

data/lib/fn/node/root.rb

@@ -0,0 +1,14 @@
+require File.dirname(__FILE__) + "/base"
+require "PDFlib"
+module FN
+  module Node
+    def self.Root
+      Base("root")
+    end
+    
+    module Root
+      include FN::Node::Base
+      
+    end
+  end
+end

data/lib/fn/pdf/node/begin_document.rb

@@ -0,0 +1,22 @@
+require File.dirname(__FILE__) + "/../../node/base"
+require "PDFlib"
+module FN
+  module PDF
+    module Node
+      
+      def BeginDocument(file, compatibility)
+        FN::Node::Base("begin_document", :file => file, :compatibility => compatibility).extend(BeginDocument)
+      end
+      
+      module BeginDocument 
+        include FN::Node::Base
+      
+        def visit(struct)
+          struct.begin_document(self[:file], :compatibility => self[:compatibility])
+          visit_children(struct)
+          struct.end_document("")
+        end
+      end
+    end
+  end
+end

data/lib/fn/pdf/node/begin_page_ext.rb

@@ -0,0 +1,24 @@
+require File.dirname(__FILE__) + "/../../node/base"
+require "PDFlib"
+module FN
+  module PDF
+    module Node
+      
+      def BeginPageExt(width, height, number)
+        FN::Node::Base("begin_page_ext", :width => width, :height => height, :number => number).extend(BeginPageExt)
+      end
+      
+      module BeginPageExt 
+        include FN::Node::Base
+        
+        def visit(struct)
+          struct.begin_page_ext(self[:width].to_i, self[:height].to_i, "")
+          struct[CURRENT_PAGE_WIDTH]  = self[:width].to_i
+          struct[CURRENT_PAGE_HEIGHT] = self[:height].to_i
+          visit_children struct
+          struct.suspend_page("")
+        end
+      end
+    end
+  end
+end

data/lib/fn/pdf/node/create_textflow.rb

@@ -0,0 +1,137 @@
+require File.dirname(__FILE__) + "/../../node/base"
+require "PDFlib"
+module FN
+  module PDF
+    module Node
+      def CreateTextflow(node)
+        out = FN::Node::Base("create_textflow", :assigns => CreateTextflow.flow_name(node))
+        out << XML::Node.new_cdata(CreateTextflow.format(node))
+        out.extend(CreateTextflow)
+      end
+      
+      module CreateTextflow 
+        include FN::Node::Base
+        NL = /\r|\n/
+        SPACE = /\s+/
+        
+        BASE_FORMAT = {
+          "face" => "Arial",
+          "size" => "12",
+          "blockindent" => "0",
+          "indent" => "0",
+          "leftmargin" => "0",
+          "rightmargin" => "0",
+          "leading" => "2",
+          "color" => "#0000FF",
+          "align" => "left",
+          "bold" => false,
+          "italic" => false,
+          "underline" => false
+        }
+        
+        def flow_name(node = nil)
+          if node
+            if node["id"]
+              "flow-#{node["id"]}"
+            else
+              "flow-#{node["text"]}-#{node["index"]}"
+            end
+          else
+            self["assigns"]
+          end
+        end
+        
+        def empty?
+          inner_text.gsub(/<[^>]*>|\s+/, '').empty?
+        end
+        
+        def inner_text
+          child.to_s.gsub("<![CDATA[", "").gsub("]]>", "")
+        end
+      
+        def visit(struct)
+          tf = struct.create_textflow(inner_text, "")
+          struct.assigns self, tf
+        end
+        
+        def formatter(options)
+          attrs = options.dup
+          attrs["leftindent"] = (attrs["blockindent"].to_f + attrs["leftmargin"].to_f).to_i
+          attrs["totalleading"] = (attrs["size"].to_f + attrs["leading"].to_f).to_i
+          # logger.warn attrs.inspect
+          attrs["formatted_color"] = format_color(attrs["color"])
+          attrs["formatted_face"] = format_face(attrs)
+          %(<encoding=unicode 
+          embedding=true 
+          adjustmethod=nofit 
+          nofitlimit=100% 
+          minspacing=100% 
+          maxspacing=100% 
+          kerning=true 
+          charref=true
+          fontname={#{attrs["formatted_face"]}} 
+          fontsize=#{attrs['size']} 
+          leftindent=#{attrs['leftindent']}
+          rightindent=#{attrs['rightmargin']}
+          leading=#{attrs["totalleading"]} 
+          fillcolor={rgb #{attrs["formatted_color"]}}
+          parindent=#{attrs["indent"]}
+          underline=#{attrs['underline']}
+          alignment=#{attrs["align"]}>).gsub(SPACE, ' ')
+        end
+
+        def format_face(attrs)
+          # titlecase
+          face = attrs["face"].split(SPACE).map{|s| s.capitalize }.join(" ")
+          face += ",Bold" if attrs["bold"]
+          face += ",Italic" if attrs["italic"]
+          return face
+        end
+
+        def format_color(hex)
+          hex.scan(/[\da-f]{2}/i).map{|s| s.to_i(16) / 255.0 }.join(" ")
+        end
+        
+        def format(node, buffer = "<fontname=Arial encoding=#{Writer.encoding} fontsize=10>", options = BASE_FORMAT)
+          return nil unless node
+          
+          options = options.dup
+          if node.text?
+            buffer << formatter(options)
+            buffer << node.to_s.gsub(NL, '') 
+          elsif node.element?
+            case node.name.downcase
+            when "br"; buffer << "<nextline>"
+            when "b"; options["bold"] = true
+            when "i"; options["italic"] = true
+            when "u"; options["underline"] = true
+            when "li"; buffer << "&bull;&nbsp;"
+            when "p";  
+              options["align"]  = node["ALIGN"] if node["ALIGN"]
+            when "font";
+              options["size"]   = node["size"]  if node["size"]
+              options["face"]   = node["face"]  if node["face"]
+              options["color"]  = node["color"] if node["color"]
+              
+              options["size"]   = node["SIZE"]  if node["SIZE"]
+              options["face"]   = node["FACE"]  if node["FACE"]
+              options["color"]  = node["COLOR"] if node["COLOR"]
+            end
+              
+            node.children.each{|c| format(c, buffer, options)}
+            
+            case node.name.downcase
+            when "p", "li"; 
+              buffer << "<nextparagraph>"  
+            end
+          else
+            raise "unhandled node type"
+          end
+          return buffer
+        end
+        
+        extend self
+      end
+    end
+  end
+end