elparser 0.0.1 → 0.0.2

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: c146b65d433ec89e7357565a95dcca4381c2f6e6
-  data.tar.gz: 7dadc1c9fa424b5ca8586cc523477924c93fb4bc
+  metadata.gz: 2c391d3c3b15b4a4fdceb3e25866aadce77cde8c
+  data.tar.gz: ec18d9c6a518d140df97f54b4c7a352483ba303e
 SHA512:
-  metadata.gz: 30307d68b5b13a897f237588d75a1330db7d25b008ad633bdcd1efdb327f6f545ce38fb5f2e35699759b1f4a75d12765cb6f3a3fec331a6d3ed7ccfcb41e5cce
-  data.tar.gz: 1d6d2343058ee730d581b940ee7bb371e3f0d9ce8da85a1b0f577f77ccd7fb33560249fbd0b498884863f531a94d64f01b146191132ccb5794c95003792ff46f
+  metadata.gz: 7765f3e41cf5d867464a93328e5d9c3e4de947d17c3e4411f40447eceae16793dbd99edc0e56b738928f5c18f3dcde4c261e2dad6eb2a9f3f73e4684e534191f
+  data.tar.gz: 556107b0ce54435da3b0c7bc1dee040cb9eec94fa2d8b35241802e9a4384341a787fed346bae29b8d4e52c64c93f836ce20aa635d621b79de7632e8040ab6e96

data/README.md

@@ -94,8 +94,8 @@ A quoted expression is translated to an array.
 Both `nil` and `()` are translated to `nil`.
 Cons cells and lists are translated to arrays.
 
-| type             | S-exp (input)       | Ruby (output)        |
-|------------------+---------------------+---------------------|
+| type             | S-exp (input)       | Ruby (output)       |
+|------------------|---------------------|---------------------|
 | integer          | `1`                 | `1`                 |
 | float            | `1.2`               | `1.2`               |
 | float            | `1e4`               | `1e4`               |
@@ -122,7 +122,7 @@ such S-expressions with creating instances of `SExpCons` and
 `SExpQuoted` directly and calling the `to_s` method.
 
 | type       | Ruby (input)                             | S-exp (output)               |
-|------------+------------------------------------------+------------------------------|
+|------------|------------------------------------------|------------------------------|
 | primitive  | `[1,1.2,-4,"xxx",:www,true,nil]`         | `(1 1.2 -4 "xxx" www t nil)` |
 | empty list | `[]`                                     | `nil`                        |
 | nest list  | `[1,[2,[3,4]]]`                          | `(1 (2 (3 4)))`              |

data/elparser.gemspec

@@ -19,8 +19,8 @@ Gem::Specification.new do |spec|
   spec.require_paths = ["lib"]
   spec.extra_rdoc_files = ['readme.html']
 
+  spec.add_runtime_dependency "racc", "~> 1.4"
   spec.add_development_dependency "bundler", "~> 1.7"
   spec.add_development_dependency "rake", "~> 10.0"
-  spec.add_development_dependency "racc", "~> 1.4"
   spec.add_development_dependency "test-unit", "~> 3.0"
 end

data/lib/elparser/parser.tab.rb

@@ -0,0 +1,244 @@
+#
+# DO NOT MODIFY!!!!
+# This file is automatically generated by Racc 1.4.12
+# from Racc grammer file "".
+#
+
+require 'racc/parser.rb'
+module Elparser
+  class Parser < Racc::Parser
+##### State transition tables begin ###
+
+racc_action_table = [
+    10,    21,    11,    12,    16,    13,    14,    15,    10,    26,
+    11,    12,   nil,    13,    14,    15,    10,    19,    11,    12,
+   nil,    13,    14,    15,    10,   nil,    11,    12,   nil,    13,
+    14,    15,    10,    24,    11,    12,    23,    13,    14,    15 ]
+
+racc_action_check = [
+     0,    16,     0,     0,     1,     0,     0,     0,    23,    25,
+    23,    23,   nil,    23,    23,    23,    10,    10,    10,    10,
+   nil,    10,    10,    10,    13,   nil,    13,    13,   nil,    13,
+    13,    13,    18,    18,    18,    18,    18,    18,    18,    18 ]
+
+racc_action_pointer = [
+    -2,     4,   nil,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+    14,   nil,   nil,    22,   nil,   nil,     1,   nil,    30,   nil,
+   nil,   nil,   nil,     6,   nil,     6,   nil ]
+
+racc_action_default = [
+   -19,   -19,    -1,    -2,    -3,    -4,    -5,    -6,    -7,    -8,
+   -19,   -12,   -13,   -19,   -17,   -18,   -19,    -9,   -19,   -11,
+   -16,    27,   -10,   -19,   -15,   -19,   -14 ]
+
+racc_goto_table = [
+     2,     1,    18,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+    17,   nil,   nil,    20,   nil,   nil,   nil,   nil,    22,   nil,
+   nil,   nil,   nil,    25 ]
+
+racc_goto_check = [
+     2,     1,    10,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+     2,   nil,   nil,     2,   nil,   nil,   nil,   nil,     2,   nil,
+   nil,   nil,   nil,     2 ]
+
+racc_goto_pointer = [
+   nil,     1,     0,   nil,   nil,   nil,   nil,   nil,   nil,   nil,
+    -8 ]
+
+racc_goto_default = [
+   nil,   nil,   nil,     3,     4,     5,     6,     7,     8,     9,
+   nil ]
+
+racc_reduce_table = [
+  0, 0, :racc_error,
+  1, 11, :_reduce_1,
+  1, 12, :_reduce_none,
+  1, 12, :_reduce_none,
+  1, 12, :_reduce_none,
+  1, 12, :_reduce_none,
+  1, 12, :_reduce_none,
+  1, 12, :_reduce_none,
+  1, 12, :_reduce_none,
+  1, 20, :_reduce_9,
+  2, 20, :_reduce_10,
+  2, 13, :_reduce_11,
+  1, 14, :_reduce_12,
+  1, 14, :_reduce_13,
+  5, 15, :_reduce_14,
+  3, 18, :_reduce_15,
+  2, 19, :_reduce_16,
+  1, 16, :_reduce_17,
+  1, 17, :_reduce_18 ]
+
+racc_reduce_n = 19
+
+racc_shift_n = 27
+
+racc_token_table = {
+  false => 0,
+  :error => 1,
+  "(" => 2,
+  ")" => 3,
+  :INTEGER => 4,
+  :FLOAT => 5,
+  "." => 6,
+  "'" => 7,
+  :SYMBOL => 8,
+  :STRING => 9 }
+
+racc_nt_base = 10
+
+racc_use_result_var = true
+
+Racc_arg = [
+  racc_action_table,
+  racc_action_check,
+  racc_action_default,
+  racc_action_pointer,
+  racc_goto_table,
+  racc_goto_check,
+  racc_goto_default,
+  racc_goto_pointer,
+  racc_nt_base,
+  racc_reduce_table,
+  racc_token_table,
+  racc_shift_n,
+  racc_reduce_n,
+  racc_use_result_var ]
+
+Racc_token_to_s_table = [
+  "$end",
+  "error",
+  "\"(\"",
+  "\")\"",
+  "INTEGER",
+  "FLOAT",
+  "\".\"",
+  "\"'\"",
+  "SYMBOL",
+  "STRING",
+  "$start",
+  "target",
+  "sexp",
+  "nil",
+  "val",
+  "cons",
+  "symbol",
+  "string",
+  "list",
+  "quoted",
+  "sexp_seq" ]
+
+Racc_debug_parser = false
+
+##### State transition tables end #####
+
+# reduce 0 omitted
+
+module_eval(<<'.,.,', 'parser.y', 3)
+  def _reduce_1(val, _values, result)
+    
+    result
+  end
+.,.,
+
+# reduce 2 omitted
+
+# reduce 3 omitted
+
+# reduce 4 omitted
+
+# reduce 5 omitted
+
+# reduce 6 omitted
+
+# reduce 7 omitted
+
+# reduce 8 omitted
+
+module_eval(<<'.,.,', 'parser.y', 7)
+  def _reduce_9(val, _values, result)
+     result = [val[0]] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 8)
+  def _reduce_10(val, _values, result)
+     result << val[1] 
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 11)
+  def _reduce_11(val, _values, result)
+           result = SExpNil.new
+   
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 14)
+  def _reduce_12(val, _values, result)
+     result = SExpNumber.int(val[0])
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 15)
+  def _reduce_13(val, _values, result)
+     result = SExpNumber.float(val[0])
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 18)
+  def _reduce_14(val, _values, result)
+           if val[1].size == 1 then
+          result = SExpCons.new(val[1][0], val[3])
+       else
+          result = SExpListDot.new(val[1], val[3])
+       end
+   
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 26)
+  def _reduce_15(val, _values, result)
+           result = SExpList.new(val[1])
+   
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 30)
+  def _reduce_16(val, _values, result)
+           result = SExpQuoted.new(val[1])
+   
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 34)
+  def _reduce_17(val, _values, result)
+           result = SExpSymbol.new(val[0])
+   
+    result
+  end
+.,.,
+
+module_eval(<<'.,.,', 'parser.y', 38)
+  def _reduce_18(val, _values, result)
+           result = SExpString.new(val[0])
+   
+    result
+  end
+.,.,
+
+def _reduce_none(val, _values, result)
+  val[0]
+end
+
+  end   # class Parser
+  end   # module Elparser

