RFC7159 7159

data/RFC7159.gemspec

@@ -0,0 +1,85 @@
+#! /your/favourite/path/to/gem
+# -*- coding: utf-8 -*-
+
+# Copyright (c) 2014 Urabe, Shyouhei.  All rights reserved.
+#
+# Redistribution  and  use  in  source   and  binary  forms,  with  or  without
+# modification, are  permitted provided that the following  conditions are met:
+#
+#     - Redistributions  of source  code must  retain the  above copyright
+#       notice, this list of conditions and the following disclaimer.
+#
+#     - 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.
+#
+#     - Neither the name of Internet  Society, IETF or IETF Trust, nor the
+#       names of specific contributors, may  be used to endorse or promote
+#       products derived from this software without specific prior written
+#       permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS “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 COPYRIGHT  OWNER OR  CONTRIBUTORS 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.
+
+# coding: utf-8
+
+require_relative 'lib/RFC7159/version'
+
+Gem::Specification.new do |spec|
+	spec.name          = 'RFC7159'
+	spec.version       = RFC7159::VERSION
+	spec.authors       = %w'Urabe, Shyouhei'
+	spec.email         = %w'shyouhei@ruby-lang.org'
+	spec.summary       = 'RFC7159 parser / generator'
+	spec.description   = <<-'end'.gsub /\n\s*/, ''
+		A  JSON  parser/generator  that  conforms  (I believe)  to  RFC7159  "The
+		JavaScript Object Notation (JSON)  Data Interchange Format".  That RFC is
+		very  different to  its predecessor  RFC4627, when  it comes  to parsing.
+		This gem honors the updated syntax as possible.  The generator guarantees
+		that  a  parsed  valid  properly  rounds-trip  to  identical  valid  JSON
+		representation.
+	end
+	spec.homepage      = 'http://github.com/shyouhei/RFC7159'
+	spec.license       = "Simplified BSD License" # consult LICENSE.txt
+
+	spec.files         = `git ls-files -z`.split("\x0") + %w'lib/RFC7159/parser.rb'
+	spec.executables   = %w''
+	spec.test_files    = spec.files.grep(%r{^spec/})
+	spec.require_paths = %w'lib'
+
+	spec.required_ruby_version = '~> 2.1' # String#scrub used
+	spec.add_development_dependency 'bundler',   '~> 1.5'
+	spec.add_development_dependency 'rake',      '~> 10.1'
+	spec.add_development_dependency 'rdoc',      '~> 4.0'
+	spec.add_development_dependency 'yard',      '~> 0.8'
+	spec.add_development_dependency 'rspec',     '~> 2.14'
+	spec.add_development_dependency 'simplecov', '>= 0'
+	spec.add_development_dependency 'racc',      '~> 1.4.11'
+	# racc runtime is inside ruby's stdlib so no runtime dependency.
+
+	# below are only for comparisons
+	spec.add_development_dependency 'json'      # 1.8.1 tested
+	spec.add_development_dependency 'yajl-ruby' # 1.2.0 tested
+	spec.add_development_dependency 'oj'        # 2.6.1 tested
+end
+
+# 
+# Local Variables:
+# mode: ruby
+# coding: utf-8-unix
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# fill-column: 79
+# default-justification: full
+# End:

data/Rakefile

@@ -0,0 +1,82 @@
+#! /your/favourite/path/to/rake
+# -*- coding: utf-8 -*-
+
+# Copyright (c) 2014 Urabe, Shyouhei.  All rights reserved.
+#
+# Redistribution  and  use  in  source   and  binary  forms,  with  or  without
+# modification, are  permitted provided that the following  conditions are met:
+#
+#     - Redistributions  of source  code must  retain the  above copyright
+#       notice, this list of conditions and the following disclaimer.
+#
+#     - 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.
+#
+#     - Neither the name of Internet  Society, IETF or IETF Trust, nor the
+#       names of specific contributors, may  be used to endorse or promote
+#       products derived from this software without specific prior written
+#       permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS “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 COPYRIGHT  OWNER OR  CONTRIBUTORS 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.
+
+require 'rubygems'
+require 'bundler'
+require 'rake'
+require "bundler/gem_tasks"
+begin
+	Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+	$stderr.puts e.message
+	$stderr.puts "Run `bundle install` to install missing gems"
+	exit e.status_code
+end
+
+require 'rspec/core'
+require 'rspec/core/rake_task'
+RSpec::Core::RakeTask.new(:spec) do |spec|
+	spec.pattern = FileList['spec/**/*_spec.rb']
+end
+
+require 'yard'
+YARD::Rake::YardocTask.new
+
+task yard:  'lib/RFC7159/parser.rb'
+task rdoc:  'lib/RFC7159/parser.rb'
+task build: 'lib/RFC7159/parser.rb'
+file 'lib/RFC7159/parser.rb' => %w'lib/RFC7159/parser.ry' do |t|
+	sh "bundle exec racc --debug --output-file=#{t.name} #{t.prerequisites.first}"
+end
+
+desc "a la rails console"
+task :console do
+	require_relative 'lib/RFC7159'
+	require 'irb'
+	require 'irb/completion'
+	ARGV.clear
+	IRB.start
+end
+
+task default: :spec
+
+# 
+# Local Variables:
+# mode: ruby
+# coding: utf-8-unix
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# fill-column: 79
+# default-justification: full
+# End:

