camping 1.1 → 1.2

data/lib/camping.rb

@@ -1,105 +1,49 @@
-%w[rubygems active_record markaby metaid ostruct].each { |lib| require lib }
-
-module Camping
-  module Models; end ; module Views; end ; Models::Base = ActiveRecord::Base
-  Markaby::Builder.class_eval { include Views }
-
-  module Controllers
-    module RM
-      attr_accessor :input, :cookies, :headers, :body, :status
-      def method_missing(m, *args, &blk)
-        str = eval("markaby.#{m}(*args, &blk)")
-        str = markaview(:layout) { str } rescue nil
-        r(200, str.to_s, 'Content-Type' => 'text/html')
-      end
-      def render(m)
-        str = markaview(m)
-        str = markaview(:layout) { str } rescue nil
-        r(200, str, "Content-Type" => 'text/html')
-      end
-      def redirect(*args)
-        c, *args = args
-        if c.respond_to? :urls
-          c = c.urls.first.gsub(/\(.+?\)/) do
-            a = args.shift
-            a.method(a.class.primary_key)[] rescue a
-          end
-        end
-        r(302, '', 'Location' => c)
-      end
-      def r(s, b, h = {}); @status = s; @headers.merge!(h); @body = b; end
-      def service(r, e, m, a)
-        @status, @headers = 200, {'Content-Type' => 'text/html'}
-        @cookies = Camping.cookie_parse(e['HTTP_COOKIE'] || e['COOKIE'])
-        cook = @cookies.marshal_dump.dup
-        if ("POST" == e['REQUEST_METHOD']) and
-            %r|\Amultipart/form-data.*boundary=\"?([^\";,]+)\"?|n.match(e['CONTENT_TYPE'])
-          return r(500, "Urgh, multipart/form-data not yet supported.")
-        else
-          @input = Camping.qs_parse(e['REQUEST_METHOD'] == "POST" ? 
-                                    r.read(e['CONTENT_LENGTH'].to_i) : e['QUERY_STRING'])
-        end
-
-        @body = method( m.downcase ).call(*a)
-        @headers['Set-Cookie'] = @cookies.marshal_dump.map { |k,v| "#{k}=#{Camping.escape(v)}; path=/" if v != cook[k] }.compact
-        self
-      end
-      def to_s
-        "Status: #{@status}\n#{@headers.map{|k,v|v.to_a.map{|v2|"#{k}: #{v2}"}}.flatten.join("\n")}\n\n#{@body}"
-      end
-      private
-      def markaby
-        Markaby::Builder.new( instance_variables.map { |iv| 
-            [iv[1..-1].intern, instance_variable_get(iv)] }, {} )
-      end
-      def markaview(m, *args, &blk)
-        markaby.instance_eval { Views.instance_method(m).bind(self).call(*args, &blk); self }.to_s
-      end
-    end
-    class R; include RM end
-    class NotFound < R; def get; r(404, h1('Camping Problem!') + h2('Not Found')); end end
-
-    class << self
-      def R(*urls); Class.new(R) { meta_def(:inherited) { |c| c.meta_def(:urls) { urls } } }; end
-      def D(path)
-        constants.each do |c| 
-            k = const_get(c)
-            return k, $~[1..-1] if (k.urls rescue "/#{c.downcase}").find { |x| path =~ /^#{x}\/?$/ }
-        end
-        [NotFound, []]
-      end
-    end
-  end
-
-  class Response; include Controllers::RM
-    def initialize(s = 200, &blk)
-      @headers, @body, @status = {}, "", s
-      instance_eval &blk
-    end
-  end
-
-  class << self
-    def escape(s); s.to_s.gsub(/([^ a-zA-Z0-9_.-]+)/n){'%'+$1.unpack('H2'*$1.size).join('%').upcase}.tr(' ', '+') end
-    def unescape(s); s.tr('+', ' ').gsub(/((?:%[0-9a-fA-F]{2})+)/n){[$1.delete('%')].pack('H*')} end
-    def qs_parse(qs, d = '&;'); OpenStruct.new((qs||'').split(/[#{d}] */n).
-        inject({}){|hsh, p|k, v = p.split('=',2).map {|v| unescape(v)}; hsh[k] = v unless v.empty?; hsh}) end
-    def cookie_parse(s); c = qs_parse(s, ';,'); end
-    def run(r=$stdin,w=$stdout)
-      begin
-        k, a, m = Controllers.D(ENV['PATH_INFO']) + [ENV['REQUEST_METHOD'] || "GET"]
-        k.class_eval { include Controllers::RM }
-        o = k.new
-        o.class.class_eval do
-          Models.constants.each do |c|
-            g = Models.const_get(c)
-            remove_const c if const_defined? c
-            const_set c, g
-          end
-        end
-        w << o.service(r, ENV, m, a)
-      rescue => e
-        w << Response.new(200) { @headers['Content-Type'] = 'text/html'; @body = Markaby::Builder.new({}, {}) { h1 'Camping Problem!'; h2 "#{k}.#{m}"; h3 "#{e.class} #{e.message}:"; ul { e.backtrace.each { |bt| li bt } } }.to_s }
-      end
-    end
-  end
-end
+%w[rubygems active_record markaby metaid ostruct tempfile].each{|l|require l}
+module Camping;C=self;S=File.read(__FILE__).gsub(/_{2}FILE_{2}/,__FILE__.dump)
+module Helpers;def R c,*args;p=/\(.+?\)/;args.inject(c.urls.detect{|x|x.scan(p
+).size==args.size}.dup){|str,a|str.sub(p,(a.method(a.class.primary_key)[]rescue
+a).to_s)};end;def / p;p[/^\//]?@root+p:p end;def errors_for(o);ul.errors{o.
+errors.each_full{|er|li er}}unless o.errors.empty?;end;end;module Controllers
+module Base; include Helpers;attr_accessor :input,:cookies,:headers,:body,
+:status,:root;def method_missing(m,*args,&blk);str=m==:render ? markaview(*args,
+&blk):eval("markaby.#{m}(*args,&blk)");str=markaview(:layout){str}rescue nil;r(
+200,str.to_s);end;def r(s,b,h={});@status=s;@headers.merge!(h);@body=b;end;def 
+redirect(c,*args);c=R(c,*args)if c.respond_to?:urls;r(302,'','Location'=>self/c)
+end;def service(r,e,m,a)@status,@headers,@root=200,{},e['SCRIPT_NAME'];cook=C.kp(
+e['HTTP_COOKIE']);qs=C.qs_parse(e['QUERY_STRING']);if "POST"==m;inp=r.read(e[
+'CONTENT_LENGTH'].to_i);if %r|\Amultipart/form-data.*boundary=\"?([^\";,]+)|n.
+match(e['CONTENT_TYPE']);b="--#$1";inp.split(/(?:\r?\n|\A)#{Regexp::quote(
+b)}(?:--)?\r\n/m).each{|pt|h,v=pt.split("\r\n\r\n",2);fh={};[:name,:filename].
+each{|x|fh[x]=$1 if h=~/^Content-Disposition: form-data;.*(?:\s#{x}="([^"]+)")\
+/m};fn=fh[:name];if fh[:filename];fh[:type]=$1 if h =~ /^Content-Type: (.+?)(\
+\r\n|\Z)/m;fh[:tempfile]=Tempfile.new("#{C}").instance_eval{binmode;write v
+rewind;self};else;fh=v;end;qs[fn]=fh if fn};else;qs.merge!(C.qs_parse(inp));end
+end;@cookies,@input=[cook,qs].map{|_|OpenStruct.new(_)};@body=method(m.downcase
+).call(*a);@headers["Set-Cookie"]=@cookies.marshal_dump.map{|k,v|"#{k}=#{C.
+escape(v)}; path=/" if v != cook[k]}.compact;self;end;def to_s;"Status: #{
+@status}\n#{{'Content-Type'=>'text/html'}.merge(@headers).map{|k,v|v.to_a.map{
+|v2|"#{k}: #{v2}"}}.flatten.join("\n")}\n\n#{@body}";end;def markaby;Mab.new(
+instance_variables.map{|iv|[iv[1..-1],instance_variable_get(iv)]},{});end;def 
+markaview(m,*args,&blk);b=markaby;b.method(m).call(*args, &blk);b.to_s
+end;end;class R;include Base end;class 
+NotFound;def get(p);r(404,div{h1("#{C} Problem!")+h2("#{p} not found")});end
+end;class ServerError;include Base;def get(k,m,e);r(500,markaby.div{h1 "#{C} Problem!"
+h2 "#{k}.#{m}";h3 "#{e.class} #{e.message}:";ul{e.backtrace.each{|bt|li(bt)}}}
+)end end;class<<self;def R(*urls);Class.new(R){meta_def(:inherited){|c|c.
+meta_def(:urls){urls}}};end;def D(path);constants.inject(nil){|d,c|k=
+const_get(c);k.meta_def(:urls){["/#{c.downcase}"]}if !(k<R);d||([k, $~[1..-1]
+] if k.urls.find { |x| path =~ /^#{x}\/?$/ })}||[NotFound, [path]];end end end
+class<<self;def goes m;eval(S.gsub(/Camping/,m.to_s),TOPLEVEL_BINDING)end;def 
+escape s;s.to_s.gsub(/([^ a-zA-Z0-9_.-]+)/n){'%'+$1.unpack('H2'*$1.size).join(
+'%').upcase}.tr(' ','+') end;def unescape(s);s.tr('+', ' ').gsub(/((?:%[0-9a-f\
+A-F]{2})+)/n){[$1.delete('%')].pack('H*')} end;def qs_parse(qs,d ='&;');(qs||''
+).split(/[#{d}] */n).inject({}){|hsh, p|k,v=p.split('=',2).map{|v|unescape(v)}
+hsh[k]=v unless v.blank?;hsh} end; def kp(s);c=qs_parse(s,';,') end
+def run(r=$stdin,w=$stdout);w<<begin;k,a=Controllers.D "/#{ENV['PATH_INFO']}".
+gsub(%r!/+!,'/');m=ENV['REQUEST_METHOD']||"GET";k.class_eval{include C
+include Controllers::Base;include Models};o=k.new;o.service(r,ENV,m,a);rescue\
+=>e;Controllers::ServerError.new.service(r,ENV,"GET",[k,m,e]);end;end;end
+module Views; include Controllers; include Helpers end;module Models;end
+Models::Base=ActiveRecord::Base;class Mab<Markaby::Builder;include Views
+def tag!(*g,&b);h=g[-1];[:href,:action].each{|a|(h[a]=self/h[a])rescue 0}
+super;end;end;end

metadata

@@ -3,19 +3,19 @@ rubygems_version: 0.8.11
 specification_version: 1
 name: camping
 version: !ruby/object:Gem::Version 
-  version: "1.1"
-date: 2006-01-19 00:00:00 -07:00
+  version: "1.2"
+date: 2006-01-23 00:00:00 -07:00
 summary: miniature rails for stay-at-home moms
 require_paths: 
 - lib
 email: why@ruby-lang.org
-homepage: http://whytheluckystiff.net/camping/
-rubyforge_project: hobix
+homepage: http://code.whytheluckystiff.net/camping/
+rubyforge_project: camping
 description: 
 autorequire: camping
 default_executable: 
 bindir: bin
-has_rdoc: false
+has_rdoc: true
 required_ruby_version: !ruby/object:Gem::Version::Requirement 
   requirements: 
   - - ">"
@@ -28,19 +28,38 @@ cert_chain:
 authors: 
 - why the lucky stiff
 files: 
+- README
+- examples/tepee
 - examples/blog
-- examples/blog/blog.sqlite3
-- examples/blog/blog.rb
+- examples/charts
+- examples/serve
+- examples/tepee/tepee.rb
+- examples/tepee/start
 - examples/blog/styles.css
+- examples/blog/blog.rb
+- examples/blog/blog.sqlite3
 - examples/blog/start
-- lib/camping-mural.rb
+- examples/charts/charts
+- examples/charts/pie.rb
+- examples/charts/charts.rb
+- examples/charts/start
 - lib/camping.rb
+- lib/camping-unabridged.rb
 test_files: []
 
-rdoc_options: []
-
-extra_rdoc_files: []
-
+rdoc_options: 
+- --title
+- Camping Documentation
+- --line-numbers
+- --inline-source
+- --main
+- README
+- --exclude
+- ^examples/
+- --exclude
+- lib/camping.rb
+extra_rdoc_files: 
+- README
 executables: []
 
 extensions: []

data/lib/camping-mural.rb

@@ -1,43 +0,0 @@
-%w[rubygems active_record markaby metaid ostruct].each {|lib| require lib}
-module Camping;C=self;module Models;Base=ActiveRecord::Base;end;module Views
-end;Markaby::Builder.class_eval{include Views};module Controllers;module RM
-attr_accessor :input,:cookies,:headers,:body,:status;def method_missing(m, 
-*args, &blk);str=eval("markaby.#{m}(*args, &blk)");str=markaview(:layout){
-str}rescue nil;r(200,str.to_s,'Content-Type'=>'text/html');end;def render(m)
-str=markaview(m);str=markaview(:layout){ str }rescue nil;r(200, str, 
-"Content-Type" => 'text/html');end;def redirect(*args);c, *args = args;if \
-c.respond_to? :urls;c=c.urls.first.gsub(/\(.+?\)/){a=args.shift;a.
-method(a.class.primary_key)[] rescue a};end;r(302,'','Location' => c);end
-def r(s,b,h={});@status=s;@headers.merge!(h);@body = b;end;def service(
-r,e,m,a);@status,@headers=200,{'Content-Type' => 'text/html'};@cookies=
-C.cookie_parse(e['COOKIE']||e['HTTP_COOKIE']);cook=@cookies.marshal_dump.
-dup;if (e['REQUEST_METHOD']=='POST')and %r|\Amultipart/form-data.*boundar\
-y=\"?.+?\"?|n=~e['CONTENT_TYPE'];return r(500, "Urgh, multipart/form-data\
- not yet supported.");else;@input=C.qs_parse(e['REQUEST_METHOD']!="POST" ?
-e['QUERY_STRING']:r.read(e['CONTENT_LENGTH'].to_i));end;@body=method(m.
-downcase).call(*a);@headers['Set-Cookie']=@cookies.marshal_dump.map{|k,v|
-"#{k}=#{C.escape(v)};path=/"if v != cook[k]}.compact;self;end;def to_s;
-"Status: #{@status}\n#{@headers.map{|k,v|v.to_a.map{|v2|"#{k}: #{v2}"}}.
-flatten.join("\n")}\n\n#{@body}";end;private;def markaby;Markaby::Builder.
-new( instance_variables.map{|iv|[iv[1..-1].intern,instance_variable_get(
-iv)]},{});end;def markaview(m,*args,&blk);markaby.instance_eval{Views.
-instance_method(m).bind(self).call(*args, &blk);self}.to_s;end;end;class R
-include RM end;class NotFound < R;def get;r(404,h1('#{C} Problem!')+h2(
-'Not Found'))end end;class<<self;def R(*urls);Class.new(R){meta_def(
-:inherited){|c|c.meta_def(:urls){urls}}}end;def D(path);constants.each{|c| 
-k=const_get(c);return k,$~[1..-1]if (k.urls rescue "/#{c.downcase}").find{
-|x|path=~/^#{x}\/?$/ };};[NotFound, []]end end end;class Response; include
-Controllers::RM;def initialize(s=200,&blk);@headers,@body,@status={},"",s
-instance_eval &blk end end;class << self;def escape(s); s.to_s.gsub(/([^ \
-a-zA-Z0-9_.-]+)/n){'%'+$1.unpack('H2'*$1.size).join('%').upcase}.tr(' ','+')
-end;def unescape(s);s.tr('+',' ').gsub(/((?:%[0-9a-fA-F]{2})+)/n){[$1.delete(
-'%')].pack('H*')}end;def qs_parse(qs,d='&;');OpenStruct.new((qs||'').split(
-/[#{d}] */n).inject({}){|hsh, p|k,v=p.split('=',2).map{|v|unescape(v)};hsh[
-k]=v unless v.empty?;hsh}) end;def cookie_parse(s);c=qs_parse(s,';,') end
-def run(r=$stdin,w=$stdout);begin;k,a,m=Controllers.D(ENV['PATH_INFO'])+[
-ENV['REQUEST_METHOD']||"GET"];k.class_eval{include Controllers::RM};o=k.new
-o.class.class_eval{Models.constants.each{|c|g=Models.const_get(c)
-remove_const c if const_defined? c;const_set c,g}};w<<o.service(r,ENV,m,a)
-rescue=>e;w<<Response.new(200){@headers['Content-Type']='text/html';@body=
-Markaby::Builder.new({},{}){h1'#{C} Problem!';h2"#{k}.#{m}";h3"#{e.class} \
-#{e.message}:";ul{e.backtrace.each{|bt|li bt}}}.to_s};end end end end