sie 1.0.0

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/.rspec

@@ -0,0 +1,2 @@
+--color
+--format progress

data/.rvmrc

@@ -0,0 +1 @@
+rvm ruby-1.9.3-p194-falcon@sie --create

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in sie.gemspec
+gemspec

data/README.md

@@ -0,0 +1,64 @@
+# Sie
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'sie'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install sie
+
+## Developing
+
+First time setup:
+
+    script/bootstrap
+
+Running tests:
+
+    rake
+
+Getting the latest code and gems:
+
+    script/refresh
+
+## Usage
+
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request
+
+## Credits and license
+
+By [Barsoom](http://barsoom.se) under the MIT license:
+
+>  Copyright (c) 2013 Barsoom AB
+>
+>  Permission is hereby granted, free of charge, to any person obtaining a copy
+>  of this software and associated documentation files (the "Software"), to deal
+>  in the Software without restriction, including without limitation the rights
+>  to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+>  copies of the Software, and to permit persons to whom the Software is
+>  furnished to do so, subject to the following conditions:
+>
+>  The above copyright notice and this permission notice shall be included in
+>  all copies or substantial portions of the Software.
+>
+>  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+>  IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+>  FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+>  AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+>  LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+>  OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+>  THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,15 @@
+require "bundler/gem_tasks"
+
+namespace :spec do
+  task :unit do
+    puts "Running unit tests:"
+    system("rspec spec/unit/**_spec.rb") || exit(1)
+  end
+
+  task :integration do
+    puts "Running integrated tests:"
+    system("rspec spec/integration/**_spec.rb") || exit(1)
+  end
+end
+
+task :default => [ :"spec:unit", :"spec:integration" ]

data/lib/sie.rb

@@ -0,0 +1,6 @@
+require "sie/version"
+require "sie/parser"
+require "sie/document"
+
+module Sie
+end

data/lib/sie/document.rb

@@ -0,0 +1,107 @@
+require "attr_extras"
+require "sie/document/financial_years"
+require "sie/document/voucher_series"
+require "sie/document/renderer"
+require "active_support/core_ext/module/delegation"
+
+class Sie::Document
+  pattr_initialize :data_source
+
+  def render
+    add_header
+    add_financial_years
+    add_accounts
+    add_balances
+    add_vouchers
+
+    renderer.render
+  end
+
+  private
+
+  delegate :program, :program_version, :generated_on, :company_name,
+    :accounts, :balance_account_numbers, :closing_account_numbers,
+    :balance_before, :each_voucher, :from_date, :to_date, :financial_year_start_month,
+    to: :data_source
+
+  def add_header
+    add_line("FLAGGA", 0)
+    add_line("PROGRAM", program, program_version)
+    add_line("FORMAT", "PC8")
+    add_line("GEN", generated_on)
+    add_line("SIETYP", 4)
+    add_line("FNAMN", company_name)
+  end
+
+  def add_financial_years
+    financial_years.each_with_index do |date_range, index|
+      add_line("RAR", -index, date_range.begin, date_range.end)
+    end
+  end
+
+  def add_accounts
+    accounts.each do |account|
+      number      = account.fetch(:number)
+      description = account.fetch(:description)
+
+      add_line("KONTO", number, description)
+    end
+  end
+
+  def add_balances
+    financial_years.each_with_index do |date_range, index|
+      add_balance_rows("IB", -index, balance_account_numbers, date_range.begin)
+      add_balance_rows("UB", -index, balance_account_numbers, date_range.end)
+      add_balance_rows("RES", -index, closing_account_numbers, date_range.end)
+    end
+  end
+
+  def add_balance_rows(label, year_index, account_numbers, date, &block)
+    account_numbers.each do |account_number|
+      balance = balance_before(account_number, date)
+      add_line(label, year_index, account_number, balance)
+    end
+  end
+
+  def add_vouchers
+    each_voucher do |voucher|
+      add_voucher(voucher)
+    end
+  end
+
+  def add_voucher(opts)
+    creditor      = opts.fetch(:creditor)
+    type          = opts.fetch(:type)
+    number        = opts.fetch(:number)
+    booked_on     = opts.fetch(:booked_on)
+    description   = opts.fetch(:description)
+    voucher_lines = opts.fetch(:voucher_lines)
+
+    add_line("VER", voucher_series(creditor, type), number, booked_on, description)
+
+    add_array do
+      voucher_lines.each do |line|
+        account_number = line.fetch(:account_number)
+        amount         = line.fetch(:amount)
+        booked_on      = line.fetch(:booked_on)
+        description    = line.fetch(:description)
+
+        add_line("TRANS", account_number, Renderer::EMPTY_ARRAY, amount, booked_on, description)
+      end
+    end
+  end
+
+  delegate :add_line, :add_array, to: :renderer
+
+  def renderer
+    @renderer ||= Renderer.new
+  end
+
+  def financial_years
+    FinancialYears.between(financial_year_start_month, from_date, to_date).reverse
+  end
+
+  def voucher_series(creditor, type)
+    VoucherSeries.for(creditor, type)
+  end
+end

data/lib/sie/document/financial_years.rb

@@ -0,0 +1,24 @@
+class Sie::Document
+  class FinancialYears
+    def self.between(start_month, from_date, to_date)
+      result = []
+
+      from_date.upto(to_date) do |date|
+        next if result.any? { |r| r.cover?(date) }
+
+        start_of_year = Date.new(date.year, start_month, 1)
+        start_of_year = start_of_year <= date ? start_of_year : (start_of_year << 12)
+
+        a_year_later = start_of_year >> 11
+        end_of_year = Date.new(a_year_later.year, a_year_later.month, -1)
+
+        first_date = [start_of_year, from_date].max
+        last_date = [end_of_year, to_date].min
+
+        result << (first_date..last_date)
+      end
+
+      result
+    end
+  end
+end

data/lib/sie/document/renderer.rb

@@ -0,0 +1,48 @@
+class Sie::Document::Renderer
+  EMPTY_ARRAY = :empty_array
+
+  def initialize
+    @io = StringIO.new
+    @io.set_encoding(Encoding::CP437)
+  end
+
+  def add_line(label, *values)
+    append ["##{ label }", *format_values(values)].join(" ")
+  end
+
+  def add_array
+    append "{"
+    yield
+    append "}"
+  end
+
+  def render
+    io.rewind
+    io.read
+  end
+
+  attr_private :io
+
+  private
+
+  def append(text)
+    io.puts(text)
+  end
+
+  def format_values(values)
+    values.map { |value| format_value(value) }
+  end
+
+  def format_value(value)
+    case value
+    when Date
+      value.strftime("%Y%m%d")
+    when EMPTY_ARRAY
+      "{}"
+    when Numeric
+      value.to_s
+    else
+      '"' + value.to_s.gsub('"', '\"') + '"'
+    end
+  end
+end

data/lib/sie/document/voucher_series.rb

@@ -0,0 +1,20 @@
+class Sie::Document
+  class VoucherSeries
+    DEBTOR_INVOICE   = "KF"
+    DEBTOR_PAYMENT   = "KI"
+    SUPPLIER_INVOICE = "LF"
+    SUPPLIER_PAYMENT = "KB"
+    OTHER            = "LV"
+
+    def self.for(creditor, type)
+      case type
+      when :invoice
+        creditor ? SUPPLIER_INVOICE : DEBTOR_INVOICE
+      when :payment
+        creditor ? SUPPLIER_PAYMENT : DEBTOR_PAYMENT
+      else
+        OTHER
+      end
+    end
+  end
+end

data/lib/sie/parser.rb

@@ -0,0 +1,40 @@
+require "attr_extras"
+require "sie/parser/line_parser"
+
+module Sie
+  class Parser
+    # TODO: Could this format knowledge be centrailized somewhere, some
+    # of this is duplicated in Character.
+    BEGINNING_OF_ARRAY = "{"
+    END_OF_ARRAY       = "}"
+    ENTRY              = /^#/
+
+    def parse(io)
+      stack = []
+      sie_file = SieFile.new
+      current = sie_file
+
+      io.each_line do |line|
+        line = line.chomp
+
+        case line
+        when BEGINNING_OF_ARRAY
+          stack << current
+          current = current.entries.last
+        when END_OF_ARRAY
+          current = stack.pop
+        when ENTRY
+          current.entries << parse_line(line)
+        end
+      end
+
+      sie_file
+    end
+
+    private
+
+    def parse_line(line)
+      LineParser.new(line).parse
+    end
+  end
+end

data/lib/sie/parser/entry.rb

@@ -0,0 +1,15 @@
+module Sie
+  class Parser
+    class Entry
+      attr_reader :label
+      attr_accessor :attributes
+      attr_accessor :entries
+
+      def initialize(label)
+        @label = label
+        @attributes = {}
+        @entries = []
+      end
+    end
+  end
+end

data/lib/sie/parser/entry_types.rb

@@ -0,0 +1,41 @@
+module Sie
+  class Parser
+    ENTRY_TYPES = {
+      "adress" => [ 'kontakt', 'utdelningsadr', 'postadr', 'tel' ],
+      "bkod" => [ 'SNI-kod' ],
+      "dim" => [ 'dimensionsnr', 'namn' ],
+      "enhet" => [ 'kontonr', 'enhet' ],
+      "flagga" => [ 'x' ],
+      "fnamn" => [ 'foretagsnamn' ],
+      "fnr" => [ 'foretagsid' ],
+      "format" => [ 'PC8' ],
+      "ftyp" => [ 'foretagstyp' ],
+      "gen" => [ 'datum', 'sign' ],
+      "ib" => [ 'arsnr', 'konto', 'saldo', 'kvantitet' ],
+      "konto" => [ 'kontonr', 'kontonamn' ],
+      "kptyp" => [ 'typ' ],
+      "ktyp" => [ 'kontonr', 'kontotyp' ],
+      "objekt" => [ 'dimensionsnr', 'objektnr', 'objektnamn' ],
+      "oib" => [ 'arsnr', 'konto', { name: 'objekt', type: [ 'dimensionsnr', 'objektnr' ] }, 'saldo', 'kvantitet' ],
+      "omfattn" => [ 'datum' ],
+      "orgnr" => [ 'orgnr', 'forvnr', 'verknr' ],
+      "oub" => [ 'arsnr', 'konto', { name: 'objekt', type: [ 'dimensionsnr', 'objektnr' ] }, 'saldo', 'kvantitet' ],
+      "pbudget" => [ 'arsnr', 'period', 'konto', { name: 'objekt', type: [ 'dimensionsnr', 'objektnr' ] }, 'saldo', 'kvantitet' ],
+      "program" => [ 'programnamn', 'version' ],
+      "prosa" => [ 'text' ],
+      "psaldo" => [ 'arsnr', 'period', 'konto', { name: 'objekt', type: [ 'dimensionsnr', 'objektnr' ] }, 'saldo', 'kvantitet' ],
+      "rar" => [ 'arsnr', 'start', 'slut' ],
+      "res" => [ 'ars', 'konto', 'saldo', 'kvantitet' ],
+      "sietyp" => [ 'typnr' ],
+      "sru" => [ 'konto', 'SRU-kod' ],
+      "taxar" => [ 'ar' ],
+      "trans" => [ 'kontonr', { name: 'objektlista', type: [ 'dimensionsnr', 'objektnr' ], many: true }, 'belopp', 'transdat', 'transtext', 'kvantitet', 'sign' ],
+      "rtrans" => [ 'kontonr', { name: 'objektlista', type: [ 'dimensionsnr', 'objektnr' ], many: true }, 'belopp', 'transdat', 'transtext', 'kvantitet', 'sign' ],
+      "btrans" => [ 'kontonr', { name: 'objektlista', type: [ 'dimensionsnr', 'objektnr' ], many: true }, 'belopp', 'transdat', 'transtext', 'kvantitet', 'sign' ],
+      "ub" => [ 'arsnr', 'konto', 'saldo', 'kvantitet' ],
+      "underdim" => [ 'dimensionsnr', 'namn', 'superdimension' ],
+      "valuta" => [ 'valutakod' ],
+      "ver" => [ 'serie', 'vernr', 'verdatum', 'vertext', 'regdatum', 'sign' ]
+    }
+  end
+end

data/lib/sie/parser/line_parser.rb

@@ -0,0 +1,48 @@
+require "sie/parser/tokenizer"
+require "sie/parser/entry"
+require "sie/parser/sie_file"
+
+module Sie
+  class Parser
+    class LineParser
+      pattr_initialize :line
+
+      def parse
+        tokens = tokenize(line)
+        first_token = tokens.shift
+
+        entry = Entry.new(first_token.label)
+        entry_type = first_token.entry_type
+
+        entry_type.each_with_index do |entry_type, i|
+          break if i >= tokens.size
+
+          if entry_type.is_a?(Hash)
+            skip_array(tokens, i)
+            next
+          else
+            label = entry_type
+            entry.attributes[label] = tokens[i].value
+          end
+        end
+
+        entry
+      end
+
+      private
+
+      def tokenize(line)
+        Tokenizer.new(line).tokenize
+      end
+
+      def skip_array(tokens, i)
+        if tokens[i].is_a?(Tokenizer::BeginArrayToken) &&
+         !tokens[i+1].is_a?(Tokenizer::EndArrayToken)
+          raise "We currently don't support metadata within entries as we haven't had a need for it yet (the data between {} in #{line})."
+        end
+
+        tokens.reject! { |token| token.is_a?(Tokenizer::EndArrayToken) }
+      end
+    end
+  end
+end

data/lib/sie/parser/sie_file.rb

@@ -0,0 +1,13 @@
+module Sie
+  class Parser
+    class SieFile
+      def entries_with_label(label)
+        entries.select { |entry| entry.label == label }
+      end
+
+      def entries
+        @entries ||= []
+      end
+    end
+  end
+end

data/lib/sie/parser/tokenizer.rb

@@ -0,0 +1,90 @@
+require "strscan"
+require "sie/parser/tokenizer/token"
+require "sie/parser/tokenizer/character"
+
+module Sie
+  class Parser
+    class Tokenizer
+      pattr_initialize :line
+
+      def tokenize
+        @tokens = []
+        @consume = false
+        @quoted = false
+
+        loop do
+          move_to_next_character
+          break unless current_character.value
+
+          if consume?
+            if quoted?
+              consume_quoted_value
+            else
+              consume_unquoted_value
+            end
+          else
+            add_new_token
+          end
+        end
+
+        tokens
+      end
+
+      private
+
+      attr_query :consume?, :quoted?
+      attr_private :consume, :quoted, :tokens, :current_character
+
+      def move_to_next_character
+        @current_character = Character.new(scanner.getch)
+      end
+
+      def consume_quoted_value
+        if current_character.quote?
+          @quoted = false
+        else
+          add_to_current_token current_character
+        end
+      end
+
+      def consume_unquoted_value
+        if current_character.unquoted_data?
+          add_to_current_token current_character
+        else
+          @consume = false
+        end
+      end
+
+      def add_new_token
+        if current_character.entry?
+          @consume = true
+          add_token EntryToken.new
+        elsif current_character.beginning_of_array?
+          add_token BeginArrayToken.new
+        elsif current_character.end_of_array?
+          add_token EndArrayToken.new
+        elsif current_character.quote?
+          @consume = @quoted = true
+          add_token StringToken.new
+        elsif current_character.non_whitespace?
+          @consume = true
+          add_token StringToken.new(current_character.value)
+        elsif current_character.value != " "
+          raise "Unhandled character: #{current_character.value}"
+        end
+      end
+
+      def add_token(token)
+        tokens << token
+      end
+
+      def add_to_current_token(character)
+        tokens.last.value += character.value
+      end
+
+      def scanner
+        @scanner ||= StringScanner.new(line)
+      end
+    end
+  end
+end

data/lib/sie/parser/tokenizer/character.rb

@@ -0,0 +1,34 @@
+module Sie
+  class Parser
+    class Tokenizer
+      class Character
+        pattr_initialize :value
+        attr_reader :value
+
+        def unquoted_data?
+          non_whitespace? && !end_of_array?
+        end
+
+        def entry?
+          value == "#"
+        end
+
+        def beginning_of_array?
+          value == "{"
+        end
+
+        def end_of_array?
+          value == "}"
+        end
+
+        def quote?
+          value == '"'
+        end
+
+        def non_whitespace?
+          value != " " && value != "\t"
+        end
+      end
+    end
+  end
+end

data/lib/sie/parser/tokenizer/token.rb

@@ -0,0 +1,29 @@
+require "sie/parser/entry_types"
+
+module Sie
+  class Parser
+    class Tokenizer
+      class Token
+        attr_accessor :value
+
+        def initialize(value = "")
+          @value = value
+        end
+
+        def entry_type
+          Sie::Parser::ENTRY_TYPES.fetch(label)
+        end
+
+        def label
+          value.sub(/^#/, '').downcase
+        end
+      end
+
+      class EntryToken < Token; end
+      class BeginArrayToken < Token; end
+      class EndArrayToken < Token; end
+      class StringToken < Token; end
+      class ArrayToken < Token; end
+    end
+  end
+end

data/lib/sie/version.rb

@@ -0,0 +1,3 @@
+module Sie
+  VERSION = "1.0.0"
+end

data/script/bootstrap

@@ -0,0 +1,3 @@
+gem install bundler --no-ri --no-rdoc &&
+bundle &&
+rake

data/script/ci/support/env

@@ -0,0 +1,6 @@
+#!/bin/bash
+
+export PATH=/opt/app_ruby/bin:$PATH
+export GEM_HOME="$HOME/.gem"
+
+bundle install --path /var/lib/jenkins/.bundle/sie 1> /dev/null

data/script/ci/tests.sh

@@ -0,0 +1,5 @@
+#!/bin/bash
+set -e
+source script/ci/support/env
+
+notify_build "bundle exec rake"

data/script/refresh

@@ -0,0 +1,25 @@
+#!/bin/bash
+
+printf "\e[00;34mGetting the latest version\e[00m... "
+
+(git status|grep 'nothing to commit' 1> /dev/null)
+
+if [ ! $? -eq 0 ]
+then
+  set -e
+  git stash 1> /dev/null
+  git pull --rebase 1> /dev/null
+  git stash pop 1> /dev/null
+else
+  set -e
+  git pull --rebase 1> /dev/null
+fi
+
+echo "done"
+
+printf "\e[00;34mBundling\e[00m... "
+bundle 1> /dev/null
+echo "done"
+echo
+
+rake

data/script/turbux_rspec

@@ -0,0 +1,6 @@
+#!/usr/bin/env ruby
+#
+# Command to run the specs the correct way when triggered from the turbux vim plugin.
+
+command = "rspec #{ARGV.first}"
+exit(1) unless system(command)

data/sie.gemspec

@@ -0,0 +1,27 @@
+# coding: utf-8
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'sie/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "sie"
+  spec.version       = Sie::VERSION
+  spec.authors       = ["Barsoom AB"]
+  spec.email         = ["all@barsoom.se"]
+  spec.description   = %q{SIE parser and generator}
+  spec.summary       = %q{Parses and generates SIE files (http://sie.se/)}
+  spec.homepage      = ""
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files`.split($/)
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_dependency "attr_extras"
+  spec.add_dependency "activesupport"
+
+  spec.add_development_dependency "bundler", "~> 1.3"
+  spec.add_development_dependency "rake"
+  spec.add_development_dependency "rspec"
+end

data/spec/fixtures/sie_file.se

@@ -0,0 +1,28 @@
+#FLAGGA 0
+#PROGRAM "fooconomic" "1.0"
+#FORMAT PC8
+#GEN 20130101
+#SIETYP 4
+#ORGNR 555555-5555
+#FNAMN "Foocorp"
+#ADRESS "Foocorp" "" "12345 City" "555-12345"
+#KONTO 1510 "Accounts receivable"
+#KTYP 1510 T
+#SRU 1510 204
+#KONTO 1930 "Bank account"
+#KTYP 1930 T
+#SRU 1930 200
+#KONTO 2440 Supplier
+#KTYP 2440 S
+#SRU 2440 300
+#VER A 1 20130101 "Invoice" 20120105
+{
+   #TRANS 1510 {} -200 20130101 "Coffee machine"
+   #TRANS 4100 {} 180 20130101 "Coffee machine"
+   #TRANS 2611 {} -20 20130101 "VAT"
+}
+#VER A 2 20130102 "Payment" 20120105
+{
+   #TRANS 1510 {} -200 20130101 "Payment: Coffee machine"
+   #TRANS 1970 {} 200 20130101 "Payment: Coffee machine"
+}

data/spec/integration/parser_spec.rb

@@ -0,0 +1,24 @@
+# encoding: utf-8
+
+require "spec_helper"
+
+describe Sie::Parser do
+  it "parses a file" do
+    parser = Sie::Parser.new
+
+    open_file("fixtures/sie_file.se") do |f|
+      sie_file = parser.parse(f)
+
+      expect(sie_file.entries_with_label("fnamn").first.attributes["foretagsnamn"]).to eq("Foocorp")
+
+      account = sie_file.entries_with_label("konto").first
+      expect(account.attributes["kontonr"]).to eq("1510")
+      expect(account.attributes["kontonamn"]).to eq("Accounts receivable")
+      expect(sie_file.entries_with_label("ver").size).to eq(2)
+    end
+  end
+
+  def open_file(fixture_file)
+    File.open(File.join(File.dirname(__FILE__), "../#{fixture_file}"))
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,5 @@
+require "sie"
+
+RSpec.configure do |config|
+  config.order = 'random'
+end

data/spec/unit/document/financial_years_spec.rb

@@ -0,0 +1,38 @@
+require "spec_helper"
+
+describe Sie::Document::FinancialYears, ".between" do
+  it "gives us the financial years between from_date and to_date" do
+    Sie::Document::FinancialYears.between(
+      1,
+      Date.new(2011, 9, 1),
+      Date.new(2012, 12, 31)
+    ).should == [
+      Date.new(2011, 9, 1)..Date.new(2011, 12, 31),
+      Date.new(2012, 1, 1)..Date.new(2012, 12, 31),
+    ]
+  end
+
+  it "gives us the financial years between from_date and to_date" do
+    Sie::Document::FinancialYears.between(
+      1,
+      Date.new(2011, 9, 1),
+      Date.new(2013, 12, 31)
+    ).should == [
+      Date.new(2011, 9, 1)..Date.new(2011, 12, 31),
+      Date.new(2012, 1, 1)..Date.new(2012, 12, 31),
+      Date.new(2013, 1, 1)..Date.new(2013, 12, 31),
+    ]
+  end
+
+  it "gives us the financial years between from_date and to_date with a different financial year start month" do
+    Sie::Document::FinancialYears.between(
+      5,
+      Date.new(2011, 9, 1),
+      Date.new(2014, 1, 10)
+    ).should == [
+      Date.new(2011, 9, 1)..Date.new(2012, 4, 30),
+      Date.new(2012, 5, 1)..Date.new(2013, 4, 30),
+      Date.new(2013, 5, 1)..Date.new(2014, 1, 10),
+    ]
+  end
+end

data/spec/unit/document/voucher_series_spec.rb

@@ -0,0 +1,41 @@
+require "spec_helper"
+
+describe Sie::Document::VoucherSeries, ".for" do
+  subject(:series) { Sie::Document::VoucherSeries.for(creditor, type) }
+
+  let(:type) { :invoice }
+
+  context "when on the creditor side" do
+    let(:creditor) { true }
+
+    context "with an invoice" do
+      let(:type) { :invoice }
+      it { should == "LF" }
+    end
+
+    context "with a payment" do
+      let(:type) { :payment }
+      it { should == "KB" }
+    end
+  end
+
+  context "when on the debtor side" do
+    let(:creditor) { false }
+
+    context "with an invoice" do
+      let(:type) { :invoice }
+      it { should == "KF" }
+    end
+
+    context "with a payment" do
+      let(:type) { :payment }
+      it { should == "KI" }
+    end
+  end
+
+  context "when neither a payment or invoice" do
+    let(:creditor) { false }
+    let(:type) { :manual_bookable }
+    it { should == "LV" }
+  end
+end

data/spec/unit/document_spec.rb

@@ -0,0 +1,181 @@
+# encoding: utf-8
+require "spec_helper"
+require "sie"
+require "active_support/core_ext/date/calculations"
+
+describe Sie::Document, "#render" do
+  let(:from_date) { Date.new(2011, 9, 1) }
+  let(:to_date) { Date.new(2013, 12, 31) }
+  let(:generated_on) { Date.yesterday }
+  let(:accounts) {
+    [
+      number: 1500, description: "Customer ledger"
+    ]
+  }
+  let(:vouchers) {
+    [
+      {
+        creditor: false, type: :invoice, number: 1, booked_on: from_date + 2, description: "Invoice 1",
+        voucher_lines: [
+          { account_number: "1500", amount: 512.0, booked_on: from_date + 2, description: "Item 1" },
+          { account_number: "3100", amount: -512.0, booked_on: from_date + 2, description: "Item 1" },
+        ]
+      },
+      {
+        creditor: true, type: :payment, number: 2, booked_on: from_date + 365, description: "Payout 1",
+        voucher_lines: [
+          { account_number: "2400", amount: 256.0, booked_on: from_date + 365, description: "Payout line 1" },
+          { account_number: "1970", amount: -256.0, booked_on: from_date + 365, description: "Payout line 2" },
+        ]
+      }
+    ]
+  }
+
+  class TestDataSource
+    attr_accessor :program, :program_version, :generated_on, :company_name,
+      :accounts, :balance_account_numbers, :closing_account_numbers,
+      :vouchers, :from_date, :to_date, :financial_year_start_month
+
+    # vouchers is not part of the expected interface so making it private.
+    #
+    # Sie::Document uses #each_voucher so that you can build documents for huge sets of vouchers
+    # by loading them in batches.
+    private :vouchers
+
+    def initialize(hash)
+      hash.each do |k, v|
+        public_send("#{k}=", v)
+      end
+    end
+
+    def each_voucher(&block)
+      vouchers.each(&block)
+    end
+
+    def balance_before(account_number, date)
+      # Faking a fetch based on date and number
+      account_number.to_i + (date.mday * 100).to_f
+    end
+  end
+
+  let(:doc) {
+    data_source = TestDataSource.new(
+      from_date: from_date,
+      to_date: to_date,
+      accounts: accounts,
+      vouchers: vouchers,
+      program: "Foonomic",
+      program_version: "3.11",
+      generated_on: generated_on,
+      company_name: "Foocorp",
+      financial_year_start_month: 1,
+      balance_account_numbers: [ "1500", "2400" ],
+      closing_account_numbers: [ "3100" ]
+    )
+    doc = Sie::Document.new(data_source)
+  }
+
+  let(:sie_file) { Sie::Parser.new.parse(doc.render) }
+
+  it "adds a header" do
+    expect(entry_attribute("flagga",  "x")).to            eq("0")
+    expect(entry_attribute("program", "programnamn")).to  eq("Foonomic")
+    expect(entry_attribute("program", "version")).to      eq("3.11")
+    expect(entry_attribute("format",  "PC8")).to          eq("PC8")
+    expect(entry_attribute("gen",     "datum")).to        eq(generated_on.strftime("%Y%m%d"))
+    expect(entry_attribute("sietyp",  "typnr")).to        eq("4")
+    expect(entry_attribute("fnamn",   "foretagsnamn")).to eq("Foocorp")
+  end
+
+  it "has accounting years" do
+    expect(indexed_entry_attribute("rar", 0, "arsnr")).to eq("0")
+    expect(indexed_entry_attribute("rar", 0, "start")).to eq("20130101")
+    expect(indexed_entry_attribute("rar", 0, "slut")).to  eq("20131231")
+    expect(indexed_entry_attribute("rar", 1, "arsnr")).to eq("-1")
+    expect(indexed_entry_attribute("rar", 1, "start")).to eq("20120101")
+    expect(indexed_entry_attribute("rar", 1, "slut")).to  eq("20121231")
+    expect(indexed_entry_attribute("rar", 2, "arsnr")).to eq("-2")
+    expect(indexed_entry_attribute("rar", 2, "start")).to eq("20110901")
+    expect(indexed_entry_attribute("rar", 2, "slut")).to  eq("20111231")
+  end
+
+  it "has accounts" do
+    expect(indexed_entry_attributes("konto", 0)).to eq("kontonr" => "1500", "kontonamn" => "Customer ledger")
+  end
+
+  it "has balances brought forward (ingående balans)" do
+    expect(indexed_entry_attributes("ib", 0)).to eq("arsnr" =>  "0", "konto" => "1500", "saldo" => "1600.0")
+    expect(indexed_entry_attributes("ib", 1)).to eq("arsnr" =>  "0", "konto" => "2400", "saldo" => "2500.0")
+    expect(indexed_entry_attributes("ib", 2)).to eq("arsnr" => "-1", "konto" => "1500", "saldo" => "1600.0")
+    expect(indexed_entry_attributes("ib", 3)).to eq("arsnr" => "-1", "konto" => "2400", "saldo" => "2500.0")
+    expect(indexed_entry_attributes("ib", 4)).to eq("arsnr" => "-2", "konto" => "1500", "saldo" => "1600.0")
+    expect(indexed_entry_attributes("ib", 5)).to eq("arsnr" => "-2", "konto" => "2400", "saldo" => "2500.0")
+  end
+
+  it "has balances carried forward (utgående balans)" do
+    expect(indexed_entry_attributes("ub", 0)).to eq("arsnr" =>  "0", "konto" => "1500", "saldo" => "4600.0")
+    expect(indexed_entry_attributes("ub", 1)).to eq("arsnr" =>  "0", "konto" => "2400", "saldo" => "5500.0")
+    expect(indexed_entry_attributes("ub", 2)).to eq("arsnr" => "-1", "konto" => "1500", "saldo" => "4600.0")
+    expect(indexed_entry_attributes("ub", 3)).to eq("arsnr" => "-1", "konto" => "2400", "saldo" => "5500.0")
+    expect(indexed_entry_attributes("ub", 4)).to eq("arsnr" => "-2", "konto" => "1500", "saldo" => "4600.0")
+    expect(indexed_entry_attributes("ub", 5)).to eq("arsnr" => "-2", "konto" => "2400", "saldo" => "5500.0")
+  end
+
+  it "has closing account balances (saldo för resultatkonto)" do
+    expect(indexed_entry_attributes("res", 0)).to eq("ars" =>  "0", "konto" => "3100", "saldo" =>  "6200.0")
+    expect(indexed_entry_attributes("res", 1)).to eq("ars" => "-1", "konto" => "3100", "saldo" =>  "6200.0")
+    expect(indexed_entry_attributes("res", 2)).to eq("ars" => "-2", "konto" => "3100", "saldo" =>  "6200.0")
+  end
+
+  it "has vouchers" do
+    expect(indexed_entry("ver", 0).attributes).to eq(
+      "serie" => "KF", "vernr" => "1",
+      "verdatum" => "20110903", "vertext" => "Invoice 1"
+    )
+    expect(indexed_voucher_entries(0)[0].attributes).to eq(
+      "kontonr" => "1500", "belopp" =>  "512.0",
+      "transdat" => "20110903", "transtext" => "Item 1"
+    )
+    expect(indexed_voucher_entries(0)[1].attributes).to eq(
+      "kontonr" => "3100", "belopp" => "-512.0",
+      "transdat" => "20110903", "transtext" => "Item 1"
+    )
+
+    expect(indexed_entry("ver", 1).attributes).to eq(
+      "serie" => "KB", "vernr" => "2",
+      "verdatum" => "20120831", "vertext" => "Payout 1"
+    )
+    expect(indexed_voucher_entries(1)[0].attributes).to eq(
+      "kontonr" => "2400", "belopp" =>  "256.0",
+      "transdat" => "20120831", "transtext" => "Payout line 1"
+    )
+    expect(indexed_voucher_entries(1)[1].attributes).to eq(
+      "kontonr" => "1970", "belopp" => "-256.0",
+      "transdat" => "20120831", "transtext" => "Payout line 2"
+    )
+  end
+
+  private
+
+  def entry_attribute(label, attribute)
+    indexed_entry_attribute(label, 0, attribute)
+  end
+
+  def indexed_entry_attribute(label, index, attribute)
+    indexed_entry_attributes(label, index).fetch(attribute) do
+      raise "Unknown attribute #{ attribute } in #{ entry.attributes.keys.inspect }"
+    end
+  end
+
+  def indexed_entry_attributes(label, index)
+    indexed_entry(label, index).attributes
+  end
+
+  def indexed_voucher_entries(index)
+    indexed_entry("ver", index).entries
+  end
+
+  def indexed_entry(label, index)
+    sie_file.entries_with_label(label)[index] or raise "No entry with label #{ label.inspect } found!"
+  end
+end

data/spec/unit/parser/line_parser_spec.rb

@@ -0,0 +1,21 @@
+require "spec_helper"
+require "sie/parser/line_parser"
+
+describe Sie::Parser::LineParser, "parse" do
+  it "parses lines from a sie file" do
+    parser = Sie::Parser::LineParser.new('#TRANS 2400 {} -200 20130101 "Foocorp expense"')
+    entry = parser.parse
+    expect(entry.label).to eq("trans")
+    expect(entry.attributes).to eq({
+      "kontonr" => "2400",
+      "belopp"  => "-200",
+      "transdat" => "20130101",
+      "transtext" => "Foocorp expense"
+    })
+  end
+
+  it "fails if you have non empty metadata arrays until there is a need to support that" do
+    parser = Sie::Parser::LineParser.new('#TRANS 2400 { 1 "2" } -200 20130101 "Foocorp expense"')
+    expect(-> { parser.parse }).to raise_error(/don't support metadata/)
+  end
+end

data/spec/unit/parser/tokenizer_spec.rb

@@ -0,0 +1,42 @@
+require "spec_helper"
+require "sie/parser/tokenizer"
+
+describe Sie::Parser::Tokenizer do
+  it "tokenizes the given line" do
+    tokenizer = Sie::Parser::Tokenizer.new('#TRANS 2400 {} -200 20130101 "Foocorp expense"')
+    tokens = tokenizer.tokenize
+
+    expect(token_table_for(tokens)).to eq([
+      [ "EntryToken", "TRANS" ],
+      [ "StringToken", "2400" ],
+      [ "BeginArrayToken", "" ],
+      [ "EndArrayToken", "" ],
+      [ "StringToken", "-200" ],
+      [ "StringToken", "20130101" ],
+      [ "StringToken", "Foocorp expense" ]
+    ])
+  end
+
+  it "can parse metadata arrays" do
+    tokenizer = Sie::Parser::Tokenizer.new('#TRANS 2400 { 1 "2" } -200 20130101 "Foocorp expense"')
+    tokens = tokenizer.tokenize
+
+    expect(token_table_for(tokens)).to eq([
+      [ "EntryToken", "TRANS" ],
+      [ "StringToken", "2400" ],
+      [ "BeginArrayToken", "" ],
+      [ "StringToken", "1" ],
+      [ "StringToken", "2" ],
+      [ "EndArrayToken", "" ],
+      [ "StringToken", "-200" ],
+      [ "StringToken", "20130101" ],
+      [ "StringToken", "Foocorp expense" ]
+    ])
+  end
+
+  def token_table_for(tokens)
+    tokens.map { |token|
+      [ token.class.name.split("::").last, token.value ]
+    }
+  end
+end

data/spec/unit/parser_spec.rb

@@ -0,0 +1,23 @@
+require "spec_helper"
+require "sie/parser"
+
+describe Sie::Parser, "parse" do
+  it "parses sie data that includes arrays" do
+    parser = Sie::Parser.new
+    sie_file = parser.parse(<<DATA
+#VER "LF" 2222 20130101 "Foocorp expense"
+{
+#TRANS 2400 {} -200 20130101 "Foocorp expense"
+#TRANS 4100 {} 180 20130101 "Widgets from foocorp"
+#TRANS 2611 {} -20 20130101 "VAT"
+}
+DATA
+    )
+
+    voucher_entry = sie_file.entries.first
+    expect(sie_file.entries.size).to eq(1)
+    expect(voucher_entry.attributes["verdatum"]).to eq("20130101")
+    expect(voucher_entry.entries.size).to eq(3)
+    expect(voucher_entry.entries.first.attributes["kontonr"]).to eq("2400")
+  end
+end

metadata

@@ -0,0 +1,151 @@
+--- !ruby/object:Gem::Specification
+name: sie
+version: !ruby/object:Gem::Version
+  version: 1.0.0
+  prerelease: 
+platform: ruby
+authors:
+- Barsoom AB
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2013-11-25 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: attr_extras
+  requirement: &70103120492320 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *70103120492320
+- !ruby/object:Gem::Dependency
+  name: activesupport
+  requirement: &70103120491900 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :runtime
+  prerelease: false
+  version_requirements: *70103120491900
+- !ruby/object:Gem::Dependency
+  name: bundler
+  requirement: &70103120491400 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ~>
+      - !ruby/object:Gem::Version
+        version: '1.3'
+  type: :development
+  prerelease: false
+  version_requirements: *70103120491400
+- !ruby/object:Gem::Dependency
+  name: rake
+  requirement: &70103120490980 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *70103120490980
+- !ruby/object:Gem::Dependency
+  name: rspec
+  requirement: &70103120490520 !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: '0'
+  type: :development
+  prerelease: false
+  version_requirements: *70103120490520
+description: SIE parser and generator
+email:
+- all@barsoom.se
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- .rspec
+- .rvmrc
+- Gemfile
+- README.md
+- Rakefile
+- lib/sie.rb
+- lib/sie/document.rb
+- lib/sie/document/financial_years.rb
+- lib/sie/document/renderer.rb
+- lib/sie/document/voucher_series.rb
+- lib/sie/parser.rb
+- lib/sie/parser/entry.rb
+- lib/sie/parser/entry_types.rb
+- lib/sie/parser/line_parser.rb
+- lib/sie/parser/sie_file.rb
+- lib/sie/parser/tokenizer.rb
+- lib/sie/parser/tokenizer/character.rb
+- lib/sie/parser/tokenizer/token.rb
+- lib/sie/version.rb
+- script/bootstrap
+- script/ci/support/env
+- script/ci/tests.sh
+- script/refresh
+- script/turbux_rspec
+- sie.gemspec
+- spec/fixtures/sie_file.se
+- spec/integration/parser_spec.rb
+- spec/spec_helper.rb
+- spec/unit/document/financial_years_spec.rb
+- spec/unit/document/voucher_series_spec.rb
+- spec/unit/document_spec.rb
+- spec/unit/parser/line_parser_spec.rb
+- spec/unit/parser/tokenizer_spec.rb
+- spec/unit/parser_spec.rb
+homepage: ''
+licenses:
+- MIT
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+      segments:
+      - 0
+      hash: 1372446967420835703
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+      segments:
+      - 0
+      hash: 1372446967420835703
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.6
+signing_key: 
+specification_version: 3
+summary: Parses and generates SIE files (http://sie.se/)
+test_files:
+- spec/fixtures/sie_file.se
+- spec/integration/parser_spec.rb
+- spec/spec_helper.rb
+- spec/unit/document/financial_years_spec.rb
+- spec/unit/document/voucher_series_spec.rb
+- spec/unit/document_spec.rb
+- spec/unit/parser/line_parser_spec.rb
+- spec/unit/parser/tokenizer_spec.rb
+- spec/unit/parser_spec.rb