og 0.7.0 → 0.8.0

data/vendor/extensions/string.rb

@@ -0,0 +1,316 @@
+#!/usr/local/bin/ruby -w
+
+#
+# == extensions/string.rb
+#
+# Adds methods to the builtin String class.
+#
+
+require "extensions/_base"
+
+
+ExtensionsProject.implement(String, :leftmost_indent) do
+  class String
+    #
+    # Returns the size of the smallest indent of any line in the string.
+    # Emits a warning if tabs are found, and if <tt>$VERBOSE</tt> is on.
+    # You can use #expand_tabs to avoid this.  This method is primarily intended
+    # for use by #tabto and is not likely to be all that useful in its own
+    # right.
+    #
+    def leftmost_indent
+      tabs_found = false
+      scan(/^([ \t]*)\S/).flatten.map { |ws|
+        tabs_found = true if ws =~ /\t/
+        ws.size
+      }.compact.min
+    ensure
+      if tabs_found and $VERBOSE
+        $stderr.puts %{
+String#leftmost_indent: warning: tabs treated as spaces
+  (value: #{self.inspect[0..30]}...")
+          }.strip
+      end
+    end
+    protected :leftmost_indent
+  end
+end
+
+
+ExtensionsProject.implement(String, :expand_tabs) do
+  class String
+    #
+    # Expands tabs to +n+ spaces.  Non-destructive.  If +n+ is 0, then tabs are
+    # simply removed.  Raises an exception if +n+ is negative.
+    #
+    #--
+    # Thanks to GGaramuno for a more efficient algorithm.  Very nice.
+    def expand_tabs(n=8)
+      n = n.to_int
+      raise ArgumentError, "n must be >= 0" if n < 0
+      return gsub(/\t/, "") if n == 0
+      return gsub(/\t/, " ") if n == 1
+      str = self.dup
+      while
+        str.gsub!(/^([^\t\n]*)(\t+)/) { |f|
+          val = ( n * $2.size - ($1.size % n) )
+          $1 << (' ' * val)
+        }
+      end
+      str
+    end
+  end
+end
+
+
+ExtensionsProject.implement(String, :indent) do
+  class String
+    #
+    # Indents the string +n+ spaces.
+    #
+    def indent(n)
+      n = n.to_int
+      return outdent(-n) if n < 0
+      gsub(/^/, " "*n)
+    end
+  end
+end
+
+
+ExtensionsProject.implement(String, :outdent) do
+  class String
+    #
+    # Outdents the string +n+ spaces.  Initial tabs will cause problems and
+    # cause a warning to be emitted (if warnings are on).  Relative indendation
+    # is always preserved.  Once the block hits the beginning of the line,
+    # that's it.  In the following example, <tt>.</tt> represents space from the
+    # beginning of the line.
+    #
+    #   str = %{
+    #   ..One
+    #   ....Two
+    #   }.outdent(4)
+    #
+    # is
+    #
+    #   One
+    #   ..Two
+    #
+    def outdent(n)
+      n = n.to_int
+      return indent(-n) if n < 0
+      tabto(leftmost_indent - n)
+    end
+  end
+end
+
+
+ExtensionsProject.implement(String, :tabto) do
+  class String
+    #
+    # Move the string to the <tt>n</tt>th column.  Relative indentation is preserved.
+    # Column indices begin at 0, so the result is that the leftmost character of
+    # the string has +n+ spaces before it.
+    #
+    # Examples:
+    #   "xyz".tabto(0)           # -> "xyz"
+    #   "xyz".tabto(1)           # -> " xyz"
+    #   "xyz".tabto(2)           # -> "  xyz"
+    #   "   xyz".tabto(1)        # -> " xyz"
+    #
+    #   str = <<EOF
+    #       Hello, my name
+    #     is Gerald.
+    #   EOF
+    #   str.tabto(5) == <<EOF    # -> true
+    #          Hello, my name
+    #        is Gerald.
+    #   EOF
+    #
+    def tabto(n)
+      n = n.to_int
+      n = 0 if n < 0
+      find = " " * leftmost_indent()
+      replace = " " * (n)
+      gsub(/^#{find}/, replace)
+    end
+  end
+end
+
+
+ExtensionsProject.implement(String, :taballto) do
+  class String
+    #
+    # Tabs all lines in the string to column +n+.  That is, relative indentation
+    # is _not_ preserved.
+    #
+    def taballto(n)
+      n = n.to_int
+      n = 0 if n < 0
+      gsub(/^[ \t]*/, " "*n)
+    end
+  end
+end
+
+
+ExtensionsProject.implement(String, :trim) do
+  class String
+    #
+    # Trims a string:
+    # - removes one initial blank line
+    # - removes trailing spaces on each line
+    # - if +margin+ is given, removes initial spaces up to and including
+    #   the margin on each line, plus one space
+    #
+    # This is designed specifically for working with inline documents.
+    # Here-documents are great, except they tend to go against the indentation
+    # of your code.  This method allows a convenient way of using %{}-style
+    # documents.  For instance:
+    #
+    #   USAGE = %{
+    #     | usage: prog [-o dir] -h file...
+    #     |   where
+    #     |     -o dir         outputs to DIR
+    #     |     -h             prints this message
+    #   }.trim("|")
+    #
+    #   # USAGE == "usage: prog [-o dir] -h file...\n  where"...
+    #   # (note single space to right of margin is deleted)
+    #
+    # Note carefully that if no margin string is given, then there is no
+    # clipping at the beginning of each line and your string will remain
+    # indented.  You can use <tt>tabto(0)</tt> to align it with the left of
+    # screen (while preserving relative indentation).
+    #
+    #   USAGE = %{
+    #     usage: prog [-o dir] -h file...
+    #       where
+    #         -o dir         outputs to DIR
+    #         -h             prints this message
+    #   }.trim.tabto(0)
+    #
+    #   # USAGE == (same as last example)
+    #
+    def trim(margin=nil)
+      s = self.dup
+      # Remove initial blank line.
+      s.sub!(/\A[ \t]*\n/, "")
+      # Get rid of the margin, if it's specified.
+      unless margin.nil?
+        margin_re = Regexp.escape(margin || "")
+        margin_re = /^[ \t]*#{margin_re} ?/
+        s.gsub!(margin_re, "")
+      end
+      # Remove trailing whitespace on each line
+      s.gsub!(/[ \t]+$/, "")
+      s
+    end
+  end
+end
+
+
+ExtensionsProject.implement(String, :starts_with?) do
+  class String
+    #
+    # Returns true iff this string starts with +str+.
+    #    "Hello, world".starts_with?("He")         # -> true
+    #    "Hello, world".starts_with?("Green")      # -> false
+    #
+    def starts_with?(str)
+      str = str.to_str
+      head = self[0, str.length]
+      head == str
+    end
+  end
+end
+
+
+ExtensionsProject.implement(String, :ends_with?) do
+  class String
+    #
+    # Returns true iff this string ends with +str+.
+    #    "Hello, world".ends_with?(", world")    # -> true
+    #    "Hello, world".ends_with?("Green")      # -> false
+    #
+    def ends_with?(str)
+      str = str.to_str
+      tail = self[-str.length, str.length]
+      tail == str      
+    end
+  end
+end
+
+
+ExtensionsProject.implement(String, :line) do
+  class String
+    #
+    # Returns a line or lines from the string.  +args+ can be a single integer,
+    # two integers or a range, as per <tt>Array#slice</tt>.  The return value is
+    # a single String (a single line), an array of Strings (multiple lines) or
+    # +nil+ (out of bounds).  Note that lines themselves do not contain a
+    # trailing newline character; that is metadata.  Indexes out of bounds are
+    # ignored.
+    #
+    #   data = " one \n two \n three \n four \n five \n"
+    #   data.line(1)              # -> " two "
+    #   data.line(0,1)            # -> [" one "]
+    #   data.line(3..9)           # -> [" four ", " five "]
+    #   data.line(9)              # -> nil
+    #
+    def line(*args)
+      self.split(/\n/).slice(*args)
+    rescue TypeError
+      raise TypeError,
+        "String#line(*args): args must be one Integer, two Integers or a Range"
+    rescue ArgumentError
+      raise ArgumentError,
+        "String#line(*args): args must be one Integer, two Integers or a Range"
+    end
+  end
+end
+
+
+ExtensionsProject.implement(String, :cmp) do
+  class String
+    #
+    # Compare this string to +other+, returning the first index at which they
+    # differ, or +nil+ if they are equal.
+    #
+    #   "practise".cmp("practice")    # -> 6
+    #   "noun".cmp("nouns")           # -> 5 (and vice versa) 
+    #   "fly".cmp("fly")              # -> nil 
+    #
+    def cmp(other)
+      other = other.to_str
+      if self == other
+        return nil
+      else
+        n = [self.size, other.size].min
+        (0..n).each do |i|
+          return i unless self[i] == other[i]
+        end
+      end
+    end
+  end
+end
+
+
+ExtensionsProject.implement(String, :join) do
+  class String
+    #
+    # Join all the lines of the string together, and compress spaces.  The resulting string
+    # will have no surrounding whitespace.
+    #
+    #   text = %{
+    #     Once upon a time,
+    #          Little Red Riding Hood ...
+    #
+    #   }
+    #
+    #   text.join   # -> "Once upon a time, Little Red Riding Hood ..."
+    #
+    def join
+      gsub(/([ \t]*\n[ \t]*)+/, ' ').strip
+    end
+  end
+end

data/vendor/extensions/symbol.rb

@@ -0,0 +1,28 @@
+#!/usr/local/bin/ruby -w
+#
+# == extensions/symbol.rb
+#
+# Adds methods to the builtin Symbol class. 
+#
+
+require "extensions/_base"
+
+
+#
+# * Symbol#to_proc
+#
+ExtensionsProject.implement(Symbol, :to_proc) do
+  class Symbol
+    #
+    # Allows a Symbol to be implicitly converted to a Proc.
+    #
+    # This allows such conveniences as:
+    #   %{john terry fiona}.map(&:capitalize)   # -> %{John Terry Fiona}
+    #   sum = numbers.inject(&:+)
+    #
+    def to_proc
+      proc { |obj, *args| obj.send(self, *args) }
+    end
+  end
+end
+

metadata

@@ -1,10 +1,10 @@
 --- !ruby/object:Gem::Specification 
-rubygems_version: 0.8.3
+rubygems_version: 0.8.4
 specification_version: 1
 name: og
 version: !ruby/object:Gem::Version 
-  version: 0.7.0
-date: 2004-12-27
+  version: 0.8.0
+date: 2005-01-12
 summary: Og (ObjectGraph)
 require_paths: 
   - lib
@@ -34,6 +34,7 @@ files:
   - Rakefile
   - ChangeLog.1
   - ChangeLog
+  - examples/og/mysql_to_psql.rb
   - examples/og/run.rb
   - examples/og/mock_example.rb
   - examples/og/README
@@ -46,13 +47,15 @@ files:
   - lib/glue/number.rb
   - lib/glue/time.rb
   - lib/glue/property.rb
-  - lib/glue/property.rb.old
   - lib/glue/macro.rb
   - lib/glue/cache.rb
   - lib/glue/string.rb
   - lib/glue/array.rb
+  - lib/glue/validation.rb
+  - lib/glue/attribute.rb
   - lib/og/backends
   - lib/og/version.rb
+  - lib/og/enchant.rb
   - lib/og/connection.rb
   - lib/og/mock.rb
   - lib/og/meta.rb
@@ -62,6 +65,23 @@ files:
   - lib/og.rb
   - test/tc_og.rb
   - test/og/tc_lifecycle.rb
+  - vendor/extensions/enumerable.rb
+  - vendor/extensions/all.rb
+  - vendor/extensions/hash.rb
+  - vendor/extensions/continuation.rb
+  - vendor/extensions/module.rb
+  - vendor/extensions/binding.rb
+  - vendor/extensions/ostruct.rb
+  - vendor/extensions/kernel.rb
+  - vendor/extensions/class.rb
+  - vendor/extensions/numeric.rb
+  - vendor/extensions/_base.rb
+  - vendor/extensions/io.rb
+  - vendor/extensions/string.rb
+  - vendor/extensions/object.rb
+  - vendor/extensions/array.rb
+  - vendor/extensions/symbol.rb
+  - vendor/extensions/_template.rb
 test_files: []
 rdoc_options: 
   - "--main"

data/lib/glue/property.rb.old

@@ -1,307 +0,0 @@
-# code:
-# * George Moschovitis  <gm@navel.gr>
-# design:
-# * Anastastios Koutoumanos  <ak@navel.gr>
-# * Elias Karakoulakis  <ekarak@ktismata.com>
-#
-# (c) 2004 Navel, all rights reserved.
-# $Id: property.rb 185 2004-12-10 13:29:09Z gmosx $
-
-require "glue/array"
-require "glue/hash"
-
-module G
-
-# = Property
-#
-# Ruby attributes are typeless and generally this is good. Some times
-# we need extra metadata though, for example in relational mapping,
-# or web form population.
-#
-# Only Fixnums, Strings, Floats, Times, Booleans are converted.
-#
-# The default = methods do not force the  types. A special 
-# __force_set method should be used instead.
-#
-#--
-# TODO:
-# Inject only the really needd methods into Module.
-# Perhaps a sync is needed in evals (!!!!)
-#++
-#
-class Property
-	# the symbol of the property
-	attr_accessor :symbol
-	# the string representation of the symbol
-	attr_accessor :name
-	# the class of the property
-	attr_accessor :klass
-	# additional metadata (like sql declaratio, sql index, etc)
-	attr_accessor :meta
-	
-	def initialize(symbol, klass, meta = {})
-		@symbol, @klass = symbol, klass
-		@meta = meta
-		@name = @symbol.to_s()
-	end
-	
-	def ==(other)
-		return @symbol == other.symbol
-	end
-	
-	def to_s
-		return name
-	end
-end
-
-end # module
-
-class Module
-
-	# Define a property (== typed attribute)
-	# This works like Ruby's standard attr method, ie creates
-	# only one property. 
-	#
-	# Use the prop_reader, prop_writer, prop_accessor methods 
-	# for multiple properties.
-	#
-	# Examples:
-	#	prop String, :name, :sql => "char(32), :sql_index => "name(32)"
-	# --> creates only writer.
-	# prop Fixnum, :oid, writer = true, :sql => "integer PRIMARY KEY"
-	#	--> creates reader and writer.
-	# 
-	def prop(*params)
-		meta = {}
-		klass = Object
-		
-		for param in params
-			if param.is_a?(Class)
-				klass = param
-			elsif param.is_a?(Symbol)
-				symbol = param
-			elsif param.is_a?(TrueClass) or param.is_a?(TrueClass) 
-				writer = param
-			elsif param.is_a?(Hash)
-				# the meta hash.
-				meta = param
-			else
-				raise "Error when defining property!"
-			end
-		end
-
-		unless self.methods.include?(:__props)
-			eval %{
-				# Properties
-				# An array is used to enforce order.
-				def __props
-					@__props
-				end
-
-				def __props=(props)
-					@__props = props
-				end
-				
-				def __meta
-					@__meta
-				end
-
-				def __meta=(meta)
-					@__meta = meta
-				end				
-			}
-		end
-
-		@__props = G::SafeArray.new() unless @__props
-				
-		property = G::Property.new(symbol, klass, meta)
-		
-		reader = meta[:reader] || true
-		writer = writer || meta[:writer] || false
-		
-		__add_prop(property, reader, writer)
-	end
-
-	# Helper method. Accepts a collection of symbols and generates
-	# properties. Only generates reader.
-	#
-	# Example:
-	#	prop_reader String, :name, :title, :body, :sql => "char(32)"
-	#
-	def prop_reader(*params)
-		meta = {}
-		klass = Object
-		symbols = []
-
-		for param in params
-			if param.is_a?(Class)
-				klass = param
-			elsif param.is_a?(Symbol)
-				symbols << param
-			elsif param.is_a?(Hash)
-				# the meta hash.
-				meta = param
-			else
-				raise "Error when defining property!"
-			end
-		end
-		
-		meta[:reader] = true
-		meta[:writer] = false
-		
-		for symbol in symbols
-			prop(klass, symbol, meta)
-		end
-	end
-
-	# Helper method. Accepts a collection of symbols and generates
-	# properties. Only generates writer.
-	#
-	# Example:
-	#	prop_writer String, :name, :title, :body, :sql => "char(32)"
-	#
-	def prop_writer(*params)
-		meta = {}
-		klass = Object
-		symbols = []
-
-		for param in params
-			if param.is_a?(Class)
-				klass = param
-			elsif param.is_a?(Symbol)
-				symbols << param
-			elsif param.is_a?(Hash)
-				# the meta hash.
-				meta = param
-			else
-				raise "Error when defining property!"
-			end
-		end
-		
-		meta[:reader] = false
-		meta[:writer] = true
-		
-		for symbol in symbols
-			prop(klass, symbol, meta)
-		end
-	end
-
-	# Helper method. Accepts a collection of symbols and generates
-	# properties. Generates reader and writer.
-	#
-	# Example:
-	#	prop_accessor String, :name, :title, :body, :sql => "char(32)"
-	#
-	def prop_accessor(*params)
-		meta = {}
-		klass = Object
-		symbols = []
-
-		for param in params
-			if param.is_a?(Class)
-				klass = param
-			elsif param.is_a?(Symbol)
-				symbols << param
-			elsif param.is_a?(Hash)
-				# the meta hash.
-				meta = param
-			else
-				raise "Error when defining property!"
-			end
-		end
-		
-		meta[:reader] = true
-		meta[:writer] = true
-		
-		for symbol in symbols
-			prop(klass, symbol, meta)
-		end
-	end
-	
-	# Add the property
-	#
-	def __add_prop(prop, reader = true, writer = true)
-		if idx = @__props.index(prop)
-			# override in case of duplicates. Keep the order of the props.
-			@__props[idx] = prop
-		else
-			@__props << prop
-		end
-		
-		# Precompile the property read/write methods
-
-		s, klass = prop.symbol, prop.klass 
-
-		if reader		
-			module_eval %{
-				def #{s}
-					return @#{s}
-				end
-			}
-		end
-			
-		# gmosx: __force_xxx reuses xxx= to allow for easier
-		# overrides.
-		if writer 
-			module_eval %{
-				def #{s}=(val)
-					@#{s} = val
-				end
-				
-				def __force_#{s}(val)
-						self.#{s}=(} + case klass.name
-													when Fixnum.name
-														"val.to_i()"
-													when String.name
-														"val.to_s()"
-													when Float.name
-														"val.to_f()"
-													when Time.name
-														"Time.parse(val.to_s())"
-													when TrueClass.name, FalseClass.name
-														"val.to_i() > 0"
-													else
-														"val"
-												end + %{) 
-				end
-			}
-		end
-	end
-	
-	# Attach metadata 
-	#
-	def meta(key, val)
-		@__meta = G::SafeHash.new unless @__meta
-
-		@__meta[key] = [] unless @__meta[key]
-
-		# guard against duplicates, no need to keep order.
-		@__meta[key].delete_if { |v| val == v }
-		@__meta[key] << val			
-	end
-	
-	# This method is typically called before including other
-	# modules to preserve properties order. 
-	#
-	def inherit_meta(mod = superclass)
-		# concat props.
-		if mod.__props
-			@__props = G::SafeArray.new unless @__props
-			
-			mod.__props.each { |p|
-				__add_prop(p)
-			} 
-		end
-
-		# concat metadata
-		if mod.__meta
-			mod.__meta.each { |k, val|
-				val.each { |v|
-					meta(k, v)
-				} if val
-			}
-		end
-	end
-	
-end
-