erlang-terms 0.0.2 → 1.0.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 3601d91c1507e3949f9c60b571091b9a959419d0
-  data.tar.gz: 39d79df7d50eb719fe6dabb77640a14041135811
+  metadata.gz: 5eac7619f9acc493a2e29c2034bfbca752e3e3a2
+  data.tar.gz: d0453d251e15a1c97e0fbedd3430c83611ffdc31
 SHA512:
-  metadata.gz: 3c3a3073708fc654cd4fe651e56baf379ff2a2f49726e5f648b891dfd16c8f18c0ae61500384212bcb8cd8a8ff76ad4c0fbf36eafc3753583340d0dedbe9254f
-  data.tar.gz: 4eaf82c1a4ec55cf0b73f37d2ac9dc15e2371235276630f41f1590bf3e2e7cf9bb31078180e84bb08e7efa617abddfbf29a07608a4c4206ebc7dcd046fd85579
+  metadata.gz: 9df6cd4f3ff07549e79ed11840ad7707486bcfc5bd925bbf73fa1dce4b1c70495f64d0a6cfbeaa0735b1f1326c927a329e206785fd3c0c0d918e31692c8d9dd1
+  data.tar.gz: f1f1540c3bc703057833fecbedf0915c8991d674239438b20e35a20b7327a86d6d8e275d5d3ec58a8bd984fe22782a486c5079dd2be02f98eb893437d1717af4

data/README.md

@@ -72,6 +72,17 @@ list.improper?
 # => false
 ```
 
+### Erlang::Nil
+
+```erlang
+Nil = [].
+```
+
+```ruby
+erlang_nil = Erlang::Nil.new
+# => #<Erlang::Nil []>
+```
+
 ### Erlang::Pid
 
 ```erlang

data/lib/erlang/export.rb

@@ -12,5 +12,12 @@ module Erlang
     def inspect
       "#<#{self.class.name} fun #{mod}:#{function}/#{arity}>"
     end
+
+    def ==(other)
+      self.class === other &&
+      mod.to_s      == other.mod.to_s &&
+      function.to_s == other.function.to_s &&
+      arity         == other.arity
+    end
   end
 end

data/lib/erlang/list.rb

@@ -20,7 +20,25 @@ module Erlang
     end
 
     def pretty_inspect
-      "#<#{self.class.name} #{super[0..-3]} | #{tail.inspect}]>\n"
+      "#<#{self.class.name} #{super[0..-2]}>\n"
+    end
+
+    def pretty_print(q)
+      q.group(1, '[', " | #{tail.inspect}]") {
+        q.seplist(self) { |v|
+          q.pp v
+        }
+      }
+    end
+
+    def ==(other)
+      if improper? and not other.respond_to?(:tail)
+        false
+      elsif other.respond_to?(:tail)
+        super && tail == other.tail
+      else
+        super
+      end
     end
   end
 end

data/lib/erlang/nil.rb

@@ -0,0 +1,15 @@
+module Erlang
+  class Nil
+    def inspect
+      "#<#{self.class.name} []>"
+    end
+
+    def ==(other)
+      if other == []
+        true
+      else
+        other === self.class
+      end
+    end
+  end
+end

data/lib/erlang/pid.rb

@@ -19,5 +19,13 @@ module Erlang
       "  @node=#{node.inspect}\n" <<
       "  @creation=#{creation.inspect}>"
     end
+
+    def ==(other)
+      self.class === other &&
+      node.to_s == other.node.to_s &&
+      id.to_s   == other.id.to_s &&
+      serial    == other.serial &&
+      creation  == other.creation
+    end
   end
 end

data/lib/erlang/terms.rb

@@ -7,6 +7,7 @@ end
 
 require "erlang/export"
 require "erlang/list"
+require "erlang/nil"
 require "erlang/pid"
 require "erlang/string"
 require "erlang/tuple"

data/lib/erlang/terms/version.rb

@@ -1,5 +1,5 @@
 module Erlang
   module Terms
-    VERSION = "0.0.2"
+    VERSION = "1.0.0"
   end
 end

data/lib/erlang/tuple.rb

@@ -1,11 +1,23 @@
 module Erlang
   class Tuple < ::Array
+    def arity
+      length
+    end
+
     def inspect
       "#<#{self.class.name} {#{super[1..-2]}}>"
     end
 
     def pretty_inspect
-      "#<#{self.class.name} {#{super[1..-3]}}>\n"
+      "#<#{self.class.name} #{super[0..-2]}>\n"
+    end
+
+    def pretty_print(q)
+      q.group(1, '{', '}') {
+        q.seplist(self) { |v|
+          q.pp v
+        }
+      }
     end
   end
 end

data/spec/erlang/export_spec.rb

@@ -7,5 +7,11 @@ describe Erlang::Export do
     it 'formats as #<Erlang::Export fun module:function/arity>' do
       expect(subject.inspect).to eq("#<Erlang::Export fun module:function/1>")
     end
+
+    it 'compares with other exports' do
+      expect(subject).to eq(subject)
+      expect(subject).to eq(Erlang::Export.new('module', 'function', 1))
+      expect(subject).to_not eq(Erlang::Export.new('module', 'function', 0))
+    end
   end
 end

data/spec/erlang/list_spec.rb

@@ -20,4 +20,20 @@ describe Erlang::List do
       end
     end
   end
+
+  it 'has | [] in pretty_inspect' do
+    expect(Erlang::List[:a].pretty_inspect).to include("| []")
+  end
+
+  context '#==' do
+    subject { Erlang::List[:a, :b] }
+
+    it 'compares with other lists' do
+      expect(subject).to eq(subject)
+      expect(subject).to eq(Erlang::List[:a, :b])
+      expect(subject).to_not eq(Erlang::List[:a, :b].tail(:c))
+      expect(subject).to eq([:a, :b])
+      expect(Erlang::List[:a].tail(:c)).to_not eq([:a])
+    end
+  end
 end

data/spec/erlang/nil_spec.rb

@@ -0,0 +1,18 @@
+require 'spec_helper'
+
+describe Erlang::Nil do
+  describe '#inspect' do
+    subject { Erlang::Nil.new }
+
+    it 'formats as #<Erlang::Nil []>' do
+      expect(subject.inspect).to eq("#<Erlang::Nil []>")
+    end
+
+    it 'compares with other nil (and [])' do
+      expect(subject).to eq(subject)
+      expect(subject).to eq(Erlang::Nil.new)
+      expect(subject).to eq([])
+      expect(subject).to_not eq([:a])
+    end
+  end
+end

data/spec/erlang/pid_spec.rb

@@ -7,5 +7,15 @@ describe Erlang::Pid do
     it 'formats as #<Erlang::Pid <0.100.5> @node="nonode@nohost" @creation=1>' do
       expect(subject.inspect).to eq('#<Erlang::Pid <0.100.5> @node="nonode@nohost" @creation=1>')
     end
+
+    it 'has <0.100.5> in the pretty_inspect' do
+      expect(subject.pretty_inspect).to include("<0.100.5>")
+    end
+
+    it 'compares with other pids' do
+      expect(subject).to eq(subject)
+      expect(subject).to eq(Erlang::Pid.new(:'nonode@nohost', 100, 5, 1))
+      expect(subject).to_not eq(Erlang::Pid.new('nonode@nohost', 100, 5, 0))
+    end
   end
 end

data/spec/erlang/tuple_spec.rb

@@ -7,5 +7,14 @@ describe Erlang::Tuple do
     it 'formats as #<Erlang::Tuple {:a, 1, "one"}>' do
       expect(subject.inspect).to eq('#<Erlang::Tuple {:a, 1, "one"}>')
     end
+
+    it 'has {} in pretty_inspect' do
+      expect(Erlang::Tuple[].pretty_inspect).to include("{}")
+      expect(Erlang::Tuple[Erlang::Tuple[]].pretty_inspect).to include("{{}}")
+    end
+
+    it 'arity equals length' do
+      expect(subject.arity).to eq(subject.length)
+    end
   end
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: erlang-terms
 version: !ruby/object:Gem::Version
-  version: 0.0.2
+  version: 1.0.0
 platform: ruby
 authors:
 - Andrew Bennett
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2013-03-18 00:00:00.000000000 Z
+date: 2013-03-19 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: bundler
@@ -98,6 +98,7 @@ files:
 - erlang-terms.gemspec
 - lib/erlang/export.rb
 - lib/erlang/list.rb
+- lib/erlang/nil.rb
 - lib/erlang/pid.rb
 - lib/erlang/string.rb
 - lib/erlang/terms.rb
@@ -105,6 +106,7 @@ files:
 - lib/erlang/tuple.rb
 - spec/erlang/export_spec.rb
 - spec/erlang/list_spec.rb
+- spec/erlang/nil_spec.rb
 - spec/erlang/pid_spec.rb
 - spec/erlang/string_spec.rb
 - spec/erlang/terms_spec.rb
@@ -137,6 +139,7 @@ summary: Erlang terms represented in Ruby
 test_files:
 - spec/erlang/export_spec.rb
 - spec/erlang/list_spec.rb
+- spec/erlang/nil_spec.rb
 - spec/erlang/pid_spec.rb
 - spec/erlang/string_spec.rb
 - spec/erlang/terms_spec.rb