subledger 0.7.7

data/lib/subledger/store/api/roles/post.rb

@@ -0,0 +1,25 @@
+module Subledger
+  module Store
+    module Api
+      module Post
+        def post postable_journal_entry
+          path = Path.for_entity :anchor => postable_journal_entry
+
+          begin
+            json_body = http.post do |req|
+                          req.url path
+
+                          unless postable_journal_entry.post_delay.zero?
+                            req.headers['X-Subledger-Post-Slowly'] = 'true'
+                          end
+                        end.body
+          rescue Exception => e
+            raise PostError, "Cannot post #{postable_journal_entry}: #{e}"
+          end
+
+          new_or_initialize json_body, postable_journal_entry
+        end
+      end
+    end
+  end
+end

data/lib/subledger/store/api/roles/progress.rb

@@ -0,0 +1,21 @@
+module Subledger
+  module Store
+    module Api
+      module Progress
+        def progress progressable
+
+          path = Path.for_entity( :anchor => progressable ) + '/progress'
+
+          begin
+            response_hash = parse_json(
+                              http.get( path ).body )
+          rescue Exception => e
+            raise ProgressError, "Cannot progress #{progressable}: #{e}"
+          end
+
+          response_hash['progress']['percentage'].to_i
+        end
+      end
+    end
+  end
+end

data/lib/subledger/store/api/roles/read.rb

@@ -0,0 +1,19 @@
+module Subledger
+  module Store
+    module Api
+      module Read
+        def read readable
+          path = Path.for_entity :anchor => readable
+
+          begin
+            json_body = http.get( path ).body
+          rescue Exception => e
+            raise ReadError, "Cannot read #{readable}: #{e}"
+          end
+
+          new_or_initialize json_body, readable
+        end
+      end
+    end
+  end
+end

data/lib/subledger/store/api/roles/reports.rb

@@ -0,0 +1,77 @@
+module Subledger
+  module Store
+    module Api
+      module Reports
+        def attach_category_to_report args
+          report   = args[:report]
+          category = args[:category]
+          parent   = args[:parent]
+
+          path = Path.for_entity( :anchor => report ) + '/attach'
+
+          attach_post_hash = { 'category' => category.id }
+
+          attach_post_hash['parent'] = parent.id unless parent.nil?
+
+          begin
+            json_body = http.post do |req|
+                          req.url    path
+                          req.body = attach_post_hash
+                        end.body
+          rescue Exception => e
+            raise AttachError, "Cannot attach #{category}: #{e}"
+          end
+
+          category
+        end
+
+        def detach_category_from_report args
+          category = args[:category]
+          report   = args[:report]
+
+          path = Path.for_entity( :anchor => report ) + '/detach'
+
+          detach_post_hash = { 'category' => category.id }
+
+          begin
+            json_body = http.post do |req|
+                          req.url    path
+                          req.body = detach_post_hash
+                        end.body
+          rescue Exception => e
+            raise DetachError, "Cannot detach #{category}: #{e}"
+          end
+
+          category
+        end
+
+        def render args
+          at = args[:at].iso8601
+
+          building_report_rendering = args[:building_report_rendering]
+          report                    = building_report_rendering.report
+
+          path = Path.for_entity( :anchor => report ) + "/render?at=#{at}"
+
+          begin
+            json_body = http.post do |req|
+                                    req.url path
+                                  end.body
+          rescue Exception => e
+            raise ReportError, "Cannot render #{report}: #{e}"
+          end
+
+          new_or_initialize json_body, building_report_rendering
+        end
+
+        def collect_categories_for_report report, &block
+          raise ReportError, 'report#categories is not yet implemented'
+        end
+
+        def report_structure_for report, &block
+          raise ReportError, 'report#structure is not yet implemented'
+        end
+      end
+    end
+  end
+end

data/lib/subledger/store/api/roles/update.rb

