Drafting.

Author: zsombor

.gitignore

@@ -0,0 +1,12 @@
+*~
+*.swp
+\#*#
+TAGS
+tmtags
+tmp
+*.patch
+*.diff
+*.xmlx
+notes.txt
+*.\#*
+*.rbc

README

@@ -1,4 +1,4 @@
-o = SimpleXlsx::Serializer.new("filename") do |doc|
+o = SimpleXlsx::Serializer.new do |doc|
   doc.add_sheet("Sheet1") do |sheet|
     sheet.add_header(%w{Col1 Col2 Col2})
     sheet.add_row(%w{Val1 Val2 Val3})

lib/simple_xlsx.rb

@@ -0,0 +1,16 @@
+require 'rubygems'
+require 'zip/zip'
+
+unless String.method_defined? :to_xs
+  require 'fast_xs'
+  class String
+    alias_method :to_xs, :fast_xs
+  end
+end
+
+$:.unshift(File.dirname(__FILE__))
+require 'simple_xlsx/serializer'
+require 'simple_xlsx/document'
+require 'simple_xlsx/sheet'
+
+

lib/simple_xlsx.rb~

@@ -0,0 +1,5 @@
+$:.unshift(File.dirname(__FILE__))
+
+module SimpleXlsx
+
+end

lib/simple_xlsx/document.rb

@@ -0,0 +1,25 @@
+module SimpleXlsx
+  class Document
+    def initialize(io)
+      @sheets = []
+      @io = io
+    end
+
+    attr_reader :sheets
+
+    def add_sheet name, &block
+      @io.open_stream_for_sheet(name) do |stream|
+        @sheets << Sheet.new(self, name, stream, &block)
+      end
+    end
+
+    def has_shared_strings?
+      false
+    end
+
+    def has_styles?
+      false
+    end
+
+  end
+end

lib/simple_xlsx/document.rb~

@@ -0,0 +1,4 @@
+module SimpleXlsx
+  class Document
+  end
+end

lib/simple_xlsx/serializer.rb

@@ -0,0 +1,106 @@
+module SimpleXlsx
+
+class Serializer
+
+  def initialize to
+    @to = to
+    Zip::ZipFile.open(to, Zip::ZipFile::CREATE) do |zip|
+      @zip = zip
+      add_doc_props
+      add_relationship_part
+      add_worksheets_directory
+      @doc = Document.new(self)
+      yield @doc
+      add_content_types
+      add_workbook_part
+    end
+  end
+
+  def add_workbook_part
+    @zip.get_output_stream "xl/workbook.xml" do |f|
+      f.puts <<-ends
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<workbook xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships">
+<sheets>
+ends
+      @doc.sheets.each_with_index do |sheet, ndx|
+        f.puts "<sheet name=\"#{sheet.name}\" sheetId=\"#{ndx + 1}\" r:id=\"rId#{ndx + 2}\"/>"
+      end
+      f.puts "</sheets></workbook>"
+    end
+  end
+
+  def add_worksheets_directory
+    @zip.mkdir "xl"
+    @zip.mkdir "xl/worksheets"
+  end
+
+  def open_stream_for_sheet sheet_name
+    @zip.get_output_stream "xl/worksheets/#{sheet_name}.xml" do |f|
+      yield f
+    end
+  end
+
+  def add_content_types
+    @zip.get_output_stream "[Content_Types].xml" do |f|
+      f.puts '<?xml version="1.0" encoding="UTF-8"?>'
+      f.puts '<Types xmlns="http://schemas.openxmlformats.org/package/2006/content-types">'
+      f.puts <<-ends
+  <Override PartName="/_rels/.rels" ContentType="application/vnd.openxmlformats-package.relationships+xml"/>
+  <Override PartName="/docProps/core.xml" ContentType="application/vnd.openxmlformats-package.core-properties+xml"/>
+  <Override PartName="/docProps/app.xml" ContentType="application/vnd.openxmlformats-officedocument.extended-properties+xml"/>
+  <Override PartName="/xl/workbook.xml" ContentType="application/vnd.openxmlformats-officedocument.spreadsheetml.sheet.main+xml"/>
+ends
+      if @doc.has_shared_strings?
+        f.puts '<Override PartName="/xl/sharedStrings.xml" ContentType="application/vnd.openxmlformats-officedocument.spreadsheetml.sharedStrings+xml"/>'
+      end
+      @doc.sheets.each do |sheet|
+        f.puts "<Override PartName=\"/xl/worksheets/#{sheet.name}.xml\" ContentType=\"application/vnd.openxmlformats-officedocument.spreadsheetml.worksheet+xml\"/>"
+      end
+      if @doc.has_styles?
+        f.puts '<Override PartName="/xl/styles.xml" ContentType="application/vnd.openxmlformats-officedocument.spreadsheetml.styles+xml"/>'
+      end
+      f.puts "</Types>"
+    end
+  end
+
+  def add_relationship_part
+    @zip.mkdir "_rels"
+    @zip.get_output_stream "_rels/.rels" do |f|
+      f.puts <<-ends
+<?xml version="1.0" encoding="UTF-8"?>
+<Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships">
+  <Relationship Id="rId1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument" Target="xl/workbook.xml"/>
+  <Relationship Id="rId2" Type="http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties" Target="docProps/core.xml"/>
+  <Relationship Id="rId3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties" Target="docProps/app.xml"/>
+</Relationships>
+ends
+    end
+  end
+
+  def add_doc_props
+    @zip.mkdir "docProps"
+    @zip.get_output_stream "docProps/core.xml" do |f|
+      f.puts <<-ends
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<cp:coreProperties xmlns:cp="http://schemas.openxmlformats.org/package/2006/metadata/core-properties" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:dcmitype="http://purl.org/dc/dcmitype/" xmlns:dcterms="http://purl.org/dc/terms/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
+   <dcterms:created xsi:type="dcterms:W3CDTF">2010-07-20T14:30:58.00Z</dcterms:created>
+   <cp:revision>0</cp:revision>
+</cp:coreProperties>
+ends
+    end
+    @zip.get_output_stream "docProps/app.xml" do |f|
+      f.puts <<-ends
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<Properties xmlns="http://schemas.openxmlformats.org/officeDocument/2006/extended-properties" xmlns:vt="http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes">
+  <TotalTime>0</TotalTime>
+</Properties>
+ends
+    end
+  end
+
+end
+
+end
+
+

