codily 0.1.0.beta

data/lib/codily/elements/base.rb

@@ -0,0 +1,195 @@
+require 'fastly'
+require 'codily/utils'
+
+module Codily
+  module Elements
+    class Base
+      class AlreadyDefined < StandardError; end
+
+      def self.parent_class
+        nil
+      end
+
+      def self.path
+        @path ||= [].tap do |path|
+          ptr = self
+          while ptr = ptr.parent_class
+            path.unshift ptr
+          end
+        end
+      end
+
+      def self.name_for_attr
+        @attr_name ||= self.name.split('::').last.gsub(/[A-Z]/, '_\0').gsub(/^_/, '').downcase
+      end
+
+      def self.def_attr(*attrs)
+        attrs.each do |attr|
+          define_method(attr) do |obj = nil|
+            getset attr, obj
+          end
+        end
+      end
+
+      def self.defaults(kv = nil)
+        if kv
+          @defaults = defaults.merge(kv)
+        else
+          @defaults ||= {}
+        end
+      end
+
+      def initialize(root, obj, &block)
+        @root = root
+
+        case obj
+        when Hash
+          @hash = obj
+        when Fastly::Base
+          @fastly_obj = obj
+          @hash = Utils.symbolize_keys(obj.as_hash)
+
+          @hash.delete :id
+          @hash.each_key do |k|
+            @hash.delete k if @hash[k].nil?
+          end
+        else
+          raise TypeError
+        end
+
+        instance_eval(&block) if block
+
+        setup
+      end
+
+      attr_reader :root
+      attr_accessor :fastly_obj
+
+      def inspect
+        "#<#{self.class}:#{self.key.inspect}/#{Hash[self.as_hash.to_a.sort_by{ |_| _.first.to_s }]}>"
+      end
+
+      def parent_class
+        self.class.parent_class
+      end
+
+      def parent_key
+        nil
+      end
+
+      def parent
+        return nil if parent_class.nil?
+        root.list_element(parent_class)[parent_key] or raise '[bug?] no parent element'
+      end
+
+      def parents
+        parents = []
+        ptr = self
+        while ptr = ptr.parent
+          parents.unshift ptr
+        end
+        return parents
+      end
+
+      def id
+        fastly_obj && fastly_obj.respond_to?(:id) ? fastly_obj.id : nil
+      end
+
+      def name(str = nil)
+        getset :name, str
+      end
+
+      def dsl_args
+        [name]
+      end
+
+      def key
+        name
+      end
+
+      def as_hash
+        self.class.defaults.merge @hash
+      end
+
+      def as_dsl_hash
+        as_hash.tap do |x|
+          x.delete :name
+        end
+      end
+
+      private
+
+      def getset(key, obj)
+        if obj.nil?
+          @hash[key]
+        else
+          raise AlreadyDefined if @hash.key?(key)
+          @hash[key] = obj
+        end
+      end
+
+      def add(key, obj)
+        @hash[key] ||= []
+        @hash[key] << obj
+      end
+
+      def add_element(key, klass, obj = {}, key2 = :name, &block)
+        element = klass.new(root, obj, &block)
+        root.add_element(element)
+        add(key, element.__send__(key2))
+      end
+
+      def add_refer_element(key, klass, obj = {}, key2 = :name, &block)
+        elem = refer_element(klass, obj, key2, &block)
+        add(key, elem.__send__(key2))
+      end
+
+      def set_refer_element(key, klass, obj = {}, key2 = :name, &block)
+        elem = refer_element(klass, obj, key2, &block)
+        getset(key, elem.__send__(key2))
+      end
+
+      def refer_element(klass, obj, key2, &block)
+        list = root.list_element(klass)
+        element = klass.new(root, obj, &block)
+        element_query = element.__send__(key2)
+        candidate = list.each_value.find { |_| _.__send__(key2) == element_query }
+        if candidate
+          if block
+            raise AlreadyDefined
+          end
+        else
+          root.add_element(element)
+        end
+
+        candidate || element
+      end
+
+      def setup
+      end
+
+      private
+
+      def delete_if_empty!(*keys)
+        keys.each do |k|
+          @hash.delete k if @hash[k] && @hash[k].empty?
+        end
+      end
+
+      def force_integer!(*keys)
+        keys.each do |k|
+          if @hash[k]
+            @hash[k] = case @hash[k]
+                       when true
+                         1
+                       when false
+                         0
+                       else
+                         @hash[k].to_i
+                       end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/codily/elements/cache_setting.rb

@@ -0,0 +1,32 @@
+require 'codily/elements/service_belongging_base'
+require 'codily/elements/condition'
+
+module Codily
+  module Elements
+    class CacheSetting < ServiceBelonggingBase
+      def_attr *%i(
+        action
+        stale_ttl
+        ttl
+      )
+
+      def setup
+        delete_if_empty! *%i(
+          cache_condition
+        )
+        force_integer! *%i(
+          ttl
+          stale_ttl
+        )
+      end
+
+      def cache_condition(name = nil, &block)
+        set_refer_element(:cache_condition, Condition, {name: name, type: 'CACHE', _service_name: self.service_name}, &block)
+      end
+
+      def fastly_class
+        Fastly::CacheSetting
+      end
+    end
+  end
+end

data/lib/codily/elements/condition.rb

@@ -0,0 +1,21 @@
+require 'codily/elements/service_belongging_base'
+
+module Codily
+  module Elements
+    class Condition < ServiceBelonggingBase
+      def_attr *%i(
+        comment
+        priority
+        statement
+      )
+
+      def type(obj = nil)
+        getset :type, obj.to_s.upcase
+      end
+
+      def fastly_class
+        Fastly::Condition
+      end
+    end
+  end
+end

data/lib/codily/elements/dictionary.rb

@@ -0,0 +1,14 @@
+require 'codily/elements/service_belongging_base'
+
+module Codily
+  module Elements
+    class Dictionary < ServiceBelonggingBase
+      def_attr *%i(
+      )
+
+      def fastly_class
+        Fastly::Dictionary
+      end
+    end
+  end
+end

data/lib/codily/elements/domain.rb

@@ -0,0 +1,19 @@
+require 'codily/elements/service_belongging_base'
+
+module Codily
+  module Elements
+    class Domain < ServiceBelonggingBase
+      def_attr *%i(
+        comment
+      )
+
+      def setup
+        delete_if_empty! :comment
+      end
+
+      def fastly_class
+        Fastly::Domain
+      end
+    end
+  end
+end

data/lib/codily/elements/file_loadable.rb

@@ -0,0 +1,34 @@
+module Codily
+  module Elements
+    module FileLoadable
+      def self.included(klass)
+        klass.instance_eval do
+          def def_file_loadable_attr(*attrs)
+            attrs.each do |attr|
+              define_method(attr) do |obj = nil|
+                getset attr, file_loadable(obj)
+              end
+            end
+          end
+        end
+      end
+
+      private
+
+      def file_loadable(obj)
+        case obj
+        when Hash
+          if obj.key?(:inline)
+            return obj[:inline]
+          end
+          if obj.key?(:file)
+            return File.read(obj[:file])
+          end
+          raise ArgumentError
+        else
+          return obj.to_s
+        end
+      end
+    end
+  end
+end

data/lib/codily/elements/gzip.rb

@@ -0,0 +1,44 @@
+require 'codily/elements/service_belongging_base'
+require 'codily/elements/condition'
+
+module Codily
+  module Elements
+    class Gzip < ServiceBelonggingBase
+      def content_types(o = nil)
+        o = case o
+            when nil
+              nil
+            when String
+              o
+            when Array
+              o.join(' ')
+            end
+        getset :content_types, o
+      end
+
+      def extensions(o = nil)
+        o = case o
+            when nil
+              nil
+            when String
+              o
+            when Array
+              o.join(' ')
+            end
+        getset :extensions, o
+      end
+
+      def setup
+        delete_if_empty! :cache_condition
+      end
+
+      def cache_condition(name = nil, &block)
+        set_refer_element(:cache_condition, Condition, {name: name, type: 'CACHE', _service_name: self.service_name}, &block)
+      end
+
+      def fastly_class
+        Fastly::Gzip
+      end
+    end
+  end
+end

data/lib/codily/elements/header.rb

@@ -0,0 +1,57 @@
+require 'codily/elements/service_belongging_base'
+require 'codily/elements/condition'
+
+module Codily
+  module Elements
+    class Header < ServiceBelonggingBase
+      def_attr *%i(
+        action
+        src
+        dst
+        ignore_if_set
+        priority
+        regex
+        substitution
+        type
+      )
+
+      def setup
+        delete_if_empty! *%i(
+          regex
+          substitution
+        )
+        force_integer! *%i(
+          priority
+          ignore_if_set
+        )
+        if @hash.key?(:ignore_if_set)
+          @hash[:ignore_if_set] = @hash[:ignore_if_set] == 1
+        end
+      end
+
+      def as_hash
+        super.tap do |x|
+          if x.key?(:ignore_if_set)
+            x[:ignore_if_set] = !!x[:ignore_if_set] ? 1 : 0
+          end
+        end
+      end
+
+      def cache_condition(name = nil, &block)
+        set_refer_element(:cache_condition, Condition, {name: name, _service_name: self.service_name}, &block)
+      end
+
+      def request_condition(name = nil, &block)
+        set_refer_element(:request_condition, Condition, {name: name, _service_name: self.service_name}, &block)
+      end
+
+      def response_condition(name = nil, &block)
+        set_refer_element(:response_condition, Condition, {name: name, _service_name: self.service_name}, &block)
+      end
+
+      def fastly_class
+        Fastly::Header
+      end
+    end
+  end
+end

data/lib/codily/elements/healthcheck.rb

@@ -0,0 +1,40 @@
+require 'codily/elements/service_belongging_base'
+
+module Codily
+  module Elements
+    class Healthcheck < ServiceBelonggingBase
+      def_attr *%i(
+        check_interval
+        comment
+        expected_response
+        host
+        http_version
+        initial
+        method
+        path
+        threshold
+        timeout
+        window
+      )
+
+      defaults(
+        threshold: 1,
+        window: 2,
+        http_version: "1.1",
+        timeout: 5000,
+        method: "HEAD",
+        expected_response: 200,
+        check_interval: 60000,
+        initial: 1,
+      )
+
+      def setup
+        delete_if_empty! :comment
+      end
+
+      def fastly_class
+        Fastly::Healthcheck
+      end
+    end
+  end
+end

data/lib/codily/elements/request_setting.rb

@@ -0,0 +1,67 @@
+require 'codily/elements/service_belongging_base'
+require 'codily/elements/condition'
+
+require 'codily/fastly_ext'
+
+module Codily
+  module Elements
+    class RequestSetting < ServiceBelonggingBase
+      def_attr *%i(
+        action
+        bypass_busy_wait
+        default_host
+        force_miss
+        force_ssl
+        geo_headers
+        hash_keys
+        max_stale_age
+        timer_support
+        xff
+      )
+
+      defaults(
+        force_ssl: nil,
+        force_miss: nil,
+        timer_support: nil,
+        bypass_busy_wait: nil,
+      )
+
+      def setup
+        delete_if_empty! *%i(
+          default_host
+          hash_keys
+          request_condition
+        )
+
+        force_integer! *%i(
+          force_ssl
+          force_miss
+          timer_support
+          bypass_busy_wait
+          max_stale_age
+        )
+
+        # NOTE: They can be 'N/A' (null) on app.fastly.com, but can't be back to N/A after changed to Y or N once?
+        %i(force_ssl force_miss timer_support bypass_busy_wait).each do |k|
+          @hash[k] = @hash[k] == 1 if @hash.key?(k)
+        end
+      end
+
+      def as_hash
+        super.tap do |x|
+          %i(force_ssl force_miss timer_support bypass_busy_wait).each do |k|
+            x[k] = !!x[k] ? 1 : 0 if x.key?(k) && !x[k].nil?
+          end
+        end
+      end
+
+      def request_condition(name = nil, &block)
+        set_refer_element(:request_condition, Condition, {name: name, type: 'REQUEST', _service_name: self.service_name}, &block)
+      end
+
+      def fastly_class
+        Fastly::RequestSetting
+      end
+    end
+  end
+end

data/lib/codily/elements/response_object.rb

@@ -0,0 +1,51 @@
+require 'codily/elements/service_belongging_base'
+require 'codily/elements/condition'
+require 'codily/elements/file_loadable'
+
+module Codily
+  module Elements
+    class ResponseObject < ServiceBelonggingBase
+      include FileLoadable
+
+      def_attr *%i(
+        content_type
+        status
+        response
+        cache_condtiion
+        request_condition
+      )
+
+      defaults(
+        content: "",
+        content_type: "",
+        response: "",
+      )
+
+      def setup
+        delete_if_empty! *%i(
+          content
+          content_type
+          response
+          cache_condition
+          request_condition
+        )
+      end
+
+      def content(obj = nil)
+        getset :content, file_loadable(obj)
+      end
+
+      def cache_condition(name = nil, &block)
+        set_refer_element(:cache_condition, Condition, {name: name, type: 'CACHE', _service_name: self.service_name}, &block)
+      end
+
+      def request_condition(name = nil, &block)
+        set_refer_element(:request_condition, Condition, {name: name, type: 'REQUEST', _service_name: self.service_name}, &block)
+      end
+
+      def fastly_class
+        Fastly::ResponseObject
+      end
+    end
+  end
+end

data/lib/codily/elements/service.rb

@@ -0,0 +1,85 @@
+require 'codily/elements/base'
+require 'codily/elements/backend'
+require 'codily/elements/cache_setting'
+require 'codily/elements/condition'
+require 'codily/elements/dictionary'
+require 'codily/elements/domain'
+require 'codily/elements/gzip'
+require 'codily/elements/header'
+require 'codily/elements/healthcheck'
+require 'codily/elements/request_setting'
+require 'codily/elements/response_object'
+require 'codily/elements/vcl'
+require 'codily/elements/settings'
+
+module Codily
+  module Elements
+    class Service < Base
+      def setup
+        @hash.delete :customer_id
+        @hash.delete :versions
+        delete_if_empty! :comment
+      end
+
+      def name(name = nil)
+        getset :name, name
+      end
+
+      def comment(comment = nil)
+        getset :comment, comment
+      end
+
+      def backend(name, &block)
+        root.add_element Backend.new(root, {name: name, _service_name: self.name}, &block)
+      end
+
+      def cache_setting(name, &block)
+        root.add_element CacheSetting.new(root, {name: name, _service_name: self.name}, &block)
+      end
+
+      def condition(name, &block)
+        root.add_element Condition.new(root, {name: name, _service_name: self.name}, &block)
+      end
+
+      def dictionary(name, &block)
+        root.add_element Dictionary.new(root, {name: name, _service_name: self.name}, &block)
+      end
+
+      def domain(name, &block)
+        root.add_element Domain.new(root, {name: name, _service_name: self.name}, &block)
+      end
+
+      def gzip(name, &block)
+        root.add_element Gzip.new(root, {name: name, _service_name: self.name}, &block)
+      end
+
+      def header(name, &block)
+        root.add_element Header.new(root, {name: name, _service_name: self.name}, &block)
+      end
+
+      def healthcheck(name, &block)
+        root.add_element Healthcheck.new(root, {name: name, _service_name: self.name}, &block)
+      end
+
+      def request_setting(name, &block)
+        root.add_element RequestSetting.new(root, {name: name, _service_name: self.name}, &block)
+      end
+
+      def response_object(name, &block)
+        root.add_element ResponseObject.new(root, {name: name, _service_name: self.name}, &block)
+      end
+
+      def vcl(name, &block)
+        root.add_element Vcl.new(root, {name: name, _service_name: self.name}, &block)
+      end
+      
+      def settings(kv)
+        root.add_element Settings.new(root, {_service_name: self.name}.merge(kv))
+      end
+
+      def fastly_class
+        Fastly::Service
+      end
+    end
+  end
+end