IOWA 1.0.0

data/src/iowa/Extensions/Date.rb

@@ -0,0 +1,88 @@
+require 'date'
+class Date
+	def include?(tm)
+		dtm = DateTime.parse(tm.asctime)
+		slf = self.to_s
+		d1 = DateTime.parse("#{slf} 00:00:00")
+		d2 = DateTime.parse("#{slf} 23:59:59.99999")
+		dtm.between?(d1,d2)
+	end
+
+	def to_datetime
+		DateTime.new(year, month, day, 0, 0, 0)
+		rescue NameError
+		nil
+	end
+
+	def ago(sec)
+		self - Rational.new!(sec, 86400)
+	end
+	alias :until :ago
+
+	def since(sec)
+		self + Rational.new!(sec, 86400)
+	end
+	alias :from_now :since
+
+	def yesterday
+		self - 1
+	end
+
+	def tomorrow
+		self + 1
+	end
+
+	def last_week
+		self - 7
+	end
+
+	def next_week
+		self + 7
+	end
+
+	def last_month
+		self - 30
+	end
+
+	def next_month
+		self + 30
+	end
+
+	def last_year
+		self - 365
+	end
+
+	def next_year
+		self + 365
+	end
+
+	def month_start
+		Date.new(year, month, 1)
+	end
+
+	def month_end
+		d = {1 => 31,
+			2 => Date.new(year, month, day).leap? ? 29 : 28,
+			3 => 31,
+			4 => 30,
+			5 => 31,
+			6 => 30,
+			7 => 31,
+			8 => 31,
+			9 => 30,
+			10 => 31,
+			11 => 30,
+			12 => 31}[month]
+		Date.new(year, month, d)
+	end
+
+	def year_start
+		Date.new(year, 1, 1)
+	end
+
+	def year_end
+		Date.new(year, 12, 31)
+	end
+	
+end
+

data/src/iowa/Extensions/DateTime.rb

@@ -0,0 +1,88 @@
+require 'date'
+class DateTime
+	def to_time
+puts year, month, day, hour, min, sec
+		Time.local(year,month,day,hour,min,sec)
+	end
+
+	def to_date
+		Date.new(year, month, day)
+		rescue NameError
+		nil
+	end
+
+	def ago(sec)
+		self - Rational.new!(sec, 86400)
+	end
+	alias :until :ago
+
+	def since(sec)
+		self + Rational.new!(sec, 86400)
+	end
+	alias :from_now :since
+
+	def yesterday
+		self - 1
+	end
+
+	def tomorrow
+		self + 1
+	end
+
+	def last_week
+		self - 7
+	end
+
+	def next_week
+		self + 7
+	end
+
+	def last_month
+		self - 30
+	end
+
+	def next_month
+		self + 30
+	end
+
+	def last_year
+		self - 365
+	end
+
+	def next_year
+		self + 365
+	end
+
+	def midnight
+		DateTime.new(year, month, day, 0, 0, 0)
+	end
+
+	def month_start
+		DateTime.new(year, month, 1, 0, 0, 0)
+	end
+
+	def month_end
+		d = {1 => 31,
+			2 => Date.new(year, month, day).leap? ? 29 : 28,
+			3 => 31,
+			4 => 30,
+			5 => 31,
+			6 => 30,
+			7 => 31,
+			8 => 31,
+			9 => 30,
+			10 => 31,
+			11 => 30,
+			12 => 31}[month]
+		DateTime.new(year, month, d, 0, 0, 0)
+	end
+
+	def year_start
+		Time.local(year, 1, 1, 0, 0, 0)
+	end
+
+	def year_end
+		Time.local(year, 12, 31, 0, 0, 0)
+	end
+	
+end

data/src/iowa/Extensions/Hash.rb

@@ -0,0 +1,22 @@
+class Hash
+	# A simple little routine to downcase any String used as a key
+	# in a hash or any hash nested as value somewhere within the hash.
+	# Thanks to Daniel Berger for this implementation.
+
+	def downcase_keys!
+		upper = /A-Z/
+		self.each do |k,v|
+			next unless k.kind_of? String
+			self[k.dup.downcase] = v
+			self.delete(k) if upper.match(k)
+		end
+	end
+
+	def stringify_keys!
+		self.each do |k,v|
+			next if k.kind_of? String
+			self[k.to_s] = v
+			self.delete k
+		end
+	end
+end

