facets 1.2.1 → 1.3.0

data/lib/facets/more/classinherit.rb

@@ -38,7 +38,7 @@
 # the behavior of classes themselves when they are subclassed.
 # To achieve the same behavior with modules requires some clever
 # Ruby karate. ClassInherit provides a nice solution.
-# Simply place the class inheritable methods in the block 
+# Simply place the class inheritable methods in the block
 # parameter of the special module method ClassInherit.
 #
 #   module Mix
@@ -64,7 +64,7 @@
 # the given block is evaluated, then the ClassInherit module
 # is extended against the current module.
 #
-# The above is actually equivalent to putting the class/module 
+# The above is actually equivalent to putting the class/module
 # methods in a nested ClassInherit module and extending the
 # module _manually_, eg.
 #

data/lib/facets/more/cloneable.rb

@@ -28,7 +28,7 @@
 # Stadard basis for adding #dup and #clone methods to a class.
 #
 #--
-# TODO #clone should copy ad-hoc methods in contrast to #dup.
+# TODO #clone should copy '<<'-methods in contrast to #dup.
 #++
 
 module Cloneable

data/lib/facets/more/consoleapp.rb

@@ -25,22 +25,22 @@
 
 module Console ; end
 
-#:title: Console Application
+#:title: Console Command
 #
-# Console::Application provides a clean and easy way
+# Console::Command provides a clean and easy way
 # to create a command line interface for your program.
-# The unique technique utlizes  Commandline to Object
+# The unique technique utlizes a Commandline to Object
 # Mapping (COM) to make it quick and easy.
 #
 # == Synopsis
 #
-# Given an excutable 'myapp':
+# Let's make an executable called 'mycmd'.
 #
 #   #!/usr/bin/env ruby
 #
-#   require 'facet/consoleapp'
+#   require 'facet/console_command'
 #
-#   MyApp << Console::Application
+#   MyCmd << Console::Command
 #
 #     def _v
 #       $VERBOSE = true
@@ -56,27 +56,30 @@ module Console ; end
 #
 #   end
 #
-#   MyApp.run
+#   MyCmd.execute
 #
 # Then on the command line:
 #
-#   > myapp jump
+#   > mycmd jump
 #   Jump
 #
-#   > myapp -v jump
+#   > mycmd -v jump
 #   JUMP! JUMP! JUMP!
 #
 
-class Console::Application
+class Console::Command
+    
+  def execute( argv=nil )
 
-  def go
+    argv ||= ARGV      # argv remains unchanged
+    args = argv.dup    # args is manipulated
 
-    i = 0; args = ARGV.dup
+    # process options
 
-    while i < ARGV.size
-      # options
-      if md = %r{^[-]}.match( ARGV[i] )
-        opt = ARGV[i].gsub('-','_')
+    i = 0;
+    while i < argv.size
+      if md = %r{^[-]}.match( argv[i] )
+        opt = argv[i].gsub('-','_')
         if self.respond_to?( opt )
           m = method( opt )
           c = m.arity
@@ -96,13 +99,12 @@ class Console::Application
       i += 1
     end
 
-    # Non-secondary command type of application
+    # no secondary commands
 
     if self.respond_to?(:main)
       main( *args )
-      #exit 0
 
-    # secondary command type of application
+    # secondary commands
 
     elsif not args.empty?
       if self.respond_to?( args.first )
@@ -116,9 +118,13 @@ class Console::Application
         end
       end
 
+    # default secondary command
+
     elsif self.respond_to?( :default )
       default(*args)
 
+    # error
+
     else
       if self.private_methods.include?( "no_action_error" )
         no_action_error( *args )
@@ -129,6 +135,11 @@ class Console::Application
 
     end
 
-  end #def go
+  end
 
+  alias_method :go, :execute
+  
 end
+
+# temporary backward compatability
+Console::Application = Console::Command

data/lib/facets/more/dictionary.rb

@@ -28,7 +28,7 @@
 #  * added #dup and #insert
 #
 #  2055-02-01  trans
-#  * ported to calibre from jan molic's OrderHash
+#  * ported from jan molic's OrderHash
 # ==========================================================================
 #++
 

data/lib/facets/more/filelist.rb

@@ -449,7 +449,7 @@ end # FileList
 #   |_|\___||___/\__|
 #
 
-# TODO
+# TODO This test needs a mock File class.
 
 # FileList can't be tested without a FIXTURE setup.
 # So don't bother running it directly from here, but
@@ -457,18 +457,10 @@ end # FileList
 # Need a  better solution, is there a way to fake the
 # filesystem?
 
-=begin #test
+=begin #no test yet
 
   require 'test/unit'
 
-  # FIND TEST DIRECTORY
-  paths = File.expand_path(File.dirname(__FILE__)).split('/')
-  paths.size.downto(1) do |i|
-    f = (paths.slice(0..i)+['test']).join('/')
-    $TESTDIR = File.join(f,'FIXTURE') if File.directory?(f)
-  end
-  raise unless $TESTDIR
-
   class TC_FileList < Test::Unit::TestCase
 
     def test_filelist

data/lib/facets/more/functor.rb

@@ -18,7 +18,7 @@
 #    Made a subclass of BasicObject.
 #
 #  05-01-10  trans
-#    Ported to Mega Modules.
+#    Ported to Facets.
 # ==========================================================================
 #++
 
@@ -55,12 +55,12 @@ class Functor < BasicObject
     @func = func
   end
 
-  def method_missing(op, *args)
-    #if @obj.empty?
-    #  @func.call(op, *args)
-    #else
+  def method_missing(op, *args, &blk)
+    if block_given?
+      @func.call(op, *(@obj + args + [blk]))
+    else
       @func.call(op, *(@obj + args))
-    #end
+    end
   end
 
   def instance_objects

data/lib/facets/more/json.rb

@@ -0,0 +1,891 @@
+#--
+# JSON library for Ruby
+#
+# Copyright (c) 2006, Florian Frank
+#
+# This is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License Version 2 as published by the Free
+# Software Foundation: www.gnu.org/copyleft/gpl.html
+#
+# Original Version (0.4.1) Download
+#
+# The latest version of this library can be downloaded at
+#
+# * http://rubyforge.org/frs?group_id=953
+#
+# Online Documentation should be located at
+#
+# * http://json.rubyforge.org
+#++
+
+($VERSION ||= {})['json'] = '0.4.1'
+
+# :title: JSON
+#
+# Ruby support of Javascript Object Notation.
+#
+# == Examples
+#
+# To create a JSON string from a ruby data structure, you
+# can call JSON.unparse like that:
+#
+#  json = JSON.unparse [1, 2, {"a"=>3.141}, false, true, nil, 4..10]
+#  # => "[1,2,{\"a\":3.141},false,true,null,\"4..10\"]"
+#
+# It's also possible to call the #to_json method directly.
+#
+#  json = [1, 2, {"a"=>3.141}, false, true, nil, 4..10].to_json
+#  # => "[1,2,{\"a\":3.141},false,true,null,\"4..10\"]"
+#
+# To get back a ruby data structure, you have to call
+# JSON.parse on the JSON string:
+#
+#  JSON.parse json
+#  # => [1, 2, {"a"=>3.141}, false, true, nil, "4..10"]
+#
+# Note, that the range from the original data structure is a simple
+# string now. The reason for this is, that JSON doesn't support ranges
+# or arbitrary classes. In this case the json library falls back to call
+# Object#to_json, which is the same as #to_s.to_json.
+#
+# It's possible to extend JSON to support serialization of arbitray classes by
+# simply implementing a more specialized version of the #to_json method, that
+# should return a JSON object (a hash converted to JSON with #to_json)
+# like this (don't forget the *a for all the arguments):
+#
+#  class Range
+#    def to_json(*a)
+#      {
+#        'json_class'   => self.class.name,
+#        'data'         => [ first, last, exclude_end? ]
+#      }.to_json(*a)
+#    end
+#  end
+#
+# The hash key 'json_class' is the class, that will be asked to deserialize the
+# JSON representation later. In this case it's 'Range', but any namespace of
+# the form 'A::B' or '::A::B' will do. All other keys are arbitrary and can be
+# used to store the necessary data to configure the object to be deserialized.
+#
+# If a the key 'json_class' is found in a JSON object, the JSON parser checks
+# if the given class responds to the json_create class method. If so, it is
+# called with the JSON object converted to a Ruby hash. So a range can
+# be deserialized by implementing Range.json_create like this:
+#
+#  class Range
+#    def self.json_create(o)
+#      new(*o['data'])
+#    end
+#  end
+#
+# Now it possible to serialize/deserialize ranges as well:
+#
+#  json = JSON.unparse [1, 2, {"a"=>3.141}, false, true, nil, 4..10]
+#  # => "[1,2,{\"a\":3.141},false,true,null,{\"json_class\":\"Range\",\"data\":[4,10,false]}]"
+#  JSON.parse json
+#  # => [1, 2, {"a"=>3.141}, false, true, nil, 4..10]
+#
+# JSON.unparse always creates the shortes possible string representation of a
+# ruby data structure in one line. This good for data storage or network
+# protocols, but not so good for humans to read. Fortunately there's
+# also JSON.pretty_unparse that creates a more readable output:
+#
+#  puts JSON.pretty_unparse([1, 2, {"a"=>3.141}, false, true, nil, 4..10])
+#  [
+#    1,
+#    2,
+#    {
+#      "a": 3.141
+#    },
+#    false,
+#    true,
+#    null,
+#    {
+#      "json_class": "Range",
+#      "data": [
+#        4,
+#        10,
+#        false
+#      ]
+#    }
+#  ]
+#
+# There are also the methods Kernel#j for unparse, and Kernel#jj for
+# pretty_unparse output to the console, that work analogous to Kernel#p and
+# Kernel#pp.
+#
+# == Author(s)
+#
+# Florian Frank <mailto:flori@ping.de>
+#
+
+require 'strscan'
+
+# This module is the namespace for all the JSON related classes. It also
+# defines some module functions to expose a nicer API to users, instead
+# of using the parser and other classes directly.
+
+module JSON
+
+  # The base exception for JSON errors.
+  JSONError             = Class.new StandardError
+
+  # This exception is raise, if a parser error occurs.
+  ParserError           = Class.new JSONError
+
+  # This exception is raise, if a unparser error occurs.
+  UnparserError         = Class.new JSONError
+
+  # If a circular data structure is encountered while unparsing
+  # this exception is raised.
+  CircularDatastructure = Class.new UnparserError
+
+  class << self
+    # Switches on Unicode support, if _enable_ is _true_. Otherwise switches
+    # Unicode support off.
+    def support_unicode=(enable)
+      @support_unicode = enable
+    end
+
+    # Returns _true_ if JSON supports unicode, otherwise _false_ is returned.
+    def support_unicode?
+      !!@support_unicode
+    end
+  end
+  JSON.support_unicode = true # default, hower it's possible to switch off full
+                              # unicode support, if non-ascii bytes should be
+                              # just passed through.
+
+  begin
+    require 'iconv'
+    # An iconv instance to convert from UTF8 to UTF16 Big Endian.
+    UTF16toUTF8 = Iconv.new('utf-8', 'utf-16be')
+    # An iconv instance to convert from UTF16 Big Endian to UTF8.
+    UTF8toUTF16 = Iconv.new('utf-16be', 'utf-8'); UTF8toUTF16.iconv('no bom')
+  rescue LoadError
+    JSON.support_unicode = false # enforce disabling of unicode support
+  end
+
+  # This class implements the JSON parser that is used to parse a JSON string
+  # into a Ruby data structure.
+  class Parser < StringScanner
+    STRING                = /"((?:[^"\\]|\\.)*)"/
+    INTEGER               = /-?\d+/
+    FLOAT                 = /-?\d+\.(\d*)(?i:e[+-]?\d+)?/
+    OBJECT_OPEN           = /\{/
+    OBJECT_CLOSE          = /\}/
+    ARRAY_OPEN            = /\[/
+    ARRAY_CLOSE           = /\]/
+    PAIR_DELIMITER        = /:/
+    COLLECTION_DELIMITER  = /,/
+    TRUE                  = /true/
+    FALSE                 = /false/
+    NULL                  = /null/
+    IGNORE                = %r(
+      (?:
+        //[^\n\r]*[\n\r]| # line comments
+        /\*               # c-style comments
+          (?:
+            [^*/]|        # normal chars
+            /[^*]|        # slashes that do not start a nested comment
+            \*[^/]|       # asterisks that do not end this comment
+            /(?=\*/)      # single slash before this comment's end 
+          )*
+        \*/               # the end of this comment
+        |\s+              # whitespaces
+      )+
+    )mx
+
+    UNPARSED = Object.new
+
+    # Parses the current JSON string and returns the complete data structure
+    # as a result.
+    def parse
+      reset
+      until eos?
+        case
+        when scan(ARRAY_OPEN)
+          return parse_array
+        when scan(OBJECT_OPEN)
+          return parse_object
+        when skip(IGNORE)
+          ;
+        when !((value = parse_value).equal? UNPARSED)
+          return value
+        else
+          raise ParserError, "source '#{peek(20)}' not in JSON!"
+        end
+      end
+    end
+
+    private
+
+    def parse_string
+      if scan(STRING)
+        return '' if self[1].empty?
+        self[1].gsub(/\\(?:[\\bfnrt"]|u([A-Fa-f\d]{4}))/) do
+          case $~[0]
+          when '\\\\' then '\\'
+          when '\\b'  then "\b"
+          when '\\f'  then "\f"
+          when '\\n'  then "\n"
+          when '\\r'  then "\r"
+          when '\\t'  then "\t"
+          when '\\"'  then '"'
+          else
+            if JSON.support_unicode? and $KCODE == 'UTF8'
+              JSON.utf16_to_utf8($~[1])
+            else
+              # if utf8 mode is switched off or unicode not supported, try to
+              # transform unicode \u-notation to bytes directly:
+              $~[1].to_i(16).chr
+            end
+          end
+        end
+      else
+        UNPARSED
+      end
+    end
+
+    def parse_value
+      case
+      when scan(FLOAT)
+        Float(self[0])
+      when scan(INTEGER)
+        Integer(self[0])
+      when scan(TRUE)
+        true
+      when scan(FALSE)
+        false
+      when scan(NULL)
+        nil
+      when (string = parse_string) != UNPARSED
+        string
+      when scan(ARRAY_OPEN)
+        parse_array
+      when scan(OBJECT_OPEN)
+        parse_object
+      else
+        UNPARSED
+      end
+    end
+
+    def parse_array
+      result = []
+      until eos?
+        case
+        when (value = parse_value) != UNPARSED
+          result << value
+          skip(IGNORE)
+          unless scan(COLLECTION_DELIMITER) or match?(ARRAY_CLOSE)
+            raise ParserError, "expected ',' or ']' in array at '#{peek(20)}'!"
+          end
+        when scan(ARRAY_CLOSE)
+          break
+        when skip(IGNORE)
+          ;
+        else
+          raise ParserError, "unexpected token in array at '#{peek(20)}'!"
+        end
+      end
+      result
+    end
+
+    def parse_object
+      result = {}
+      until eos?
+        case
+        when (string = parse_string) != UNPARSED
+          skip(IGNORE)
+          unless scan(PAIR_DELIMITER)
+            raise ParserError, "expected ':' in object at '#{peek(20)}'!"
+          end
+          skip(IGNORE)
+          unless (value = parse_value).equal? UNPARSED
+            result[string] = value
+            skip(IGNORE)
+            unless scan(COLLECTION_DELIMITER) or match?(OBJECT_CLOSE)
+              raise ParserError,
+                "expected ',' or '}' in object at '#{peek(20)}'!"
+            end
+          else
+            raise ParserError, "expected value in object at '#{peek(20)}'!"
+          end
+        when scan(OBJECT_CLOSE)
+          if klassname = result['json_class']
+            klass = klassname.sub(/^:+/, '').split(/::/).inject(Object) do |p,k|
+              p.const_get(k) rescue nil
+            end
+            break unless klass and klass.json_creatable?
+            result = klass.json_create(result)
+          end
+          break
+        when skip(IGNORE)
+          ;
+        else
+          raise ParserError, "unexpected token in object at '#{peek(20)}'!"
+        end
+      end
+      result
+    end
+  end
+
+  # This class is used to create State instances, that are use to hold data
+  # while unparsing a Ruby data structure into a JSON string.
+  class State
+    # Creates a State object from _opts_, which ought to be Hash to create a
+    # new State instance configured by opts, something else to create an
+    # unconfigured instance. If _opts_ is a State object, it is just returned.
+    def self.from_state(opts)
+      case opts
+      when self
+        opts
+      when Hash
+        new(opts)
+      else
+        new
+      end
+    end
+
+    # Instantiates a new State object, configured by _opts_.
+    def initialize(opts = {})
+      @indent     = opts[:indent]     || ''
+      @space      = opts[:space]      || ''
+      @object_nl  = opts[:object_nl]  || ''
+      @array_nl   = opts[:array_nl]   || ''
+      @seen       = {}
+    end
+
+    # This string is used to indent levels in the JSON string.
+    attr_accessor :indent
+
+    # This string is used to include a space between the tokens in a JSON
+    # string.
+    attr_accessor :space
+
+    # This string is put at the end of a line that holds a JSON object (or
+    # Hash).
+    attr_accessor :object_nl
+
+    # This string is put at the end of a line that holds a JSON array.
+    attr_accessor :array_nl
+
+    # Returns _true_, if _object_ was already seen during this Unparsing run. 
+    def seen?(object)
+      @seen.key?(object.__id__)
+    end
+
+    # Remember _object_, to find out if it was already encountered (to find out
+    # if a cyclic data structure is unparsed). 
+    def remember(object)
+      @seen[object.__id__] = true
+    end
+
+    # Forget _object_ for this Unparsing run.
+    def forget(object)
+      @seen.delete object.__id__
+    end
+  end
+
+  module_function
+
+  # Convert _string_ from UTF8 encoding to UTF16 (big endian) encoding and
+  # return it.
+  def utf8_to_utf16(string)
+    JSON::UTF8toUTF16.iconv(string).unpack('H*')[0]
+  end
+
+  # Convert _string_ from UTF16 (big endian) encoding to UTF8 encoding and
+  # return it.
+  def utf16_to_utf8(string)
+    bytes = '' << string[0, 2].to_i(16) << string[2, 2].to_i(16)
+    JSON::UTF16toUTF8.iconv(bytes)
+  end
+
+  # Convert a UTF8 encoded Ruby string _string_ to a JSON string, encoded with
+  # UTF16 big endian characters as \u????, and return it.
+  def utf8_to_json(string)
+    i, n, result = 0, string.size, ''
+    while i < n
+      char = string[i]
+      case
+      when char == ?\b then result << '\b'
+      when char == ?\t then result << '\t'
+      when char == ?\n then result << '\n'
+      when char == ?\f then result << '\f'
+      when char == ?\r then result << '\r'
+      when char == ?"  then result << '\"'
+      when char == ?\\ then result << '\\\\'
+      when char.between?(0x0, 0x1f) then result << "\\u%04x" % char
+      when char.between?(0x20, 0x7f) then result << char
+      when !(JSON.support_unicode? && $KCODE == 'UTF8')
+        # if utf8 mode is switched off or unicode not supported, just pass
+        # bytes through:
+        result << char
+      when char & 0xe0 == 0xc0
+        result << '\u' << utf8_to_utf16(string[i, 2])
+        i += 1
+      when char & 0xf0 == 0xe0
+        result << '\u' << utf8_to_utf16(string[i, 3])
+        i += 2
+      when char & 0xf8 == 0xf0
+        result << '\u' << utf8_to_utf16(string[i, 4])
+        i += 3
+      when char & 0xfc == 0xf8
+        result << '\u' << utf8_to_utf16(string[i, 5])
+        i += 4
+      when char & 0xfe == 0xfc
+        result << '\u' << utf8_to_utf16(string[i, 6])
+        i += 5
+      else
+        raise JSON::UnparserError, "Encountered unknown UTF-8 byte: %x!" % char
+      end
+      i += 1
+    end
+    result
+  end
+
+  # Parse the JSON string _source_ into a Ruby data structure and return it.
+  def parse(source)
+    Parser.new(source).parse
+  end
+
+  # Unparse the Ruby data structure _obj_ into a single line JSON string and
+  # return it. _state_ is a JSON::State object, that can be used to configure
+  # the output further.
+  def unparse(obj, state = nil)
+    obj.to_json(JSON::State.from_state(state))
+  end
+
+  # Unparse the Ruby data structure _obj_ into a JSON string and return it.
+  # The returned string is a prettier form of the string returned by #unparse.
+  def pretty_unparse(obj)
+    state = JSON::State.new(
+      :indent     => '  ',
+      :space      => ' ',
+      :object_nl  => "\n",
+      :array_nl   => "\n"
+    )
+    obj.to_json(state)
+  end
+end
+
+class Object
+  # Converts this object to a string (calling #to_s), converts
+  # it to a JSON string, and returns the result. This is a fallback, if no
+  # special method #to_json was defined for some object.
+  # _state_ is a JSON::State object, that can also be used
+  # to configure the produced JSON string output further.
+
+  def to_json(*) to_s.to_json end
+end
+
+class Hash
+  # Returns a JSON string containing a JSON object, that is unparsed from
+  # this Hash instance.
+  # _state_ is a JSON::State object, that can also be used to configure the
+  # produced JSON string output further.
+  # _depth_ is used to find out nesting depth, to indent accordingly.
+  def to_json(state = nil, depth = 0)
+    state = JSON::State.from_state(state)
+    json_check_circular(state) { json_transform(state, depth) }
+  end
+
+  private
+
+  def json_check_circular(state)
+    if state
+      state.seen?(self) and raise JSON::CircularDatastructure,
+          "circular data structures not supported!"
+      state.remember self
+    end
+    yield
+  ensure
+    state and state.forget self
+  end
+
+  def json_shift(state, depth)
+    state and not state.object_nl.empty? or return ''
+    state.indent * depth
+  end
+
+  def json_transform(state, depth)
+    delim = ','
+    delim << state.object_nl if state
+    result = '{'
+    result << state.object_nl if state
+    result << map { |key,value|
+      json_shift(state, depth + 1) <<
+        key.to_s.to_json(state, depth + 1) <<
+        ':' << state.space << value.to_json(state, depth + 1)
+    }.join(delim)
+    result << state.object_nl if state
+    result << json_shift(state, depth)
+    result << '}'
+    result
+  end
+end
+
+class Array
+  # Returns a JSON string containing a JSON array, that is unparsed from
+  # this Array instance.
+  # _state_ is a JSON::State object, that can also be used to configure the
+  # produced JSON string output further.
+  # _depth_ is used to find out nesting depth, to indent accordingly.
+  def to_json(state = nil, depth = 0)
+    state = JSON::State.from_state(state)
+    json_check_circular(state) { json_transform(state, depth) }
+  end
+
+  private
+
+  def json_check_circular(state)
+    if state
+      state.seen?(self) and raise JSON::CircularDatastructure,
+        "circular data structures not supported!"
+      state.remember self
+    end
+    yield
+  ensure
+    state and state.forget self
+  end
+
+  def json_shift(state, depth)
+    state and not state.array_nl.empty? or return ''
+    state.indent * depth
+  end
+
+  def json_transform(state, depth)
+    delim = ','
+    delim << state.array_nl if state
+    result = '['
+    result << state.array_nl if state
+    result << map { |value|
+      json_shift(state, depth + 1) << value.to_json(state, depth + 1)
+    }.join(delim)
+    result << state.array_nl if state
+    result << json_shift(state, depth) 
+    result << ']'
+    result
+  end
+end
+
+class Integer
+  # Returns a JSON string representation for this Integer number.
+  def to_json(*) to_s end
+end
+
+class Float
+  # Returns a JSON string representation for this Float number.
+  def to_json(*) to_s end
+end
+
+class String
+  # This string should be encoded with UTF-8 (if JSON unicode support is
+  # enabled). A call to this method returns a JSON string
+  # encoded with UTF16 big endian characters as \u????. If
+  # JSON.support_unicode? is false only control characters are encoded this
+  # way, all 8-bit bytes are just passed through.
+  def to_json(*)
+    '"' << JSON::utf8_to_json(self) << '"'
+  end
+
+  # Raw Strings are JSON Objects (the raw bytes are stored in an array for the
+  # key "raw"). The Ruby String can be created by this class method.
+  def self.json_create(o)
+    o['raw'].pack('C*')
+  end
+
+  # This method creates a raw object, that can be nested into other data
+  # structures and will be unparsed as a raw string.
+  def to_json_raw_object
+    {
+      'json_class'  => self.class.name,
+      'raw'         => self.unpack('C*'),
+    }
+  end
+
+  # This method should be used, if you want to convert raw strings to JSON
+  # instead of UTF-8 strings, e. g. binary data (and JSON Unicode support is
+  # enabled).
+  def to_json_raw(*args)
+    to_json_raw_object.to_json(*args)
+  end
+end
+
+class TrueClass
+  # Returns a JSON string for true: 'true'.
+  def to_json(*) to_s end
+end
+
+class FalseClass
+  # Returns a JSON string for false: 'false'.
+  def to_json(*) to_s end
+end
+
+class NilClass
+  # Returns a JSON string for nil: 'null'.
+  def to_json(*) 'null' end
+end
+
+module Kernel
+  # Outputs _objs_ to STDOUT as JSON strings in the shortest form, that is in
+  # one line.
+  def j(*objs)
+    objs.each do |obj|
+      puts JSON::unparse(obj)
+    end
+    nil
+  end
+
+  # Ouputs _objs_ to STDOUT as JSON strings in a pretty format, with
+  # indentation and over many lines.
+  def jj(*objs)
+    objs.each do |obj|
+      puts JSON::pretty_unparse(obj)
+    end
+    nil
+  end
+end
+
+class Class
+  # Returns true, if this class can be used to create an instance
+  # from a serialised JSON string. The class has to implement a class
+  # method _json_create_ that expects a hash as first parameter, which includes
+  # the required data.
+  def json_creatable?
+    respond_to?(:json_create)
+  end
+end
+  # vim: set et sw=2 ts=2:
+
+
+
+
+#  _____         _
+# |_   _|__  ___| |_
+#   | |/ _ \/ __| __|
+#   | |  __/\__ \ |_
+#   |_|\___||___/\__|
+#
+=begin test
+
+  require 'test/unit'
+
+class TC_JSON < Test::Unit::TestCase
+
+  include JSON
+
+  class A
+    def initialize(a)
+      @a = a
+    end
+
+    attr_reader :a
+
+    def ==(other)
+      a == other.a
+    end
+
+    def self.json_create(object)
+      new(*object['args'])
+    end
+
+    def to_json(*args)
+      {
+        'json_class'  => self.class,
+        'args'        => [ @a ],
+      }.to_json(*args)
+    end
+  end
+
+  def setup
+    $KCODE = 'UTF8'
+    @ary = [1, "foo", 3.14, 4711.0, 2.718, nil, [1,-2,3], false, true]
+    @ary_to_parse = ["1", '"foo"', "3.14", "4711.0", "2.718", "null",
+      "[1,-2,3]", "false", "true"]
+    @hash = {
+      'a' => 2,
+      'b' => 3.141,
+      'c' => 'c',
+      'd' => [ 1, "b", 3.14 ],
+      'e' => { 'foo' => 'bar' },
+      'g' => "\"\0\037",
+      'h' => 1000.0,
+      'i' => 0.001
+    }
+    @json = '{"a":2,"b":3.141,"c":"c","d":[1,"b",3.14],"e":{"foo":"bar"},' +
+      '"g":"\\"\\u0000\\u001f","h":1.0E3,"i":1.0E-3}'
+    @json2 = '{"a":2,"b":3.141,"c":"c","d":[1,"b",3.14],"e":{"foo":"bar"},' +
+      '"g":"\\"\\u0000\\u001f","h":1000.0,"i":0.001}'
+  end
+
+  def test_parse_value
+    assert_equal("", parse('""'))
+    assert_equal("\\", parse('"\\\\"'))
+    assert_equal('"', parse('"\""'))
+    assert_equal('\\"\\', parse('"\\\\\\"\\\\"'))
+    assert_equal("\\a\"\b\f\n\r\t\0\037",
+      parse('"\\a\"\b\f\n\r\t\u0000\u001f"'))
+    for i in 0 ... @ary.size
+      assert_equal(@ary[i], parse(@ary_to_parse[i]))
+    end
+  end
+
+  def test_parse_array
+    assert_equal([], parse('[]'))
+    assert_equal([], parse('  [  ]  '))
+    assert_equal([1], parse('[1]'))
+    assert_equal([1], parse('  [ 1  ]  '))
+    assert_equal(@ary,
+      parse('[1,"foo",3.14,47.11e+2,2718.E-3,null,[1,-2,3],false,true]'))
+    assert_equal(@ary, parse(%Q{   [   1 , "foo"  ,  3.14 \t ,  47.11e+2 
+      , 2718.E-3 ,\n null , [1, -2, 3 ], false , true\n ]  }))
+  end
+
+  def test_parse_object
+    assert_equal({}, parse('{}'))
+    assert_equal({}, parse('  {  }  '))
+    assert_equal({'foo'=>'bar'}, parse('{"foo":"bar"}'))
+    assert_equal({'foo'=>'bar'}, parse('    { "foo"  :   "bar"   }   '))
+  end
+
+  def test_unparse
+    json = unparse(@hash)
+    assert_equal(@json2, json)
+    parsed_json = parse(json)
+    assert_equal(@hash, parsed_json)
+    json = unparse({1=>2})
+    assert_equal('{"1":2}', json)
+    parsed_json = parse(json)
+    assert_equal({"1"=>2}, parsed_json)
+  end
+
+  def test_parser_reset
+    parser = Parser.new(@json)
+    assert_equal(@hash, parser.parse)
+    assert_equal(@hash, parser.parse)
+  end
+
+  def test_unicode
+    assert_equal '""', ''.to_json
+    assert_equal '"\\b"', "\b".to_json
+    assert_equal '"\u0001"', 0x1.chr.to_json
+    assert_equal '"\u001f"', 0x1f.chr.to_json
+    assert_equal '" "', ' '.to_json
+    assert_equal "\"#{0x7f.chr}\"", 0x7f.chr.to_json
+    utf8 = '© ≠ €!'
+    json = '"\u00a9 \u2260 \u20ac!"'
+    assert_equal json, utf8.to_json
+    assert_equal utf8, parse(json)
+    utf8 = "\343\201\202\343\201\204\343\201\206\343\201\210\343\201\212"
+    json = '"\u3042\u3044\u3046\u3048\u304a"'
+    assert_equal json, utf8.to_json
+    assert_equal utf8, parse(json)
+    utf8 = 'საქართველო'
+    json = '"\u10e1\u10d0\u10e5\u10d0\u10e0\u10d7\u10d5\u10d4\u10da\u10dd"'
+    assert_equal json, utf8.to_json
+    assert_equal utf8, parse(json)
+  end
+
+  def test_comments
+    json = <<EOT
+{
+  "key1":"value1", // eol comment
+  "key2":"value2"  /* multi line
+                    *  comment */,
+  "key3":"value3"  /* multi line
+                    // nested eol comment
+                    *  comment */
+}
+EOT
+    assert_equal(
+      { "key1" => "value1", "key2" => "value2", "key3" => "value3" },
+      parse(json))
+    json = <<EOT
+{
+  "key1":"value1"  /* multi line
+                    // nested eol comment
+                    /* illegal nested multi line comment */
+                    *  comment */
+}
+EOT
+    assert_raises(ParserError) { parse(json) }
+    json = <<EOT
+{
+  "key1":"value1"  /* multi line
+                   // nested eol comment
+                   closed multi comment */
+                   and again, throw an Error */
+}
+EOT
+    assert_raises(ParserError) { parse(json) }
+    json = <<EOT
+{
+  "key1":"value1"  /*/*/
+}
+EOT
+    assert_equal({ "key1" => "value1" }, parse(json))
+  end
+
+  def test_extended_json
+    a = A.new(666)
+    json = a.to_json
+    a_again = JSON.parse(json)
+    assert_kind_of a.class, a_again
+    assert_equal a, a_again
+  end
+
+  def test_raw_strings
+    raw = ''
+    raw_array = []
+    for i in 0..255
+      raw << i
+      raw_array << i
+    end
+    json = raw.to_json_raw
+    json_raw_object = raw.to_json_raw_object
+    hash = { 'json_class' => 'String', 'raw'=> raw_array }
+    assert_equal hash, json_raw_object
+    json_raw = <<EOT.chomp
+{\"json_class\":\"String\",\"raw\":[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255]}
+EOT
+# "
+    assert_equal json_raw, json
+    raw_again = JSON.parse(json)
+    assert_equal raw, raw_again
+  end
+
+  def test_utf8_mode
+    $KCODE = 'NONE'
+    utf8 = "© ≠ €! - \001"
+    json = "\"© ≠ €! - \\u0001\""
+    assert_equal json, utf8.to_json
+    assert_equal utf8, parse(json)
+    assert JSON.support_unicode?
+    $KCODE = 'UTF8'
+    utf8 = '© ≠ €!'
+    json = '"\u00a9 \u2260 \u20ac!"'
+    assert_equal json, utf8.to_json
+    assert_equal utf8, parse(json)
+    JSON.support_unicode = false
+    assert !JSON.support_unicode?
+    utf8 = "© ≠ €! - \001"
+    json = "\"© ≠ €! - \\u0001\""
+    assert_equal json, utf8.to_json
+    assert_equal utf8, parse(json)
+  end
+
+  def test_backslash
+    json = '"\\\\.(?i:gif|jpe?g|png)$"'
+    data = JSON.parse(json)
+    assert_equal json, JSON.unparse(data)
+    json = '"\\""'
+    data = JSON.parse(json)
+    assert_equal json, JSON.unparse(data)
+  end
+end
+
+=end
+
+  # vim: set et sw=2 ts=2: