camping 1.0

data/examples/blog/blog.rb

@@ -0,0 +1,220 @@
+#!/usr/bin/env ruby
+
+#$:.unshift File.dirname(__FILE__) + "/../../lib"
+require 'rubygems'
+require 'camping'
+  
+module Camping::Models
+    class Post < Base; belongs_to :user; end
+    class Comment < Base; belongs_to :user; end
+    class User < Base; end
+end
+
+module Camping::Controllers
+    class Index < R '/'
+        def get
+            @posts = Post.find :all
+            render :index
+        end
+    end
+     
+    class Add
+        def get
+            if cookies.user_id
+                @session = User.find cookies.user_id
+            end
+            render :add
+        end
+        def post
+            post = Post.create :title => input.post_title, :body => input.post_body
+            redirect View, post
+        end
+    end
+
+    class Info
+        def get
+            pre cookies.inspect
+        end
+    end
+
+    class View < R '/view/(\d+)'
+        def get post_id 
+            @post = Post.find post_id
+            @comments = Comment.find :all, :conditions => ['post_id = ?', post_id]
+            render :view
+        end
+    end
+     
+    class Edit < R '/edit/(\d+)', '/edit'
+        def get post_id 
+            if cookies.user_id
+                @session = User.find cookies.user_id
+            end
+            @post = Post.find post_id
+            render :edit
+        end
+     
+        def post
+            @post = Post.find input.post_id
+            @post.update_attributes :title => input.post_title, :body => input.post_body
+            redirect View, @post
+        end
+    end
+     
+    class Comment
+        def post
+            Comment.create(:username => input.post_username,
+                       :body => input.post_body, :post_id => input.post_id)
+            redirect View, input.post_id
+        end
+    end
+     
+    class Login
+        def post
+            @user = User.find :first, :conditions => ['username = ? AND password = ?', input.username, input.password]
+     
+            if @user
+                @login = 'login success !'
+                cookies.user_id = @user.id
+            else
+                @login = 'wrong user name or password'
+            end
+            render :login
+        end
+    end
+     
+    class Logout
+        def get
+            cookies.user_id = nil
+            render :logout
+        end
+    end
+     
+    class Style < R '/styles.css', '/view/styles.css'
+        def get
+            @headers["Content-Type"] = "text/css; charset=utf-8"
+            @body = File.read('styles.css')
+        end
+    end
+end
+
+module Camping::Views
+
+    def layout
+      html do
+        head do
+          title 'blog'
+          link :rel => 'stylesheet', :type => 'text/css', 
+               :href => 'styles.css', :media => 'screen'
+        end
+        body do
+          h1.header { a 'blog', :href => '/' }
+          div.content do
+            self << yield
+          end
+        end
+      end
+    end
+
+    def index
+      if @posts.empty?
+        p 'No posts found.'
+        p { a 'Add', :href => '/add' }
+      else
+        for post in @posts
+          _post(post)
+        end
+      end
+    end
+
+    def login
+      p { b @login }
+      p { a 'Continue', :href => '/add' }
+    end
+
+    def logout
+      p "You have been logged out."
+      p { a 'Continue', :href => '/' }
+    end
+
+    def add
+      if @session
+        _form(post, :action => '/add')
+      else
+        _login
+      end
+    end
+
+    def edit
+      if @session
+        _form(post, :action => '/edit')
+      else
+        _login
+      end
+    end
+
+    def view
+        _post(post)
+
+        p "Comment for this post:"
+        for c in @comments
+          h1 c.username
+          p c.body
+        end
+
+        form :action => '/comment', :method => 'post' do
+          label 'Name', :for => 'post_username'; br
+          input :name => 'post_username', :type => 'text'; br
+          label 'Comment', :for => 'post_body'; br
+          textarea :name => 'post_body' do; end; br
+          input :type => 'hidden', :name => 'post_id', :value => post.id
+          input :type => 'submit'
+        end
+    end
+
+    # partials
+    def _login
+      form :action => '/login', :method => 'post' do
+        label 'Username', :for => 'username'; br
+        input :name => 'username', :type => 'text'; br
+
+        label 'Password', :for => 'password'; br
+        input :name => 'password', :type => 'text'; br
+
+        input :type => 'submit', :name => 'login', :value => 'Login'
+      end
+    end
+
+    def _post(post)
+      h1 post.title
+      p post.body
+      p do
+        a "Edit", :href => "/edit/#{post.id}"
+        a "View", :href => "/view/#{post.id}"
+      end
+    end
+
+    def _form(post, opts)
+      p do
+        text "You are logged in as #{@session.username} | "
+        a 'Logout', :href => '/logout'
+      end
+      form({:method => 'post'}.merge(opts)) do
+        label 'Title', :for => 'post_title'; br
+        input :name => 'post_title', :type => 'text', 
+              :value => post.title; br
+
+        label 'Body', :for => 'post_body'; br
+        textarea post.body, :name => 'post_body'; br
+
+        input :type => 'hidden', :name => 'post_id', :value => post.id
+        input :type => 'submit'
+      end
+    end
+end
+ 
+if __FILE__ == $0
+    Camping::Models::Base.establish_connection :adapter => 'sqlite3', :database => 'blog3.db'
+    Camping::Models::Base.logger = Logger.new('camping.log')
+    Camping.run
+end

data/examples/blog/blog.sqlite3

@@ -0,0 +1,21 @@
+CREATE TABLE posts (
+  id integer primary key,
+  user_id integer,
+  title text,
+  body text,
+  at date
+);
+
+CREATE TABLE users (
+  id integer primary key,
+  username text,
+  password text
+);
+
+CREATE TABLE comments (
+  id integer primary key,
+  post_id integer,
+  username text,
+  body text,
+  created_at date
+);