data/src/iowa/Extensions/Kernel.rb

@@ -0,0 +1,6 @@
+module Kernel
+	def returning(*vals)
+		yield *vals
+		vals.length == 1 ? vals.first : vals
+	end
+end

data/src/iowa/Extensions/Numeric.rb

@@ -0,0 +1,47 @@
+class Numeric
+
+	def seconds
+		self
+	end
+	alias :second :seconds
+
+	def minutes
+		self * 60
+	end
+	alias :minute :minutes
+
+	def hours
+		self * 3600
+	end
+	alias :hour :hours
+
+	def days
+		self * 86400
+	end
+	alias :day :days
+
+	def weeks
+		self * 604800
+	end
+	alias :week :weeks
+
+	def months
+		self * 2592000
+	end
+	alias :month :months
+
+	def years
+		self * 31536000
+	end
+	alias :year :years
+
+	def ago(t = ::Time.now)
+		t - self
+	end
+	alias :until :ago
+
+	def since(t = ::Time.now)
+		t + self
+	end
+	alias :from_now :since
+end

data/src/iowa/Extensions/Object.rb

@@ -0,0 +1,11 @@
+class Object
+	# Takes zero or more exceptions as arguments, and supresses the expression of
+	# those exceptions in the block that is called.
+	def suppress(*exceptions)
+		r = nil
+		begin
+			yield
+		rescue *exceptions => r
+		end
+	end
+end

data/src/iowa/Extensions/String.rb

@@ -0,0 +1,60 @@
+class String
+	def unescape
+	 	   self.gsub(/\+/, ' ').gsub(/%([0-9a-fA-F]{2})/){ [$1.hex].pack("c") }
+	end
+
+	def unescape!
+		self.gsub!(/\+/, ' ')
+		self.gsub!(/%([0-9a-fA-F]{2})/){ [$1.hex].pack("c") }
+	end
+
+	def camelCase
+		return self if /[a-zA-Z][A-Z]/.match(self)
+		parts = split(/[_\s]/)
+		([parts[0].downcase] + parts[1..-1].collect {|x| x.capitalize}).join
+	end
+	alias :camel_case :camelCase
+	
+	def camelCase!
+		replace(camelCase)
+	end
+	alias :camel_case! :camelCase!
+
+	def constantCase
+		tmp = camel_case
+		tmp[0] = camel_case[0].chr.upcase
+		tmp
+		rescue self
+	end
+	alias :constant_case :constantCase
+
+	def constantCase!
+		replace(constantCase)
+	end
+	alias :constant_case! :constantCase!
+
+	def snake_case(group = true)
+		if group
+			gsub(/([a-zA-Z])([A-Z])/,'\1_\2').gsub(/\s/,'_').downcase
+		else
+			gsub(/([a-zA-Z])(?=[A-Z])/,'\1_\2').gsub(/\s/,'_').downcase
+		end
+	end
+	alias :snakeCase :snake_case
+
+	def snake_case!
+		replace(snake_case)
+	end
+	alias :snakeCase! :snake_case
+
+	def human_case
+		snake_case.gsub('_',' ').capitalize
+	end
+	alias :humanCase :human_case
+
+	def human_case!
+		replace(human_case)
+	end
+	alias :humanCase! :human_case!
+
+end

data/src/iowa/Extensions/Time.rb

@@ -0,0 +1,89 @@
+require 'date'
+class Time
+	def to_date
+		Date.new(year, month, day)
+		rescue NameError
+		nil
+	end
+
+	def to_datetime
+		DateTime.new(year, month, day, hour, min, sec)
+		rescue NameError
+		nil
+	end
+
+	def ago(sec)
+		sec.ago(self)
+	end
+	alias :until :ago
+
+	def since(sec)
+		sec.since(self)
+	end
+	alias :from_now :since
+
+	def yesterday
+		self - 1.day
+	end
+
+	def tomorrow
+		self + 1.day
+	end
+
+	def last_week
+		self - 1.week
+	end
+
+	def next_week
+		self + 1.week
+	end
+
+	def last_month
+		self - 1.month
+	end
+
+	def next_month
+		self + 1.month
+	end
+
+	def last_year
+		self - 1.year
+	end
+
+	def next_year
+		self + 1.year
+	end
+
+	def midnight
+		Time.local(year, month, day, 0, 0, 0)
+	end
+
+	def month_start
+		Time.local(year, month, 1, 0, 0, 0)
+	end
+
+	def month_end
+		d = {1 => 31,
+			2 => Date.new(year, month, day).leap? ? 29 : 28,
+			3 => 31,
+			4 => 30,
+			5 => 31,
+			6 => 30,
+			7 => 31,
+			8 => 31,
+			9 => 30,
+			10 => 31,
+			11 => 30,
+			12 => 31}[month]
+		Time.local(year, month, d, 0, 0, 0)
+	end
+
+	def year_start
+		Time.local(year, 1, 1, 0, 0, 0)
+	end
+
+	def year_end
+		Time.local(year, 12, 31, 0, 0, 0)
+	end
+	
+end

data/src/iowa/Extensions/TimeExtensions.rb

@@ -0,0 +1,6 @@
+# Will pull in all of the time/date extensions at once.
+
+require 'iowa/Extensions/Date'
+require 'iowa/Extensions/DateTime'
+require 'iowa/Extensions/Numeric'
+require 'iowa/Extensions/Time'

data/src/iowa/Form.rb

