glue 0.31.0 → 0.40.0

data/lib/glue/property.rb

@@ -1,290 +0,0 @@
-require 'facet/annotation'
-require 'facet/inheritor'
-require 'facet/dictionary'
-require 'facets/core/module/on_included'
-require 'facets/more/aspects'
-
-require 'glue/validation'
-require 'og/entity'
-require 'og/relation/all'
-
-# A convienience structure that holds property 
-# metadata. A property is a special type of class annotation.
-# Typically used in Og managed classes (ie Entities), but it
-# is *not* Og specific.
-#--
-# TODO: reimplement type checking.
-# TODO: try to clean this up.
-#++
-
-class Property
-  
-  # The hash used to store the property options.  
-
-  attr_accessor :hash
-  
-  def initialize(hash)
-    @hash = hash
-    @hash = @hash.to_h unless @hash.is_a?(Hash)
-  end
-  
-  def [](key)
-    @hash[key]
-  end
-  alias_method :method_missing, :[]
-  
-  def []=(key, val)
-    @hash[key] = val
-  end
-  
-  def <=>(other)
-    @hash[:symbol] <=> other.hash[:symbol]
-  end
-  
-  def to_s
-    @hash[:symbol].to_s
-  end  
-  alias_method :name, :to_s
-
-  # :section: Property related utils and helpers.
-
-  class << self
-
-  # Populate an object from a hash of values.
-  # This is a truly dangerous method.
-  #
-  # === Options:
-  # * name
-  # * force_boolean
-  
-  def populate_object(obj, values, options = {})
-    # If a class is passed create an instance.
-    obj = obj.new if obj.is_a?(Class) 
-
-    for prop in obj.class.properties.values
-      
-      unless options[:all]
-        next if prop.symbol == obj.class.primary_key.symbol or prop.control == :none or prop.disable_control
-      end
-      
-      prop_name = prop.symbol.to_s
-      
-      # See if there is an incoming request param for this prop.
-      
-      if values.has_key?(prop_name)
-        
-        prop_value = values[prop_name]
-        
-        # to_s must be called on the prop_value incase the 
-        # request is IOString.
-        
-        prop_value = prop_value.to_s unless prop_value.is_a?(Hash) or prop_value.is_a?(Array)
-        
-        # If property is a Blob dont overwrite current 
-        # property's data if "".
-        
-        break if prop.klass == Og::Blob and prop_value.empty?
-        
-        # If custom preprocessing is active then try and 
-        # preprocess.
-        
-        prop_value = preprocess_value(obj, prop, prop_value) if options[:preprocess]
-
-        # assign using __force_ methods.
-        obj.send("__force_#{prop_name}", prop_value)
-      
-      # Set a boolean property to false if it is not in the request.
-      # requires force_boolean == true.
-        
-      elsif options[:force_boolean] and (prop.klass == TrueClass or prop.klass == FalseClass)
-        obj.send("__force_#{prop_name}", 0)
-      end
-    end
-
-    if options[:assign_relations]
-      for rel in obj.class.relations
-        
-        unless options[:all]
-          next if rel.options[:control] == :none or rel.options[:disable_control]
-        end
-        
-        rel_name = rel.name.to_s
-        
-        # Renew the relations from values
-        
-        if rel.kind_of?(Og::RefersTo)
-          if foreign_oid = values[rel_name]
-            foreign_oid = foreign_oid.to_s unless foreign_oid.is_a?(Hash) or foreign_oid.is_a?(Array) 
-            foreign_oid = nil if foreign_oid == 'nil' or foreign_oid == 'none'
-            # if custom preprocessing is active then try and preprocess
-            foreign_oid = preprocess_value(obj, rel, foreign_oid) if options[:preprocess]
-          end
-          obj.send("__force_#{rel.foreign_key}", foreign_oid)
-        elsif rel.kind_of?(Og::JoinsMany) || rel.kind_of?(Og::HasMany)
-          collection = obj.send(rel_name)
-          collection.remove_all 
-          if values.has_key?(rel_name)
-            primary_keys = values[rel_name]
-            
-            # if custom preprocessing is active then try and preprocess
-            primary_keys = preprocess_value(obj, rel, primary_keys) if options[:preprocess]
-            
-            primary_keys.each do |v|
-              next if v.to_s == "nil" or v.to_s == "none"
-              collection << rel.target_class[v.to_s.to_i]
-            end
-          end
-        end
-      end
-    end
-
-    #--
-    # gmosx, FIXME: this is a hack, will be replaced with proper
-    # code soon.
-    #++
-    
-    for callback in obj.class.assign_callbacks
-      callback.call(obj, values, options)
-    end if obj.class.respond_to?(:assign_callbacks)
-
-    return obj
-  end 
-  
-  # This method will attempt to process [value] through the
-  # any on_populate preprocessors available.
-  #
-  # first looks if a method was specified on the property
-  #
-  # ie. property :this, String, :on_populate => :change_value
-  # ==> would mean #change_value(val) would get called
-  # TODO: set :on_populate to false to exclude it from any preprocessing
-  #
-  # next an #on_populate method will be looked for on any
-  # associated Nitro::Control (if controls is running)
-  #
-  # otherwise [value] is left untouched
-  
-  def preprocess_value(obj, prop_or_rel, value)
-    if prop_or_rel.on_populate && obj.respond_to?(prop_or_rel.on_populate.to_sym)
-      return obj.send(prop_or_rel.on_populate.to_sym, value)
-    elsif Object.const_defined? :Nitro
-      if control = Nitro::Form::Control.fetch(obj, prop_or_rel, :default => nil) and control.respond_to?(:on_populate)
-        return control.on_populate(value)
-      end
-    else
-      return value
-    end
-  end
-  
-  def eval_helpers(writer, m, sym, klass)
-    return unless writer
-  
-    code = %{
-      def __force_#{sym}(val)
-        if respond_to?(:force_#{sym})
-          self.#{sym} = force_#{sym}(val)
-        else
-          self.#{sym}=(} << case klass.name
-            when Fixnum.name: 'val.to_s.empty? ? nil : val.to_i'
-            when String.name: 'val.to_s'
-            when Float.name: 'val.to_f'
-            when Time.name: 'val.is_a?(Hash) ? Time.local(val["year"],val["month"],val["day"],val["hour"],val["min"]) : Time.parse(val.to_s)'
-            when Date.name: 'val.is_a?(Hash) ? Time.local(val["year"],val["month"],val["day"]).to_date : Time.parse(val.to_s).to_date'
-            when TrueClass.name, FalseClass.name: 'val == "on" or val == "true" ? true: val.to_i > 0'
-            else 'val'    
-          end + %{) 
-        end
-      end        
-    }
-
-    m.module_eval(code)
-  end 
-
-  end
-end
-
-#--
-# Extend the default Module.
-#
-# The properties hash, keeps the property metadata as a hash to avoid 
-# the null issue.
-#++
-
-class Module
-  [ nil, :_reader, :_writer, :_accessor].each do |m|
-    writer = (m != :reader)
-    code = %{
-      def prop#{m} (*args)
-        inheritor(:properties, Dictionary.new, :merge) unless @properties
-
-        args = args.flatten
-        harg = {}
-        while args.last.is_a?(Hash)
-          harg.update(args.pop)
-        end
-
-        harg[:klass] = args.pop if args.last.is_a?(Class)
-        klass = harg[:klass] ||= String
-
-        raise if args.empty? and harg.empty?
-
-        # If the class defines the include_as_property callback
-        # call to modify the base with custom code.
-
-        skip = false
-                
-        if klass.respond_to? :included_as_property 
-          skip = klass.included_as_property(self, args, harg)
-        end
-                 
-        unless skip
-          if !args.empty?
-            undef_keys = args.select{ |a| !method_defined?(a) }
-            unless undef_keys.empty?
-              attr#{m} *undef_keys
-            end
-            args.each { |a|
-              a = a.to_sym
-              an = define_annotation(a, harg)
-              ah = an.to_h.merge(:symbol => a)
-              # gmosx: allow for duplicate declarations.
-              properties![a] = Property.new(ah)
-              Property.eval_helpers(#{writer}, self, a, harg[:klass])
-            }
-          else
-            undef_keys = harg.keys.select{ |a| !method_defined?(a) }
-            attribute#{m} *undef_keys
-            harg.each { |a,h|
-              a = a.to_sym
-              an = define_annotation(a, h)
-              ah = an.to_h.merge(:symbol => a)
-              # gmosx: allow for property redefinitions.
-              properties![a] = Property.new(ah)
-              Property.eval_helpers(#{writer}, self, a, harg[:klass])
-            }
-          end
-        end
-
-        Module.__add_prop_hook__(self)
-      end
-    }
-    
-    module_eval(code)
-  end
-  alias :property :prop_accessor
-        
-  # NITRO specific!! leave blank in facets.
-  # TODO: factor in eval_helpers into the hook!
-
-  def self.__add_prop_hook__(m)
-    m.send(:include, Og::EntityMixin) unless m.ancestors.include?(Og::EntityMixin)
-    m.send(:include, Glue::Validation) unless m.ancestors.include?(Glue::Validation)
-    m.send(:include, ::Aspects) unless m.ancestors.include?(::Aspects)
-  end
-  
-end
-
-# * George Moschovitis <gm@navel.gr>
-# * Tom Sawyer <transfire@gmail.com>
-# * Chris Farmiloe <chris.farmiloe@farmiloe.com>
-# * Bryan Soto <bryan.a.soto@gmail.com>

data/lib/glue/sanitize.rb

@@ -1,48 +0,0 @@
-# Code from rubyonrails project (http://www.rubyonrails.com)
-# Temporarily here.
-
-require 'html/tokenizer'
-require 'html/node'
-
-VERBOTEN_TAGS = %w(form script) unless defined?(VERBOTEN_TAGS)
-VERBOTEN_ATTRS = /^on/i unless defined?(VERBOTEN_ATTRS)
-
-class String
-  # Sanitizes the given HTML by making form and script tags into regular
-  # text, and removing all "onxxx" attributes (so that arbitrary Javascript
-  # cannot be executed). Also removes href attributes that start with
-  # "javascript:".
-  #
-  # Returns the sanitized text.
-  def self.sanitize(html)
-    # only do this if absolutely necessary
-    if html.index("<")
-      tokenizer = HTML::Tokenizer.new(html)
-      new_text = ""
-
-      while token = tokenizer.next
-        node = HTML::Node.parse(nil, 0, 0, token, false)
-        new_text << case node
-          when HTML::Tag
-            if VERBOTEN_TAGS.include?(node.name)
-              node.to_s.gsub(/</, "&lt;")
-            else
-              if node.closing != :close
-                node.attributes.delete_if { |attr,v| attr =~ VERBOTEN_ATTRS }
-                if node.attributes["href"] =~ /^javascript:/i
-                  node.attributes.delete "href"
-                end
-              end
-              node.to_s
-            end
-          else
-            node.to_s.gsub(/</, "&lt;")
-        end
-      end
-
-      html = new_text
-    end
-
-    html
-  end
-end

data/lib/glue/template.rb

@@ -1,219 +0,0 @@
-require 'facets/more/openobject'
-require 'glue/configuration'
-
-module Glue
-
-# A template is a text file with embeded Ruby code. The template
-# processor converts the original text file to ruby code and
-# then evaluates this code to produce the result of the 
-# template transformation.
-
-module TemplateMixin
-
-  # Convert a template to actual Ruby code, ready to be 
-  # evaluated.
-  #
-  # [+template+] 
-  #    The template as a String.
-  #
-  # [+buffer+]
-  #    The variable to act as a buffer where the ruby code
-  #    for this template will be generated. Passed as a
-  #    String.
-  #
-  #  [+base_dir+]
-  #    The base directory where the templates reside.
-  
-  def compile_template(template, buffer = '@out', base_dir = Dir.pwd)
-    text = template.dup
-
-    # Strip the xml header! (interracts with the following gsub!)
-    text.gsub!(/<\?xml.*\?>/, "")
-
-    # Statically include sub-template files.
-    # The target file is included at compile time.
-    #
-    # gmosx: must be xformed before the <?r pi.
-    #
-    # Example:    
-    # <?include href="root/myfile.sx" ?>
-
-    text.gsub!(/<\?include href=["|'](.*?)["|'](.*)\?>/) do |match|
-      itext = File.read("#{base_dir}/#$1")
-      itext.gsub!(/<\?xml.*\?>/, '')
-      itext.gsub!(/<\/?root(.*?)>/m, ' ');
-      itext
-    end
-
-    # Transform include instructions <include href="xxx" />
-    # must be transformed before the processinc instructions.
-    # Useful to include fragments cached on disk
-    #
-    # gmosx, FIXME: NOT TESTED! test and add caching.
-    # add load_statically_included fixes.
-
-    text.gsub!(/<include href=["|'](.*?)["|'](.*)(.?)\/>/) do |match|
-      "<?r File.read( '\#{@dispatcher.root}/#$1' ?>"
-    end
-    
-    # xform render/inject instructions <render href="xxx" />
-    # must be transformed before the processinc instructions.
-
-    text.gsub!(/<(render|inject) href=["|'](.*?)["|'](.*)(.?)\/>/) do |match|
-      "<?r render '#$2' ?>"
-    end
-
-    # Remove <root> elements. typically removed by xslt but lets
-    # play it safe. The <root> element is typically added to
-    # template files to make them XHTML valid.
-    
-    text.gsub!(/<(\/)?root>/, '')
-    
-    # Transform the processing instructions, use <?r as
-    # a marker.
-    
-    text.gsub!(/\?>/, "; #{buffer} << %^")
-    text.gsub!(/<\?r(\s?)/, "^; ")
-    
-    # Transform alternative code tags. 
-    # (very useful in xsl stylesheets)
-    
-    text.gsub!(/<\/ruby>/, "; #{buffer} << %^")
-    text.gsub!(/<ruby>/, "^; ")
-
-    # Also handle erb/asp/jsp style tags. Those tags
-    # *cannot* be used with an xslt stylesheet.
-
-    text.gsub!(/%>/, "; #{buffer} << %^")
-    text.gsub!(/<%/, "^; ")
-
-    # Alterative versions of interpolation.
-    # (very useful in xsl stylesheets)
-    # Example: #\my_val\
-    
-    text.gsub!(/\#\\(.*?)\\/, '#{\1}')
-
-    # Alternative for entities.
-    # (useful in xsl stylesheets)
-    # Examples: %nbsp;, %rquo;
-
-    text.gsub!(/%(#\d+|\w+);/, '&\1;')
-
-    # Compile time ruby code. This code is evaluated when
-    # compiling the template and the result injected directly
-    # into the result. Usefull for example to prevaluate
-    # localization. Just use the #[] marker instead of #{}.
-    
-    text.gsub!(/\#\[(.*?)\]/) do |match|
-      eval($1)
-    end
-    
-    text =  "#{buffer} << %^" + text + "^"
-
-    return text
-  end
-
-  # Evaluate the template.
-  #
-  # [+ruby+]
-  #    A String containing the compiled template
-  #    code.
-  #
-  #  [+binding+]
-  #    The evaluation binding for the rendering.
-
-  def evaluate_template(ruby, the_binding = nil)
-    eval(ruby, the_binding)
-  end
-
-  # Compile and render the template.
-  
-  def process_template(template, buffer = '@out', the_binding = nil)
-    evaluate_template(compile_template(template, buffer), the_binding)
-  end
-
-end
-
-# A helper class that provides access to the Template methods
-# as singleton methods.
-
-class Template
-  
-  # The default root directory where template files reside.
-
-  if File.exist?('template')
-    default_root = 'template'
-  elsif File.exist?('src/template')
-    default_root = 'src/template'
-  else
-    default_root = 'public'
-  end
-  
-  setting :root, :default => default_root, :doc => 'The default root directory where template files reside'
-
-  # The default template name.
-  
-  setting :default, :default => 'index', :doc => 'The default template name'
-  
-  # The default template file extension.
-  
-  setting :extension, :default => 'xhtml', :doc => 'The default template file extension'
-
-  # Strip xml comments from templates?
-  
-  setting :strip_xml_comments, :default => false, :doc => 'Strip xml comments from templates?'
-
-  class << self
-    include TemplateMixin
-    alias_method :compile, :compile_template
-    alias_method :transform, :compile_template
-    alias_method :evaluate, :evaluate_template
-    alias_method :process, :process_template
-  end
-  
-  include TemplateMixin
-  
-  # Helper.
-  
-  def render(template)
-    str = ''
-    process_template(template, 'str', binding)
-    return str
-  end
-end
-
-# A Template that reads from files and also 
-# provides a simple but effective caching scheme.
-# An intuitive binding mechanism provides the
-# expansion environment.
-
-class FileTemplate < OpenObject
-  include TemplateMixin
-
-  @@compiled_template_cache = {}
-
-  attr_accessor :template_filename
-
-  def initialize(filename = nil)
-    super
-    @template_filename = filename
-  end
-  
-  def process
-    __out__ = ''
-    
-    unless compiled = @@compiled_template_cache[@template_filename]
-      template = File.read(@template_filename)
-      compiled = compile_template(template, '__out__')
-      @@compiled_template_cache[@template_filename] = compiled
-    end
-    
-    evaluate_template(compiled, binding)  
-    
-    return __out__
-  end
-end
-
-end
-
-# * George Moschovitis <gm@navel.gr>