bike 0.2.1

data/lib/meta/_meta.rb

@@ -0,0 +1,20 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+module Bike::Meta
+
+  def post(action, v = nil)
+    super
+    my[:parent][klass_id] = val if my[:parent]
+    self
+  end
+
+  private
+
+  def klass_id
+    self.class.to_s[/\w+$/].downcase.intern
+  end
+
+end

data/lib/meta/group.rb

@@ -0,0 +1,19 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+class Bike::Meta::Group < Bike::Field
+
+  include Bike::Meta
+
+  private
+
+  def _post(action, v)
+    if action == :load
+      @val = val_cast v
+    end
+    nil
+  end
+
+end

data/lib/meta/id.rb

@@ -0,0 +1,59 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009-2010 Akira FUNAI
+
+class Bike::Meta::Id < Bike::Field
+
+  # not include Bike::Meta as this is SHORT_ID, not a full id.
+
+  def initialize(meta = {})
+    meta[:size] = $&.to_i if meta[:tokens] && meta[:tokens].first =~ /^\d+$/
+    super
+  end
+
+  def errors
+    if (my[:max].to_i > 0) && (val.size > my[:max])
+      [_('too long: %{max} characters maximum') % {:max => my[:max]}]
+    elsif (my[:min].to_i == 1) && val.empty?
+      [_('mandatory')]
+    elsif (my[:min].to_i > 0) && (val.size < my[:min])
+      [_('too short: %{min} characters minimum') % {:min => my[:min]}]
+    elsif val !~ /\A#{Bike::REX::ID_SHORT}\z/
+      [_('malformatted id')]
+    elsif (
+      my[:parent] &&
+      my[:parent][:id] !~ /00000000_#{val}$/ &&
+      my[:parent][:parent].is_a?(Bike::Set::Dynamic) &&
+      my[:parent][:parent].item(val)
+    )
+      [_('duplicate id: %{id}') % {:id => val}]
+    else
+      []
+    end
+  end
+
+  private
+
+  def _g_create(arg)
+    new_id? ? <<_html.chomp : _g_default(arg)
+<span class="#{_g_class arg}"><input type="text" name="#{my[:short_name]}" value="#{Bike::Field.h val}" size="#{my[:size]}" />#{_g_errors arg}</span>
+_html
+  end
+  alias :_g_update :_g_create
+
+  def new_id?
+    find_ancestor {|i| i[:id] =~ Bike::REX::ID_NEW } ? true : false
+  end
+
+  def _post(action, v)
+    if action == :load || ([:create, :update].include?(action) && new_id?)
+      @val = val_cast v
+    end
+  end
+
+  def val_cast(v)
+    v.to_s
+  end
+
+end

data/lib/meta/owner.rb

@@ -0,0 +1,21 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+class Bike::Meta::Owner < Bike::Field
+
+  include Bike::Meta
+
+  private
+
+  def _post(action, v)
+    if action == :load
+      @val = val_cast v
+    elsif action == :create
+      @val = Bike.client
+    end
+    nil
+  end
+
+end

data/lib/meta/timestamp.rb

@@ -0,0 +1,118 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+require 'time'
+
+class Bike::Meta::Timestamp < Bike::Field
+
+  include Bike::Meta
+
+  REX_DATE = /\A(\d+).(\d+).(\d+)(?:[T\s](\d+):(\d+)(?::(\d+))?)?\z/
+
+  def initialize(meta = {})
+    meta[:size]       = $&.to_i if meta[:tokens] && meta[:tokens].find {|t| t =~ /^\d+$/ }
+    meta[:can_edit]   = true if Array(meta[:tokens]).include? 'can_edit'
+    meta[:can_update] = true if Array(meta[:tokens]).include? 'can_update'
+    super
+  end
+
+  def errors
+    if @date_str.nil?
+      []
+    elsif @date_str =~ REX_DATE
+      (Time.local($1, $2, $3, $4, $5, $6) rescue nil) ? [] : ['out of range']
+    else
+      ['wrong format']
+    end
+  end
+
+  private
+
+  def _g_default(arg)
+    _date val['published']
+  end
+  alias :_g_published :_g_default
+
+  def _g_rfc2822(arg)
+    val['published'].rfc2822
+  end
+
+  def _g_created(arg)
+    _date val['created']
+  end
+
+  def _g_updated(arg)
+    _date val['updated']
+  end
+
+  def _date(time)
+    time.is_a?(::Time) ? time.strftime(_('%Y-%m-%dT%H:%M:%S')) : 'n/a'
+  end
+
+  def _g_create(arg)
+    <<_html.chomp if my[:can_edit]
+<span class="#{_g_class arg}"><input type="text" name="#{my[:short_name]}" value="" size="#{my[:size]}" /></span>
+_html
+  end
+
+  def _g_update(arg)
+    if my[:can_edit]
+      v = @date_str
+      v ||= val['published'].is_a?(::Time) ? val['published'].strftime('%Y-%m-%d %H:%M:%S') : ''
+      <<_html.chomp
+<span class="#{_g_class arg}"><input type="text" name="#{my[:short_name]}" value="#{Bike::Field.h v}" size="#{my[:size]}" />#{_g_errors arg}</span>
+_html
+    elsif my[:can_update] && !find_ancestor {|f| f[:id] =~ Bike::REX::ID_NEW }
+      <<_html
+<span class="#{_g_class arg}">
+  <input type="checkbox" id="timestamp_#{my[:short_name]}" name="#{my[:short_name]}" value="true" />
+  <label for="timestamp_#{my[:short_name]}">#{_ 'update the timestamp'}</label>
+#{_g_errors arg}</span>
+_html
+    end
+  end
+
+  def _post(action, v)
+    case action
+      when :load
+        @val = val_cast v
+      when :create
+        now = Time.now
+        @val = {
+          'created'   => now,
+          'updated'   => now,
+          'published' => now,
+        }
+        if my[:can_edit] && v['published'].is_a?(::Time)
+          @val['published'] = v['published']
+        else
+          nil # do not set @action
+        end
+      when :update
+        @val['updated'] = Time.now
+        if my[:can_edit] && v['published'].is_a?(::Time)
+          @val['published'] = v['published']
+        elsif my[:can_update] && v['published'] == :same_as_updated
+          @val['published'] = @val['updated']
+        else
+          nil # do not set @action
+        end
+    end
+  end
+
+  def val_cast(v)
+    if v.is_a? ::Hash
+      v
+    elsif v == 'true'
+      {'published' => :same_as_updated}
+    elsif v.is_a?(::String) && !v.empty?
+      @date_str = v
+      (v =~ REX_DATE && t = (Time.local($1, $2, $3, $4, $5, $6) rescue nil)) ? {'published' => t} : {}
+    else
+      {}
+    end
+  end
+
+end

data/lib/scalar/checkbox.rb

@@ -0,0 +1,68 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+class Bike::Checkbox < Bike::Field
+
+  def initialize(meta = {})
+    if meta[:tokens]
+      meta[:options] ||= meta[:tokens] - ['mandatory']
+      meta[:options] = ['_on'] if meta[:options].empty?
+      meta[:mandatory] = meta[:tokens].include?('mandatory') && Array(meta[:options]).size > 1
+    end
+    if meta[:options].size == 1 && meta[:default] =~ /^(on|true|yes)$/i
+      meta[:default] = meta[:options].first
+    end
+    super
+  end
+
+  def errors
+    if val.empty?
+      my[:mandatory] ? [_('mandatory')] : []
+    else
+      (val - my[:options]).empty? ? [] : [_('no such option')]
+    end
+  end
+
+  private
+
+  def _g_default(arg)
+    val.join ', '
+  end
+
+  def _g_update(arg)
+    if my[:options] == ['_on']
+      checked = (val.include? '_on') ? ' checked' : ''
+      <<_html
+<span class="#{_g_class arg}">
+  <input type="hidden" name="#{my[:short_name]}[]" value="" />
+  <input type="checkbox" name="#{my[:short_name]}[]" value="_on" #{checked}/>
+#{_g_errors arg}</span>
+_html
+    else
+      options = my[:options].collect {|opt|
+        checked = (val.include? opt) ? ' checked' : ''
+        <<_html
+  <span class="item">
+    <input type="checkbox" id="checkbox_#{my[:short_name]}-#{opt}" name="#{my[:short_name]}[]" value="#{opt}"#{checked} />
+    <label for="checkbox_#{my[:short_name]}-#{opt}">#{opt}</label>
+  </span>
+_html
+      }.join
+      <<_html
+<span class="#{_g_class arg}">
+  <input type="hidden" name="#{my[:short_name]}[]" value="" />
+#{options}#{_g_errors arg}</span>
+_html
+    end
+  end
+  alias :_g_create :_g_update
+
+  def val_cast(v)
+    Array(v).collect {|i|
+      i.to_s unless i.to_s.empty?
+    }.compact
+  end
+
+end

data/lib/scalar/file.rb

@@ -0,0 +1,144 @@
+# encoding: UTF-8
+
+# Author::    Akira FUNAI
+# Copyright:: Copyright (c) 2009 Akira FUNAI
+
+class Bike::File < Bike::Field
+
+  def initialize(meta = {})
+    meta[:options].collect! {|i| i.downcase } if meta[:options]
+    meta[:size] = $&.to_i if meta[:tokens] && meta[:tokens].first =~ /^\d+$/
+    super
+  end
+
+  def meta_path
+    my[:full_name].gsub('-', '/')
+  end
+
+  def meta_tmp_path
+    "#{Bike.base[:path]}/#{Bike.base[:tid]}/#{my[:short_name].gsub('-', '/')}" if Bike.base
+  end
+
+  def meta_persistent_sd
+    find_ancestor {|f| f.is_a?(Bike::Set::Dynamic) && f.storage.persistent? }
+  end
+
+  def meta_persistent_name
+    f    = my[:parent]
+    ps   = my[:persistent_sd]
+    name = my[:id]
+    until f == ps
+      name = "#{f[:id]}-#{name}"
+      f = f[:parent]
+    end
+    name
+  end
+
+  def body
+    raise Bike::Error::Forbidden unless permit? :read
+
+    if ps = my[:persistent_sd]
+      @body ||= ps.storage.val my[:persistent_name]
+    end
+    @body
+  end
+
+  def errors
+    if (
+      val['basename'] &&
+      my[:options].is_a?(::Array) &&
+      !my[:options].empty? &&
+      !my[:options].include?(val['basename'].to_s[/\.([\w\.]+)$/i, 1].downcase)
+    )
+      [_('wrong file type: should be %{types}') % {:types => my[:options].join('/')}]
+    elsif (my[:max].to_i > 0) && (val['size'].to_i > my[:max])
+      [_('too large: %{max} bytes maximum') % {:max => my[:max]}]
+    elsif (my[:min].to_i == 1) && val['size'].to_i < 1
+      [_('mandatory')]
+    elsif (my[:min].to_i > 0) && (val['size'].to_i < my[:min])
+      [_('too small: %{min} bytes minimum') % {:min => my[:min]}]
+    else
+      []
+    end
+  end
+
+  def commit(type = :temp)
+    if type == :temp && @action == :delete
+      @val = {}
+      @body = nil
+    elsif type == :persistent && ps = my[:persistent_sd]
+      case @action
+        when :create, :update, nil
+          ps.storage.store(
+            my[:persistent_name],
+            @body,
+            val['basename'][/\.([\w\.]+)$/, 1] || 'bin'
+          ) if @body && valid?
+        when :delete
+          ps.storage.delete my[:persistent_name]
+      end
+    end
+    super
+  end
+
+  private
+
+  def _g_default(arg = {})
+    path     = _path arg[:action]
+    basename = Bike::Field.h val['basename']
+    type     = Bike::Field.h val['type']
+    <<_html.chomp unless val.empty?
+<a href="#{path}/#{basename}">#{basename} (#{val['size']} bytes)</a>
+_html
+  end
+
+  def _g_update(arg)
+    hidden = <<_html if my[:min].to_i > 0 && val.empty?
+  <input type="hidden" name="#{my[:short_name]}" value="" />
+_html
+    if (
+      !val.empty? &&
+      my[:min].to_i == 0 &&
+      my[:parent].is_a?(Bike::Set::Static) &&
+      my[:parent][:item].find {|id, meta| id != my[:id] && meta[:klass] !~ /^meta-/ }
+    )
+      delete = <<_html
+  <input type="submit" name="#{my[:short_name]}.action-delete" value="#{_ 'delete'}" />
+_html
+    end
+    update = <<_html
+  <input type="file" name="#{my[:short_name]}" size="#{my[:size]}" class="file" />
+_html
+    <<_html
+<span class="#{_g_class arg}">
+  #{_g_default arg}
+#{hidden}#{update}#{delete}#{_g_errors arg}</span>
+_html
+  end
+  alias :_g_create :_g_update
+
+  def _path(action)
+    Bike.uri.to_s + ([:read, nil].include?(action) ? my[:path] : my[:tmp_path])
+  end
+
+  def val_cast(v)
+    if v.is_a?(::Hash) && v[:tempfile]
+      v[:tempfile].rewind
+      @body = v[:tempfile].read
+      {
+        'basename' => File.basename(v[:filename]),
+        'type'     => v[:type] || 'application/octet-stream',
+        'size'     => @body.respond_to?(:bytesize) ? @body.bytesize : @body.size,
+      }
+    elsif v.is_a?(::Hash) && v['basename']
+      {
+        'basename' => v['basename'].to_s,
+        'type'     => v['type'].to_s,
+        'size'     => v['size'].to_i,
+      }
+    else
+      {}
+    end
+  end
+
+end