RubyGems - facets - Versions diffs - 1.3.1 → 1.3.2 - Mend

facets 1.3.1 → 1.3.2

Files changed (404) hide show

@@ -103,7 +103,8 @@ class ::Tuple
     @divider = '.'
   end
-  attr_accessor :default, :divider
+  attr_accessor :default
+  attr_accessor :divider
 protected
@@ -213,7 +214,7 @@ public
     #
-    def cast_from_string( str ) # :yield:
+    def cast_from_string( str, &yld )
       args = str.to_s.split(/\W/)
       div = /\W/.match( str.to_s )[0]
       if block_given?

data/lib/facets/more/xmlbuilder.rb ADDED

@@ -0,0 +1,83 @@
+#--
+# XMLBuilder
+# Copyright (c) 2006 Thomas Sawyer
+#
+# Ruby License
+#
+# This module is free software. You may use, modify, and/or redistribute this
+# software under the same terms as Ruby.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE.
+#
+# ==========================================================================
+# Revision History
+# --------------------------------------------------------------------------
+#  2006-04-18  trans  Created.
+# ==========================================================================
+#++
+require 'facets/more/builderobject.rb'
+require 'facets/more/xmlhelper.rb'
+#:title: XMLBuilder
+#
+# XMLBuilder follows the _Builder Pattern_ allowing XML markup to be
+# constructed via Ruby method calls and block structures.
+#
+# Author::   Thomas Sawyer
+# Copright:: Copyright (c) 2006 Thomas Sawyer
+# License::  Ruby License
+class XMLBuilder < BuilderObject
+  builder_include XMLHelper
+  def method_missing( op, *args, &block )
+    if block_given?
+      @stack << @buffer
+      @buffer = ''
+      body = block.call
+      @buffer = @stack.pop
+      @buffer << builder.element( op, body, *args )
+    else
+      @buffer << builder.element( op, *args )
+    end
+  end
+end
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test rdoc
+  require 'test/unit'
+  class TCXMLBuilder < Test::Unit::TestCase
+    def test_01
+      x = XMLBuilder.new
+      doc = x.html {
+        x.head {
+          x.title "Test"
+        }
+        x.body {
+          x.p "Hello"
+          x.out.text "Test"
+        }
+      }
+      r = "<html><head><title>Test</title></head><body><p>Hello</p>Test</body></html>"
+      assert_equal( r, doc )
+      assert_equal( r, x.to_s )
+    end
+  end
+=end

data/lib/facets/more/xmlhelper.rb ADDED

@@ -0,0 +1,171 @@
+#--
+# XMLHelper
+# Copyright (c) 2006 Thomas Sawyer
+#
+# Ruby License
+#
+# This module is free software. You may use, modify, and/or redistribute this
+# software under the same terms as Ruby.
+#
+# This program is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+# FOR A PARTICULAR PURPOSE.
+#
+# ==========================================================================
+# Revision History
+# --------------------------------------------------------------------------
+#  2006-04-18  trans  Created.
+# ==========================================================================
+#++
+# :title: XMLHelper
+#
+# XMLHelper is a utility module which provides methods the ease the
+# creation of XML markup.
+#
+# == Usage
+#
+#   x = XMLHelper
+#   puts x.element( :a, x.element( :b, "X" ) )
+#
+# produces
+#
+#   <a><b>X</b></a>
+#
+# == Author(s)
+#
+# * Thomas Sawer
+#
+module XMLHelper
+  extend self
+  # Empty XML document.
+  def document( options )x
+    doc = ''
+    if options[:version]
+      doc << xml( options[:version], options[:encoding] )
+    end
+  end
+  alias_method :new, :document
+  # XML declaration.
+  def xml( version=nil, encoding=nil )
+    atts = {}
+    atts[:version] = version || '1.1'
+    atts[:version] = encoding if encoding
+    instruct( :xml, atts )
+  end
+  # Element.
+  def element( tag, body=nil, atts={} )
+    atts = atts.collect{ |k,v| %{ #{k}="#{v}"} }.join('')
+    if body
+      "<#{tag}#{atts}>#{body}</#{tag}>"
+    else
+      "<#{tag}#{atts} />"
+    end
+  end
+  # Comment.
+  def comment( remark )
+    "<!-- #{remark} -->"
+  end
+  # Proccessing instruction.
+  def instruct( name, *args )
+    atts = Hash === args.last ? args.pop : {}
+    atts = atts.collect{ |k,v| %{ #{k}="#{v}"} }.join('')
+    body = ' ' + args.join(' ')
+    "<?#{tag}#{body}#{atts}?>"
+  end
+  alias_method :instruction, :instruct
+  alias_method :pi, :instruct
+  # Text.
+  def text( str )
+    str
+  end
+  # CData.
+  def cdata( data )
+    raise ArgumentError, "CDATA contains ']]>'" if data.index(']]>')
+    "<![CDATA[#{data}]]>"
+  end
+  # DOCTYPE DTD declaration.
+  def doctype!( *args )
+    "<!DOCTYPE"
+  end
+  # ELEMENT DTD declaration.
+  def element!( *args )
+    '<!ELEMENT'
+  end
+  # ATTLIST DTD declaration.
+  def attlist!( *args )
+    '<!ATTLIST'
+  end
+  # ENTITY DTD declaration.
+  def entity!( *args )
+    '<!ENTITY'
+  end
+  # NOTATION DTD declaration.
+  def notation!( *args )
+    '<!NOTATION'
+  end
+end
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+  require 'test/unit'
+  class TCXMLHelper < Test::Unit::TestCase
+    def test_01
+      x = XMLHelper
+      d = x.element( :a )
+      assert_equal( "<a />", d )
+    end
+    def test_02
+      x = XMLHelper
+      d = x.element( :a, x.element( :b, "X" ) )
+      assert_equal( "<a><b>X</b></a>", d )
+    end
+    def test_03
+      x = XMLHelper
+      d = x.element( :a, x.element( :b, "X" ) + x.element( :c, "Y" ) )
+      assert_equal( "<a><b>X</b><c>Y</c></a>", d )
+    end
+  end
+=end

data/test/lib/facets/core/array/test_at_rand.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/at_rand.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_delete_unless.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/delete_unless.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_delete_values.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/delete_values.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_delete_values_at.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/delete_values_at.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_first.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/first.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_head.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/head.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_last_index.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/last_index.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_merge.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/merge.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_mid.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/mid.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_middle.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/middle.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_op_fetch.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/op_fetch.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_op_store.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/op_store.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_pick.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/pick.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_pos.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/pos.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_pot.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/pot.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_pull.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/pull.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_rand_index.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/rand_index.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #

data/test/lib/facets/core/array/test_rand_subset.rb CHANGED

@@ -6,7 +6,7 @@
 #
 # for lib/facets/core/array/rand_subset.rb
 #
-# Extracted Tue Apr 18 08:56:37 EDT 2006
+# Extracted Mon Apr 24 11:08:35 EDT 2006
 # Unit Tools Reap Test Extractor
 #