erlang-etf 1.1.1 → 2.0.0

data/.rspec

@@ -1,2 +0,0 @@
---format documentation
---color

data/lib/erlang/etf/bert.rb

@@ -1,74 +0,0 @@
-module Erlang
-  module ETF
-    module BERT
-      extend self
-
-      def evolve(tuple)
-        if tuple.elements[1].respond_to?(:atom_name)
-          case tuple.elements[1].atom_name.to_s.intern
-          ## boolean ##
-          when :false
-            false
-          when :true
-            true
-
-          ## dict ##
-          when :dict
-            if tuple.elements[2].respond_to?(:__ruby_evolve__) and
-              ((list = tuple.elements[2].__ruby_evolve__).is_a?(::Erlang::List) or (list.respond_to?(:empty?) and list.empty?))
-              list.inject({}) do |hash, (key, value)|
-                hash[key] = value
-                hash
-              end
-            else
-              unknown(tuple)
-            end
-
-          ## nil ##
-          when :nil
-            nil
-
-          ## regex ##
-          when :regex
-            if tuple.elements[2].is_a?(Erlang::ETF::Binary) and
-              (tuple.elements[3].is_a?(Erlang::ETF::List) or tuple.elements[3].is_a?(Erlang::ETF::Nil))
-              
-              source = tuple.elements[2].__ruby_evolve__
-              opts   = tuple.elements[3].__ruby_evolve__
-
-              options = 0
-              options |= ::Regexp::EXTENDED   if opts.include?(:extended)
-              options |= ::Regexp::IGNORECASE if opts.include?(:caseless)
-              options |= ::Regexp::MULTILINE  if opts.include?(:multiline)
-              ::Regexp.new(source, options)
-            else
-              unknown(tuple)
-            end
-
-          ## time ##
-          when :time
-            if tuple.arity == 5
-              megaseconds  = tuple.elements[2].__ruby_evolve__
-              seconds      = tuple.elements[3].__ruby_evolve__
-              microseconds = tuple.elements[4].__ruby_evolve__
-
-              Time.at(megaseconds * 1_000_000 + seconds, microseconds)
-            else
-              unknown(tuple)
-            end
-
-          else
-            unknown(tuple)
-          end
-        else
-          unknown(tuple)
-        end
-      end
-
-      def unknown(tuple)
-        ::Erlang::Tuple[*tuple.elements.map(&:__ruby_evolve__)]
-      end
-
-    end
-  end
-end

data/lib/erlang/etf/extensions.rb

@@ -1,144 +0,0 @@
-require "erlang/etf/extensions/object"
-
-module Erlang
-  module ETF
-    module Extensions
-
-      # @private
-      class ::Object
-        include Erlang::ETF::Extensions::Object
-      end
-    end
-  end
-end
-
-require "erlang/etf/extensions/erlang-export"
-require "erlang/etf/extensions/erlang-list"
-require "erlang/etf/extensions/erlang-map"
-require "erlang/etf/extensions/erlang-nil"
-require "erlang/etf/extensions/erlang-pid"
-require "erlang/etf/extensions/erlang-string"
-require "erlang/etf/extensions/erlang-tuple"
-
-module Erlang
-  module ETF
-    module Extensions
-
-      # @private
-      class ::Erlang::Export
-        include Erlang::ETF::Extensions::ErlangExport
-      end
-
-      # @private
-      class ::Erlang::List
-        include Erlang::ETF::Extensions::ErlangList
-      end
-
-      # @private
-      class ::Erlang::Map
-        include Erlang::ETF::Extensions::ErlangMap
-      end
-
-      # @private
-      class ::Erlang::Nil
-        include Erlang::ETF::Extensions::ErlangNil
-      end
-
-      # @private
-      class ::Erlang::Pid
-        include Erlang::ETF::Extensions::ErlangPid
-      end
-
-      # @private
-      class ::Erlang::String
-        include Erlang::ETF::Extensions::ErlangString
-      end
-
-      # @private
-      class ::Erlang::Tuple
-        include Erlang::ETF::Extensions::ErlangTuple
-      end
-    end
-  end
-end
-
-require "erlang/etf/extensions/array"
-require "erlang/etf/extensions/big_decimal"
-require "erlang/etf/extensions/false_class"
-require "erlang/etf/extensions/float"
-require "erlang/etf/extensions/hash"
-require "erlang/etf/extensions/integer"
-require "erlang/etf/extensions/nil_class"
-require "erlang/etf/extensions/regexp"
-require "erlang/etf/extensions/string"
-require "erlang/etf/extensions/symbol"
-require "erlang/etf/extensions/time"
-require "erlang/etf/extensions/true_class"
-
-module Erlang
-  module ETF
-    module Extensions
-
-      # @private
-      class ::Array
-        include Erlang::ETF::Extensions::Array
-      end
-
-      # @private
-      class ::BigDecimal
-        include Erlang::ETF::Extensions::BigDecimal
-      end
-
-      # @private
-      class ::FalseClass
-        include Erlang::ETF::Extensions::FalseClass
-      end
-
-      # @private
-      class ::Float
-        include Erlang::ETF::Extensions::Float
-      end
-
-      # @private
-      class ::Hash
-        include Erlang::ETF::Extensions::Hash
-      end
-
-      # @private
-      class ::Integer
-        include Erlang::ETF::Extensions::Integer
-      end
-
-      # @private
-      class ::NilClass
-        include Erlang::ETF::Extensions::NilClass
-      end
-
-      # @private
-      class ::Regexp
-        include Erlang::ETF::Extensions::Regexp
-      end
-
-      # @private
-      class ::String
-        include Erlang::ETF::Extensions::String
-      end
-
-      # @private
-      class ::Symbol
-        include Erlang::ETF::Extensions::Symbol
-      end
-
-      # @private
-      class ::Time
-        include Erlang::ETF::Extensions::Time
-      end
-
-      # @private
-      class ::TrueClass
-        include Erlang::ETF::Extensions::TrueClass
-      end
-
-    end
-  end
-end

data/lib/erlang/etf/extensions/array.rb

@@ -1,27 +0,0 @@
-module Erlang
-  module ETF
-    module Extensions
-
-      module Array
-
-        def __erlang_type__
-          if empty?
-            :nil
-          else
-            :list
-          end
-        end
-
-        def __erlang_evolve__
-          case __erlang_type__
-          when :nil
-            ETF::Nil.new
-          when :list
-            ETF::List.new(map(&:__erlang_evolve__))
-          end
-        end
-
-      end
-    end
-  end
-end

data/lib/erlang/etf/extensions/big_decimal.rb

@@ -1,20 +0,0 @@
-require 'bigdecimal'
-
-module Erlang
-  module ETF
-    module Extensions
-
-      module BigDecimal
-
-        def __erlang_type__
-          :float
-        end
-
-        def __erlang_evolve__
-          ETF::Float.new(self)
-        end
-
-      end
-    end
-  end
-end

data/lib/erlang/etf/extensions/erlang-export.rb

@@ -1,24 +0,0 @@
-require 'erlang/export'
-
-module Erlang
-  module ETF
-    module Extensions
-
-      module ErlangExport
-
-        def __erlang_type__
-          :export
-        end
-
-        def __erlang_evolve__
-          ETF::Export.new(
-            mod.to_s.intern.__erlang_evolve__,
-            function.to_s.intern.__erlang_evolve__,
-            arity.__erlang_evolve__
-          )
-        end
-
-      end
-    end
-  end
-end

data/lib/erlang/etf/extensions/erlang-list.rb

@@ -1,29 +0,0 @@
-require 'erlang/list'
-
-module Erlang
-  module ETF
-    module Extensions
-
-      module ErlangList
-
-        def __erlang_type__
-          if empty? and not improper?
-            :nil
-          else
-            :list
-          end
-        end
-
-        def __erlang_evolve__
-          case __erlang_type__
-          when :nil
-            ETF::Nil.new
-          when :list
-            ETF::List.new(map(&:__erlang_evolve__), tail.__erlang_evolve__)
-          end
-        end
-
-      end
-    end
-  end
-end

data/lib/erlang/etf/extensions/erlang-map.rb

@@ -1,26 +0,0 @@
-require 'erlang/map'
-
-module Erlang
-  module ETF
-    module Extensions
-
-      module ErlangMap
-
-        def __erlang_type__
-          :map
-        end
-
-        def __erlang_evolve__
-          if size == 0
-            ETF::Map.new([], [])
-          else
-            ETF::Map.new(*map do |(key, value)|
-              [key.__erlang_evolve__, value.__erlang_evolve__]
-            end.transpose)
-          end
-        end
-
-      end
-    end
-  end
-end

data/lib/erlang/etf/extensions/erlang-nil.rb

@@ -1,20 +0,0 @@
-require 'erlang/nil'
-
-module Erlang
-  module ETF
-    module Extensions
-
-      module ErlangNil
-
-        def __erlang_type__
-          :nil
-        end
-
-        def __erlang_evolve__
-          ETF::Nil.new
-        end
-
-      end
-    end
-  end
-end

data/lib/erlang/etf/extensions/erlang-pid.rb

@@ -1,20 +0,0 @@
-require 'erlang/pid'
-
-module Erlang
-  module ETF
-    module Extensions
-
-      module ErlangPid
-
-        def __erlang_type__
-          :pid
-        end
-
-        def __erlang_evolve__
-          ETF::Pid.new(node.to_s.intern.__erlang_evolve__, id, serial, creation)
-        end
-
-      end
-    end
-  end
-end

data/lib/erlang/etf/extensions/erlang-string.rb

@@ -1,31 +0,0 @@
-require 'erlang/string'
-
-module Erlang
-  module ETF
-    module Extensions
-
-      module ErlangString
-
-        STRING_MAX = (+1 << 16) - 1
-
-        def __erlang_type__
-          if bytesize > STRING_MAX
-            :list
-          else
-            :string
-          end
-        end
-
-        def __erlang_evolve__
-          case __erlang_type__
-          when :list
-            ETF::List.new(unpack('C*'))
-          when :string
-            ETF::String.new(self)
-          end
-        end
-
-      end
-    end
-  end
-end

data/lib/erlang/etf/extensions/erlang-tuple.rb

@@ -1,29 +0,0 @@
-require 'erlang/tuple'
-
-module Erlang
-  module ETF
-    module Extensions
-
-      module ErlangTuple
-
-        def __erlang_type__
-          if length < 256
-            :small_tuple
-          else
-            :large_tuple
-          end
-        end
-
-        def __erlang_evolve__
-          case __erlang_type__
-          when :small_tuple
-            ETF::SmallTuple.new(map(&:__erlang_evolve__))
-          when :large_tuple
-            ETF::LargeTuple.new(map(&:__erlang_evolve__))
-          end
-        end
-
-      end
-    end
-  end
-end