@@ -0,0 +1,24 @@
+module Subledger
+  module Store
+    module Api
+      module Update
+        def update updatable
+          path = Path.for_entity :anchor => updatable
+
+          begin
+            json_body = http.patch do |req|
+                          req.url    path
+                          req.body = updatable.patch_hash
+                        end.body
+          rescue UpdateConflictError => e
+            raise e
+          rescue Exception => e
+            raise UpdateError, "Cannot update #{updatable}: #{e}"
+          end
+
+          new_or_initialize json_body, updatable
+        end
+      end
+    end
+  end
+end

data/lib/subledger/store/api/store.rb

@@ -0,0 +1,103 @@
+module Subledger
+  module Store
+    module Api
+      class Store
+
+        include Subledger::Store
+
+        include Balance
+        include Categories
+        include Collect
+        include Create
+        include CreateAndPost
+        include CreateLine
+        include FirstAndLastLine
+        include Post
+        include Progress
+        include Read
+        include Reports
+        include Update
+        include Activate
+        include Archive
+        include CreateIdentity
+
+        def add_initial_controls_for org
+          # Server handles this functionality
+        end
+
+        def add_initial_controls_to identity
+          # Server handles this functionality
+        end
+
+        def raise_unless_bucket_name_valid args
+          # No endpoints for this
+        end
+
+        def create_backup anchor
+          # No endpoints for this
+        end
+
+        def backup_exists? anchor
+          # No endpoints for this
+        end
+
+        private
+
+        attr_reader :http
+
+        def base_url
+          "#{SCHEME}#{DOMAIN}"
+        end
+
+        def setup
+          @http = Faraday.new :url => base_url do |conn|
+                    unless auth_key.nil?
+                      conn.basic_auth auth_key.id, auth_key.secret
+                    end
+
+                    conn.request    :json
+                    conn.response   :json, :content_type => /^json$/
+                    conn.use        Subledger::Store::Api::Errors::ResponseError
+                    conn.adapter    Faraday.default_adapter
+                  end
+        end
+
+        def parse_json json_body
+          MultiJson.load json_body
+        end
+
+        def klass_method_from parsed_json
+          parsed_json.keys.first
+        end
+
+        def new_or_initialize json_body, initializable
+          client = initializable.client
+
+          parsed_json = parse_json json_body
+
+          klass_method = klass_method_from parsed_json
+
+          response_hash = parsed_json[klass_method]
+
+          args = Rest.to_args response_hash, client
+
+          args.merge! :json => MultiJson.dump( response_hash )
+
+          if initializable.respond_to? :post_delay
+            args.merge! :post_delay => initializable.post_delay
+          end
+
+          new_item = client.send klass_method, args
+
+          if initializable.entity_name == klass_method.to_sym
+            initializable.send :initialize, new_item.attributes
+          else
+            initializable = new_item
+          end
+
+          initializable
+        end
+      end
+    end
+  end
+end

data/lib/subledger/store/api.rb

@@ -0,0 +1,20 @@
+require 'faraday_middleware'
+
+require 'subledger/store/api/roles/activate'
+require 'subledger/store/api/roles/archive'
+require 'subledger/store/api/roles/balance'
+require 'subledger/store/api/roles/categories'
+require 'subledger/store/api/roles/collect'
+require 'subledger/store/api/roles/create'
+require 'subledger/store/api/roles/create_and_post'
+require 'subledger/store/api/roles/create_line'
+require 'subledger/store/api/roles/first_and_last_line'
+require 'subledger/store/api/roles/post'
+require 'subledger/store/api/roles/progress'
+require 'subledger/store/api/roles/read'
+require 'subledger/store/api/roles/reports'
+require 'subledger/store/api/roles/update'
+require 'subledger/store/api/roles/create_identity'
+
+require 'subledger/store/api/errors'
+require 'subledger/store/api/store'

data/lib/subledger/store.rb

@@ -0,0 +1,236 @@
+module Subledger
+  module Store
+
+    class ActivateError         < Error; end
+    class ArchiveError          < Error; end
+    class AttachError           < Error; end
+    class BalanceError          < Error; end
+    class CategoryError         < Error; end
+    class CollectError          < Error; end
+    class CreateError           < Error; end
+    class CreateLineError       < Error; end
+    class DeleteError           < Error; end
+    class DetachError           < Error; end
+    class FirstAndLastLineError < Error; end
+    class PostError             < Error; end
+    class ProgressError         < Error; end
+    class ReadError             < Error; end
+    class ReportError           < Error; end
+    class UpdateError           < Error; end
+    class UpdateNotFoundError   < Error; end
+    class UpdateConflictError   < Error; end
+    class BucketValidatorError  < Error; end
+
+    attr_reader :auth_key
+
+    def initialize args
+      @auth_key = args[:auth_key]
+
+      setup
+    end
+
+    def attributes
+      { :auth_key => auth_key }
+    end
+
+    def collect args
+      collection_name = args[:collection_name]
+      action          = args[:action]
+      limit           = args[:limit]
+      no_balances     = args[:no_balances]
+
+      begin
+        if limit.nil? or limit < 1 or limit > 100
+          raise CollectError, ':limit must be 1-100'
+        end
+
+        collected = send action, args
+
+        if collection_name == :account_lines and not collected.empty?
+          if no_balances
+            collected.each do |line|
+              line.send :balance=, nil
+            end
+          else
+            args.merge! :account_lines => collected
+
+            set_account_line_balances args
+          end
+        end
+
+        collected
+      rescue Exception => e
+        raise CollectError, "Unable to collect #{collection_name}: #{e}"
+      end
+    end
+
+    def raise_unless_bucket_name_valid args
+      bucket_name = args[:bucket_name]
+
+      unless bucket_name.nil?
+        Celluloid::Actor[:backup_bucket_validators].validate args
+      end
+    end
+
+    def create_backup anchor
+      Celluloid::Actor[:backup_creators].async.create :anchor => anchor
+
+      anchor
+    end
+
+    def backup_exists? anchor
+      Celluloid::Actor[:backup_creators].exists? :anchor => anchor
+    end
+
+    def create_identity identity
+      create identity
+
+      key = add_key_to identity
+
+      add_initial_controls_to identity
+
+      return identity, key
+    end
+
+    def add_initial_controls_for org
+      client = org.client
+
+      key = read client.keys :id => auth_key.id
+
+      identity = key.identity
+
+      # TODO OrgIdentities table is not being updated yet
+
+      create client.active_controls :org      => org,
+                                    :identity => identity,
+                                    :verbs    => 'GET|PATCH',
+                                    :path     => "/#{API_VERSION}/orgs/#{org.id}",
+                                    :mode     => :allow
+
+      create client.active_controls :org      => org,
+                                    :identity => identity,
+                                    :verbs    => 'POST|GET|PATCH',
+                                    :path     => "/#{API_VERSION}/orgs/#{org.id}/*",
+                                    :mode     => :allow
+    end
+
+    def add_key_to identity
+      key = identity.client.active_keys :identity => identity
+
+      create key
+    end
+
+    def add_initial_controls_to identity
+      client = identity.client
+
+      client.active_controls.create :identity => identity,
+                                    :verbs    => 'GET|PATCH',
+                                    :path     => "/#{API_VERSION}/identities/#{identity.id}",
+                                    :mode     => :allow
+
+      client.active_controls.create :identity => identity,
+                                    :verbs    => 'GET|POST',
+                                    :path     => "/#{API_VERSION}/identities/#{identity.id}/*",
+                                    :mode     => :allow
+
+      client.active_controls.create :identity => identity,
+                                    :verbs    => 'POST',
+                                    :path     => "/#{API_VERSION}/orgs",
+                                    :mode     => :allow
+    end
+
+    def first_and_last_line args
+      account = args[:account]
+
+      # eventually consistent means we could get one, but not two...
+      # zero is fine, it means the account has no lines!
+
+      begin
+        lines = [ ]
+
+        lines += first_or_last_line( args.merge! :effective_at => first_second,
+                                                 :action       => :starting )
+
+        lines += first_or_last_line( args.merge! :effective_at => last_second,
+                                                 :action       => :ending )
+
+      end while lines.length == 1 and sleep 0.025
+
+      lines
+    end
+
+    private
+
+    def first_or_last_line args
+      account = args[:account]
+      client  = args[:client] ||= account.client
+
+      anchor = account.line :effective_at => args[:effective_at]
+
+      collect args.merge! :collection_name => :account_lines,
+                          :anchor          => anchor,
+                          :limit           => 1
+    end
+
+    def set_account_line_balances args
+      if [ :before, :ending, :preceding ].include? args[:action]
+        account_lines = args[:account_lines].reverse
+      else
+        account_lines = args[:account_lines]
+      end
+
+      first_line = account_lines.first
+
+      balance = balance_for first_line
+
+      first_line.send :balance=, balance
+
+      # Beware insane Ruby array indexing on line below
+
+      account_lines[1..-1].each do |account_line|
+        balance += account_line
+        account_line.send :balance=, balance
+      end
+    end
+
+    def set_account_line_balance account_line
+      account_line.send :balance=, balance_for( account_line )
+    end
+
+    def balance_for account_line
+      client       = account_line.client
+      account      = account_line.account
+      effective_at = account_line.effective_at
+
+      previous_ms = previous_ms_for effective_at
+
+      balance = account_balance :store       => self,
+                                :client      => client,
+                                :account     => account,
+                                :at          => previous_ms
+
+      account.lines( :action       => :after,
+                     :effective_at => previous_ms,
+                     :no_balances  => true ) do |line|
+
+         balance += line
+
+         break if line == account_line
+      end
+
+      balance
+    end
+
+    def previous_ms_for effective_at
+      effective_at_sec  = BigDecimal effective_at.tv_sec
+      effective_at_usec = BigDecimal effective_at.tv_usec
+      effective_at_frac = effective_at_usec / 1_000_000
+
+      effective_at_bd   = effective_at_sec + effective_at_frac
+
+      previous_ms_bd    = effective_at_bd - BigDecimal( '.001' )
+
+      Time.at( previous_ms_bd ).utc
+    end
+  end
+end

