vending-machine 0.1.0

data/lib/vend/remote_resource.rb

@@ -0,0 +1,46 @@
+module Vend
+  class RemoteResource < Resource
+    include Vend::DeclarativeSetters
+    include Vend::Paths
+
+    def save
+      id ? save_existing : save_new
+    end
+
+    def load
+      self.attributes = store.get(
+        path: resource_path,
+        status: 200
+      ).data
+      self
+    end
+
+    private
+
+    def sendable_attributes
+      blacklist = %w{
+        created_at
+        updated_at
+      }
+      attributes.delete_if{|name,value| blacklist.include? name }.dup
+    end
+
+    def save_new
+      self.attributes = store.post(
+        path: create_path,
+        parameters: sendable_attributes,
+        status: 200
+      ).data
+      self
+    end
+
+    def save_existing
+      self.attributes = store.put(
+        path: update_path,
+        parameters: sendable_attributes,
+        status: 200
+      ).data
+      self
+    end
+  end
+end

data/lib/vend/resource.rb

@@ -0,0 +1,100 @@
+require 'virtus'
+
+module Vend
+  class Resource
+    include Virtus
+
+    attr_accessor :store
+
+    attribute :id, String
+
+    alias_method :initialize_virtus, :initialize
+    def initialize attributes={}
+      if attributes[:store_object]
+        @store = store_object
+      end
+      initialize_virtus attributes
+    end
+
+    alias_method :set_attributes_virtus, :set_attributes
+    def set_attributes(attributes)
+      public_method_names = public_methods.map(&:to_s)
+
+      unknown_attributes = attributes.
+        dup.
+        delete_if{|k, v| public_method_names.include?("#{k.to_s}=") }
+
+      if unknown_attributes.size > 0
+        dates = %w{ created_at deleted_at updated_at }
+        self.extend Virtus unless self.respond_to?(:attribute)
+        unknown_attributes.
+          each do |k,v|
+            case
+            when dates.include?(k)
+              klass = DateTime
+            else
+              klass = String
+            end
+            self.attribute k, klass
+          end
+      end
+
+      set_attributes_virtus attributes
+    end
+
+
+    private
+
+    def has_many_reader(name, class_proc)
+      variable_name = "@_has_many_reader_#{name}"
+      instance_variable_get(variable_name) ||
+        instance_variable_set(variable_name, (
+          klass = class_proc.call
+          ResourceCollection.new(
+            store,
+            class_proc.call,
+            (@_has_many || {})[name] || nil
+          )
+        )
+      )
+    rescue KeyError
+      raise Error, "No reference to children :#{name}"
+    end
+
+    def has_one_reader(name, class_proc)
+      klass = class_proc.call
+      record = (@_has_one || {}).fetch(name)
+      if record.is_a?(Resource)
+        record
+      else
+        @_has_one[name] = klass.new(record)
+      end
+    rescue KeyError
+      raise Error, "No reference to child :#{name}"
+    end
+
+  end
+  module Attributes
+    class CSV < Virtus::Attribute::Object
+      primitive Array
+
+      def coerce(value)
+        require 'csv'
+        ::CSV.parse(value).first
+      end
+    end
+    class Boolean < Virtus::Attribute::Object
+      primitive Boolean
+
+      def coerce(value)
+        if [1, '1'].include? value
+          true
+        elsif [0, '0'].include? value
+          false
+        else
+          value == true
+        end
+      end
+    end
+  end
+end

data/lib/vend/resource_collection.rb

@@ -0,0 +1,72 @@
+module Vend
+  class ResourceCollection
+    attr_accessor :parameters, :store
+
+    include Vend::Finders
+    include Enumerable
+
+    def initialize(store, klass, records = nil)
+      @store = store
+      @klass = klass
+      @records = records
+    end
+
+    ##
+    # Check for a collection method
+    # defined on the resource
+    def method_missing symbol, *args
+      if @klass.collection_methods[symbol]
+        instance_exec *args, &@klass.collection_methods[symbol]
+      else
+        super
+      end
+    end
+
+    def create(attributes = {})
+      build(attributes).tap(&:save)
+    end
+
+    def build(attributes)
+      @klass.new(attributes.merge store: @store)
+    end
+
+    def << record
+      (@records || []) << record
+    end
+
+    def to_a
+      records.to_a
+    end
+
+    def each
+      records.each do |attributes|
+        yield build(attributes)
+      end
+    end
+
+    private
+
+    def http_response
+      @_http_response ||= @store.get(
+        path: @klass.collection_path,
+        parameters: @parameters,
+        status: 200
+      )
+    end
+
+    def remote_records
+      http_response.data.first.last
+    end
+
+    def records
+      # Data comes back with a root element, so get the first response's value
+      # { products: [ {}, {}, ..] }.first.last == [ {}, {}, ... ]
+      @records ||= remote_records
+    end
+
+    def clear
+      @records = nil
+      @_http_response = nil
+    end
+  end
+end

