web_blocks 2.0.0.dev

data/lib/web_blocks/structure/attribute/dependency.rb

@@ -0,0 +1,25 @@
+require 'web_blocks/support/attributes/class/container'
+
+module WebBlocks
+  module Structure
+    module Attribute
+      module Dependency
+
+        class << self
+          include ::WebBlocks::Support::Attributes::Class::Container
+        end
+
+        set :dependencies, []
+
+        def dependency route
+          push :dependencies, route
+        end
+
+        def resolve_dependencies
+          merge_branch_array_attribute :dependencies
+        end
+
+      end
+    end
+  end
+end

data/lib/web_blocks/structure/attribute/loose_dependency.rb

@@ -0,0 +1,25 @@
+require 'web_blocks/support/attributes/class/container'
+
+module WebBlocks
+  module Structure
+    module Attribute
+      module LooseDependency
+
+        class << self
+          include ::WebBlocks::Support::Attributes::Class::Container
+        end
+
+        set :loose_dependencies, []
+
+        def loose_dependency route
+          push :loose_dependencies, route
+        end
+
+        def resolve_loose_dependencies
+          merge_branch_array_attribute :loose_dependencies
+        end
+
+      end
+    end
+  end
+end

data/lib/web_blocks/structure/attribute/reverse_dependency.rb

@@ -0,0 +1,16 @@
+require 'web_blocks/support/attributes/class/container'
+
+module WebBlocks
+  module Structure
+    module Attribute
+      module ReverseDependency
+
+        def reverse_dependency route
+          block = framework.block_from_route route
+          block.dependency self.route
+        end
+
+      end
+    end
+  end
+end

data/lib/web_blocks/structure/attribute/reverse_loose_dependency.rb

@@ -0,0 +1,16 @@
+require 'web_blocks/support/attributes/class/container'
+
+module WebBlocks
+  module Structure
+    module Attribute
+      module ReverseLooseDependency
+
+        def reverse_loose_dependency route
+          block = framework.block_from_route route
+          block.loose_dependency self.route
+        end
+
+      end
+    end
+  end
+end

data/lib/web_blocks/structure/block.rb

@@ -0,0 +1,95 @@
+require 'web_blocks/framework'
+require 'web_blocks/structure/tree/node'
+require 'web_blocks/structure/block'
+require 'web_blocks/structure/scss_file'
+require 'web_blocks/structure/js_file'
+require 'web_blocks/structure/attribute/dependency'
+require 'web_blocks/structure/attribute/loose_dependency'
+require 'web_blocks/structure/attribute/reverse_dependency'
+require 'web_blocks/structure/attribute/reverse_loose_dependency'
+
+module WebBlocks
+  module Structure
+    class Block < ::WebBlocks::Structure::Tree::Node
+
+      include WebBlocks::Framework
+      include WebBlocks::Structure::Attribute::Dependency
+      include WebBlocks::Structure::Attribute::LooseDependency
+      include WebBlocks::Structure::Attribute::ReverseDependency
+      include WebBlocks::Structure::Attribute::ReverseLooseDependency
+
+      set :required, false
+
+      def resolved_path
+        path = attributes.has_key?(:path) ? attributes[:path] : ''
+        if attributes.has_key? :base_path
+          Pathname.new(attributes[:base_path]) + path
+        elsif parent
+          parent.resolved_path + path
+        else
+          Pathname.new(path)
+        end
+      end
+
+      def block name, attributes = {}, &block
+        child_eval ::WebBlocks::Structure::Block, name, attributes, block
+      end
+
+      def scss_file name, attributes = {}, &block
+        child_eval ::WebBlocks::Structure::ScssFile, name, attributes, block
+      end
+
+      def js_file name, attributes = {}, &block
+        child_eval ::WebBlocks::Structure::JsFile, name, attributes, block
+      end
+
+      def files
+        computed = []
+        children.each do |name,object|
+          if object.is_a? Block
+            computed = computed + object.files
+          elsif object.is_a? RawFile
+            computed << object
+          end
+        end
+        computed
+      end
+
+      def select_leaf_nodes branch_select_proc, leaf_select_proc
+        leaf_nodes = []
+        nodes = [self]
+        while nodes.length > 0
+          node = nodes.pop
+          if node.respond_to? :children
+            nodes |= node.children.values.select(&branch_select_proc)
+          elsif leaf_select_proc.call(node)
+            leaf_nodes << node
+          end
+        end
+        leaf_nodes
+      end
+
+      def required_files
+        select_leaf_nodes Proc.new(){ |node| node.get(:required) }, Proc.new(){ |node| node.is_a? RawFile }
+      end
+
+      private
+
+      def child_add_or_update klass, name, attributes = {}
+        unless has_child? name
+          add_child klass.new(name, attributes)
+        else
+          attributes.each { |key, value| children[name].set key, value }
+        end
+        children[name]
+      end
+
+      def child_eval klass, name, attributes = {}, block
+        child = child_add_or_update klass, name, attributes
+        child.instance_exec children[name], &block if block
+        child
+      end
+
+    end
+  end
+end

data/lib/web_blocks/structure/font_file.rb

@@ -0,0 +1,9 @@
+require 'web_blocks/structure/raw_file'
+
+module WebBlocks
+  module Structure
+    class FontFile < ::WebBlocks::Structure::RawFile
+
+    end
+  end
+end

data/lib/web_blocks/structure/framework.rb

@@ -0,0 +1,79 @@
+require 'web_blocks/structure/block'
+require 'web_blocks/structure/raw_file'
+require 'web_blocks/support/tsort/hash'
+
+module WebBlocks
+  module Structure
+    class Framework < Block
+
+      set :required, true
+
+      def register hash
+        name = hash[:name]
+        path = hash[:path]
+        resolved_block_path = resolved_path + path
+        blockfile_path =  resolved_block_path + "Blockfile.rb"
+        raise "Undefined blockfile for #{path}" unless File.exists?(blockfile_path)
+        instance_eval File.read(blockfile_path)
+        block name do
+          set :base_path, resolved_block_path
+        end
+      end
+
+      def include *args
+        block = self
+        args.each do |name|
+          block = block.block(name)
+          block.set :required, true
+        end
+        nodes = block.children.values
+        while nodes.length > 0
+          node = nodes.pop
+          node.set :required, true
+          if node.respond_to? :children
+            node.children.values.each { |node_child| nodes << node_child }
+          end
+        end
+      end
+
+      def block_from_route route
+        block = self
+        route.each { |name| block = block.block(name) }
+        block
+      end
+
+      def adjacency_list
+
+        file_dependencies = {}
+
+        files = required_files
+        while files.length > 0
+          file = files.pop
+          file_dependencies[file] = []
+          file.resolve_dependencies.each do |dependency_route|
+            block_from_route(dependency_route).files.each do |dependency_file|
+              files << dependency_file unless file_dependencies.has_key?(dependency_file)
+              file_dependencies[file] << dependency_file
+            end
+          end
+        end
+
+        file_dependencies.each do |file, dependencies|
+          file.resolve_loose_dependencies.each do |dependency_route|
+            block_from_route(dependency_route).files.each do |dependency_file|
+              file_dependencies[file] << dependency_file if file_dependencies.has_key?(dependency_file)
+            end
+          end
+        end
+
+      end
+
+      def get_file_load_order type = RawFile
+
+        ::WebBlocks::Support::TSort::Hash.try_convert(adjacency_list).tsort.keep_if(){ |file| file.is_a? type }
+
+      end
+
+    end
+  end
+end

data/lib/web_blocks/structure/img_file.rb

@@ -0,0 +1,9 @@
+require 'web_blocks/structure/raw_file'
+
+module WebBlocks
+  module Structure
+    class ImgFile < ::WebBlocks::Structure::RawFile
+
+    end
+  end
+end

data/lib/web_blocks/structure/js_file.rb

@@ -0,0 +1,9 @@
+require 'web_blocks/structure/raw_file'
+
+module WebBlocks
+  module Structure
+    class JsFile < ::WebBlocks::Structure::RawFile
+
+    end
+  end
+end

data/lib/web_blocks/structure/raw_file.rb

@@ -0,0 +1,30 @@
+require 'web_blocks/framework'
+require 'web_blocks/structure/tree/leaf_node'
+require 'web_blocks/structure/attribute/dependency'
+require 'web_blocks/structure/attribute/loose_dependency'
+
+module WebBlocks
+  module Structure
+    class RawFile < ::WebBlocks::Structure::Tree::LeafNode
+
+      include WebBlocks::Framework
+      include WebBlocks::Structure::Attribute::Dependency
+      include WebBlocks::Structure::Attribute::LooseDependency
+
+      set :required, true
+
+      def resolved_path
+        parent.resolved_path + (attributes.has_key?(:path) ? attributes[:path] : name)
+      end
+
+      def inspect
+        {
+          :name => name,
+          :route => route,
+          :resolved_path => resolved_path
+        }
+      end
+
+    end
+  end
+end

data/lib/web_blocks/structure/scss_file.rb

@@ -0,0 +1,9 @@
+require 'web_blocks/structure/raw_file'
+
+module WebBlocks
+  module Structure
+    class ScssFile < ::WebBlocks::Structure::RawFile
+
+    end
+  end
+end

data/lib/web_blocks/structure/tree/leaf_node.rb

@@ -0,0 +1,44 @@
+require 'extend_method'
+require 'web_blocks/support/attributes/class/container'
+require 'web_blocks/support/attributes/container'
+require 'web_blocks/support/tree/node'
+require 'web_blocks/support/tree/child'
+
+module WebBlocks
+  module Structure
+    module Tree
+      class LeafNode
+
+        class << self
+          include ::ExtendMethod
+          include ::WebBlocks::Support::Attributes::Class::Container
+        end
+
+        include ::WebBlocks::Support::Attributes::Container
+        include ::WebBlocks::Support::Tree::Node
+        include ::WebBlocks::Support::Tree::Child
+
+        extend_method :initialize do |name, attributes = {}|
+          parent_method name
+          self.attributes attributes
+        end
+
+        def route *args
+          val = parents.map{|parent| parent.name}.reverse + [name] + args
+          val.shift
+          val
+        end
+
+        def merge_branch_array_attribute attribute, method = nil
+          parent ? (get(attribute) + parent.send(method || caller[0][/`([^']*)'/, 1])) : get(attribute)
+        end
+
+        def run &block
+          instance_eval &block
+          self
+        end
+
+      end
+    end
+  end
+end

data/lib/web_blocks/structure/tree/node.rb

@@ -0,0 +1,14 @@
+require 'web_blocks/structure/tree/leaf_node'
+require 'web_blocks/support/tree/parent'
+
+module WebBlocks
+  module Structure
+    module Tree
+      class Node < LeafNode
+
+        include ::WebBlocks::Support::Tree::Parent
+
+      end
+    end
+  end
+end

data/lib/web_blocks/structure.rb

@@ -0,0 +1,7 @@
+require 'pathname'
+
+module WebBlocks
+  module Structure; end
+end
+
+Dir.glob(Pathname.new(__FILE__).parent.realpath + "structure/**/*.rb").each { |r| require r }

data/lib/web_blocks/support/attributes/class/container.rb

@@ -0,0 +1,24 @@
+module WebBlocks
+  module Support
+    module Attributes
+      module Class
+        module Container
+
+          def set name, value
+            attributes[self.name] = {} unless attributes.has_key? self.name
+            attributes[self.name][name] = value
+          end
+
+          def attributes name = nil
+            if name
+              @@attributes.has_key?(name) ? @@attributes[name] : {}
+            else
+              @@attributes ||= {}
+            end
+          end
+
+        end
+      end
+    end
+  end
+end

data/lib/web_blocks/support/attributes/container.rb

@@ -0,0 +1,41 @@
+module WebBlocks
+  module Support
+    module Attributes
+      module Container
+
+        def has? name
+          attributes.has_key? name
+        end
+
+        def get name
+          attributes[name]
+        end
+
+        def set name, value
+          attributes name => value
+        end
+
+        def push name, value
+          attributes[name] << value
+        end
+
+        def attributes hash = nil
+          @attributes = class_attributes unless @attributes
+          @attributes.merge! hash if hash
+          @attributes
+        end
+
+        def class_attributes
+          computed = {}
+          self.class.ancestors.reverse.each do |klass|
+            if self.class.respond_to?(:attributes) and self.class.attributes.has_key?(klass.to_s)
+              computed.merge! self.class.attributes[klass.to_s]
+            end
+          end
+          Marshal.load(Marshal.dump(computed)) # deep clone
+        end
+
+      end
+    end
+  end
+end

data/lib/web_blocks/support/parallel_jobs.rb

@@ -0,0 +1,26 @@
+require 'fork'
+
+module WebBlocks
+  module Support
+    class ParallelJobs
+      def initialize
+        @running = []
+      end
+      def start &block
+        fork = Fork.execute :return, :exceptions do
+          yield
+          true
+        end
+        @running << fork
+      end
+      def wait_for_complete!
+        begin
+          @running.each { |p| p.return_value }
+        ensure
+          @running.each { |p| p.kill if p.alive? }
+          @running = []
+        end
+      end
+    end
+  end
+end

data/lib/web_blocks/support/scoped_logger.rb

@@ -0,0 +1,49 @@
+require 'logger'
+require 'delegate'
+
+module WebBlocks
+  module Support
+    class ScopedLogger < ::SimpleDelegator
+
+      class << self
+        def new_without_scope logdev, shift_age = 0, shift_size = 1048576
+          self.new nil, logdev, shift_age, shift_size
+        end
+      end
+
+      attr_accessor :scopename
+
+      def initialize scopename, logdev, shift_age = 0, shift_size = 1048576
+        if logdev.is_a? ::Logger or logdev.is_a? ::WebBlocks::Support::ScopedLogger
+          super logdev
+        else
+          super ::Logger.new logdev, shift_age, shift_size
+        end
+        @scopename = scopename
+      end
+
+      def scope name = nil, &block
+        scoped_logger = self.class.new scopename ? "#{scopename} - #{name}" : name, __getobj__
+        yield scoped_logger if block_given?
+        scoped_logger
+      end
+
+      def scoped_progname progname = nil
+        if scopename
+          progname ? "#{scopename} - #{progname}" : scopename
+        else
+          progname ? progname : nil
+        end
+      end
+
+      def add severity, message = nil, progname = nil, &block
+        __getobj__.add(severity, message, scoped_progname(progname), &block)
+      end
+
+      [:debug, :error, :fatal, :info, :unknown, :warn].each do |method|
+        define_method(method) { |progname = nil, &block| __getobj__.send(method, scoped_progname(progname), &block) }
+      end
+
+    end
+  end
+end

data/lib/web_blocks/support/tree/child.rb

@@ -0,0 +1,23 @@
+module WebBlocks
+  module Support
+    module Tree
+      module Child
+
+        def set_parent parent
+          @parent = parent
+          @parent.add_child(self) if @parent.respond_to?(:add_child)
+        end
+
+        def parent
+          @parent ||= nil
+        end
+
+        def parents
+          parent ? parent.parents.unshift(parent) : []
+        end
+
+      end
+    end
+  end
+end
+

data/lib/web_blocks/support/tree/node.rb

@@ -0,0 +1,14 @@
+module WebBlocks
+  module Support
+    module Tree
+      module Node
+
+        attr_reader :name
+        def initialize name
+          @name = name
+        end
+
+      end
+    end
+  end
+end

data/lib/web_blocks/support/tree/parent.rb

@@ -0,0 +1,35 @@
+module WebBlocks
+  module Support
+    module Tree
+      module Parent
+
+        def add_child child
+          key = child.respond_to?(:name) ? child.name : child
+          return if has_child? key
+          @children ||= {}
+          @children[key] = child
+          child.set_parent(self) if child.respond_to?(:set_parent)
+        end
+
+        def children
+          @children || {}
+        end
+
+        def has_child? name
+          children.has_key? name
+        end
+
+        def remove_child child
+          name = child.respond_to?(:name) ? child.name : child
+          children.delete name if has_child? name
+        end
+
+        def remove_all_children
+          @children = {}
+        end
+
+      end
+    end
+  end
+end
+

data/lib/web_blocks/support/tsort/hash.rb

@@ -0,0 +1,29 @@
+require 'tsort'
+
+module WebBlocks
+  module Support
+    module TSort
+      class Hash < ::Hash
+
+        class << self
+          def try_convert original
+            converted = self.new
+            super(original).each do |key, value|
+              converted[key] = value
+            end
+            converted
+          end
+        end
+
+        include ::TSort
+
+        alias tsort_each_node each_key
+
+        def tsort_each_child(node, &block)
+          fetch(node).each(&block)
+        end
+
+      end
+    end
+  end
+end

data/lib/web_blocks/thor/base/class/type_get_class_from_string.rb

@@ -0,0 +1,36 @@
+require 'web_blocks/thor/base'
+require 'web_blocks/structure/raw_file'
+require 'web_blocks/structure/scss_file'
+require 'web_blocks/structure/js_file'
+require 'web_blocks/structure/img_file'
+require 'web_blocks/structure/font_file'
+
+module WebBlocks
+  module Thor
+    class Base
+      class << self
+
+        def type_get_class_from_string string
+          string = string.downcase if string
+          case string
+            when 'all'
+              ::WebBlocks::Structure::RawFile
+            when 'scss'
+              ::WebBlocks::Structure::ScssFile
+            when 'js'
+              ::WebBlocks::Structure::JsFile
+            when 'img'
+              ::WebBlocks::Structure::ImgFile
+            when 'font'
+              ::WebBlocks::Structure::FontFile
+            when nil
+              ::WebBlocks::Structure::RawFile
+            else
+              raise "invalid type `#{string}' specified"
+          end
+        end
+
+      end
+    end
+  end
+end