data/lib/elparser/parser.y

@@ -0,0 +1,42 @@
+class Elparser::Parser
+
+rule
+   target: sexp {}
+   
+   sexp: nil | val | cons | symbol | string | list | quoted;
+   
+   sexp_seq: sexp { result = [val[0]] }
+           | sexp_seq sexp { result << val[1] }
+   
+   nil: "(" ")" {
+       result = SExpNil.new
+   }
+   
+   val: INTEGER { result = SExpNumber.int(val[0])}
+      | FLOAT   { result = SExpNumber.float(val[0])}
+   
+   cons: "(" sexp_seq "." sexp ")" {
+       if val[1].size == 1 then
+          result = SExpCons.new(val[1][0], val[3])
+       else
+          result = SExpListDot.new(val[1], val[3])
+       end
+   }
+
+   list: "(" sexp_seq ")" {
+       result = SExpList.new(val[1])
+   }
+   
+   quoted: "'" sexp {
+       result = SExpQuoted.new(val[1])
+   }
+   
+   symbol: SYMBOL {
+       result = SExpSymbol.new(val[0])
+   }
+   
+   string: STRING {
+       result = SExpString.new(val[0])
+   }
+   
+end

data/lib/elparser/version.rb

@@ -1,3 +1,3 @@
 module Elparser
-  VERSION = "0.0.1"
+  VERSION = "0.0.2"
 end

data/test/test-elparser.rb

@@ -0,0 +1,174 @@
+#!/usr/bin/ruby
+
+require 'test/unit'
+require 'elparser'
+
+STDOUT.sync = true
+
+include Elparser
+
+# short cut functions
+
+def _int(v)
+  SExpNumber.int(v.to_s)
+end
+def _float(v)
+  SExpNumber.float(v.to_s)
+end
+def _symbol(v)
+  SExpSymbol.new(v)
+end
+def _string(v)
+  SExpString.new(v)
+end
+def _nil
+  SExpNil.new
+end
+def _cons(a,b)
+  SExpCons.new(a,b)
+end
+def _list(*args)
+  SExpList.new(args)
+end
+def _dotlist(a,b)
+  SExpListDot.new(a,b)
+end
+def _q(a)
+  SExpQuoted.new(a)
+end
+
+
+
+class TestElparser < Test::Unit::TestCase
+  
+  setup do
+    @parser = Elparser::Parser.new
+  end
+
+
+
+  sub_test_case "Decoder" do
+
+    sub_test_case "Primitive Decoder" do
+      
+      data({
+         'integer'      => ['123', _int("123")],
+         'unary-'       => ['-22', _int("-22")],
+         'unary+'       => ['+33', _int("+33")],
+         'float'        => ['1.23', _float("1.23")],
+         'float period' => ['.45', _float(".45")],
+         'float exp+'   => ['1.4e5', _float("1.4e5")],
+         'float exp-'   => ['1.4e-5', _float("1.4e-5")],
+         'symbol'       => ['abc', _symbol('abc')],
+         'symbol2'      => ['$sf-/p.post', _symbol('$sf-/p.post')],
+         'string'       => ['"qwert"', _string("qwert")],
+         'string2'      => ['"abc\"dds\"dfff\'123\' \\n\nok?"', _string('abc\"dds\"dfff\'123\' \\n\nok?')],
+         'quote'        => ['\'symbol', _q(_symbol('symbol'))],
+         'nil'          => ['nil', _nil],
+           })
+      def test_primitive(data)
+        src, expected = data
+        assert_equal expected, @parser.parse(src)
+      end
+    
+    end
+
+    sub_test_case "List Structure" do
+      
+      data({
+         "nil list"          => ["()", _nil], 
+         "list1"             => ["(1)", _list(_int(1))], 
+         "list2"             => ["(1 2)",_list(_int(1),_int(2))], 
+         "nest list1"        => ["(1 (2 3) 4)",_list(_int(1),_list(_int(2),_int(3)),_int(4))],
+         "nest list2"        => ["(((1)))",_list(_list(_list(_int(1))))],
+         "type values"       => ["(1 'a \"b\" ())",_list(_int(1),_q(_symbol("a")),_string("b"),_nil)],
+         "calc terms"        => ["(+ 1 2 (- 2 (* 3 4)))",_list(_symbol("+"),_int(1),_int(2),_list(_symbol("-"),_int(2),_list(_symbol("*"),_int(3),_int(4))))],
+         "reverse cons list" => ["(((1.0) 0.2) 3.4e+4)",_list(_list(_list(_float(1.0)),_float(0.2)),_float("3.4e+4"))],
+         "cons cell"         => ["(1 . 2)",_cons(_int(1),_int(2))],
+         "dot list"          => ["(1 2 . 3)",_dotlist([_int(1),_int(2)],_int(3))],
+           })
+      def test_list(data)
+        src, expected = data
+        assert_equal expected, @parser.parse(src)
+      end
+      
+    end
+
+    sub_test_case "Cons and List operation" do
+      
+      def test_cons1
+        v = @parser.parse("(1 . 2)")
+        assert_equal _int(1), v.car
+        assert_equal _int(2), v.cdr
+      end
+
+      def test_list1
+        v = @parser.parse("(1 2 3)")
+        assert_equal _int(1), v.car
+        assert_equal _int(2), v.cdr.car
+        assert_equal _int(3), v.cdr.cdr.car
+        assert_equal _nil, v.cdr.cdr.cdr
+      end
+
+      def test_dotlist
+        v = @parser.parse("(1 2 . 3)")
+        assert_equal _int(1), v.car
+        assert_equal _int(2), v.cdr.car
+        assert_equal _int(3), v.cdr.cdr
+      end
+
+      def test_ruby_object
+        v = @parser.parse("(1 2.1 \"xxx\" www)")
+        ro = v.to_ruby
+        assert_equal ro.size, 4
+        assert_equal ro[0], 1
+        assert_equal ro[1], 2.1
+        assert_equal ro[2], "xxx"
+        assert_equal ro[3], :www
+
+        v = @parser.parse("(1 (2 3 (4)))")
+        ro = v.to_ruby
+        assert_equal ro.size, 2
+        assert_equal ro[0], 1
+        assert_equal ro[1][0], 2
+        assert_equal ro[1][1], 3
+        assert_equal ro[1][2][0], 4
+      end
+
+      def test_alist
+        v = @parser.parse("( (a . 1) (b . \"xxx\") (c 3 4) (\"d\" . \"e\"))")
+        assert_true v.alist?
+        hash = v.to_h
+        assert_equal hash[:a], 1
+        assert_equal hash[:b], "xxx"
+        assert_equal hash[:c], [3,4]
+        assert_equal hash["d"], "e"
+
+        v = @parser.parse("((a . 1) (b))")
+        assert_true v.alist?
+        v = @parser.parse("((a . 1) b)")
+        assert_false v.alist?
+      end
+
+    end
+
+  end
+
+
+
+  sub_test_case "Encoder" do
+    
+    data({
+       "primitive and list" => [[1,1.2,-4,"xxx",:www,true,nil], "(1 1.2 -4 \"xxx\" www t nil)"],
+       "nested list" => [[1,[2,[3,4]]], "(1 (2 (3 4)))"],
+       "hash1" => [{"a" => "b", "c" => "d"}, "((\"a\" . \"b\") (\"c\" . \"d\"))"],
+       "hash2" => [{:a => [1,2,3], :b => {:c => [4,5,6]}}, "((a 1 2 3) (b (c 4 5 6)))"],
+    })
+    def test_encode(data)
+      src, expected = data
+      assert_equal(expected, Elparser.encode(src))
+    end
+
+  end
+
+end

metadata

@@ -1,57 +1,57 @@
 --- !ruby/object:Gem::Specification
 name: elparser
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.0.2
 platform: ruby
 authors:
 - SAKURAI Masashi
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2015-02-11 00:00:00.000000000 Z
+date: 2015-02-12 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
-  name: bundler
+  name: racc
   requirement: !ruby/object:Gem::Requirement
     requirements:
     - - "~>"
       - !ruby/object:Gem::Version
-        version: '1.7'
-  type: :development
+        version: '1.4'
+  type: :runtime
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     requirements:
     - - "~>"
       - !ruby/object:Gem::Version
-        version: '1.7'
+        version: '1.4'
 - !ruby/object:Gem::Dependency
-  name: rake
+  name: bundler
   requirement: !ruby/object:Gem::Requirement
     requirements:
     - - "~>"
       - !ruby/object:Gem::Version
-        version: '10.0'
+        version: '1.7'
   type: :development
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     requirements:
     - - "~>"
       - !ruby/object:Gem::Version
-        version: '10.0'
+        version: '1.7'
 - !ruby/object:Gem::Dependency
-  name: racc
+  name: rake
   requirement: !ruby/object:Gem::Requirement
     requirements:
     - - "~>"
       - !ruby/object:Gem::Version
-        version: '1.4'
+        version: '10.0'
   type: :development
   prerelease: false
   version_requirements: !ruby/object:Gem::Requirement
     requirements:
     - - "~>"
       - !ruby/object:Gem::Version
-        version: '1.4'
+        version: '10.0'
 - !ruby/object:Gem::Dependency
   name: test-unit
   requirement: !ruby/object:Gem::Requirement
@@ -81,8 +81,11 @@ files:
 - Rakefile
 - elparser.gemspec
 - lib/elparser.rb
+- lib/elparser/parser.tab.rb
+- lib/elparser/parser.y
 - lib/elparser/version.rb
 - readme.html
+- test/test-elparser.rb
 homepage: https://github.com/kiwanami/ruby-elparser
 licenses:
 - MIT
@@ -107,4 +110,5 @@ rubygems_version: 2.4.3
 signing_key: 
 specification_version: 4
 summary: A parser for S-expression of emacs lisp
-test_files: []
+test_files:
+- test/test-elparser.rb