data/lib/RFC7159.rb

@@ -0,0 +1,80 @@
+#! /your/favourite/path/to/ruby
+# -*- coding: utf-8 -*-
+
+# Copyright (c) 2014 Urabe, Shyouhei.  All rights reserved.
+#
+# Redistribution  and  use  in  source   and  binary  forms,  with  or  without
+# modification, are  permitted provided that the following  conditions are met:
+#
+#     - Redistributions  of source  code must  retain the  above copyright
+#       notice, this list of conditions and the following disclaimer.
+#
+#     - 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.
+#
+#     - Neither the name of Internet  Society, IETF or IETF Trust, nor the
+#       names of specific contributors, may  be used to endorse or promote
+#       products derived from this software without specific prior written
+#       permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS “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 COPYRIGHT  OWNER OR  CONTRIBUTORS 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.
+
+require_relative 'RFC7159/parser'
+require_relative 'RFC7159/value'
+require_relative 'RFC7159/dumper'
+
+# This is a RFC7159-conforming JSON parser/generator.
+module RFC7159
+	# This is our Marshal.load -compat API
+	# @param  [::String, IO]  str             The input
+	# @param  [true, false]   plain           Output to be plain-old ruby object, or not.
+	# @return [::Object]                      Evaluated plain-old ruby object
+	# @return [RFC7159::Value]                Evaluated JSON value object
+	# @raise  [Racc::ParseError]              The input is invalid
+	# @raise  [Encoding::CompatibilityError]  The input is invalid
+	def self.load str, plain: false
+		ast = RFC7159::Parser.new.parse str
+		obj = RFC7159::Value.from_ast ast
+		if plain
+			return obj.plain_old_ruby_object
+		else
+			return obj
+		end
+	end
+
+	# This is our Marshal.dump -compat API
+	# @param  [::Object]  obj   The input (should be JSONable)
+	# @param  [IO]        port  IO port to dump obj into
+	# @return [::String]        Dumped valid JSON text representation
+	# @return [port]            Indicates the output went to the port.
+	# @raise  [TypeEeepe]       obj not JSONable
+	# @raise  [Errno::ELOOP]    Cyclic relation(s) detected
+	def self.dump obj, port: ''.encode(Encoding::UTF_8)
+		bag = RFC7159::Dumper.new port
+		bag.start_dump obj
+		return port
+	end
+end
+
+# 
+# Local Variables:
+# mode: ruby
+# coding: utf-8-unix
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# fill-column: 79
+# default-justification: full
+# End:

data/lib/RFC7159/array.rb

