amrita2 1.9.6 → 2.0.0

data/lib/amrita2/testsupport.rb

@@ -0,0 +1,171 @@
+require 'rexml/element'
+require 'diff/lcs'
+require 'diff/lcs/hunk'
+require 'hpricot'
+
+module Hpricot # :nodoc: all
+  class STag < BaseEle
+    # original    
+    #     def attributes_as_html
+    #       if @attributes
+    #         @attributes.map do |aname, aval|
+    #           " #{aname}" +
+    #             (aval ? "=#{html_quote(aval)}" : "")
+    #         end.join
+    #       end
+    #     end
+    
+    undef attributes_as_html
+    def attributes_as_html
+      if @raw_attributes
+         @raw_attributes.keys.sort.map do |aname|
+           aval = @raw_attributes[aname]
+           " #{aname}" +
+             (aval ? "=#{html_quote(aval)}" : "")
+         end.join
+      end
+    end
+  end
+end
+
+module REXML # :nodoc: all
+  class Attributes < Hash
+    # redefine each_attribute for unified order
+    def each_attribute
+      keys.sort.each do |key|
+        val = get_attribute(key)
+        if val.kind_of? Attribute
+          yield val
+        else
+          val.each_value { |atr| yield atr }
+        end
+      end
+    end
+  end    
+end
+
+
+
+module Amrita2 
+  module TestSupport # :nodoc: all
+    def assert_equal_as_xml(expected, actual)
+      #assert_equal(expected.as_normalized_xml, actual.as_normalized_xml)
+      assert_equal(normalize(expected), normalize(actual))
+    rescue REXML::ParseException
+      puts expected
+      puts actual
+      puts msg = diff_as_string(expected, actual)
+      raise
+    rescue
+      msg = diff_as_string(normalize(expected),normalize(actual))
+      msg.gsub!('?', ' ')
+      msg = build_message "not equal as xml ", msg
+      raise Test::Unit::AssertionFailedError.new(msg)
+    end
+    
+    # copied from rspec spec/expectations/differs/default.rb
+    def diff_as_string(data_old, data_new)
+      context_lines = 3
+      #format = :context
+      format = :unified
+      data_old = data_old.split(/\n/).map! { |e| e.chomp }
+      data_new = data_new.split(/\n/).map! { |e| e.chomp }
+      output = ""
+      diffs = Diff::LCS.diff(data_old, data_new)
+      return output if diffs.empty?
+      oldhunk = hunk = nil  
+      file_length_difference = 0
+      diffs.each do |piece|
+        begin
+          hunk = Diff::LCS::Hunk.new(data_old, data_new, piece, context_lines,
+                                     file_length_difference)
+          file_length_difference = hunk.file_length_difference      
+          next unless oldhunk      
+          # Hunks may overlap, which is why we need to be careful when our
+          # diff includes lines of context. Otherwise, we might print
+          # redundant lines.
+          if (context_lines > 0) and hunk.overlaps?(oldhunk)
+            hunk.unshift(oldhunk)
+          else
+            output << oldhunk.diff(format)
+          end
+        ensure
+          oldhunk = hunk
+          output << "\n"
+        end
+      end  
+      #Handle the last remaining hunk
+      output << oldhunk.diff(format) << "\n"
+    end  
+
+    def normalize(x)
+      case x
+      when String
+        normalize(Hpricot.make(x))
+      when Hpricot::Text
+        x.to_s.strip.gsub(/\s+/, " ")
+      when Hpricot::Elem
+        if x.empty?
+          x.stag.output("", :style => :empty)
+        else
+          [
+            x.stag.output(""),
+            normalize(x.children),
+            x.etag ? x.etag.output("", :style => :end) : ''
+          ].flatten.join("\n").strip
+        end
+      when Array
+        x.collect { |e| normalize(e) }.join("\n").strip.gsub(/\>(\n\s)+/, ">\n")
+      when Hpricot::BogusETag
+        x.to_s
+      else
+        x.to_s
+      end
+    end
+
+    def should_be_samexml_as(expected)
+      normalize(self).should == normalize(expected)
+    end
+  end
+
+  class Template
+    def test_with(value, b=nil)
+      set_trace(log = "")
+      result = render_with(value, b)
+      yield(result.dup)
+    rescue StandardError
+      p $!, value, result
+      puts log
+      raise
+    end
+  end
+end
+
+class Object 
+  include Amrita2::TestSupport
+end
+
+if Object::const_defined?(:ActionView)
+
+  class ActionView::Base # :nodoc: all
+    def self.unregister_template_handler(extension)
+      self.cache_template_extensions = false
+      @@template_handlers.delete(extension)
+    end
+  end
+
+  module Amrita2
+    module RailsTestHelper # :nodoc: all
+      def compare_result
+        ActionView::Base.register_template_handler "a2html", Amrita2View::Base
+        amrita2_result = yield
+        ActionView::Base.unregister_template_handler "a2html"
+        erb_result = yield
+        assert_equal_as_xml(erb_result, amrita2_result)
+        #assert_dom_equal(amrita2_result, erb_result)
+      end
+    end
+  end
+
+end
+

data/lib/amrita2/version.rb

@@ -1,8 +1,8 @@
 module Amrita2
   module Version
-    MAJOR=1
-    MINOR=9
-    TINY=6
+    MAJOR=2
+    MINOR=0
+    TINY=0
 
     STRING=[MAJOR,MINOR,TINY].join('.')
   end

data/lib/amrita2.rb

@@ -1 +1,2 @@
 require 'amrita2/template'
+require 'amrita2/version'

data/sample/depot/app/controllers/admin_controller.rb

@@ -0,0 +1,59 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose.
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+
+class AdminController < ApplicationController
+
+  before_filter :authorize
+
+  # ....
+
+
+  def index
+    list
+    render :action => 'list'
+  end
+
+  def list
+    @product_pages, @products = paginate :products, :per_page => 10
+  end
+
+  def show
+    @product = Product.find(params[:id])
+  end
+
+  def new
+    @product = Product.new
+  end
+
+  def create
+    @product = Product.new(params[:product])
+    if @product.save
+      flash[:notice] = 'Product was successfully created.'
+      redirect_to :action => 'list'
+    else
+      render :action => 'new'
+    end
+  end
+
+  def edit
+    @product = Product.find(params[:id])
+  end
+
+  def update
+    @product = Product.find(params[:id])
+    if @product.update_attributes(params[:product])
+      flash[:notice] = 'Product was successfully updated.'
+      redirect_to :action => 'show', :id => @product
+    else
+      render :action => 'edit'
+    end
+  end
+
+  def destroy
+    Product.find(params[:id]).destroy
+    redirect_to :action => 'list'
+  end
+end

data/sample/depot/app/controllers/application.rb

@@ -0,0 +1,20 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+class ApplicationController < ActionController::Base
+
+  # Pick a unique cookie name to distinguish our session data from others'
+  session :session_key => '_depot_session_id'
+
+  private
+
+  def authorize
+    unless User.find_by_id(session[:user_id])
+      flash[:notice] = "Please log in"
+      redirect_to(:controller => "login", :action => "login")
+    end
+  end
+  
+end

data/sample/depot/app/controllers/info_controller.rb

@@ -0,0 +1,19 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+class InfoController < ApplicationController
+   
+  
+  def who_bought
+    @product = Product.find(params[:id])
+    @orders  = @product.orders
+    respond_to do |format|
+      format.html 
+      format.xml
+    end
+  end
+  
+   
+end

data/sample/depot/app/controllers/login_controller.rb

