sumac 0.0.0

data/lib/sumac/message/object.rb

@@ -0,0 +1,72 @@
+class Sumac
+  class Message
+    class Object < Message
+    
+      def self.from_json_structure(connection, json_structure)
+        raise MessageError unless json_structure.is_a?(::Hash) && json_structure['message_type'] == 'object'
+        object_class = 
+          case json_structure['object_type']
+          when 'null'
+            Null
+          when 'boolean'
+            Boolean
+          when 'exception'
+            Exception
+          when 'native_exception'
+            NativeException
+          when 'integer'
+            Integer
+          when 'float'
+            Float
+          when 'string'
+            String
+          when 'array'
+            Array
+          when 'hash_table'
+            HashTable
+          when 'exposed'
+            Exposed
+          when 'exposed_child'
+            ExposedChild
+          else
+            raise MessageError
+          end
+        object = object_class.from_json_structure(connection, json_structure)
+        object
+      end
+      
+      def self.from_native_object(connection, native_object)
+        object_class = 
+          case
+          when native_object.is_a?(RemoteObject) || (native_object.respond_to?(:__sumac_exposed_object__) && native_object.respond_to?(:__native_id__))
+            Exposed
+          when native_object.is_a?(RemoteObjectChild) || (native_object.respond_to?(:__sumac_exposed_object__) && native_object.respond_to?(:__parent__))
+            ExposedChild
+          when native_object == nil
+            Null
+          when native_object == true || native_object == false
+            Boolean
+          when Exception.map.transpose[1].any? { |klass| native_object.is_a?(klass) }
+            Exception
+          when native_object.is_a?(::Exception)
+            NativeException
+          when native_object.is_a?(::Integer)
+            Integer
+          when native_object.is_a?(::Float)
+            Float
+          when native_object.is_a?(::String)
+            String
+          when native_object.is_a?(::Array)
+            Array
+          when native_object.is_a?(::Hash)
+            HashTable
+          else
+            raise UnexposableObjectError
+          end
+        object = object_class.from_native_object(connection, native_object)
+        object
+      end
+      
+    end
+  end
+end

data/lib/sumac/message/object/array.rb

@@ -0,0 +1,57 @@
+class Sumac
+  class Message
+    class Object
+      class Array < Base
+      
+        def initialize(connection)
+          super
+          @elements = nil
+        end
+        
+        def parse_json_structure(json_structure)
+          raise MessageError unless json_structure.is_a?(::Hash) &&
+            json_structure['message_type'] == 'object' &&
+            json_structure['object_type'] == 'array'
+          raise MessageError unless json_structure['elements'].is_a?(::Array)
+          @elements = json_structure['elements'].map do |element|
+            Object.from_json_structure(@connection, element)
+          end
+          nil
+        end
+        
+        def parse_native_object(native_object)
+          raise MessageError unless native_object.is_a?(::Array)
+          @elements = native_object.map { |element| Object.from_native_object(@connection, element) }
+          nil
+        end
+        
+        def to_json_structure
+          raise MessageError unless setup?
+          {
+            'message_type' => 'object',
+            'object_type' => 'array',
+            'elements' => @elements.map(&:to_json_structure)
+          }
+        end
+        
+        def to_native_object
+          raise MessageError unless setup?
+          @elements.map(&:to_native_object)
+        end
+        
+        def invert_orgin
+          raise MessageError unless setup?
+          @elements.each { |element| element.invert_orgin if element.respond_to?(:invert_orgin) }
+          nil
+        end
+        
+        private
+        
+        def setup?
+          @elements != nil
+        end
+        
+      end
+    end
+  end
+end

data/lib/sumac/message/object/base.rb

@@ -0,0 +1,21 @@
+class Sumac
+  class Message
+    class Object
+      class Base < Object
+      
+        def self.from_json_structure(connection, json_structure)
+          object = new(connection)
+          object.parse_json_structure(json_structure)
+          object
+        end
+        
+        def self.from_native_object(connection, native_object)
+          object = new(connection)
+          object.parse_native_object(native_object)
+          object
+        end
+        
+      end
+    end
+  end
+end

data/lib/sumac/message/object/boolean.rb