@@ -0,0 +1,134 @@
+#! /your/favourite/path/to/ruby
+# -*- coding: utf-8 -*-
+
+# Copyright (c) 2014 Urabe, Shyouhei.  All rights reserved.
+#
+# Redistribution  and  use  in  source   and  binary  forms,  with  or  without
+# modification, are  permitted provided that the following  conditions are met:
+#
+#     - Redistributions  of source  code must  retain the  above copyright
+#       notice, this list of conditions and the following disclaimer.
+#
+#     - 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.
+#
+#     - Neither the name of Internet  Society, IETF or IETF Trust, nor the
+#       names of specific contributors, may  be used to endorse or promote
+#       products derived from this software without specific prior written
+#       permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS “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 COPYRIGHT  OWNER OR  CONTRIBUTORS 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.
+
+# The Arrays, as described in RFC7159 section 5.
+class RFC7159::Array < RFC7159::Value
+
+	# Parse the AST from parser, and convert into corrsponding values.
+	# @param  [::Array] ast    the AST, generated by the parser
+	# @return [Array]          evaluated instance
+	# @raise  [ArgumentError]  malformed input
+	def self.from_ast ast
+		type, *ary = *ast
+		raise ArgumentError, "not an object: #{ast.inspect}" if type != :array
+		ary.map! do |a|
+			RFC7159::Value.from_ast a
+		end
+		new ary
+	end
+
+	# fetch the index
+	# @param  [Integer] idx  index to obtain
+	# @return [Value]        corresponding value
+	# @return [nil]          not found / out of bounds
+	def [] idx
+		@array[idx]
+	end
+
+	# iterate over the contents
+	# @yield [RFC7159::Value] element
+	def each &b
+		@array.each(&b)
+	end
+
+	# @return [Integer] the count of elements
+	def size
+		@array.size
+	end
+
+	alias length size
+
+	# equality
+	# @param  [Array] other  comparison target
+	# @return [true]         they are equal
+	# @return [false]        otherwise.
+	def == other
+		return false unless length == other.length
+		@array.each_index do |i|
+			j = @array[i]
+			k = @other[i]
+			return false unless j == k
+		end
+		return true
+	end
+
+	# @return [::Array] converted array
+	def plain_old_ruby_object
+		@array.map do |i|
+			i.plain_old_ruby_object
+		end
+	end
+
+	alias to_a   plain_old_ruby_object
+	alias to_ary plain_old_ruby_object
+
+	# JSON gem compat
+	# @return [::String] JSONified representation
+	def to_json
+		RFC7159::Dumper.new.dump self
+	end
+
+	# @return [::String] the array in string
+	def inspect
+		sprintf "#<%p:%#016x %p>", self.class, self.object_id << 1, @array
+	end
+
+	# For pretty print
+	# @param [PP] pp the pp
+	def pretty_print pp
+		hdr = sprintf '#<%p:%#016x', self.class, self.object_id << 1
+		pp.group 1, hdr, '>' do
+			pp.breakable
+			@array.pretty_print pp
+		end
+	end
+
+	private
+	private_class_method:new
+	# @private
+	def initialize ary
+		@array = ary
+		@array.freeze
+	end
+end
+
+# 
+# Local Variables:
+# mode: ruby
+# coding: utf-8-unix
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# fill-column: 79
+# default-justification: full
+# End:

data/lib/RFC7159/dumper.rb