@@ -0,0 +1,85 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+
+
+class LoginController < ApplicationController
+
+
+  
+  before_filter :authorize, :except => :login
+  
+  # . . 
+
+
+
+  layout "admin"
+
+
+  
+  def index
+    @total_orders = Order.count
+  end
+  
+
+  # just display the form and wait for user to
+  # enter a name and password
+  
+  def login
+    session[:user_id] = nil
+    if request.post?
+      user = User.authenticate(params[:name], params[:password])
+      if user
+        session[:user_id] = user.id
+        redirect_to(:action => "index")
+      else
+        flash.now[:notice] = "Invalid user/password combination"
+      end
+    end
+  end
+  
+
+  
+  def add_user
+    @user = User.new(params[:user])
+    if request.post? and @user.save
+      flash.now[:notice] = "User #{@user.name} created"
+      @user = User.new
+    end
+  end
+
+  # . . .
+  
+
+  
+  def delete_user
+    if request.post?
+      user = User.find(params[:id])
+      begin
+        user.destroy
+        flash[:notice] = "User #{user.name} deleted"
+      rescue Exception => e
+        flash[:notice] = e.message
+      end
+    end
+    redirect_to(:action => :list_users)
+  end
+  
+
+  
+  def list_users
+    @all_users = User.find(:all)
+  end
+  
+  
+  
+  def logout
+    session[:user_id] = nil
+    flash[:notice] = "Logged out"
+    redirect_to(:action => "login")
+  end
+  
+
+end

data/sample/depot/app/controllers/store_controller.rb

@@ -0,0 +1,68 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+class StoreController < ApplicationController
+  
+  
+  before_filter :find_cart, :except => :empty_cart
+  
+  
+  def index
+    @products = Product.find_products_for_sale
+  end
+
+
+  def add_to_cart
+    begin                     
+      product = Product.find(params[:id])  
+    rescue ActiveRecord::RecordNotFound
+      logger.error("Attempt to access invalid product #{params[:id]}")
+      redirect_to_index("Invalid product")
+    else
+      @current_item = @cart.add_product(product)
+      redirect_to_index unless request.xhr?
+    end
+  end
+
+  def empty_cart
+    session[:cart] = nil
+    redirect_to_index
+  end
+
+  
+  def checkout
+    if @cart.items.empty?
+      redirect_to_index("Your cart is empty")
+    else
+      @order = Order.new
+    end
+  end
+  
+  
+  
+  def save_order
+    @order = Order.new(params[:order])  
+    @order.add_line_items_from_cart(@cart)
+    if @order.save        
+      session[:cart] = nil
+      redirect_to_index("Thank you for your order")
+    else
+      render :action => :checkout
+    end
+  end
+  
+  private
+  
+  def redirect_to_index(msg = nil)
+    flash[:notice] = msg if msg
+    redirect_to :action => :index
+  end
+    
+  
+  def find_cart
+    @cart = (session[:cart] ||= Cart.new)
+  end
+  
+end

data/sample/depot/app/helpers/admin_helper.rb

@@ -0,0 +1,7 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+module AdminHelper
+end

data/sample/depot/app/helpers/application_helper.rb

@@ -0,0 +1,10 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose.
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+# Methods added to this helper will be available to all templates in the application.
+module ApplicationHelper
+  module NumberFormatHelper
+  end
+end

data/sample/depot/app/helpers/ar_form.rb

