erlang-etf 1.0.0

data/lib/erlang/etf/export.rb

@@ -0,0 +1,44 @@
+module Erlang
+  module ETF
+
+    #
+    # 1   | N1     | N2       | N3
+    # --- | ------ | -------- | -----
+    # 113 | Module | Function | Arity
+    #
+    # This term is the encoding for external funs: fun M:F/A.
+    #
+    # Module and Function are atoms (encoded using ATOM_EXT,
+    # SMALL_ATOM_EXT or ATOM_CACHE_REF).
+    #
+    # Arity is an integer encoded using SMALL_INTEGER_EXT.
+    #
+    class Export
+      include Term
+
+      uint8 :tag, always: Terms::EXPORT_EXT
+
+      term :mod # atom, small_atom
+
+      term :function # atom, small_atom
+
+      term :arity # small_integer
+
+      finalize
+
+      def initialize(mod, function, arity)
+        self.mod      = mod
+        self.function = function
+        self.arity    = arity
+      end
+
+      def __ruby_evolve__
+        ::Erlang::Export.new(
+          mod.__ruby_evolve__,
+          function.__ruby_evolve__,
+          arity.__ruby_evolve__
+        )
+      end
+    end
+  end
+end

data/lib/erlang/etf/extensions.rb

@@ -0,0 +1,157 @@
+require "erlang/etf/extensions/object"
+
+module Erlang
+  module ETF
+    module Extensions
+
+      # @private
+      class ::Object
+        extend  Erlang::ETF::Extensions::Object::ClassMethods
+        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-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
+        extend  Erlang::ETF::Extensions::ErlangExport::ClassMethods
+        include Erlang::ETF::Extensions::ErlangExport
+      end
+
+      # @private
+      class ::Erlang::List
+        extend  Erlang::ETF::Extensions::ErlangList::ClassMethods
+        include Erlang::ETF::Extensions::ErlangList
+      end
+
+      # @private
+      class ::Erlang::Nil
+        extend  Erlang::ETF::Extensions::ErlangNil::ClassMethods
+        include Erlang::ETF::Extensions::ErlangNil
+      end
+
+      # @private
+      class ::Erlang::Pid
+        extend  Erlang::ETF::Extensions::ErlangPid::ClassMethods
+        include Erlang::ETF::Extensions::ErlangPid
+      end
+
+      # @private
+      class ::Erlang::String
+        extend  Erlang::ETF::Extensions::ErlangString::ClassMethods
+        include Erlang::ETF::Extensions::ErlangString
+      end
+
+      # @private
+      class ::Erlang::Tuple
+        extend  Erlang::ETF::Extensions::ErlangTuple::ClassMethods
+        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
+        extend  Erlang::ETF::Extensions::Array::ClassMethods
+        include Erlang::ETF::Extensions::Array
+      end
+
+      # @private
+      class ::BigDecimal
+        extend  Erlang::ETF::Extensions::BigDecimal::ClassMethods
+        include Erlang::ETF::Extensions::BigDecimal
+      end
+
+      # @private
+      class ::FalseClass
+        extend  Erlang::ETF::Extensions::FalseClass::ClassMethods
+        include Erlang::ETF::Extensions::FalseClass
+      end
+
+      # @private
+      class ::Float
+        extend  Erlang::ETF::Extensions::Float::ClassMethods
+        include Erlang::ETF::Extensions::Float
+      end
+
+      # @private
+      class ::Hash
+        extend  Erlang::ETF::Extensions::Hash::ClassMethods
+        include Erlang::ETF::Extensions::Hash
+      end
+
+      # @private
+      class ::Integer
+        extend  Erlang::ETF::Extensions::Integer::ClassMethods
+        include Erlang::ETF::Extensions::Integer
+      end
+
+      # @private
+      class ::NilClass
+        extend  Erlang::ETF::Extensions::NilClass::ClassMethods
+        include Erlang::ETF::Extensions::NilClass
+      end
+
+      # @private
+      class ::Regexp
+        extend  Erlang::ETF::Extensions::Regexp::ClassMethods
+        include Erlang::ETF::Extensions::Regexp
+      end
+
+      # @private
+      class ::String
+        extend  Erlang::ETF::Extensions::String::ClassMethods
+        include Erlang::ETF::Extensions::String
+      end
+
+      # @private
+      class ::Symbol
+        extend  Erlang::ETF::Extensions::Symbol::ClassMethods
+        include Erlang::ETF::Extensions::Symbol
+      end
+
+      # @private
+      class ::Time
+        extend  Erlang::ETF::Extensions::Time::ClassMethods
+        include Erlang::ETF::Extensions::Time
+      end
+
+      # @private
+      class ::TrueClass
+        extend  Erlang::ETF::Extensions::TrueClass::ClassMethods
+        include Erlang::ETF::Extensions::TrueClass
+      end
+
+    end
+  end
+end

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

@@ -0,0 +1,29 @@
+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
+
+        module ClassMethods
+        end
+      end
+    end
+  end
+end

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

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

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

@@ -0,0 +1,26 @@
+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
+
+        module ClassMethods
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,31 @@
+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
+
+        module ClassMethods
+        end
+      end
+    end
+  end
+end

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

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

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

@@ -0,0 +1,22 @@
+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
+
+        module ClassMethods
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,22 @@
+require 'erlang/string'
+
+module Erlang
+  module ETF
+    module Extensions
+
+      module ErlangString
+
+        def __erlang_type__
+          :string
+        end
+
+        def __erlang_evolve__
+          ETF::String.new(self)
+        end
+
+        module ClassMethods
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,31 @@
+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
+
+        module ClassMethods
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,28 @@
+module Erlang
+  module ETF
+    module Extensions
+
+      #
+      # boolean {bert, true} or {bert, false}
+      #
+      # Erlang equates the true and false atoms with booleans while other languages do not have this behavior.
+      # To disambiguate these cases, booleans are expressed as their own complex type.
+      #
+      # See: http://bert-rpc.org/
+      #
+      module FalseClass
+
+        def __erlang_type__
+          :bert_boolean
+        end
+
+        def __erlang_evolve__
+          ::Erlang::Tuple[:bert, :false].__erlang_evolve__
+        end
+
+        module ClassMethods
+        end
+      end
+    end
+  end
+end