From a4074fa6af5e0ba5889bda6bb33128e195e61361 Mon Sep 17 00:00:00 2001
From: Magnus Holm <judofyr@gmail.com>
Date: Wed, 27 Aug 2008 21:38:35 +0200
Subject: [PATCH] Camping::Apps returns!

---
 lib/camping-unabridged.rb | 10 +++++++++-
 lib/camping.rb            |  7 ++++---
 lib/camping/ar.rb         |  4 ++--
 lib/camping/mab.rb        |  4 ++--
 4 files changed, 17 insertions(+), 8 deletions(-)

diff --git a/lib/camping-unabridged.rb b/lib/camping-unabridged.rb
index 064a1c1..a851110 100644
--- a/lib/camping-unabridged.rb
+++ b/lib/camping-unabridged.rb
@@ -90,6 +90,13 @@ module Camping
   C = self
   S = IO.read(__FILE__) rescue nil
   P = "<h1>Cam\ping Problem!</h1><h2>%s</h2>"
+  Apps = [].instance_eval do
+    def <<(i)
+      delete_if { |f| f.to_s == i.to_s}
+      super
+    end
+    self
+  end
   # An object-like Hash.
   # All Camping query string and cookie variables are loaded as this.
   # 
@@ -550,7 +557,8 @@ class << self
     #   module Blog::Views;       ... end
     #
     def goes(m)
-      eval S.gsub(/Camping/,m.to_s), TOPLEVEL_BINDING
+      eval S.gsub(/Camping/,m=m.to_s), t=TOPLEVEL_BINDING
+      Apps << eval(m,t)
     end
     
     # Ruby web servers use this method to enter the Camping realm. The e
diff --git a/lib/camping.rb b/lib/camping.rb
index a2a9d79..fbb533e 100644
--- a/lib/camping.rb
+++ b/lib/camping.rb
@@ -1,6 +1,7 @@
 %w[uri stringio rack].map{|l|require l};class Object;def meta_def m,&b
 (class<<self;self end).send:define_method,m,&b end end;module Camping;C=self
-S=IO.read(__FILE__)rescue nil;P="<h1>Cam\ping Problem!</h1><h2>%s</h2>"
+S=IO.read(__FILE__)rescue nil;P="<h1>Cam\ping Problem!</h1><h2>%s</h2>";Apps=[].
+instance_eval{def << i;delete_if{|f|f.to_s==i.to_s};super;end;self}
 class H<Hash
 def method_missing m,*a;m.to_s=~/=$/?self[$`]=a[0]:a==[]?self[m.to_s]:super end
 undef id,type;end;module Helpers;def R c,*g
@@ -44,8 +45,8 @@ def M;def M;end;constants.map{|c|k=const_get(c)
 k.meta_def(:urls){["/#{c.scan(/.[^A-Z]*/).map(&N.method(:[]))*'/'}"]
 }if !k.respond_to?:urls}end end;class I<R()
 end; end;X=Controllers;class<<self;def goes m
-eval S.gsub(/Camping/,m.to_s),TOPLEVEL_BINDING end;def call e
-X.M;e=H[e.to_hash];k,m,*a=X.D e.PATH_INFO,(e.REQUEST_METHOD||'get').downcase
+eval S.gsub(/Camping/,m=m.to_s),t=TOPLEVEL_BINDING;Apps<<eval(m,t) end;def call(
+e)X.M;e=H[e.to_hash];k,m,*a=X.D e.PATH_INFO,(e.REQUEST_METHOD||'get').downcase
 e.REQUEST_METHOD=m;k.new(e).service(*a).to_a;end
 def method_missing m,c,*a;X.M;h=Hash===a[-1]?H[a.pop]:{};e=
 H[h[:env]||{}].merge!({'rack.input'=>StringIO.new,'REQUEST_METHOD'=>m.to_s})
diff --git a/lib/camping/ar.rb b/lib/camping/ar.rb
index 65badb9..47eea89 100644
--- a/lib/camping/ar.rb
+++ b/lib/camping/ar.rb
@@ -73,6 +73,6 @@ def Base.table_name_prefix
 end
 Camping::S.sub! /autoload\s*:Base\s*,\s*['"]camping\/ar['"]/, ""
 Camping::S.sub! /def\s*Y[;\s]*self[;\s]*end/, $AR_EXTRAS
-Object.constants.map{|c|Object.const_get(c)}.each do |c|
-  c::Models.module_eval $AR_EXTRAS if c.respond_to?(:goes)
+Camping::Apps.each do |c|
+  c::Models.module_eval $AR_EXTRAS
 end
diff --git a/lib/camping/mab.rb b/lib/camping/mab.rb
index 1c70a8e..04dbf9b 100644
--- a/lib/camping/mab.rb
+++ b/lib/camping/mab.rb
@@ -21,6 +21,6 @@ def tag!(*g,&b)
 }
 
 Camping::S.sub! /autoload\s*:Mab\s*,\s*['"]camping\/mab['"]/, $MAB_CODE
-Object.constants.map{|c|Object.const_get(c)}.each do |c|
-  c.module_eval $MAB_CODE if c.respond_to?(:goes)
+Camping::Apps.each do |c|
+  c.module_eval $MAB_CODE
 end