data/examples/blog/camping.log

@@ -0,0 +1,16 @@
+# Logfile created on Tue Jan 17 22:57:14 MST 2006 by logger.rb/1.5.2.4
+  Camping::Models::Post Load (0.000000)   SQLite3::SQLException: no such table: posts: SELECT * FROM posts 
+  Camping::Models::Post Load (0.000764)   SELECT * FROM posts 
+  Camping::Models::Post Load (0.000776)   SELECT * FROM posts 
+  Camping::Models::Post Load (0.000781)   SELECT * FROM posts 
+  Camping::Models::Post Load (0.000803)   SELECT * FROM posts WHERE (posts.id = '1') LIMIT 1
+  Camping::Models::Post Load (0.000873)   SELECT * FROM posts 
+  Camping::Models::Post Load (0.000825)   SELECT * FROM posts 
+  Camping::Models::Post Load (0.000806)   SELECT * FROM posts 
+  Camping::Models::Post Load (0.000824)   SELECT * FROM posts 
+  Camping::Models::Post Load (0.000832)   SELECT * FROM posts 
+  Camping::Models::Post Load (0.000816)   SELECT * FROM posts 
+  Camping::Models::Post Load (0.000824)   SELECT * FROM posts 
+  Camping::Models::Post Load (0.000813)   SELECT * FROM posts 
+  Camping::Models::Post Load (0.000828)   SELECT * FROM posts 
+  Camping::Models::User Load (0.000831)   SELECT * FROM users WHERE (username = '_why' AND password = 'hacky') LIMIT 1

data/examples/blog/start

@@ -0,0 +1,6 @@
+#!/usr/bin/ruby
+require 'webrick/httpserver'
+s = WEBrick::HTTPServer.new(:BindAddress => 'localhost', :Port => 3044)
+s.mount("/", WEBrick::HTTPServlet::CGIHandler, "blog.rb")
+trap( :INT ) { s.shutdown }
+s.start

data/examples/blog/styles.css

@@ -0,0 +1,10 @@
+body {
+    font-family: Utopia, Georga, serif;
+}
+h1.header {
+    background-color: #fef;
+    margin: 0; padding: 10px;
+}
+div.content {
+    padding: 10px;
+}

data/lib/camping-mural.rb

@@ -0,0 +1,44 @@
+%w[rubygems active_record markaby metaid ostruct].each {|lib| require lib}
+module Camping;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;c.gsub!(/\(.+?\)/) do;((a = args.
+shift).respond_to?(:primary_key) ? a.method(a.primary_key) : a).to_s;end
+end;r(302,'','Location' => c);end;def r(s, b, h = {});@status = s;@headers.
+merge!(h);@body = b;end;def service(e, m, a);@status, @headers = 200, 
+{'Content-Type' => 'text/html'};@cookies=Camping.cookie_parse(e['COOKIE']||
+e['HTTP_COOKIE']);cook = @cookies.marshal_dump.dup;if (e['REQUEST_METHOD']==
+'POST')and %r|\Amultipart/form-data.*boundary=\"?.+?\"?|n=~e['CONTENT_TYPE']
+return r(500, "Urgh, multipart/form-data not yet supported.");else;@input =
+Camping.qs_parse(e['REQUEST_METHOD']!="POST" ? e['QUERY_STRING'] : $stdin.
+read(e['CONTENT_LENGTH'].to_i));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{|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;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{|c|g=Models.const_get(c);remove_const c if 
+const_defined? c;const_set c,g};end;puts o.service(ENV, m, a);rescue=>e
+puts 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

data/lib/camping.rb

@@ -0,0 +1,105 @@
+%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 
+          c.gsub!(/\(.+?\)/) do
+            ((a = args.shift).respond_to?(:primary_key) ? a.method(a.primary_key) : a).to_s
+          end
+        end
+        r(302, '', 'Location' => c)
+      end
+      def r(s, b, h = {}); @status = s; @headers.merge!(h); @body = b; end
+      def service(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" ? 
+                                    $stdin.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
+      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
+        puts o.service(ENV, m, a)
+      rescue => e
+        puts 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

metadata

@@ -0,0 +1,77 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.11
+specification_version: 1
+name: camping
+version: !ruby/object:Gem::Version 
+  version: "1.0"
+date: 2006-01-18 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
+description: 
+autorequire: camping
+default_executable: 
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+    - 
+      - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+authors: 
+  - why the lucky stiff
+files: 
+  - examples/blog
+  - examples/blog/blog.sqlite3
+  - examples/blog/blog.rb
+  - examples/blog/camping.log
+  - examples/blog/start
+  - examples/blog/blog3.db
+  - examples/blog/styles.css
+  - lib/camping-mural.rb
+  - lib/camping.rb
+test_files: []
+rdoc_options: []
+extra_rdoc_files: []
+executables: []
+extensions: []
+requirements: []
+dependencies: 
+  - !ruby/object:Gem::Dependency 
+    name: activerecord
+    version_requirement: 
+    version_requirements: !ruby/object:Gem::Version::Requirement 
+      requirements: 
+        - 
+          - ">"
+          - !ruby/object:Gem::Version 
+            version: 0.0.0
+      version: 
+  - !ruby/object:Gem::Dependency 
+    name: markaby
+    version_requirement: 
+    version_requirements: !ruby/object:Gem::Version::Requirement 
+      requirements: 
+        - 
+          - ">"
+          - !ruby/object:Gem::Version 
+            version: 0.0.0
+      version: 
+  - !ruby/object:Gem::Dependency 
+    name: metaid
+    version_requirement: 
+    version_requirements: !ruby/object:Gem::Version::Requirement 
+      requirements: 
+        - 
+          - ">"
+          - !ruby/object:Gem::Version 
+            version: 0.0.0
+      version: