cantango 0.8.0

data/lib/cantango/configuration/guest.rb

@@ -0,0 +1,57 @@
+module CanTango
+  class Configuration
+    class Guest
+      include Singleton
+
+      def clear!
+        @user = nil
+        @account = nil
+      end
+
+      def user user = nil, &block
+        return (@user || guest_user) if !user && !block
+        @user = user || yield
+      end
+
+      alias_method :user=, :user
+
+      def account account = nil, &block
+        return (@account || guest_account) if !account && !block
+        @account = account || yield
+      end
+
+      alias_method :account=, :account
+
+      def default_user?
+        has_guest? base_user_class
+      end
+
+      def default_account?
+        has_guest? base_account_class
+      end
+
+      protected
+
+      def guest_user
+        base_user_class.guest if default_user?
+      end
+
+      def guest_account
+        base_account_class.guest if default_account?
+      end
+
+      def has_guest? clazz
+        clazz && defined?(clazz) && clazz.respond_to?(:guest)
+      end
+
+      def base_user_class
+        CanTango.config.user.base_class
+      end
+
+      def base_account_class
+        CanTango.config.user_account.base_class
+      end
+    end
+  end
+end
+ 

data/lib/cantango/configuration/hash_registry.rb

@@ -0,0 +1,62 @@
+require 'singleton'
+require 'sugar-high/kind_of'
+
+module CanTango
+  class Configuration
+    class HashRegistry < Registry
+
+      def types= *types
+        raise "This is a Hash registry!"
+      end
+
+      def types
+        [Hash]
+      end
+
+      def clean!
+        registered = Hashie::Mash.new
+      end
+
+      def clear!
+        clean!
+      end
+
+      def default!
+        @registered = default
+      end
+
+      def << hash
+        raise "Must be a hash" if !hash.is_a? Hash
+        registered.merge! hash
+      end
+
+      def [] label
+        raise "Must be a label" if !label.kind_of_label?
+        registered[label]
+      end
+
+      def []= label, value
+        raise "Must be a label" if !label.kind_of_label?
+        registered[label] = value
+      end
+
+      def register hash
+        raise "Must be a hash" if !hash.is_a? Hash
+        registered.merge! hash
+      end
+
+      def registered
+        @registered ||= default
+      end
+
+      def default
+        @default ||= Hashie::Mash.new
+      end
+
+      def default= hash
+        @default = Hashie::Mash.new hash
+      end
+
+    end
+  end
+end

data/lib/cantango/configuration/models.rb

@@ -0,0 +1,48 @@
+module CanTango
+  class Configuration
+    class Models
+      include Singleton
+      include ClassExt
+
+      def by_reg_exp reg_exp
+        raise "Must be a Regular Expression like: /xyz/ was #{reg_exp.inspect}" if !reg_exp.kind_of? Regexp
+
+        grep(reg_exp).map do |model_string|
+          try_model(model_string)
+        end
+      end
+
+      def by_category label
+        categories[label].map do |model|
+          model.class == String ? try_model(model) : model
+        end
+      end
+
+      private
+
+      def try_model model_string
+        model = try_class(model_string.singularize) || try_class(model_string) 
+        raise "No model #{model_string} defined!" if !model
+        model
+      end
+
+      def grep reg_exp
+        available_models.grep reg_exp
+      end
+ 
+      def available_models
+        ar_models.map(&:name)
+      end
+
+      def ar_models
+        # Sugar-high #to_strings didn't work here!
+        ActiveRecord::Base.descendants
+      end
+
+      def categories
+        CanTango.config.categories
+      end
+    end
+  end
+end
+

data/lib/cantango/configuration/registry.rb

@@ -0,0 +1,53 @@
+require 'singleton'
+require 'sugar-high/kind_of'
+
+module CanTango
+  class Configuration
+    class Registry
+      attr_writer   :default
+      attr_accessor :registered
+
+      include Singleton
+
+      def types= *types
+        @types = types.select {|t| t.is_a? Class }
+      end
+
+      def types
+        @types ||= [Symbol, String]
+        @types
+      end
+
+      def clean!
+        @registered = []
+      end
+
+      alias_method :clear!, :clean!
+
+      def default!
+        @registered = default
+      end
+
+      def register *list
+        registered << list.select_kinds_of(*types)
+        registered.flat_uniq!
+      end
+
+      alias_method :<<, :register
+
+      def [] index
+        registered[index]
+      end
+
+      def registered
+        @registered ||= default
+      end
+
+      def default
+        @default ||= []
+      end
+    end
+  end
+end
+
+

data/lib/cantango/configuration/role_groups.rb

