RFC7159 7159

data/lib/RFC7159/false.rb

@@ -0,0 +1,79 @@
+#! /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 false, as defined in RFC7159 section 3.
+class RFC7159::False < RFC7159::Value
+
+	# Parse the AST from parser, and convert into corrsponding value.
+	# @param  [::Array] ast    the AST, generated by the parser
+	# @return [False]          evaluated instance
+	# @raise  [ArgumentError]  malformed input
+	def self.from_ast ast
+		raise ArgumentError "garbage included: #{ast.inspect}" if ast.length > 1
+		raise ArgumentError "not a false: #{ast.inspect}" if ast[0] != :false
+		return new
+	end
+
+	# convert to Ruby's false
+	# @return [false] the ruby counter part.
+	def plain_old_ruby_object
+		return false
+	end
+
+	# JSON gem compat
+	# @return [::String] JSONified string representation
+	def to_json
+		return 'false'
+	end
+
+	# Equality.  All  false instances  are equal each  other, plus  a FalseClass
+	# instance is also equal to this.
+	def == other
+		case other when FalseClass, self.class
+			true
+		else
+			false
+		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:

data/lib/RFC7159/null.rb

@@ -0,0 +1,79 @@
+#! /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 null, as defined in RFC7159 section 3.
+class RFC7159::Null < RFC7159::Value
+
+	# Parse the AST from parser, and convert into corrsponding value.
+	# @param  [::Array] ast    the AST, generated by the parser
+	# @return [Null]           evaluated instance
+	# @raise  [ArgumentError]  malformed input
+	def self.from_ast ast
+		raise ArgumentError "garbage included: #{ast.inspect}" if ast.length > 1
+		raise ArgumentError "not a false: #{ast.inspect}" if ast[0] != :null
+		return new
+	end
+
+	# convert to Ruby's nil
+	# @return [nil] the ruby counter part.
+	def plain_old_ruby_object
+		return nil
+	end
+
+	# JSON gem compat
+	# @return [::String] JSONified string representation
+	def to_json
+		return 'null'
+	end
+
+	# Equality.   All null  instances  are  equal each  other,  plus a  NilClass
+	# instance is also equal to this.
+	def == other
+		case other when NilClass, self.class
+			true
+		else
+			false
+		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:

data/lib/RFC7159/number.rb

@@ -0,0 +1,149 @@
+#! /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 'bigdecimal'
+
+# The Numbers, as described in RFC7159 section 6.
+class RFC7159::Number < RFC7159::Value
+
+	# Notie  about technical  design: this  class  _could_ have  been made  much
+	# faster if we implement the whole  type-conversion thing by hand.  But that
+	# is very  bug-prone.  So to  avoid unnecessary  complexity here we  took an
+	# approach to  first let  everything be BigDecimal,  then convert  to others
+	# like Float.
+
+	# Parse the AST from parser, and convert into corrsponding values.
+	# @param  [::Array] ast    the AST, generated by the parser
+	# @return [Number]         evaluated instance
+	# @raise  [ArgumentError]  malformed input
+	def self.from_ast ast
+		type, sign, int, frac, exp = *ast
+		raise ArgumentError, "not an object: #{ast.inspect}" if type != :number
+		raise ArgumentError, "not a number: #{ast.inspect}" if int.nil?
+		new sign, int, frac, exp
+	end
+
+	# @return [Numeric] converted numeric
+	# @note  this conversion  might  lose  precision.  Use  `to_d`  if you  want
+	#   something that fully represents this number.
+	def plain_old_ruby_object
+		if /\A[+-]?\d+\z/ =~ @to_s
+			return to_i
+		else
+			return to_f
+		end
+	end
+
+	# @return [BigDecimal] lossless conversion to numeric
+	def to_d
+		return @to_d
+	end
+
+	# @return [::String] the original string
+	def to_s
+		return @to_s.dup # dup just in case.
+	end
+
+	# JSON gem compat
+	# @return [::String] the original string
+	def to_json *;
+		return to_s
+	end
+
+	# @return [Float] conversion to float
+	def to_f
+		# This method must be ideoponent so the result is cached
+		unless @to_f
+			num = to_d.to_f
+			@to_f ||= num # ||= to avoid race
+		end
+		return @to_f
+	end
+
+	# @return [Integer] conversion to integer
+	def to_i
+		# This method must be ideoponent so the result is cached
+		unless @to_i
+			num = to_d.to_i
+			@to_i ||= num # ||= to avoid race
+		end
+		return @to_i
+	end
+
+	# @return [::String] the value in string
+	def inspect
+		sprintf "#<%p:%p>", self.class, plain_old_ruby_object
+	end
+
+	# For pretty print (require 'pp' beforehand)
+	# @param [PP] pp the pp
+	def pretty_print pp
+		pp.object_group self do
+			pp.text ':'
+			plain_old_ruby_object.pretty_print pp
+		end
+	end
+
+	# Number equality is _not_ defined in the RFC so we take liberty of defining
+	# that to be mathematical comparison
+	def == other
+		other == @to_d
+	end
+
+	private
+
+	private_class_method:new
+	# @private
+	def initialize sign, int, frac, exp
+		@sign = sign              # nil, '-', or '+'
+		@int  = int.join
+		@frac = frac && frac.join # nil, or '.dddd..'
+		@exp  = exp  && exp.join  # nil, or 'e+ddd..'
+
+		# pre-cache common computations
+		@to_s = sprintf "%s%s%s%s", @sign, @int, @frac, @exp
+		@to_s.freeze # just in case
+		@to_d = BigDecimal.new @to_s
+	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/object.rb

@@ -0,0 +1,140 @@
+#! /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 Objects, as described in RFC7159 section 4.
+class RFC7159::Object < RFC7159::Value
+
+	# Parse the AST from parser, and convert into corrsponding values.
+	# @param  [::Array] ast    the AST, generated by the parser
+	# @return [Object]         evaluated instance
+	# @raise  [ArgumentError]  malformed input
+	def self.from_ast ast
+		type, *assoc = *ast
+		raise ArgumentError, "not an object: #{ast.inspect}" if type != :object
+		assoc.map! do |a|
+			a.map! do |b|
+				RFC7159::Value.from_ast b
+			end
+		end
+		new assoc
+	end
+
+	# fetch the key.
+	# @note   RFC7159 allows identical key to appear multiple times in an object.
+	# @note   This is O(1)
+	# @param  [::String, String]  key  key to look at
+	# @return [ [Value] ]              corresponding value(s)
+	def [] key
+		ret = @assoc.select do |(k, v)| k == key end
+		ret.map! do |(k, v)| v end
+		return ret
+	end
+
+	# iterates over the pairs.
+	# @yield [key, value] the pair.
+	def each_pair
+		e = Enumerator.new do |y|
+			@assoc.each do |a|
+				y << a
+			end
+		end
+		return block_given? ? e.each(&b) : e
+	end
+
+	alias each each_pair
+
+	# @raise  [RuntimeError]  keys conflict
+	# @return [::Hash]        converted object
+	def plain_old_ruby_object
+		ret = Hash.new
+		@assoc.each do |(k, v)|
+			kk = k.plain_old_ruby_object
+			if ret.include? kk
+				raise RuntimeError, "key #{kk} conflict."
+			else
+				vv = v.plain_old_ruby_object
+				ret.store kk, vv
+			end
+		end
+		return ret
+	end
+
+	alias to_h    plain_old_ruby_object
+	alias to_hash plain_old_ruby_object
+
+	# @return [::String] the object in string
+	def inspect
+		hdr = sprintf "#<%p:%#016x {", self.class, self.object_id << 1
+		map = @assoc.map do |(k, v)|
+			sprintf '%p: %p', k.to_s, v
+		end.join ', '
+		hdr << map << '}>'
+	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
+			pp.group 1, '{', '}' do
+				@assoc.each_with_index do |(k, v), i|
+					pp.breakable ',' if i.nonzero?
+					k.to_s.pretty_print pp
+					pp.text ': '
+					v.pretty_print pp
+				end
+			end
+		end
+	end
+
+	private
+	private_class_method:new
+	# @private
+	def initialize assoc
+		@assoc = assoc
+		@assoc.each {|i| i.freeze }
+		@assoc.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: