psych 2.0.14-java

data/Manifest.txt

@@ -0,0 +1,114 @@
+.autotest
+.travis.yml
+CHANGELOG.rdoc
+Manifest.txt
+README.rdoc
+Rakefile
+ext/psych/depend
+ext/psych/extconf.rb
+ext/psych/psych.c
+ext/psych/psych.h
+ext/psych/psych_emitter.c
+ext/psych/psych_emitter.h
+ext/psych/psych_parser.c
+ext/psych/psych_parser.h
+ext/psych/psych_to_ruby.c
+ext/psych/psych_to_ruby.h
+ext/psych/psych_yaml_tree.c
+ext/psych/psych_yaml_tree.h
+ext/psych/yaml/LICENSE
+ext/psych/yaml/api.c
+ext/psych/yaml/config.h
+ext/psych/yaml/dumper.c
+ext/psych/yaml/emitter.c
+ext/psych/yaml/loader.c
+ext/psych/yaml/parser.c
+ext/psych/yaml/reader.c
+ext/psych/yaml/scanner.c
+ext/psych/yaml/writer.c
+ext/psych/yaml/yaml.h
+ext/psych/yaml/yaml_private.h
+lib/psych.rb
+lib/psych/class_loader.rb
+lib/psych/coder.rb
+lib/psych/core_ext.rb
+lib/psych/deprecated.rb
+lib/psych/exception.rb
+lib/psych/handler.rb
+lib/psych/handlers/document_stream.rb
+lib/psych/handlers/recorder.rb
+lib/psych/json/ruby_events.rb
+lib/psych/json/stream.rb
+lib/psych/json/tree_builder.rb
+lib/psych/json/yaml_events.rb
+lib/psych/nodes.rb
+lib/psych/nodes/alias.rb
+lib/psych/nodes/document.rb
+lib/psych/nodes/mapping.rb
+lib/psych/nodes/node.rb
+lib/psych/nodes/scalar.rb
+lib/psych/nodes/sequence.rb
+lib/psych/nodes/stream.rb
+lib/psych/omap.rb
+lib/psych/parser.rb
+lib/psych/scalar_scanner.rb
+lib/psych/set.rb
+lib/psych/stream.rb
+lib/psych/streaming.rb
+lib/psych/syntax_error.rb
+lib/psych/tree_builder.rb
+lib/psych/versions.rb
+lib/psych/visitors.rb
+lib/psych/visitors/depth_first.rb
+lib/psych/visitors/emitter.rb
+lib/psych/visitors/json_tree.rb
+lib/psych/visitors/to_ruby.rb
+lib/psych/visitors/visitor.rb
+lib/psych/visitors/yaml_tree.rb
+lib/psych/y.rb
+lib/psych_jars.rb
+test/psych/handlers/test_recorder.rb
+test/psych/helper.rb
+test/psych/json/test_stream.rb
+test/psych/nodes/test_enumerable.rb
+test/psych/test_alias_and_anchor.rb
+test/psych/test_array.rb
+test/psych/test_boolean.rb
+test/psych/test_class.rb
+test/psych/test_coder.rb
+test/psych/test_date_time.rb
+test/psych/test_deprecated.rb
+test/psych/test_document.rb
+test/psych/test_emitter.rb
+test/psych/test_encoding.rb
+test/psych/test_exception.rb
+test/psych/test_hash.rb
+test/psych/test_json_tree.rb
+test/psych/test_merge_keys.rb
+test/psych/test_nil.rb
+test/psych/test_null.rb
+test/psych/test_numeric.rb
+test/psych/test_object.rb
+test/psych/test_object_references.rb
+test/psych/test_omap.rb
+test/psych/test_parser.rb
+test/psych/test_psych.rb
+test/psych/test_safe_load.rb
+test/psych/test_scalar.rb
+test/psych/test_scalar_scanner.rb
+test/psych/test_serialize_subclasses.rb
+test/psych/test_set.rb
+test/psych/test_stream.rb
+test/psych/test_string.rb
+test/psych/test_struct.rb
+test/psych/test_symbol.rb
+test/psych/test_tainted.rb
+test/psych/test_to_yaml_properties.rb
+test/psych/test_tree_builder.rb
+test/psych/test_yaml.rb
+test/psych/test_yamldbm.rb
+test/psych/test_yamlstore.rb
+test/psych/visitors/test_depth_first.rb
+test/psych/visitors/test_emitter.rb
+test/psych/visitors/test_to_ruby.rb
+test/psych/visitors/test_yaml_tree.rb

data/README.rdoc

@@ -0,0 +1,71 @@
+= Psych
+
+* http://github.com/tenderlove/psych
+
+== Description
+
+Psych is a YAML parser and emitter.  Psych leverages libyaml[http://pyyaml.org/wiki/LibYAML]
+for its YAML parsing and emitting capabilities.  In addition to wrapping
+libyaml, Psych also knows how to serialize and de-serialize most Ruby objects
+to and from the YAML format.
+
+== Examples
+
+  # Load YAML in to a Ruby object
+  Psych.load('--- foo') # => 'foo'
+
+  # Emit YAML from a Ruby object
+  Psych.dump("foo")     # => "--- foo\n...\n"
+
+== Dependencies
+
+* libyaml
+
+== Installation
+
+Psych has been included with MRI since 1.9.2,
+and is the default YAML parser in 1.9.3.
+
+If you want a newer gem release of Psych, you can use rubygems:
+
+  gem install psych
+
+In order to use the gem release in your app,
+and not the stdlib version, you'll need the following:
+
+  gem 'psych'
+  require 'psych'
+
+Or if you use Bundler add this to your +Gemfile+:
+
+  gem 'psych'
+
+JRuby ships with a pure Java implementation of Psych.
+
+If you're on Rubinius, Psych is available in 1.9 mode, please refer to the
+Language Modes section of the {Rubinius
+README}[https://github.com/rubinius/rubinius#readme] for more information on
+building and 1.9 mode.
+
+== License
+
+Copyright 2009 Aaron Patterson, et al.
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+'Software'), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/Rakefile

@@ -0,0 +1,123 @@
+# -*- ruby -*-
+
+require 'psych'
+require 'rubygems'
+require 'hoe'
+
+def java?
+  RUBY_PLATFORM =~ /java/
+end
+
+class Hoe
+  remove_const :RUBY_FLAGS
+  flags = "-I#{%w(lib ext bin test).join(File::PATH_SEPARATOR)}"
+  flags = "--1.9 " + flags if java?
+  RUBY_FLAGS = flags
+end
+
+gem 'rake-compiler', '>= 0.4.1'
+gem 'minitest', '~> 5.0'
+require "rake/extensiontask"
+
+Hoe.plugin :doofus, :git, :gemspec
+
+$hoe = Hoe.spec 'psych' do
+  license   'MIT'
+  developer 'Aaron Patterson', 'aaron@tenderlovemaking.com'
+
+  self.extra_rdoc_files  = Dir['*.rdoc']
+  self.history_file      = 'CHANGELOG.rdoc'
+  self.readme_file       = 'README.rdoc'
+  self.testlib           = :minitest
+
+  extra_dev_deps << ['rake-compiler', '>= 0.4.1']
+  extra_dev_deps << ['minitest', '~> 5.0']
+
+  self.spec_extras = {
+    :required_ruby_version => '>= 1.9.2'
+  }
+
+  if java?
+    require './lib/psych/versions.rb'
+    extra_deps << ['jar-dependencies', '>= 0.1.7']
+
+    # the jar declaration for jar-dependencies
+    self.spec_extras[ 'requirements' ] = "jar org.yaml:snakeyaml, #{Psych::DEFAULT_SNAKEYAML_VERSION}"
+    self.spec_extras[ 'platform' ] = 'java'
+    # TODO: clean this section up.
+    require "rake/javaextensiontask"
+    Rake::JavaExtensionTask.new("psych", spec) do |ext|
+      require 'maven/ruby/maven'
+      # uses Mavenfile to write classpath into pkg/classpath
+      # and tell maven via system properties the snakeyaml version
+      # this is basically the same as running from the commandline:
+      # rmvn dependency:build-classpath -Dsnakeyaml.version='use version from Psych::DEFAULT_SNAKEYAML_VERSION here'
+      Maven::Ruby::Maven.new.exec( 'dependency:build-classpath', "-Dsnakeyaml.version=#{Psych::DEFAULT_SNAKEYAML_VERSION}", '-Dverbose=true')#, '--quiet' )
+      ext.source_version = '1.7'
+      ext.target_version = '1.7'
+      ext.classpath = File.read('pkg/classpath')
+      ext.ext_dir = 'ext/java'
+    end
+  else
+    self.spec_extras[:extensions] = ["ext/psych/extconf.rb"]
+    Rake::ExtensionTask.new "psych", spec do |ext|
+      ext.lib_dir = File.join(*['lib', ENV['FAT_DIR']].compact)
+    end
+  end
+end
+
+def gem_build_path
+  File.join 'pkg', $hoe.spec.full_name
+end
+
+def add_file_to_gem relative_path
+  target_path = File.join gem_build_path, relative_path
+  target_dir = File.dirname(target_path)
+  mkdir_p target_dir unless File.directory?(target_dir)
+  rm_f target_path
+  safe_ln relative_path, target_path
+  $hoe.spec.files.concat [relative_path]
+end
+
+if java?
+  task gem_build_path => [:compile] do
+    add_file_to_gem 'lib/psych.jar'
+  end
+end
+
+Hoe.add_include_dirs('.:lib/psych')
+
+task :test => :compile
+
+task :hack_spec do
+  $hoe.spec.extra_rdoc_files.clear
+end
+task 'core:spec' => [:hack_spec, 'gem:spec']
+
+desc "merge psych in to ruby trunk"
+namespace :merge do
+  basedir = File.expand_path File.dirname __FILE__
+  rubydir = File.join ENV['HOME'], 'git', 'ruby'
+  mergedirs = {
+    # From                          # To
+    [basedir, 'ext', 'psych/']  => [rubydir, 'ext', 'psych/'],
+    [basedir, 'lib/']           => [rubydir, 'ext', 'psych', 'lib/'],
+    [basedir, 'test', 'psych/'] => [rubydir, 'test', 'psych/'],
+  }
+
+  rsync = 'rsync -av --exclude lib --exclude ".*" --exclude "*.o" --exclude Makefile --exclude mkmf.log --delete'
+
+  task :to_ruby do
+    mergedirs.each do |from, to|
+      sh "#{rsync} #{File.join(*from)} #{File.join(*to)}"
+    end
+  end
+
+  task :from_ruby do
+    mergedirs.each do |from, to|
+      sh "#{rsync} #{File.join(*to)} #{File.join(*from)}"
+    end
+  end
+end
+
+# vim: syntax=ruby

data/ext/psych/depend

@@ -0,0 +1,3 @@
+$(OBJS): $(HDRS) $(ruby_headers) \
+  $(hdrdir)/ruby/encoding.h \
+  $(hdrdir)/ruby/oniguruma.h

data/ext/psych/extconf.rb

@@ -0,0 +1,38 @@
+# -*- coding: us-ascii -*-
+require 'mkmf'
+require 'fileutils'
+
+# :stopdoc:
+
+dir_config 'libyaml'
+
+if enable_config("bundled-libyaml", false) || !(find_header('yaml.h') && find_library('yaml', 'yaml_get_version'))
+  # Embed libyaml since we could not find it.
+
+  $VPATH << "$(srcdir)/yaml"
+  $INCFLAGS << " -I$(srcdir)/yaml"
+
+  $srcs = Dir.glob("#{$srcdir}/{,yaml/}*.c").map {|n| File.basename(n)}
+
+  if have_macro("_WIN32")
+    $CPPFLAGS << " -DYAML_DECLARE_STATIC -DHAVE_CONFIG_H"
+  end
+
+  have_header 'dlfcn.h'
+  have_header 'inttypes.h'
+  have_header 'memory.h'
+  have_header 'stdint.h'
+  have_header 'stdlib.h'
+  have_header 'strings.h'
+  have_header 'string.h'
+  have_header 'sys/stat.h'
+  have_header 'sys/types.h'
+  have_header 'unistd.h'
+
+  find_header 'yaml.h'
+  have_header 'config.h'
+end
+
+create_makefile 'psych'
+
+# :startdoc:

data/ext/psych/psych.c

@@ -0,0 +1,34 @@
+#include <psych.h>
+
+/* call-seq: Psych.libyaml_version
+ *
+ * Returns the version of libyaml being used
+ */
+static VALUE libyaml_version(VALUE module)
+{
+    int major, minor, patch;
+    VALUE list[3];
+
+    yaml_get_version(&major, &minor, &patch);
+
+    list[0] = INT2NUM((long)major);
+    list[1] = INT2NUM((long)minor);
+    list[2] = INT2NUM((long)patch);
+
+    return rb_ary_new4((long)3, list);
+}
+
+VALUE mPsych;
+
+void Init_psych(void)
+{
+    mPsych = rb_define_module("Psych");
+
+    rb_define_singleton_method(mPsych, "libyaml_version", libyaml_version, 0);
+
+    Init_psych_parser();
+    Init_psych_emitter();
+    Init_psych_to_ruby();
+    Init_psych_yaml_tree();
+}
+/* vim: set noet sws=4 sw=4: */

data/ext/psych/psych.h

@@ -0,0 +1,20 @@
+#ifndef PSYCH_H
+#define PSYCH_H
+
+#include <ruby.h>
+
+#ifdef HAVE_RUBY_ENCODING_H
+#include <ruby/encoding.h>
+#endif
+
+#include <yaml.h>
+
+#include <psych_parser.h>
+#include <psych_emitter.h>
+#include <psych_to_ruby.h>
+#include <psych_yaml_tree.h>
+
+extern VALUE mPsych;
+
+
+#endif

data/ext/psych/psych_emitter.c

@@ -0,0 +1,555 @@
+#include <psych.h>
+
+VALUE cPsychEmitter;
+static ID id_write;
+static ID id_line_width;
+static ID id_indentation;
+static ID id_canonical;
+
+static void emit(yaml_emitter_t * emitter, yaml_event_t * event)
+{
+    if(!yaml_emitter_emit(emitter, event))
+	rb_raise(rb_eRuntimeError, "%s", emitter->problem);
+}
+
+static int writer(void *ctx, unsigned char *buffer, size_t size)
+{
+    VALUE io = (VALUE)ctx;
+    VALUE str = rb_str_new((const char *)buffer, (long)size);
+    VALUE wrote = rb_funcall(io, id_write, 1, str);
+    return (int)NUM2INT(wrote);
+}
+
+static void dealloc(void * ptr)
+{
+    yaml_emitter_t * emitter;
+
+    emitter = (yaml_emitter_t *)ptr;
+    yaml_emitter_delete(emitter);
+    xfree(emitter);
+}
+
+#if 0
+static size_t memsize(const void *ptr)
+{
+    const yaml_emitter_t *emitter = ptr;
+    /* TODO: calculate emitter's size */
+    return 0;
+}
+#endif
+
+static const rb_data_type_t psych_emitter_type = {
+    "Psych/emitter",
+    {0, dealloc, 0,},
+    0, 0,
+#ifdef RUBY_TYPED_FREE_IMMEDIATELY
+    RUBY_TYPED_FREE_IMMEDIATELY,
+#endif
+};
+
+static VALUE allocate(VALUE klass)
+{
+    yaml_emitter_t * emitter;
+    VALUE obj = TypedData_Make_Struct(klass, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    yaml_emitter_initialize(emitter);
+    yaml_emitter_set_unicode(emitter, 1);
+    yaml_emitter_set_indent(emitter, 2);
+
+    return obj;
+}
+
+/* call-seq: Psych::Emitter.new(io, options = Psych::Emitter::OPTIONS)
+ *
+ * Create a new Psych::Emitter that writes to +io+.
+ */
+static VALUE initialize(int argc, VALUE *argv, VALUE self)
+{
+    yaml_emitter_t * emitter;
+    VALUE io, options;
+    VALUE line_width;
+    VALUE indent;
+    VALUE canonical;
+
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    if (rb_scan_args(argc, argv, "11", &io, &options) == 2) {
+	line_width = rb_funcall(options, id_line_width, 0);
+	indent     = rb_funcall(options, id_indentation, 0);
+	canonical  = rb_funcall(options, id_canonical, 0);
+
+	yaml_emitter_set_width(emitter, NUM2INT(line_width));
+	yaml_emitter_set_indent(emitter, NUM2INT(indent));
+	yaml_emitter_set_canonical(emitter, Qtrue == canonical ? 1 : 0);
+    }
+
+    yaml_emitter_set_output(emitter, writer, (void *)io);
+
+    return self;
+}
+
+/* call-seq: emitter.start_stream(encoding)
+ *
+ * Start a stream emission with +encoding+
+ *
+ * See Psych::Handler#start_stream
+ */
+static VALUE start_stream(VALUE self, VALUE encoding)
+{
+    yaml_emitter_t * emitter;
+    yaml_event_t event;
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+    Check_Type(encoding, T_FIXNUM);
+
+    yaml_stream_start_event_initialize(&event, (yaml_encoding_t)NUM2INT(encoding));
+
+    emit(emitter, &event);
+
+    return self;
+}
+
+/* call-seq: emitter.end_stream
+ *
+ * End a stream emission
+ *
+ * See Psych::Handler#end_stream
+ */
+static VALUE end_stream(VALUE self)
+{
+    yaml_emitter_t * emitter;
+    yaml_event_t event;
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    yaml_stream_end_event_initialize(&event);
+
+    emit(emitter, &event);
+
+    return self;
+}
+
+/* call-seq: emitter.start_document(version, tags, implicit)
+ *
+ * Start a document emission with YAML +version+, +tags+, and an +implicit+
+ * start.
+ *
+ * See Psych::Handler#start_document
+ */
+static VALUE start_document(VALUE self, VALUE version, VALUE tags, VALUE imp)
+{
+    yaml_emitter_t * emitter;
+    yaml_tag_directive_t * head = NULL;
+    yaml_tag_directive_t * tail = NULL;
+    yaml_event_t event;
+    yaml_version_directive_t version_directive;
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+
+    Check_Type(version, T_ARRAY);
+
+    if(RARRAY_LEN(version) > 0) {
+	VALUE major = rb_ary_entry(version, (long)0);
+	VALUE minor = rb_ary_entry(version, (long)1);
+
+	version_directive.major = NUM2INT(major);
+	version_directive.minor = NUM2INT(minor);
+    }
+
+    if(RTEST(tags)) {
+	int i = 0;
+#ifdef HAVE_RUBY_ENCODING_H
+	rb_encoding * encoding = rb_utf8_encoding();
+#endif
+
+	Check_Type(tags, T_ARRAY);
+
+	head  = xcalloc((size_t)RARRAY_LEN(tags), sizeof(yaml_tag_directive_t));
+	tail  = head;
+
+	for(i = 0; i < RARRAY_LEN(tags); i++) {
+	    VALUE tuple = RARRAY_PTR(tags)[i];
+	    VALUE name;
+	    VALUE value;
+
+	    Check_Type(tuple, T_ARRAY);
+
+	    if(RARRAY_LEN(tuple) < 2) {
+		xfree(head);
+		rb_raise(rb_eRuntimeError, "tag tuple must be of length 2");
+	    }
+	    name  = RARRAY_PTR(tuple)[0];
+	    value = RARRAY_PTR(tuple)[1];
+#ifdef HAVE_RUBY_ENCODING_H
+	    name = rb_str_export_to_enc(name, encoding);
+	    value = rb_str_export_to_enc(value, encoding);
+#endif
+
+	    tail->handle = (yaml_char_t *)StringValuePtr(name);
+	    tail->prefix = (yaml_char_t *)StringValuePtr(value);
+
+	    tail++;
+	}
+    }
+
+    yaml_document_start_event_initialize(
+	    &event,
+	    (RARRAY_LEN(version) > 0) ? &version_directive : NULL,
+	    head,
+	    tail,
+	    imp ? 1 : 0
+	    );
+
+    emit(emitter, &event);
+
+    if(head) xfree(head);
+
+    return self;
+}
+
+/* call-seq: emitter.end_document(implicit)
+ *
+ * End a document emission with an +implicit+ ending.
+ *
+ * See Psych::Handler#end_document
+ */
+static VALUE end_document(VALUE self, VALUE imp)
+{
+    yaml_emitter_t * emitter;
+    yaml_event_t event;
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    yaml_document_end_event_initialize(&event, imp ? 1 : 0);
+
+    emit(emitter, &event);
+
+    return self;
+}
+
+/* call-seq: emitter.scalar(value, anchor, tag, plain, quoted, style)
+ *
+ * Emit a scalar with +value+, +anchor+, +tag+, and a +plain+ or +quoted+
+ * string type with +style+.
+ *
+ * See Psych::Handler#scalar
+ */
+static VALUE scalar(
+	VALUE self,
+	VALUE value,
+	VALUE anchor,
+	VALUE tag,
+	VALUE plain,
+	VALUE quoted,
+	VALUE style
+	) {
+    yaml_emitter_t * emitter;
+    yaml_event_t event;
+#ifdef HAVE_RUBY_ENCODING_H
+    rb_encoding *encoding;
+#endif
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    Check_Type(value, T_STRING);
+
+#ifdef HAVE_RUBY_ENCODING_H
+    encoding = rb_utf8_encoding();
+
+    value = rb_str_export_to_enc(value, encoding);
+
+    if(!NIL_P(anchor)) {
+	Check_Type(anchor, T_STRING);
+	anchor = rb_str_export_to_enc(anchor, encoding);
+    }
+
+    if(!NIL_P(tag)) {
+	Check_Type(tag, T_STRING);
+	tag = rb_str_export_to_enc(tag, encoding);
+    }
+#endif
+
+    yaml_scalar_event_initialize(
+	    &event,
+	    (yaml_char_t *)(NIL_P(anchor) ? NULL : StringValuePtr(anchor)),
+	    (yaml_char_t *)(NIL_P(tag) ? NULL : StringValuePtr(tag)),
+	    (yaml_char_t*)StringValuePtr(value),
+	    (int)RSTRING_LEN(value),
+	    plain ? 1 : 0,
+	    quoted ? 1 : 0,
+	    (yaml_scalar_style_t)NUM2INT(style)
+	    );
+
+    emit(emitter, &event);
+
+    return self;
+}
+
+/* call-seq: emitter.start_sequence(anchor, tag, implicit, style)
+ *
+ * Start emitting a sequence with +anchor+, a +tag+, +implicit+ sequence
+ * start and end, along with +style+.
+ *
+ * See Psych::Handler#start_sequence
+ */
+static VALUE start_sequence(
+	VALUE self,
+	VALUE anchor,
+	VALUE tag,
+	VALUE implicit,
+	VALUE style
+	) {
+    yaml_emitter_t * emitter;
+    yaml_event_t event;
+
+#ifdef HAVE_RUBY_ENCODING_H
+    rb_encoding * encoding = rb_utf8_encoding();
+
+    if(!NIL_P(anchor)) {
+	Check_Type(anchor, T_STRING);
+	anchor = rb_str_export_to_enc(anchor, encoding);
+    }
+
+    if(!NIL_P(tag)) {
+	Check_Type(tag, T_STRING);
+	tag = rb_str_export_to_enc(tag, encoding);
+    }
+#endif
+
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    yaml_sequence_start_event_initialize(
+	    &event,
+	    (yaml_char_t *)(NIL_P(anchor) ? NULL : StringValuePtr(anchor)),
+	    (yaml_char_t *)(NIL_P(tag) ? NULL : StringValuePtr(tag)),
+	    implicit ? 1 : 0,
+	    (yaml_sequence_style_t)NUM2INT(style)
+	    );
+
+    emit(emitter, &event);
+
+    return self;
+}
+
+/* call-seq: emitter.end_sequence
+ *
+ * End sequence emission.
+ *
+ * See Psych::Handler#end_sequence
+ */
+static VALUE end_sequence(VALUE self)
+{
+    yaml_emitter_t * emitter;
+    yaml_event_t event;
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    yaml_sequence_end_event_initialize(&event);
+
+    emit(emitter, &event);
+
+    return self;
+}
+
+/* call-seq: emitter.start_mapping(anchor, tag, implicit, style)
+ *
+ * Start emitting a YAML map with +anchor+, +tag+, an +implicit+ start
+ * and end, and +style+.
+ *
+ * See Psych::Handler#start_mapping
+ */
+static VALUE start_mapping(
+	VALUE self,
+	VALUE anchor,
+	VALUE tag,
+	VALUE implicit,
+	VALUE style
+	) {
+    yaml_emitter_t * emitter;
+    yaml_event_t event;
+#ifdef HAVE_RUBY_ENCODING_H
+    rb_encoding *encoding;
+#endif
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+#ifdef HAVE_RUBY_ENCODING_H
+    encoding = rb_utf8_encoding();
+
+    if(!NIL_P(anchor)) {
+	Check_Type(anchor, T_STRING);
+	anchor = rb_str_export_to_enc(anchor, encoding);
+    }
+
+    if(!NIL_P(tag)) {
+	Check_Type(tag, T_STRING);
+	tag = rb_str_export_to_enc(tag, encoding);
+    }
+#endif
+
+    yaml_mapping_start_event_initialize(
+	    &event,
+	    (yaml_char_t *)(NIL_P(anchor) ? NULL : StringValuePtr(anchor)),
+	    (yaml_char_t *)(NIL_P(tag) ? NULL : StringValuePtr(tag)),
+	    implicit ? 1 : 0,
+	    (yaml_mapping_style_t)NUM2INT(style)
+	    );
+
+    emit(emitter, &event);
+
+    return self;
+}
+
+/* call-seq: emitter.end_mapping
+ *
+ * Emit the end of a mapping.
+ *
+ * See Psych::Handler#end_mapping
+ */
+static VALUE end_mapping(VALUE self)
+{
+    yaml_emitter_t * emitter;
+    yaml_event_t event;
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    yaml_mapping_end_event_initialize(&event);
+
+    emit(emitter, &event);
+
+    return self;
+}
+
+/* call-seq: emitter.alias(anchor)
+ *
+ * Emit an alias with +anchor+.
+ *
+ * See Psych::Handler#alias
+ */
+static VALUE alias(VALUE self, VALUE anchor)
+{
+    yaml_emitter_t * emitter;
+    yaml_event_t event;
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+#ifdef HAVE_RUBY_ENCODING_H
+    if(!NIL_P(anchor)) {
+	Check_Type(anchor, T_STRING);
+	anchor = rb_str_export_to_enc(anchor, rb_utf8_encoding());
+    }
+#endif
+
+    yaml_alias_event_initialize(
+	    &event,
+	    (yaml_char_t *)(NIL_P(anchor) ? NULL : StringValuePtr(anchor))
+	    );
+
+    emit(emitter, &event);
+
+    return self;
+}
+
+/* call-seq: emitter.canonical = true
+ *
+ * Set the output style to canonical, or not.
+ */
+static VALUE set_canonical(VALUE self, VALUE style)
+{
+    yaml_emitter_t * emitter;
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    yaml_emitter_set_canonical(emitter, Qtrue == style ? 1 : 0);
+
+    return style;
+}
+
+/* call-seq: emitter.canonical
+ *
+ * Get the output style, canonical or not.
+ */
+static VALUE canonical(VALUE self)
+{
+    yaml_emitter_t * emitter;
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    return (emitter->canonical == 0) ? Qfalse : Qtrue;
+}
+
+/* call-seq: emitter.indentation = level
+ *
+ * Set the indentation level to +level+.  The level must be less than 10 and
+ * greater than 1.
+ */
+static VALUE set_indentation(VALUE self, VALUE level)
+{
+    yaml_emitter_t * emitter;
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    yaml_emitter_set_indent(emitter, NUM2INT(level));
+
+    return level;
+}
+
+/* call-seq: emitter.indentation
+ *
+ * Get the indentation level.
+ */
+static VALUE indentation(VALUE self)
+{
+    yaml_emitter_t * emitter;
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    return INT2NUM(emitter->best_indent);
+}
+
+/* call-seq: emitter.line_width
+ *
+ * Get the preferred line width.
+ */
+static VALUE line_width(VALUE self)
+{
+    yaml_emitter_t * emitter;
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    return INT2NUM(emitter->best_width);
+}
+
+/* call-seq: emitter.line_width = width
+ *
+ * Set the preferred line with to +width+.
+ */
+static VALUE set_line_width(VALUE self, VALUE width)
+{
+    yaml_emitter_t * emitter;
+    TypedData_Get_Struct(self, yaml_emitter_t, &psych_emitter_type, emitter);
+
+    yaml_emitter_set_width(emitter, NUM2INT(width));
+
+    return width;
+}
+
+void Init_psych_emitter(void)
+{
+    VALUE psych     = rb_define_module("Psych");
+    VALUE handler   = rb_define_class_under(psych, "Handler", rb_cObject);
+    cPsychEmitter   = rb_define_class_under(psych, "Emitter", handler);
+
+    rb_define_alloc_func(cPsychEmitter, allocate);
+
+    rb_define_method(cPsychEmitter, "initialize", initialize, -1);
+    rb_define_method(cPsychEmitter, "start_stream", start_stream, 1);
+    rb_define_method(cPsychEmitter, "end_stream", end_stream, 0);
+    rb_define_method(cPsychEmitter, "start_document", start_document, 3);
+    rb_define_method(cPsychEmitter, "end_document", end_document, 1);
+    rb_define_method(cPsychEmitter, "scalar", scalar, 6);
+    rb_define_method(cPsychEmitter, "start_sequence", start_sequence, 4);
+    rb_define_method(cPsychEmitter, "end_sequence", end_sequence, 0);
+    rb_define_method(cPsychEmitter, "start_mapping", start_mapping, 4);
+    rb_define_method(cPsychEmitter, "end_mapping", end_mapping, 0);
+    rb_define_method(cPsychEmitter, "alias", alias, 1);
+    rb_define_method(cPsychEmitter, "canonical", canonical, 0);
+    rb_define_method(cPsychEmitter, "canonical=", set_canonical, 1);
+    rb_define_method(cPsychEmitter, "indentation", indentation, 0);
+    rb_define_method(cPsychEmitter, "indentation=", set_indentation, 1);
+    rb_define_method(cPsychEmitter, "line_width", line_width, 0);
+    rb_define_method(cPsychEmitter, "line_width=", set_line_width, 1);
+
+    id_write       = rb_intern("write");
+    id_line_width  = rb_intern("line_width");
+    id_indentation = rb_intern("indentation");
+    id_canonical   = rb_intern("canonical");
+}
+/* vim: set noet sws=4 sw=4: */