@@ -0,0 +1,169 @@
+require 'amrita2/macro'
+
+
+module Amrita2View
+  class InputField < Amrita2::Macro::Base
+    include Amrita2
+    include Amrita2::Util
+
+    attr_accessor :set_value
+
+    def get_macro_template
+      %[<input macro:filter="Attr" />]
+    end
+
+    def macro_data(element)
+      attrs = element.as_amrita_dictionary
+      prefix = attrs.delete(:prefix).to_s.split
+      input_id = attrs.delete(:id)
+      if attrs.delete(:set_value)
+        self.set_value = true
+      end
+      default_attrs.merge(attrs).merge( {
+        :id => get_id(prefix, input_id),
+        :name => get_name(prefix, input_id),
+        :target_filter => target_filter(input_id)
+      } )
+    end
+
+    private
+
+    def target_filter(input_id)
+      if set_value
+        "Attr[:value=>#{input_id.intern.inspect}]"
+      else
+        nil
+      end
+    end
+
+    def get_id(prefix, name)
+      (prefix + [name]).join("_")
+    end
+
+    def get_name(prefix, name)
+      case prefix.size
+      when 0
+        name
+      when 1
+        "#{prefix.first}[#{name}]"
+      else
+        prefix.first +
+          prefix[1..-1].collect do |pre|
+          "[#{pre}]"
+        end.join('') +
+          "[#{name}]"
+      end
+    end
+  end
+
+  class TextField < InputField
+
+    Option = {
+      :tag => "ar:text_field",
+    }
+
+    def default_attrs
+      {
+        :type => 'text',
+        :size => 30
+      }
+    end
+  end
+
+  class TextArea < InputField
+
+    Option = {
+      :tag => "ar:textarea",
+    }
+
+    def get_macro_template
+      %[<textarea macro:filter="Attr" />]
+    end
+
+    def default_attrs
+      {
+        :rows => 20,
+        :cols => 40,
+      }
+    end
+
+    def target_filter(input_id)
+      if set_value
+        "Attr[:body=>#{input_id.intern.inspect}]"
+      else
+        nil
+      end
+    end
+  end
+
+  class ARForm < Amrita2::Macro::Base
+    include Amrita2
+    TemplateText = <<-'END'
+      <<:|Amrita2View::ARFormFilter[{:prefix => :uuuu}] <
+        <<:contents>>
+    END
+
+    Option = {
+      :tag=>"ar:form",
+      :use_contents=>:contents
+    }
+
+    FieldMacros = []
+
+    def self.add_macro(m)
+      FieldMacros << m
+    end
+
+    add_macro TextField
+    add_macro TextArea
+
+    def initialize
+      @filter = Amrita2::Filters::MacroFilter.new(*FieldMacros)
+      super
+    end
+
+    def process(de, element)
+      @filter.macros.each do |m|
+        m.set_value = element.get_attribute("set_value")
+      end
+      element = process_prefix(element, [])
+      @filter.filter_element(de, element).to_s
+    end
+
+    private
+
+    def process_prefix(e, prefix)
+      if e.name == "ar:form"
+        prefix = prefix + [e.get_attribute("prefix")]
+        e.name = "_"
+        e.delete_attribute("prefix")
+        e.delete_attribute("set_value")
+      elsif @filter.macros.any? { |m| m.get_element_name == e.name }
+        e.set_attribute("prefix", prefix.join(" ")) unless e.get_attribute("prefix")
+      end
+      e.children.each do |c|
+        process_prefix(c, prefix) if c.kind_of?(Hpricot::Elem)
+      end
+      e
+    end
+  end
+
+  class FormTag < Amrita2::Macro::Base
+    TemplateText = <<-END
+    <%
+       action = $_[:action]
+       method = $_[:method]
+     %>
+    <%%= form_tag({:action=><%= action.inspect%>}, {:method=><%= method.inspect %>}) %%>
+      <span macro:src='contents' />
+    <%%= "</form>" %%>
+    END
+
+    Option = {
+      :tag => :form_tag,
+      :use_contents => :contents
+    }
+  end
+end
+
+ARForm = Amrita2View::ARForm

data/sample/depot/app/helpers/form_tag.rb

@@ -0,0 +1,24 @@
+
+class FormTag < Amrita2::Macro::Base
+  TemplateText = <<-END_OF_TEMPLATE
+      <%%= form_tag(<%= $_[:url].inspect %>) %%>
+        <<:contents>>
+      <%%= '</form>' %%>
+
+  END_OF_TEMPLATE
+
+  def macro_data(element)
+    root = element.as_amrita_dictionary
+    url = element.search("url").first
+    contents = element.children.find_all do |c|
+      c != url
+    end
+
+    ret = {
+      :url => url ? url.as_amrita_dictionary : {},
+      :contents => Amrita2::SanitizedString[contents]
+    }
+    ret
+  end
+end
+

data/sample/depot/app/helpers/info_helper.rb

@@ -0,0 +1,7 @@
+#---
+# Excerpted from "Agile Web Development with Rails, 2nd Ed."
+# We make no guarantees that this code is fit for any purpose. 
+# Visit http://www.pragmaticprogrammer.com/titles/rails2 for more book information.
+#---
+module InfoHelper
+end