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

facets 1.3.1 → 1.3.2

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (404) hide show

data/lib/facets/more/tuple.rb CHANGED

@@ -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
 #