@@ -0,0 +1,368 @@
+module Iowa
+  module FormElements
+
+    class Form < Tag
+
+      Iowa::TemplateParser.register_tag(self,:mandatory_body)
+
+      def defaultBindings
+        @bindings[Caction] = LiteralAssociation.new(@name)
+      end
+  
+      def handleRequest(context)
+        if(context.actionID == context.elementID)
+          context.setAction(@bindings[Caction])
+          context[:formActive] = true
+          context.element_attributes = @attributes
+        end
+        super(context)
+        context[:formActive] = false
+      end
+  
+      def handleResponse(context)
+        actionURL = context.actionURL
+        if @bindings.has_key?('id')
+          context.url_for_id[context.getBinding(@bindings['id'])] = actionURL
+        end
+        context.response << openTag(Cmethod, Cpost,
+                       Caction, context.actionURL,
+                        context)
+        super(context)
+        context.response << closeTag
+        context[:skip_pagecache] = false
+      end
+    end
+
+    class Input < Tag
+
+      Iowa::TemplateParser.register_tag(self,:bodyless)
+
+      def initialize(name, bindings, attributes)
+        type = attributes[Ctype.freeze]
+    
+        case type
+        when Csubmit
+          extend Submit
+        when Cbutton
+          extend Button
+        when Cimage
+          extend Image
+        when Ccheckbox
+          extend Checkbox
+        when Cradio
+          extend Radiobox
+        when Cfile
+          extend File
+        else
+          extend Text
+        end
+    
+        super(name, bindings, attributes)
+      end
+    end
+
+    module Submit
+
+      def defaultBindings
+        @bindings[Caction] = LiteralAssociation.new(@name)
+        @attributes[Cvalue] ||= @name
+      end
+  
+      def handleRequest(context)
+        if context.request.params.has_key?(context.elementID)
+          context.setAction(@bindings[Caction])
+          context.element_attributes = @attributes
+        end
+      end
+  
+      def handleResponse(context)
+        value = context.getBinding(@bindings[Cvalue])
+        attrs = Hash[Ctype => Csubmit, Cname => context.elementID]
+        attrs[Cvalue] = value if value
+        context.response << lonelyTag(attrs,context)
+        context[:skip_pagecache] = false
+      end
+    end
+
+    module Button
+
+      def defaultBindings
+        @bindings[Caction] = LiteralAssociation.new(@name)
+        @attributes[Cvalue] ||= @name
+      end
+  
+      def handleRequest(context)
+        if context.request.params.has_key?(context.elementID)
+          context.setAction(@bindings[Caction])
+          context.element_attributes = @attributes
+        end
+      end
+  
+      def handleResponse(context)
+        value = context.getBinding(@bindings[Cvalue])
+        attrs = Hash[Ctype => Cbutton, Cname => context.elementID]
+        attrs[Cvalue] = value if value
+        context.response << lonelyTag(attrs,context)
+        context[:skip_pagecache] = false
+      end
+    end
+
+    module Image
+
+      def defaultBindings
+        @bindings[Caction] = LiteralAssociation.new(@name)
+      end
+  
+      def handleRequest(context)
+        if context.request.params.has_key?(context.elementID)
+          context.setAction(@bindings[Caction])
+          context.element_attributes = @attributes
+        end
+      end
+  
+      def handleResponse(context)
+        value = context.getBinding(@bindings[Cvalue])
+        attrs = Hash[Ctype => Cimage, Cname => context.elementID]
+        context.response << lonelyTag(attrs,context)
+        context[:skip_pagecache] = false
+      end
+    end
+
+    module Text
+
+      def defaultBindings
+        @bindings[Cvalue] = PathAssociation.new(@name)
+        @bindings[Cmultiple] = nil
+      end
+  
+      def handleRequest(context)
+        val = context.request.params[context.elementID]
+        if val
+          if @bindings[Cmultiple]
+            v = context[:responseNotes][@bindings[Cvalue]] || []
+            v << val
+            context.setBinding(@bindings[Cvalue], v, true)
+          else
+            context.setBinding(@bindings[Cvalue], val, true)
+          end
+        end
+      end
+  
+      def handleResponse(context)
+        label = @attributes[Clabel]
+        if label
+          label_class = " class=\"#{@attributes['label_class']}\""
+        end
+        value = context.getBinding(@bindings[Cvalue])
+        type = @attributes[Ctype]
+        attrs = Hash[Ctype => type, Cname => context.elementID, Cvalue => value]
+        #context.response << lonelyTag(Ctype, type,
+        # Cname, context.elementID,
+        # Cvalue, value,context)
+        context.response << "<label for=\"#{context.elementID}\"#{label_class}>#{label}</label>" if label
+        context.response << lonelyTag(attrs,context)
+        context[:skip_pagecache] = false
+      end
+    end
+
+    module File
+      def defaultBindings
+        @bindings[Cvalue] = PathAssociation.new(@name)
+        @bindings[Cmultiple] = nil
+      end
+  
+      def handleRequest(context)
+        val = context.request.params[context.elementID]
+        if val
+          if @bindings[Cmultiple]
+            v = context[:responseNotes][@bindings[Cvalue]] || []
+            v << val
+            context.setBinding(@bindings[Cvalue], v, true)
+          else
+            context.setBinding(@bindings[Cvalue], val, true)
+          end
+        end
+      end
+  
+      def handleResponse(context)
+        label = @attributes[Clabel]
+        if label
+          label_class = " class=\"#{@attributes['label_class']}\""
+        end
+        value = context.getBinding(@bindings[Cvalue])
+        type = @attributes[Ctype]
+        attrs = Hash[Ctype => type, Cname => context.elementID]
+        context.response << "<label for=\"#{context.elementID}\"#{label_class}>#{label}</label>" if label
+        context.response << lonelyTag(attrs,context)
+        context[:skip_pagecache] = false
+      end
+    end
+
+    module Checkbox
+      def defaultBindings
+        @bindings[Cvalue] = PathAssociation.new(@name)
+      end
+  
+      def handleRequest(context)
+        if context[:formActive]
+          val = context.request.params[context.elementID] ? context.request.params[context.elementID] : false
+          context.setBinding(@bindings[Cvalue], val, true) if val
+        end
+      end
+  
+      def handleResponse(context)
+        val = context.getBinding(@bindings[Cvalue]).to_s
+        attrs = {Ctype => Ccheckbox,
+             Cname => context.elementID,
+             Cvalue => @attributes[Cvalue]}
+        attrs[Cchecked] = nil if val && val.to_s != ''
+        context.response << lonelyTag(attrs,context)
+        context[:skip_pagecache] = false
+      end
+    end
+
+    module Radiobox
+      def defaultBindings
+        @bindings[Cvalue] = PathAssociation.new(@name)
+      end
+  
+      def handleRequest(context)
+        if context[:formActive]
+          val = context.request.params[context.elementID]
+          context.setBinding(@bindings[Cvalue], val, true) if val
+        end
+      end
+  
+      def handleResponse(context)
+        val = context.getBinding(@bindings[Cvalue])
+        attrs = {Ctype => Cradio, Cvalue => @attributes[Cvalue]}
+        if @attributes[Cname] !~ /^\d+(\.\d+)*$/
+          if context.radio_box_id.has_key? @name
+            attrs[Cname] = context.radio_box_id[@name]
+          else
+            context.radio_box_id[@name] = context.elementID
+            attrs[Cname] = context.elementID
+          end
+        else
+          attrs[Cname] = @name
+        end
+        
+        if @attributes[Cvalue].to_s == val.to_s
+          attrs[Cchecked] = nil
+          @attributes.delete(Cchecked)
+        elsif val
+          @attributes.delete(Cchecked)
+        end
+        
+        context.response << lonelyTag(attrs,context)
+        context[:skip_pagecache] = false
+      end
+    end
+
+    class Textarea < Tag
+      def defaultBindings
+        @bindings[Cvalue] = PathAssociation.new(@name)
+      end
+  
+      def handleRequest(context)
+        val = context.request.params[context.elementID]
+        if val
+          context.setBinding(@bindings[Cvalue], val, true)
+        end
+      end
+  
+      def handleResponse(context)
+        value = context.getBinding(@bindings[Cvalue])
+        context.response << openTag(Cname, context.elementID,context)
+        context.response << value.to_s
+        context.response << closeTag
+        context[:skip_pagecache] = false
+      end
+    end
+
+    class Select < RepeatReadOnly
+  
+      Iowa::TemplateParser.register_tag(self,:mandatory_body)
+
+      # If the multiple option is used in the select statement, then multiple
+      # values can be returned.  If they are, then the 'item' variable will
+      # be set to an array, with each selection as an element in the array.
+
+      def handleRequest(context)
+        index = context.request.params[context.elementID]
+        handleRequestOrResponse(:handleRequest, context)
+        if index
+          list = context.getBinding(@bindings[Clist])
+          if index.index(0.chr)
+            c = []
+            #index.split(0.chr).each do |i|
+            for i in index.split(0.chr)
+              c.push list[i.to_i]
+            end
+            context.setBinding(@bindings[Citem], c, true)
+          else
+            context.setBinding(@bindings[Citem], list[index.to_i], true)
+          end
+        end
+      end
+  
+      def handleResponse(context)
+        context.response << openTag(Cname, context.elementID,context)
+        handleRequestOrResponse(:handleResponse, context)
+        context.response << closeTag
+        context[:skip_pagecache] = false
+      end
+  
+      # If the item is an array, then there are multiple entries within the
+      # select box that are selected.
+
+      def handleRequestOrResponse(method, context)
+        setupBindings(context)
+        list = context.getBinding(@bindings[Clist])
+        item = context.getBinding(@bindings[Citem])
+        if item.kind_of?(Array)
+          h = {}
+          #item.each do |i|
+          for i in item
+            h[list.index(i)] = true
+          end
+          context[:selectItem] = h
+        else
+          context[:selectItem] = list.index(item)
+        end
+        context[:selectIndex] = 0
+    
+        super(method, context)
+    
+        context.setBindingNow(@bindings[Citem], item, true)
+      end
+    end
+
+    class Option < Tag
+
+      Iowa::TemplateParser.register_tag(self,:bodyless)
+
+      def defaultBindings
+        @bindings[Citem] = PathAssociation.new(@name)
+      end
+  
+      def handleResponse(context)
+        attrs = {Cvalue => context[:selectIndex]}
+    
+        if context[:selectItem].class.name == CHash
+          if context[:selectItem].has_key? context[:selectIndex]
+            attrs[Cselected] = nil
+          end
+        elsif context[:selectIndex] == context[:selectItem]
+          attrs[Cselected] = nil
+        end
+
+        context.response << openTag(attrs,context)
+        context.response << context.getBinding(@bindings[Citem]).to_s
+
+        context[:selectIndex] += 1
+        context[:skip_pagecache] = false
+      end
+    end
+  end
+end