fjson 0.0.1

data/lib/parser.rb

@@ -0,0 +1,165 @@
+module JSON
+  # 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
+end

data/spec/array_spec.rb

@@ -0,0 +1,36 @@
+require 'rubygems'
+require 'spec'
+dir = File.dirname(__FILE__)
+require File.expand_path("#{dir}/spec_helper")
+require File.expand_path("#{dir}/../lib/fjson")
+
+context "A one dimensional Array" do
+  specify "should create json" do
+    array = [1, 'hello', :hello]
+    array.to_json.should_equal '[1,"hello","hello"]'
+  end
+end
+
+context "A multi-dimensional Array" do
+  specify "should create json" do
+    array = [1, ['hello', [:hello]]]
+    array.to_json.should_equal '[1,["hello",["hello"]]]'
+  end
+
+  specify "should not support circular dependencies" do
+    array = []
+    array << 1
+    array << ['hello', array]
+    proc {array.to_json}.should_raise JSON::CircularDatastructure
+  end
+end
+
+#context "Array performance" do
+#  specify "" do
+#    begin_time = Time.now
+#    100000.times do
+#      [1, ['hello', [:hello]]].to_json
+#    end
+#    puts "#{Time.now - begin_time} seconds"
+#  end
+#end

data/spec/false_class_spec.rb

@@ -0,0 +1,15 @@
+require 'rubygems'
+require 'spec'
+dir = File.dirname(__FILE__)
+require File.expand_path("#{dir}/spec_helper")
+require File.expand_path("#{dir}/../lib/fjson")
+
+context "A false object" do
+  specify "should convert to json" do
+    false.to_json.should_equal "false"
+  end
+
+  specify "to_json should accept any number of arguments" do
+    false.to_json(1, 2)
+  end
+end

data/spec/float_spec.rb

@@ -0,0 +1,15 @@
+require 'rubygems'
+require 'spec'
+dir = File.dirname(__FILE__)
+require File.expand_path("#{dir}/spec_helper")
+require File.expand_path("#{dir}/../lib/fjson")
+
+context "A float number" do
+  specify "should convert to json" do
+    (3.14).to_json.should_equal "3.14"
+  end
+
+  specify "to_json should accept any number of arguments" do
+    (3.14).to_json(1, 2)
+  end
+end

data/spec/hash_spec.rb

@@ -0,0 +1,37 @@
+require 'rubygems'
+require 'spec'
+dir = File.dirname(__FILE__)
+require File.expand_path("#{dir}/spec_helper")
+require File.expand_path("#{dir}/../lib/fjson")
+
+context "A one dimensional Hash" do
+  specify "should create json" do
+    hash = {
+      :one => 1,
+      "hello" => :hello
+    }
+    json = hash.to_json
+    json.should_include "\"one\":1"
+    json.should_include "\"hello\":\"hello\""
+  end
+end
+
+context "A multi-dimensional Hash" do
+  specify "should create json" do
+    hash = {
+      :one => 1,
+      "hello" => {
+        :hello2 => 2
+      },
+    }
+    json = hash.to_json
+    json.should_include "\"one\":1"
+    json.should_include "\"hello\":{\"hello2\":2}"
+  end
+
+  specify "should not support circular dependencies" do
+    hash = { :one => 1 }
+    hash["hello"] = hash
+    proc {hash.to_json}.should_raise JSON::CircularDatastructure
+  end
+end

data/spec/integer_spec.rb

@@ -0,0 +1,15 @@
+require 'rubygems'
+require 'spec'
+dir = File.dirname(__FILE__)
+require File.expand_path("#{dir}/spec_helper")
+require File.expand_path("#{dir}/../lib/fjson")
+
+context "An integer" do
+  specify "should convert to json" do
+    5.to_json.should_equal "5"
+  end
+
+  specify "to_json should accept any number of arguments" do
+    5.to_json(1, 2)
+  end
+end

data/spec/nil_class_spec.rb

@@ -0,0 +1,15 @@
+require 'rubygems'
+require 'spec'
+dir = File.dirname(__FILE__)
+require File.expand_path("#{dir}/spec_helper")
+require File.expand_path("#{dir}/../lib/fjson")
+
+context "A nil object" do
+  specify "should convert to json" do
+    nil.to_json.should_equal "null"
+  end
+
+  specify "to_json should accept any number of arguments" do
+    nil.to_json(1, 2)
+  end
+end

data/spec/object_spec.rb

@@ -0,0 +1,17 @@
+require 'rubygems'
+require 'spec'
+dir = File.dirname(__FILE__)
+require File.expand_path("#{dir}/spec_helper")
+require File.expand_path("#{dir}/../lib/fjson")
+
+context "An object" do
+  specify "should convert its string representation to json" do
+    obj = Object.new
+    obj_str = obj.to_s
+    obj.to_json.should_equal '"' + obj_str + '"'
+  end
+
+  specify "to_json should accept any number of arguments" do
+    Object.new.to_json(1, 2)
+  end
+end

data/spec/spec_helper.rb

@@ -0,0 +1,27 @@
+require 'spec'
+dir = File.dirname(__FILE__)
+args = ARGV.dup
+
+class Object
+  def metaclass
+    class << self; self; end
+  end
+
+  def define_instance_method(sym, &block)
+    metaclass.__send__(:define_method, sym, &block)
+  end
+end
+
+unless args.include?("-f") || args.include?("--format")
+  args << "--format"
+  args << "specdoc"
+end
+args << $0
+
+$context_runner = ::Spec::Runner::OptionParser.create_context_runner(args, false, STDERR, STDOUT)
+
+at_exit do
+  unless context_runner.instance_eval {@reporter}.instance_eval {@start_time}
+    context_runner.run(false)
+  end
+end

data/spec/spec_suite.rb

@@ -0,0 +1,5 @@
+dir = File.dirname(__FILE__)
+
+Dir["#{dir}/**/*_spec.rb"].each do |file|
+  require File.expand_path(file)
+end

data/spec/state_spec.rb

@@ -0,0 +1,67 @@
+require 'rubygems'
+require 'spec'
+dir = File.dirname(__FILE__)
+require File.expand_path("#{dir}/spec_helper")
+require File.expand_path("#{dir}/../lib/fjson")
+
+context "A JSON state" do
+  specify "method from_state should return the passed in object when a state is passed in" do
+    state = JSON::State.new
+    JSON::State.from_state(state).should_equal state
+  end
+
+  specify "method from_state should return a new state with hash values when a hash is passed in" do
+    shim_state_class = Object.new
+    shim_state_class.extend JSON::State::ClassMethods
+    passed_params = nil
+    shim_state_class.define_instance_method(:new) {|params| passed_params = params}
+
+    args = {}
+    shim_state_class.from_state(args)
+    passed_params.should_equal args
+  end
+
+  specify "method from_state should return a new state with default parameters when an object that is not " +
+          "a state or a hash is passed in" do
+    state = JSON::State.from_state(Object.new)
+    state.should_be_instance_of JSON::State
+  end
+
+  specify "should initialize its attributes to their defaults" do
+    state = JSON::State.new
+    state.indent.should_equal ""
+    state.space.should_equal ""
+    state.object_nl.should_equal ""
+    state.array_nl.should_equal ""
+    state.instance_eval {@seen}.should_equal({})
+  end
+
+  specify "should initialize its attributes with passed in values" do
+    params = {
+      :indent => Object.new,
+      :space => Object.new,
+      :object_nl => Object.new,
+      :array_nl => Object.new
+    }
+    state = JSON::State.new(params)
+    state.indent.should_equal params[:indent]
+    state.space.should_equal params[:space]
+    state.object_nl.should_equal params[:object_nl]
+    state.array_nl.should_equal params[:array_nl]
+  end
+
+  specify "should remember objects" do
+    state = JSON::State.new
+    obj = Object.new
+    state.remember(obj)
+    state.should_be_seen(obj)
+  end
+
+  specify "should forget objects" do
+    state = JSON::State.new
+    obj = Object.new
+    state.remember(obj)
+    state.forget(obj)
+    state.should_not_be_seen(obj)
+  end
+end

data/spec/string_spec.rb

@@ -0,0 +1,15 @@
+require 'rubygems'
+require 'spec'
+dir = File.dirname(__FILE__)
+require File.expand_path("#{dir}/spec_helper")
+require File.expand_path("#{dir}/../lib/fjson")
+
+context "A string" do
+  specify "should convert to json" do
+    "test".to_json.should_equal '"test"'
+  end
+
+  specify "to_json should accept any number of arguments" do
+    "test".to_json(1, 2)
+  end
+end