data/lib/subledger/supervisor.rb

@@ -0,0 +1,21 @@
+module Subledger
+  class Supervisor < Celluloid::SupervisionGroup
+
+    DEFAULT_SIZE = 1
+
+    SMALL  = 16
+    MEDIUM = 32
+    LARGE  = 48
+    GRANDE = 80
+
+    def self.manage klass, args
+      args[:size] ||= DEFAULT_SIZE
+
+      if args[:size] == 1
+        supervise klass, args
+      else
+        pool klass, args
+      end
+    end
+  end
+end

data/lib/subledger/uuid.rb

@@ -0,0 +1,52 @@
+require 'securerandom'
+
+module Subledger
+  module UUID
+
+    SPACE   = 62 ** 22
+
+    CHARS = ('0'..'9').to_a + ('a'..'z').to_a + ('A'..'Z').to_a
+
+    VALID = /^[0-9A-Za-z]{22}$/
+
+    def self.valid? uuid
+      !uuid.nil? and uuid =~ VALID
+    end
+
+    def self.invalid? uuid
+      uuid.nil? or uuid !~ VALID
+    end
+
+    def self.as_string
+      to_string as_bignum
+    end
+
+    def self.as_bignum
+      SecureRandom.random_number SPACE
+    end
+
+    def self.to_string bignum
+      base_62 = ''
+
+      22.times do
+        base_62 << CHARS[ bignum.modulo 62 ]
+        bignum /= 62
+      end
+
+      base_62.reverse
+    end
+
+    def self.to_bignum uuid
+      bignum = 0
+
+      power = 0
+
+      uuid.split('').reverse.each do |character|
+        bignum += CHARS.index( character ) * ( 62 ** power )
+        power += 1
+      end
+
+      bignum
+    end
+  end
+end

data/lib/subledger/version.rb

@@ -0,0 +1,4 @@
+module Subledger
+  VERSION     = '0.7.7'
+  API_VERSION = 'v2'
+end