@@ -0,0 +1,15 @@
+module CanTango
+  class Configuration
+    class RoleGroups < RoleRegistry
+      def default_has_method
+        :in_role_group?
+      end
+
+      def default_list_method
+        :role_groups_list
+      end
+    end
+  end
+end
+
+

data/lib/cantango/configuration/role_registry.rb

@@ -0,0 +1,43 @@
+module CanTango
+  class Configuration
+    class RoleRegistry < Registry
+      attr_reader :has_method, :list_method
+
+      [:has_method, :list_method].each do |meth|
+        class_eval %{
+          def #{meth}
+            @#{meth} ||= default_#{meth}
+          end
+
+          def #{meth}= name
+            raise "Must be a label" if !name.kind_of_label?
+            @#{meth} = name
+          end
+        }
+      end
+
+      def only *names
+        @onlies = names.select_labels
+      end
+
+      def onlies
+        @onlies ||= []
+      end
+
+      def excluded
+        @excluded ||= []
+      end
+
+      def exclude *names
+        @excluded = names.select_labels
+      end
+
+      def clear!
+        super
+        @excluded = []
+        @onlies = []
+      end      
+    end
+  end
+end
+

data/lib/cantango/configuration/roles.rb

@@ -0,0 +1,16 @@
+module CanTango
+  class Configuration
+    class Roles < RoleRegistry
+      def default_has_method
+        :has_role?
+      end
+
+      def default_list_method
+        :roles_list
+      end
+    end
+  end
+end
+
+
+

data/lib/cantango/configuration/user.rb

@@ -0,0 +1,47 @@
+module CanTango
+  class Configuration
+    class User
+      include Singleton
+
+      include ClassExt
+
+      def clear!
+        @clazz = nil
+        @unique_key_field = nil
+        @relations = nil
+      end
+
+      def base_class
+        @clazz ||= (::User if defined? ::User)
+      end
+
+      def base_class= clazz
+        raise ArgumentError, "Must be a class, was: #{clazz}" unless is_class? clazz
+        @clazz = clazz
+      end
+
+      def unique_key_field
+        @unique_key_field || :email
+      end
+
+      def unique_key_field= key
+        raise ArgumentError, "Not a valid key" unless key.kind_of_label?
+        @unique_key_field = key.to_sym
+      end
+
+      def relations= *relations
+        @relations = relations.select_labels
+      end
+
+      def relations
+        @relations ||= default_relations
+      end
+
+      def default_relations
+        [:owner, :author, :writer, :user]
+      end
+    end
+  end
+end
+
+

data/lib/cantango/configuration/user_account.rb

@@ -0,0 +1,23 @@
+module CanTango
+  class Configuration
+    class UserAccount
+      include Singleton
+      include ClassExt
+
+      def clear!
+        @clazz = nil
+      end
+
+      def base_class
+        @clazz ||= (::UserAccount if defined? ::UserAccount)
+      end
+
+      def base_class= clazz
+        raise ArgumentError, "Must be a class, was: #{clazz}" unless is_class? clazz
+        @clazz = clazz
+      end
+    end
+  end
+end
+
+

data/lib/cantango/configuration/user_accounts.rb

@@ -0,0 +1,7 @@
+module CanTango
+  class Configuration
+    class UserAccounts < Registry
+    end
+  end
+end
+

data/lib/cantango/configuration/users.rb

@@ -0,0 +1,7 @@
+module CanTango
+  class Configuration
+    class Users < Registry
+    end
+  end
+end
+

data/lib/cantango/helpers.rb

@@ -0,0 +1,5 @@
+module CanTango
+  module Helpers
+    autoload_modules :RoleMethods
+  end
+end

data/lib/cantango/helpers/role_methods.rb

@@ -0,0 +1,26 @@
+module CanTango
+  module Helpers
+    module RoleMethods
+      def has_role_meth
+        config.roles.has_method
+      end
+
+      def has_role_group_meth
+        config.role_groups.has_method
+      end
+
+      def role_groups_list_meth
+        config.role_groups.list_method
+      end
+
+      def roles_list_meth
+        config.roles.list_method
+      end
+
+      def config
+        CanTango.config
+      end
+    end
+  end
+end
+

data/lib/cantango/permission_engine.rb

@@ -0,0 +1,7 @@
+module CanTango
+  module PermissionEngine
+    autoload_modules :Collector, :Compiler, :Evaluator, :Selector
+    autoload_modules :Factory, :Loader, :Parser, :Permission
+    autoload_modules :RulesParser, :Store, :YamlStore, :Statements, :Statement
+  end
+end

data/lib/cantango/permission_engine/builder.rb

@@ -0,0 +1,6 @@
+module CanTango::Permit
+  module Builder
+    autoload :Base,             'tango/permit/builder/base'
+    autoload :SpecialPermits,   'tango/permit/builder/special_permits'
+  end
+end