data/lib/vend/resources/brand.rb

@@ -0,0 +1,4 @@
+module Vend
+  class Brand < Resource
+  end
+end

data/lib/vend/resources/contact.rb

@@ -0,0 +1,4 @@
+module Vend
+  class Contact < Resource
+  end
+end

data/lib/vend/resources/customer.rb

@@ -0,0 +1,8 @@
+module Vend
+  class Customer < RemoteResource
+    attribute :balance, Float
+    attribute :contact, Vend::Contact
+    attribute :points, Integer
+    attribute :year_to_date, Float
+  end
+end

data/lib/vend/resources/inventory.rb

@@ -0,0 +1,14 @@
+# TODO: Implement the attribute declaration as a Proc to avoid this
+module Vend
+  class Product < RemoteResource
+  end
+end
+module Vend
+  class Inventory < RemoteResource
+    attribute :attributed_cost, Float
+    attribute :count, Integer
+    attribute :product, Vend::Product
+    attribute :outlet, Vend::Outlet
+  end
+end
+

data/lib/vend/resources/outlet.rb

@@ -0,0 +1,4 @@
+module Vend
+  class Outlet < Resource
+  end
+end

data/lib/vend/resources/payment_type.rb

@@ -0,0 +1,4 @@
+module Vend
+  class PaymentType < RemoteResource
+  end
+end

data/lib/vend/resources/price_book_entry.rb

@@ -0,0 +1,10 @@
+module Vend
+  class PriceBookEntry < Resource
+    attribute :max_units, Integer
+    attribute :min_units, Integer
+    attribute :price, Float
+    attribute :tax, Float
+    attribute :tax_rate, Float
+  end
+end
+

data/lib/vend/resources/product.rb

@@ -0,0 +1,30 @@
+module Vend
+  class Product < RemoteResource
+    ##
+    # Attribute Coercion
+    attribute :active, Boolean
+    attribute :brand, Vend::Brand
+    attribute :display_retail_price_tax_inclusive, Attributes::Boolean
+    attribute :inventory, Array[Vend::Inventory]
+    attribute :price, Float
+    attribute :price_book_entries, Array[Vend::PriceBookEntry]
+    attribute :product_type, Vend::ProductType
+    attribute :supplier, Vend::Supplier
+    attribute :supply_price, Float
+    attribute :tags, Attributes::CSV
+    attribute :tax, Float
+    attribute :tax_rate, Float
+
+    ##
+    # Scopes
+    collection_scope :active, default: true
+    collection_scope :order_by
+    collection_scope :order_direction
+
+    collection_method :order do |by, direction='ASC'|
+      order_by by
+      order_direction direction
+    end
+
+  end
+end

data/lib/vend/resources/product_type.rb

@@ -0,0 +1,7 @@
+module Vend
+  class ProductType < RemoteResource
+    path "product_types"
+
+    resource_api_path "1.0/product_type"
+  end
+end

data/lib/vend/resources/register.rb

@@ -0,0 +1,9 @@
+module Vend
+  class Register < RemoteResource
+    attribute :invoice_sequence, Integer
+    attribute :print_receipt, Attributes::Boolean
+    attribute :register_close_time, DateTime
+    attribute :register_open_time, DateTime
+    attribute :register_open_count_sequence, Integer
+  end
+end

data/lib/vend/resources/register_sale_payment.rb

@@ -0,0 +1,6 @@
+module Vend
+  class RegisterSalePayment < Resource
+    attribute :amount, Float
+    attribute :payment_type_id, Integer
+  end
+end

data/lib/vend/resources/register_sale_product.rb

@@ -0,0 +1,12 @@
+module Vend
+  class RegisterSaleProduct < Resource
+    attribute :display_retail_price_tax_inclusive, Attributes::Boolean
+    attribute :price, Float
+    attribute :price_set, Boolean
+    attribute :price_total, Float
+    attribute :quantity, Integer
+    attribute :tax, Float
+    attribute :tax_rate, Float
+    attribute :tax_total, Float
+  end
+end

data/lib/vend/resources/sale.rb

@@ -0,0 +1,17 @@
+module Vend
+  class Sale < RemoteResource
+    attribute :customer, Vend::Customer
+    attribute :invoice_number, Integer
+    attribute :register_sale_products, Array[RegisterSaleProduct]
+    attribute :register_sale_payments, Array[RegisterSalePayment]
+    attribute :total_cost, Float
+    attribute :total_price, Float
+    attribute :total_tax, Float
+    attribute :totals, Hash[Symbol => Float] # Requires updated virtus gem
+    #attribute :totals, Array[Float]
+    attribute :user, Vend::User
+
+    path "register_sale"
+  end
+end
+

data/lib/vend/resources/supplier.rb

@@ -0,0 +1,6 @@
+module Vend
+  class Supplier < RemoteResource
+    attribute :contact, Vend::Contact
+    collection_api_path "supplier"
+  end
+end

data/lib/vend/resources/tax.rb

@@ -0,0 +1,13 @@
+module Vend
+  class Tax < RemoteResource
+    attribute :rate, Float
+    attribute :default, Attributes::Boolean
+    collection_api_path "taxes"
+
+    ##
+    # Scopes
+    collection_method :default do
+      select(&:default).first
+    end
+  end
+end

data/lib/vend/resources/user.rb

@@ -0,0 +1,4 @@
+module Vend
+  class User < RemoteResource
+  end
+end

data/lib/vend/response.rb

@@ -0,0 +1,9 @@
+module Vend
+  class Response
+    attr_reader :status, :headers, :data
+
+    def initialize status, headers, data
+      @status, @headers, @data = status, headers, data
+    end
+  end
+end

data/lib/vend/store.rb

@@ -0,0 +1,103 @@
+require "addressable/uri"
+require "faraday"
+require "faraday_middleware"
+
+module Vend
+  class Store
+    include HasResources
+
+    def initialize name, username, password
+      @name, @credentials = name, [ username, password ]
+    end
+
+    ##
+    # Dispatch a request using HTTP GET
+    def get options
+      dispatch :get, options
+    end
+
+    ##
+    # Dispatch a request using HTTP POST
+    def post options
+      dispatch :post, options
+    end
+
+    private
+
+    ##
+    # Dispatches an HTTP request
+    def dispatch method, options
+      path = options[:path]
+      parameters = options[:parameters]
+      data = options[:data]
+
+      if parameters
+        path = Addressable::URI.parse(path).tap do |uri|
+          uri.query_values = (uri.query_values || {}).merge(parameters)
+        end.to_s
+      end
+
+      headers = faraday.headers.merge(options[:headers] || {})
+      response = faraday.run_request(method, path, data, headers)
+
+      assert_http_status(response, options[:status])
+
+      ::Vend::Response.new(
+        response.status,
+        response.headers,
+        response.body
+      )
+    end
+
+    ##
+    # Raises an error unless the response status matches the required status
+    def assert_http_status(response, status)
+      case response.status
+      when nil, status then return
+      when 401
+        raise Unauthorized
+      when 422
+        raise ValidationFailed, "Validation failed: #{response.body.to_s}"
+      when 500
+        raise ServerError, internal_server_error_message(status, response)
+      else
+        raise Error, "Expected HTTP #{status}, got HTTP #{response.status}"
+      end
+    end
+
+    def internal_server_error_message(expected_status, response)
+      body = response.body
+      if body["type"] && body["message"] && body["backtrace"]
+        "Expected HTTP %d, got HTTP %d with error:\n%s\n%s\n\n%s" % [
+          expected_status,
+          response.status,
+          response.body["type"],
+          response.body["message"],
+          response.body["backtrace"].join("\n"),
+        ]
+      else
+        "Expected HTTP %d, got %d" % [
+          expected_status,
+          response.status,
+        ]
+      end
+    end
+
+    ##
+    # Base URL for the Vend AP
+    def url
+      "%s://%s.%s/api" % [ Vend.scheme, @name, Vend.domain ]
+    end
+
+    ##
+    # Memoized Faraday client with auth credentials
+    def faraday
+      @_faraday ||= Faraday.new(url) do |conn|
+        conn.request :json
+        conn.response :json
+        conn.basic_auth *@credentials
+        conn.adapter Faraday.default_adapter
+      end
+    end
+  end
+end