@@ -0,0 +1,231 @@
+#! /your/favourite/path/to/ruby
+# -*- coding: utf-8 -*-
+
+# Copyright (c) 2014 Urabe, Shyouhei.  All rights reserved.
+#
+# Redistribution  and  use  in  source   and  binary  forms,  with  or  without
+# modification, are  permitted provided that the following  conditions are met:
+#
+#     - Redistributions  of source  code must  retain the  above copyright
+#       notice, this list of conditions and the following disclaimer.
+#
+#     - 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.
+#
+#     - Neither the name of Internet  Society, IETF or IETF Trust, nor the
+#       names of specific contributors, may  be used to endorse or promote
+#       products derived from this software without specific prior written
+#       permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS “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 COPYRIGHT  OWNER OR  CONTRIBUTORS 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.
+
+require_relative 'value'
+require 'prettyprint'
+
+# Dumps ruby object into JSON string
+class RFC7159::Dumper
+
+	# @param [#<<]  port  output destination
+	def initialize port
+		@port = port
+		@bag  = Hash.new
+		@pp   = PrettyPrint.new @port
+		@bag.compare_by_identity
+	end
+
+	# @param  [::Object] target  target to dump
+	# @return [self]             self.
+	def start_dump target
+		dump target
+		return self
+	ensure
+		@bag.clear
+		@pp.flush
+	end
+
+	private
+
+	def dump obj
+		obj2 = try_convert obj
+		case obj2
+		when ::Array, RFC7159::Array then
+			ensure_unique obj2
+			@pp.group 1, '[', ']' do
+				obj2.each.with_index do |i, j|
+					@pp.text ',' if j > 0
+					@pp.breakable ''
+					dump i
+				end
+			end
+		when ::Hash, RFC7159::Object then
+			ensure_unique obj2
+			@pp.group 1, '{', '}' do
+				obj2.each_pair.with_index do |(i, j), k|
+					@pp.text ',' if k > 0
+					@pp.breakable ''
+					case i
+					when ::String, RFC7159::String
+						dump i
+					else
+						dump i.to_str # should raise for non-string-ish
+					end
+					@pp.text ':'
+					dump j
+				end
+			end
+		when RFC7159::Value then
+			obj3 = obj2.to_json
+			@pp.text obj3
+		when ::String then
+			obj3 = try_escape_string obj2
+			@pp.text '"'
+			@pp.text obj3
+			@pp.text '"'
+		when ::Numeric then
+			obj3 = try_stringize_numeric obj2
+			@pp.text obj3
+		when ::TrueClass then
+			@pp.text 'true'
+		when ::FalseClass then
+			@pp.text 'false'
+		when ::NilClass then
+			@pp.text 'null'
+		else
+			begin
+				# Try fallback
+				@pp.text obj2.to_json
+			rescue NoMethodError
+				raise TypeError, "not JSONable: #{obj}"
+			end
+		end
+	end
+
+	# Check repetition.  JSON is a true tree -- no cyclic lists, nor even direct
+	# acyclic graphs are allowed.  We check that here.
+	#
+	# - strings, numbers, booleans are all OK to appear multiple times.
+	# - empty arrays and empty hashes are special-cased OK.
+	# - other cases are subject to appear exactly once.
+	def ensure_unique obj
+		if @bag.include? obj and not obj2.empty?
+			raise Errno::ELOOP, "target appears twice: #{target.inspect}"
+		else
+			@bag.store obj, obj
+		end
+	end
+
+	def try_convert obj
+		case obj
+		when RFC7159::Value, Hash, Array, String, Integer, Float, BigDecimal, TrueClass, FalseClass, NilClass
+			return obj
+		else
+			begin
+				return obj.to_hash
+			rescue NoMethodError
+				begin
+					return obj.to_ary
+				rescue NoMethodError
+					begin
+						return obj.to_str
+					rescue NoMethodError
+						begin
+							return obj.to_int
+						rescue NoMethodError
+							begin
+								return obj.to_f
+							rescue NoMethodError
+								raise TypeError, "not JSONable: #{obj.class}"
+							end
+						end
+					end
+				end
+			end
+		end
+	end
+
+	def try_escape_string str
+		buf = nil
+
+		begin
+			# fast path
+			if str.valid_encoding?
+				str2 = str.encode Encoding::UTF_8
+				buf  = str.unpack('U*')
+			end
+		rescue Encoding::UndefinedConversionError
+			# str might be invalid, but that's OK as per RFC7159 section 8.2.
+		end
+
+		unless buf
+			case str.encoding
+			when Encoding::UTF_32BE then buf = str.unpack 'N*'
+			when Encoding::UTF_32LE then buf = str.unpack 'V*'
+			when Encoding::UTF_16BE then buf = str.unpack 'n*'
+			when Encoding::UTF_16LE then buf = str.unpack 'v*'
+			when Encoding::UTF_8,
+			     Encoding::UTF8_MAC,
+			     Encoding::US_ASCII then buf = str.unpack 'U*'
+			else                         buf = str.unpack 'C*' # fallback
+			end
+		end
+
+		# We don't escape \/, because that seems to be de facto standard.
+		return buf.inject '' do |r, i|
+			c = nil
+			case i
+			when 0x22 then c = '\\"'  # "    quotation mark  U+0022
+			when 0x5C then c = '\\\\' # \    reverse solidus U+005C
+		#	when 0x2F then c = '\\/'  # /    solidus         U+002F
+			when 0x08 then c = '\\b'  # b    backspace       U+0008
+			when 0x0C then c = '\\f'  # f    form feed       U+000C
+			when 0x0A then c = '\\n'  # n    line feed       U+000A
+			when 0x0D then c = '\\r'  # r    carriage return U+000D
+			when 0x09 then c = '\\t'  # t    tab             U+0009
+			when 0x00..0x1F, 0xD800..0xDFFF then
+				c = sprintf '\\u%04X', i
+			else
+				c = [i].pack 'U'
+			end
+			r << c
+		end
+	end
+
+	def try_stringize_numeric num
+		case num
+		when Float, BigDecimal
+			if num.finite?
+				# FIXME: does this lose precision?
+				num.to_s
+			else
+				raise TypeError, "not JSONable: #{num.inspect}"
+			end
+		when Integer
+			return num.to_s
+		else
+			raise TypeError, "not JSONable: #{num.inspect}"
+		end
+	end
+end
+
+# 
+# Local Variables:
+# mode: ruby
+# coding: utf-8-unix
+# indent-tabs-mode: t
+# tab-width: 3
+# ruby-indent-level: 3
+# fill-column: 79
+# default-justification: full
+# End: