source: extensions/gsdl-video/trunk/installed/cmdline/lib/ruby/site_ruby/1.8/miyaml.rb@ 18425

# Copyright (c) 2005 Norman Timmler (inlet media e.K., Hamburg, Germany)
# All rights reserved.
# 
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
# 3. The name of the author may not be used to endorse or promote products
#    derived from this software without specific prior written permission.
# 
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

class MiYAML

  def self.dump(object, options = {})
    options = { :indent => 0, :boundaries => true }.merge( options )

    out = (options[:boundaries] ? "---\n" : '')
    out << dump_object(object, options[:indent]).strip
    out << (options[:boundaries] ? "\n...\n" : '')
    out
  end
  
  def self.dump_object(object, indent = 0)
    yaml = ''
    
    if object.class == Object
      object = object.instance_variables.inject( {} ) { |hash, var| hash[var.gsub('@', '')] = object.instance_variable_get(var); hash }
    end
    
    case object
    when Array
      object.each do |value|
         yaml << indenter(indent) << '- ' << dump_object( value, indent + 1 )
      end
    when Hash
      object.each do |key, value|
        yaml << indenter(indent) << "#{key}: " << dump_object( value, indent + 1 )
      end
    else
      yaml << object.to_s
    end
    
    return yaml
  end

  def self.indenter(indent = 0)
    "\n" << '  ' * indent
  end
end