Changeset 236

Timestamp:

10/02/2007 09:21:48 (14 months ago)

Author:

zimbatm

Message:

micro-optimizations and fix for ticket #96 : more strictness for Helpers#R()

Location:

trunk

Files:

• lib/camping-unabridged.rb (modified) (6 diffs)
• lib/camping.rb (modified) (3 diffs)
• test/apps/misc.rb (modified) (4 diffs)

trunk/lib/camping-unabridged.rb

@@ -32 +32 @@
 
 class Object
+  # Define a method m with the passed block on the metaclass.
   def meta_def(m,&b)
-    (class<<self;self end).instance_eval{define_method(m,&b)}
+    (class<<self;self end).send(:define_method,m,&b)
   end
 end
@@ -126 +127 @@
     end
     alias u merge!
+    undef id, type
   end
 
@@ -200 +202 @@
     def R(c,*g)
       p,h=/\(.+?\)/,g.grep(Hash)
-      (g-=h).inject(c.urls.find{|x|x.scan(p).size==g.size}.dup){|s,a|
-        s.sub p,C.escape((a[a.class.primary_key]rescue a))
-      }+(h.any?? "?"+h[0].map{|x|x.map{|z|C.escape z}*"="}*"&": "")
+      g-=h
+      raise "bad route" unless u = c.urls.find{|x|
+        break x if x.scan(p).size == g.size && 
+          /^#{x}\/?$/ =~ (x=g.inject(x){|x,a|
+            x.sub p,C.escape((a[a.class.primary_key]rescue a))})
+      }
+      h.any?? u+"?"+h[0].map{|x|x.map{|z|C.escape z}*"="}*"&": u
     end
 
@@ -342 +348 @@
     #   redirect "/view/12"
     #
-    def r(s, b, h = {}); @status = s; headers.merge!(h); @body = b; end
+    def r(s, b, h = {}); @status = s; headers.u(h); @body = b; end
 
     # Turn a controller into an array.  This is designed to be used to pipe
@@ -360 +366 @@
     def initialize(r, e, m) #:nodoc:
       @status, @method, @env, @headers, @root = 200, m.downcase, e, 
-          {'Content-Type'=>'text/html'}, e.SCRIPT_NAME.sub(/\/$/,'')
+          H['Content-Type','text/html'], e.SCRIPT_NAME.sub(/\/$/,'')
       @k = C.kp(e.HTTP_COOKIE)
       q = C.qsp(e.QUERY_STRING)
@@ -683 +689 @@
       k = X.const_get(c).new(StringIO.new,
              H['HTTP_HOST','','SCRIPT_NAME','','HTTP_COOKIE',''],m.to_s)
-      H.new(a.pop).each { |e,f| k.send("#{e}=",f) } if Hash === a[-1]
+      H[a.pop].each { |e,f| k.send("#{e}=",f) } if Hash === a[-1]
       k.service(*a)
     end

trunk/lib/camping.rb

@@ -1 +1 @@
 %w[tempfile uri].map{|l|require l};class Object;def meta_def m,&b
-(class<<self;self end).instance_eval{define_method(m,&b)}end end
+(class<<self;self end).send(:define_method,m,&b)end end
 module Camping;C=self;S=IO.read(__FILE__)rescue nil;P="Cam\ping Problem!"
 class H<Hash;def method_missing m,*a
-m.to_s=~/=$/?self[$`]=a[0]:a==[]?self[m.to_s]:super end;alias u merge!;end
-module Helpers def R c,*g;p,h=/\(.+?\)/,g.grep(Hash)
-(g-=h).inject(c.urls.find{|x|x.scan(p).size==g.size}.dup){|s,a|s.sub p,C.
-escape((a[a.class.primary_key]rescue a))}+(h.any?? "?"+h[0].map{|x|x.map{|z|C.
-escape z}*"="}*"&": "")end;def /(p);p[/^\//]?@root+p:p;end;def URL c='/',*a
+m.to_s=~/=$/?self[$`]=a[0]:a==[]?self[m.to_s]:super end;alias u merge!
+undef id, type;end
+module Helpers def R c,*g;p,h=/\(.+?\)/,g.grep(Hash);g-=h;
+raise"bad route"unless u=c.urls.find{|x|break x if x.scan(p).size==g.size&&
+/^#{x}\/?$/=~(x=g.inject(x){|x,a|x.sub p,C.escape((a[a.class.primary_key
+]rescue a))})}
+h.any?? u+"?"+h[0].map{|x|x.map{|z|C.escape z}*"="}*"&":u end
+def /(p);p[/^\//]?@root+p:p;end;def URL c='/',*a
 c=R(c,*a)if c.respond_to?:urls;c=self/c;c="//"+@env.HTTP_HOST+c if c[/^\//]
 URI(c) end end;module Base;attr_accessor:input,:cookies,:env,:headers,:body,
@@ -13 +16 @@
 m=Mab.new({},self);s=m.capture{send(*a,&b)};s=m.capture{send(:layout){s}}if
 /^_/!~a[0].to_s and m.respond_to?:layout;s end;def redirect*a
-r 302,'','Location'=>URL(*a)end;def r s,b,h={};@status=s;headers.merge!h
+r 302,'','Location'=>URL(*a)end;def r s,b,h={};@status=s;headers.u h
 @body=b end;def to_a;[status,body,headers]end;def initialize r,e,m
-@status,@method,@env,@headers,@root=200,m.downcase,e,{
-'Content-Type'=>"text/html"},e.SCRIPT_NAME.sub(/\/$/,'');@k=C.kp e.HTTP_COOKIE
+@status,@method,@env,@headers,@root=200,m.downcase,e,H[
+'Content-Type',"text/html"],e.SCRIPT_NAME.sub(/\/$/,'');@k=C.kp e.HTTP_COOKIE
 q=C.qsp e.QUERY_STRING;@in=r;case e.CONTENT_TYPE
 when %r|\Amultipart/form-.*boundary=\"?([^\";,]+)|n
@@ -50 +53 @@
 r,e,(m=e.REQUEST_METHOD||"GET")).Y.service(*a);rescue=>x;X::ServerError.new(
 r,e,'get').service(k,m,x)end;def method_missing m,c,*a;X.M;k=X.const_get(c).
-new(StringIO.new,H['HTTP_HOST','','SCRIPT_NAME','','HTTP_COOKIE',''],m.to_s);H.
-new(a.pop).each{|e,f|k.send("#{e}=",f)}if Hash===a[-1];k.service(*a);end;end
+new(StringIO.new,H['HTTP_HOST','','SCRIPT_NAME','','HTTP_COOKIE',''],m.to_s)
+H[a.pop].each{|e,f|k.send("#{e}=",f)}if Hash===a[-1];k.service(*a);end;end
 module Views;include X,Helpers;end;module Models;autoload:Base,'camping/db';def
 Y;self;end;end;autoload:Mab,'camping/mab'end

trunk/test/apps/misc.rb

@@ -26 +26 @@
       def get; render :rr; end
     end
+    class BadLinks
+      def get; render :bad_links; end
+    end
   end
 
@@ -38 +41 @@
             li{ a "X-Sendfile", :href=>R(XSendfile)}
             li{ a "Links", :href=>R(Links)}
+            li{ a "BadLinks", :href=>R(BadLinks)}
             li{ a "Redirect", :href=>R(Redirect)}
           end
@@ -55 +59 @@
     def links
       a "plain", :href=>R(Links); br
-      a "with hash and args", :href=>R(Links, "moo", 3, :with=>"Hash"); br
+      a "with args and hash", :href=>R(Links, "moo", 3, :with=>"Hash"); br
+      a "with args and mult. hash", :href=>R(Links, "hoi", 8, :with=>"multiple", 3=>"hash"); br
       # TODO : with <AR::Base object
+    end
+
+    def bad_links
+      a "null controller", :href=>R(nil)
+      a "bad arity", :href=>R(RR, :moo)
+      a "bad args", :href=>R(Links, 3, "moo")
     end
 
@@ -62 +73 @@
       p "got redirected"
     end
+
 
   end