lib/simple_xlsx/serializer.rb~

@@ -0,0 +1,6 @@
+module SimpleXlsx
+
+class Serializer
+end
+
+end

lib/simple_xlsx/sheet.rb

@@ -0,0 +1,64 @@
+module SimpleXlsx
+
+class Sheet
+  attr_reader :name
+
+  def initialize document, name, stream, &block
+    @document = document
+    @stream =  stream
+    @name = name
+    @row_ndx = 1
+    @stream.write <<-ends
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<worksheet xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" xmlns:r="http://schemas.openxmlformats.org/officeDocument/2006/relationships">
+<sheetData>
+ends
+    if block_given?
+      yield self
+    end
+    @stream.write "</sheetData></worksheet>"
+  end
+
+  def add_row arry
+    row = ["<row r=\"#{@row_ndx}\">"]
+    arry.each_with_index do |value, col_ndx|
+      kind, ccontent = Sheet.format_field_and_type value
+      row << "<c r=\"#{Sheet.column_index(col_ndx)}#{@row_ndx}\" t=#{kind}>#{ccontent}</c>"
+    end
+    row << "</row>"
+    @row_ndx += 1
+    @stream.write(row.join())
+  end
+
+  def self.format_field_and_type value
+    if value.is_a?(String)
+      [:inlineStr, "<is><t>#{value.to_xs}</t></is>"]
+    elsif value.is_a?(Numeric)
+      [:inlineStr, "<is><t>#{value.to_s.to_xs}</t></is>"]
+    elsif value.is_a?(Date)
+      [:inlineStr, "<is><t>#{value.to_s.to_xs}</t></is>"]
+    elsif value.is_a?(DateTime)
+      [:inlineStr, "<is><t>#{value.to_s.to_xs}</t></is>"]
+    elsif value.is_a?(TrueClass) || value.is_a?(FalseClass)
+      [:inlineStr, "<is><t>#{value.to_s.to_xs}</t></is>"]
+    else
+      [:inlineStr, "<is><t>#{value.to_s.to_xs}</t></is>"]
+    end
+  end
+
+  def self.abc
+    @@abc ||= ('A'..'Z').to_a
+  end
+
+  def self.column_index n
+    result = []
+    while n >= 26 do
+      result << abc[n % 26]
+      n /= 26
+    end
+    result << abc[n]
+    result.reverse.join
+  end
+
+end
+end

lib/simple_xlsx/sheet.rb~

@@ -0,0 +1,6 @@
+module SimpleXlsx
+  class Sheet
+    def initialize document, name
+    end
+  end
+end