@@ -0,0 +1,45 @@
+class Sumac
+  class Message
+    class Object
+      class Boolean < Base
+      
+        def initialize(connection)
+          super
+          @value = nil
+        end
+        
+        def parse_json_structure(json_structure)
+          raise MessageError unless json_structure.is_a?(::Hash) &&
+            json_structure['message_type'] == 'object' &&
+            json_structure['object_type'] == 'boolean'
+          raise MessageError unless json_structure['value'] == true || json_structure['value'] == false
+          @value = json_structure['value']
+          nil
+        end
+        
+        def parse_native_object(native_object)
+          raise MessageError unless native_object == true || native_object == false
+          @value = native_object
+          nil
+        end
+        
+        def to_json_structure
+          raise MessageError unless setup?
+          {'message_type' => 'object', 'object_type' => 'boolean', 'value' => @value}
+        end
+        
+        def to_native_object
+          raise MessageError unless setup?
+          @value
+        end
+        
+        private
+        
+        def setup?
+          @value != nil
+        end
+        
+      end
+    end
+  end
+end

data/lib/sumac/message/object/exception.rb

@@ -0,0 +1,66 @@
+class Sumac
+  class Message
+    class Object
+      class Exception < Base
+      
+        def self.map
+          @map ||=
+            [
+              ['no_method_exception', NoMethodError],
+              ['argument_exception', ArgumentError],
+              ['stale_object_exception', StaleObjectError],
+              ['unexposable_object_exception', UnexposableObjectError]
+            ]
+        end
+        
+        def initialize(connection)
+          super
+          @type = nil
+          @message = nil
+        end
+        
+        def parse_json_structure(json_structure)
+          raise MessageError unless json_structure.is_a?(::Hash) &&
+            json_structure['message_type'] == 'object' &&
+            json_structure['object_type'] == 'exception'
+          raise MessageError if self.class.map.assoc(json_structure['type']) == nil
+          @type = json_structure['type']
+          if json_structure['message']
+            raise MessageError unless json_structure['message'].is_a?(::String)
+            @message = json_structure['message']
+          end
+          nil
+        end
+        
+        def parse_native_object(native_object)
+          raise MessageError if self.class.map.rassoc(native_object.class) == nil
+          @type = self.class.map.rassoc(native_object.class)[0]
+          @message = native_object.message
+          nil
+        end
+        
+        def to_json_structure
+          raise MessageError unless setup?
+          {
+            'message_type' => 'object',
+            'object_type' => 'exception',
+            'type' => @type,
+            'message' => @message
+          }
+        end
+        
+        def to_native_object
+          raise MessageError unless setup?
+          self.class.map.assoc(@type)[1].new(@message)
+        end
+        
+        private
+        
+        def setup?
+          @type != nil
+        end
+        
+      end
+    end
+  end
+end

data/lib/sumac/message/object/exposed.rb

@@ -0,0 +1,79 @@
+class Sumac
+  class Message
+    class Object
+      class Exposed < Base
+      
+        def initialize(connection)
+          super
+          @orgin = nil
+          @id = nil
+        end
+        
+        def parse_json_structure(json_structure)
+          raise MessageError unless json_structure.is_a?(::Hash) &&
+            json_structure['message_type'] == 'object' &&
+            json_structure['object_type'] == 'exposed'
+          raise MessageError unless json_structure['orgin'] == 'local' || json_structure['orgin'] == 'remote'
+          @orgin = json_structure['orgin']
+          raise MessageError unless json_structure['id'].is_a?(::Integer)
+          @id = json_structure['id']
+          nil
+        end
+        
+        def parse_native_object(native_object)
+          case
+          when native_object.respond_to?(:__sumac_exposed_object__)
+            @orgin = 'local'
+            @id = @connection.local_references.from_object(native_object).exposed_id
+          when native_object.is_a?(RemoteObject)
+            @orgin = 'remote'
+            @id = @connection.remote_references.from_object(native_object).exposed_id
+          else
+            raise MessageError
+          end
+          nil
+        end
+        
+        def to_json_structure
+          raise MessageError unless setup?
+          {
+            'message_type' => 'object',
+            'object_type' => 'exposed',
+            'orgin' => @orgin,
+            'id' => @id
+          }
+        end
+        
+        def to_native_object
+          raise MessageError unless setup?
+          case @orgin
+          when 'local'
+            native_object = @connection.local_references.from_id(@id).exposed_object
+            raise MessageError unless native_object
+            native_object
+          when 'remote'
+            @connection.remote_references.from_id(@id).remote_object
+          end
+        end
+        
+        def invert_orgin
+          raise MessageError unless setup?
+          case @orgin
+          when 'local'
+            @orgin = 'remote'
+          when 'remote'
+            @orgin = 'local'
+          end
+          nil
+        end
+        
+        private
+        
+        def setup?
+          @orgin != nil && @id != nil
+        end
+        
+      end
+    end
+  end
+end

data/lib/sumac/message/object/exposed_child.rb

@@ -0,0 +1,86 @@
+class Sumac
+  class Message
+    class Object
+      class ExposedChild < Base
+      
+        def initialize(connection)
+          super
+          @parent = nil
+          @key = nil
+        end
+        
+        def parse_json_structure(json_structure)
+          raise MessageError unless json_structure.is_a?(::Hash) &&
+            json_structure['message_type'] == 'object' &&
+            json_structure['object_type'] == 'exposed_child'
+          @parent = Exposed.from_json_structure(@connection, json_structure['parent'])
+          key = json_structure['key']
+          raise MessageError unless key.is_a?(::String) || key.is_a?(::Float) || key.is_a?(::Integer)
+          @key = key
+          nil
+        end
+        
+        def parse_native_object(native_object)
+          unless native_object.is_a?(RemoteObjectChild) ||
+                (native_object.respond_to?(:__sumac_exposed_object__) && native_object.respond_to?(:__parent__))
+            raise MessageError
+          end
+          begin
+            native_parent = native_object.__parent__
+          rescue
+            raise MessageError
+          end
+          @parent = Exposed.from_native_object(@connection, native_parent)
+          begin
+            key = native_object.__key__
+          rescue
+            raise MessageError
+          end
+          raise unless key.is_a?(::String) || key.is_a?(::Float) || key.is_a?(::Integer)
+          @key = key
+          nil
+        end
+        
+        def to_json_structure
+          raise MessageError unless setup?
+          {
+            'message_type' => 'object',
+            'object_type' => 'exposed_child',
+            'parent' => @parent.to_json_structure,
+            'key' => @key
+          }
+        end
+        
+        def to_native_object
+          raise MessageError unless setup?
+          native_parent = @parent.to_native_object
+          case native_parent
+          when ExposedObject
+            begin
+              native_child = native_parent.__child__(@key)
+            rescue
+              raise MessageError
+            end
+            raise unless native_child.is_a?(ExposedObjectChild)
+          when RemoteObject
+            native_child = RemoteObjectChild.new(@connection, native_parent, @key)
+          end
+          native_child
+        end
+        
+        def invert_orgin
+          raise MessageError unless setup?
+          @parent.invert_orgin
+          nil
+        end
+        
+        private
+        
+        def setup?
+          @parent != nil && @key != nil
+        end
+        
+      end
+    end
+  end
+end

data/lib/sumac/message/object/float.rb

@@ -0,0 +1,45 @@
+class Sumac
+  class Message
+    class Object
+      class Float < Base
+      
+        def initialize(connection)
+          super
+          @value = nil
+        end
+        
+        def parse_json_structure(json_structure)
+          raise MessageError unless json_structure.is_a?(::Hash) &&
+            json_structure['message_type'] == 'object' &&
+            json_structure['object_type'] == 'float'
+          raise MessageError unless json_structure['value'].is_a?(::Numeric)
+          @value = json_structure['value'].to_f
+          nil
+        end
+        
+        def parse_native_object(native_object)
+          raise MessageError unless native_object.is_a?(::Float)
+          @value = native_object
+          nil
+        end
+        
+        def to_json_structure
+          raise MessageError unless setup?
+          {'message_type' => 'object', 'object_type' => 'float', 'value' => @value}
+        end
+        
+        def to_native_object
+          raise MessageError unless setup?
+          @value
+        end
+        
+        private
+        
+        def setup?
+          @value != nil
+        end
+        
+      end
+    end
+  end
+end