jsi-dev 0.0.0.pre.commonmarker

data/lib/jsi/jsi_coder.rb

@@ -0,0 +1,92 @@
+# frozen_string_literal: true
+
+module JSI
+  # this is an ActiveRecord serialization coder intended to serialize between
+  # JSON-compatible objects on the database side, and a JSI instance loaded on
+  # the model attribute.
+  #
+  # on its own this coder is useful with a JSON database column. in order to
+  # serialize further to a string of JSON, or to YAML, the gem `arms` allows
+  # coders to be chained together. for example, for a table `foos` and a column
+  # `preferences_json` which is an actual json column, and `preferences_txt`
+  # which is a string:
+  #
+  #     Preferences = JSI.new_schema_module(preferences_json_schema)
+  #     class Foo < ActiveRecord::Base
+  #       # as a single serializer, loads a Preferences instance from a json column
+  #       serialize 'preferences_json', JSI::JSICoder.new(Preferences)
+  #
+  #       # for a text column, arms_serialize will go from JSI to JSON-compatible
+  #       # objects to a string. the symbol `:jsi` is a shortcut for JSI::JSICoder.
+  #       arms_serialize 'preferences_txt', [:jsi, Preferences], :json
+  #     end
+  #
+  # the column data may be either a single instance of the schema class
+  # (represented as one json object) or an array of them (represented as a json
+  # array of json objects), indicated by the keyword argument `array`.
+  class JSICoder
+    # @param schema [#new_jsi] a Schema, SchemaSet, or JSI schema module. #load
+    #   will instantiate column data using the JSI schemas represented.
+    # @param array [Boolean] whether the dumped data represent one instance of the schema,
+    #   or an array of them. note that it may be preferable to simply use an array schema.
+    # @param jsi_opt [Hash] keyword arguments to pass to {Schema#new_jsi} when loading
+    def initialize(schema, array: false, jsi_opt: {})
+      unless schema.respond_to?(:new_jsi)
+        raise(ArgumentError, "schema param does not respond to #new_jsi: #{schema.inspect}")
+      end
+      @schema = schema
+      @array = array
+      @jsi_opt = jsi_opt
+    end
+
+    # loads the database column to JSI instances of our schema
+    #
+    # @param data [Object, Array, nil] the dumped schema instance(s) of the JSI(s)
+    # @return [JSI::Base, Array<JSI::Base>, nil] the JSI or JSIs containing the schema
+    #   instance(s), or nil if data is nil
+    def load(data)
+      return nil if data.nil?
+
+      if @array
+        unless data.respond_to?(:to_ary)
+          raise TypeError, "expected array-like column data; got: #{data.class}: #{data.inspect}"
+        end
+        data.to_ary.map { |el| load_object(el) }
+      else
+        load_object(data)
+      end
+    end
+
+    # dumps the object for the database
+    # @param object [JSI::Base, Array<JSI::Base>, nil] the JSI or array of JSIs containing
+    #   the schema instance(s)
+    # @return [Object, Array, nil] the schema instance(s) of the JSI(s), or nil if object is nil
+    def dump(object)
+      return nil if object.nil?
+
+      if @array
+        unless object.respond_to?(:to_ary)
+          raise(TypeError, "expected array-like attribute; got: #{object.class}: #{object.inspect}")
+        end
+        object.to_ary.map do |el|
+          dump_object(el)
+        end
+      else
+        dump_object(object)
+      end
+    end
+
+    private
+    # @param data [Object]
+    # @return [JSI::Base]
+    def load_object(data)
+      @schema.new_jsi(data, **@jsi_opt)
+    end
+
+    # @param object [JSI::Base, Object]
+    # @return [Object]
+    def dump_object(object)
+      JSI::Util.as_json(object)
+    end
+  end
+end

data/lib/jsi/metaschema.rb

@@ -0,0 +1,6 @@
+# frozen_string_literal: true
+
+module JSI
+  module Metaschema
+  end
+end

data/lib/jsi/metaschema_node/bootstrap_schema.rb

@@ -0,0 +1,126 @@
+# frozen_string_literal: true
+
+module JSI
+  # internal class to bootstrap a metaschema. represents a schema without the complexity of JSI::Base. the
+  # schema is represented but schemas describing the schema are not.
+  #
+  # this class is to only be instantiated on nodes in the document that are known to be schemas.
+  # Schema#subschema and Schema#resource_root_subschema are the intended mechanisms to instantiate subschemas
+  # and resolve references. #[] and #jsi_root_node are not implemented.
+  #
+  # schema implementation modules are included on generated subclasses of BootstrapSchema by
+  # {SchemaClasses.bootstrap_schema_class}. that subclass is instantiated with a document and
+  # pointer, representing a schema.
+  #
+  # @api private
+  class MetaschemaNode::BootstrapSchema
+    include Util::FingerprintHash
+    include Schema::SchemaAncestorNode
+    include Schema
+
+    class << self
+      def inspect
+        if self == MetaschemaNode::BootstrapSchema
+          name
+        else
+          -"#{name || MetaschemaNode::BootstrapSchema.name} (#{schema_implementation_modules.map(&:inspect).join(', ')})"
+        end
+      end
+
+      alias_method :to_s, :inspect
+    end
+
+    # @param jsi_ptr [JSI::Ptr] pointer to the schema in the document
+    # @param jsi_document [#to_hash, #to_ary, Boolean, Object] document containing the schema
+    def initialize(
+        jsi_document,
+        jsi_ptr: Ptr[],
+        jsi_schema_base_uri: nil
+    )
+      raise(Bug, "no #schema_implementation_modules") unless respond_to?(:schema_implementation_modules)
+
+      super()
+
+      self.jsi_ptr = jsi_ptr
+      self.jsi_document = jsi_document
+      self.jsi_schema_base_uri = jsi_schema_base_uri
+      self.jsi_schema_resource_ancestors = Util::EMPTY_ARY
+    end
+
+    # document containing the schema content
+    attr_reader :jsi_document
+
+    # JSI::Ptr pointing to this schema within the document
+    attr_reader :jsi_ptr
+
+    def jsi_node_content
+      jsi_ptr.evaluate(jsi_document)
+    end
+
+    # overrides {Schema#subschema}
+    def subschema(subptr)
+      self.class.new(
+        jsi_document,
+        jsi_ptr: jsi_ptr + subptr,
+        jsi_schema_base_uri: jsi_resource_ancestor_uri,
+      )
+    end
+
+    # overrides {Schema#resource_root_subschema}
+    def resource_root_subschema(ptr)
+      # BootstrapSchema does not track jsi_schema_resource_ancestors used by Schema#schema_resource_root;
+      # resource_root_subschema is always relative to the document root.
+      # BootstrapSchema also does not implement jsi_root_node or #[]. we instantiate the ptr directly
+      # rather than as a subschema from the root.
+      self.class.new(
+        jsi_document,
+        jsi_ptr: Ptr.ary_ptr(ptr),
+        jsi_schema_base_uri: nil,
+      )
+    end
+
+    # @return [String]
+    def inspect
+      -"\#<#{jsi_object_group_text.join(' ')} #{schema_content.inspect}>"
+    end
+
+    alias_method :to_s, :inspect
+
+    # pretty-prints a representation of self to the given printer
+    # @return [void]
+    def pretty_print(q)
+      q.text '#<'
+      q.text jsi_object_group_text.join(' ')
+      q.group_sub {
+        q.nest(2) {
+          q.breakable ' '
+          q.pp schema_content
+        }
+      }
+      q.breakable ''
+      q.text '>'
+    end
+
+    # @private
+    # @return [Array<String>]
+    def jsi_object_group_text
+      [
+        self.class.name || MetaschemaNode::BootstrapSchema.name,
+        -"(#{schema_implementation_modules.map(&:inspect).join(', ')})",
+        jsi_ptr.uri,
+      ]
+    end
+
+    # see {Util::Private::FingerprintHash}
+    # @api private
+    def jsi_fingerprint
+      {
+        class: self.class,
+        jsi_ptr: @jsi_ptr,
+        jsi_document: @jsi_document,
+        jsi_schema_base_uri: jsi_schema_base_uri,
+        schema_implementation_modules: schema_implementation_modules,
+      }
+    end
+  end
+end

data/lib/jsi/metaschema_node.rb

@@ -0,0 +1,262 @@
+# frozen_string_literal: true
+
+module JSI
+  # a MetaschemaNode is a JSI instance representing a node in a document which contains a metaschema.
+  # the root of the metaschema is pointed to by metaschema_root_ptr.
+  # the schema describing the root of the document is pointed to by root_schema_ptr.
+  #
+  # like JSI::Base's normal subclasses, this class represents an instance of a schema set, an instance
+  # which may itself be a schema. unlike JSI::Base, the document containing the instance and its schemas
+  # is the same, and a schema (the metaschema) may be an instance of itself.
+  #
+  # unlike JSI::Base's normal subclasses, the schemas describing the instance are not part of the class.
+  # since the metaschema describes itself, attempting to construct a class from the JSI Schema Module of a
+  # schema which is itself an instance of that class results in a causality loop.
+  # instead, a MetaschemaNode calculates its {#jsi_schemas} and extends itself with their JSI Schema
+  # modules during initialization.
+  # the MetaschemaNode of the metaschema is extended with its own JSI Schema Module.
+  #
+  # if the MetaschemaNode's schemas include its self, it is extended with JSI::Metaschema.
+  #
+  # a MetaschemaNode is extended with JSI::Schema when it represents a schema - this is the case when
+  # the metaschema is one of its schemas.
+  class MetaschemaNode < Base
+    autoload :BootstrapSchema, 'jsi/metaschema_node/bootstrap_schema'
+
+    # @param jsi_document the document containing the metaschema
+    # @param jsi_ptr [JSI::Ptr] ptr to this MetaschemaNode in jsi_document
+    # @param schema_implementation_modules [Enumerable<Module>] modules which implement the functionality
+    #   of the schema. these are included on the {Schema#jsi_schema_module} of the metaschema.
+    #   they extend any schema described by the metaschema, including those in the document containing
+    #   the metaschema, and the metaschema itself.
+    #   see {Schema#describes_schema!} param `schema_implementation_modules`.
+    # @param metaschema_root_ptr [JSI::Ptr] ptr to the root of the metaschema in the jsi_document
+    # @param root_schema_ptr [JSI::Ptr] ptr to the schema describing the root of the jsi_document
+    def initialize(
+        jsi_document,
+        jsi_ptr: Ptr[],
+        schema_implementation_modules: ,
+        metaschema_root_ptr: Ptr[],
+        root_schema_ptr: Ptr[],
+        jsi_schema_base_uri: nil,
+        jsi_schema_registry: nil,
+        jsi_root_node: nil
+    )
+      super(jsi_document,
+        jsi_ptr: jsi_ptr,
+        jsi_indicated_schemas: SchemaSet[],
+        jsi_schema_base_uri: jsi_schema_base_uri,
+        jsi_schema_registry: jsi_schema_registry,
+        jsi_root_node: jsi_root_node,
+      )
+
+      @schema_implementation_modules = Util.ensure_module_set(schema_implementation_modules)
+      @metaschema_root_ptr = metaschema_root_ptr
+      @root_schema_ptr = root_schema_ptr
+
+      if jsi_ptr.root? && jsi_schema_base_uri
+        raise(NotImplementedError, "unsupported jsi_schema_base_uri on metaschema document root")
+      end
+
+      jsi_node_content = self.jsi_node_content
+
+      extends = Set[]
+
+      instance_for_schemas = jsi_document
+      bootstrap_schema_class = JSI::SchemaClasses.bootstrap_schema_class(schema_implementation_modules)
+      root_bootstrap_schema = bootstrap_schema_class.new(
+        jsi_document,
+        jsi_ptr: root_schema_ptr,
+        jsi_schema_base_uri: nil, # supplying jsi_schema_base_uri on root bootstrap schema is not supported
+      )
+      our_bootstrap_indicated_schemas = jsi_ptr.tokens.inject(SchemaSet[root_bootstrap_schema]) do |bootstrap_indicated_schemas, tok|
+        bootstrap_schemas = bootstrap_indicated_schemas.inplace_applicator_schemas(instance_for_schemas)
+        child_indicated_schemas = bootstrap_schemas.child_applicator_schemas(tok, instance_for_schemas)
+        instance_for_schemas = instance_for_schemas[tok]
+        child_indicated_schemas
+      end
+      @indicated_schemas_map = jsi_memomap { bootstrap_schemas_to_msn(our_bootstrap_indicated_schemas) }
+
+      our_bootstrap_schemas = our_bootstrap_indicated_schemas.inplace_applicator_schemas(instance_for_schemas)
+      our_bootstrap_schemas.each do |bootstrap_schema|
+        if bootstrap_schema.jsi_ptr == metaschema_root_ptr
+          # this is described by the metaschema, i.e. this is a schema
+          extend Schema
+          schema_implementation_modules.each do |schema_implementation_module|
+            extend schema_implementation_module
+          end
+          extends += schema_implementation_modules
+        end
+        if bootstrap_schema.jsi_ptr == jsi_ptr
+          # this is the metaschema (it is described by itself)
+          extend Metaschema
+          extends << Metaschema
+        end
+      end
+
+      @jsi_schemas = bootstrap_schemas_to_msn(our_bootstrap_schemas)
+
+      # note: jsi_schemas must already be set for jsi_schema_module to be used/extended
+      if is_a?(Metaschema)
+        describes_schema!(schema_implementation_modules)
+      end
+
+      extends_for_instance = JSI::SchemaClasses.includes_for(jsi_node_content)
+      extends.merge(extends_for_instance)
+      extends.freeze
+
+      conflicting_modules = Set[self.class] + extends + @jsi_schemas.map(&:jsi_schema_module)
+      reader_modules = @jsi_schemas.map do |schema|
+        JSI::SchemaClasses.schema_property_reader_module(schema, conflicting_modules: conflicting_modules)
+      end
+
+      readers = reader_modules.map(&:jsi_property_readers).inject(Set[], &:merge).freeze
+      define_singleton_method(:jsi_property_readers) { readers }
+
+      reader_modules.each { |reader_module| extend reader_module }
+
+      extends_for_instance.each do |m|
+        extend m
+      end
+
+      @jsi_schemas.each do |schema|
+        extend schema.jsi_schema_module
+      end
+    end
+
+    # Set of modules to apply to schemas which are instances of (described by) the metaschema
+    # @return [Set<Module>]
+    attr_reader :schema_implementation_modules
+
+    # ptr to the root of the metaschema in the jsi_document
+    # @return [JSI::Ptr]
+    attr_reader :metaschema_root_ptr
+
+    # ptr to the schema of the root of the jsi_document
+    # @return [JSI::Ptr]
+    attr_reader :root_schema_ptr
+
+    # JSI Schemas describing this MetaschemaNode
+    # @return [JSI::SchemaSet]
+    attr_reader :jsi_schemas
+
+    # See {Base#jsi_indicated_schemas}
+    # @return [JSI::SchemaSet]
+    def jsi_indicated_schemas
+      @indicated_schemas_map[]
+    end
+
+    # see {Base#jsi_child}
+    def jsi_child(token, as_jsi: )
+      child_node = @root_descendent_node_map[ptr: jsi_ptr[token]]
+
+      jsi_child_as_jsi(jsi_node_content_child(token), child_node.jsi_schemas, as_jsi) do
+        child_node
+      end
+    end
+    private :jsi_child
+
+    # See {Base#jsi_default_child}
+    def jsi_default_child(token, as_jsi: )
+      jsi_node_content_child(token)
+    end
+    private :jsi_default_child # internals for #[] but idk, could be public
+
+    # instantiates a new MetaschemaNode whose instance is a modified copy of this MetaschemaNode's instance
+    # @yield [Object] the node content of the instance. the block should result
+    #   in a (nondestructively) modified copy of this.
+    # @return [MetaschemaNode] modified copy of self
+    def jsi_modified_copy(&block)
+      if jsi_ptr.root?
+        modified_document = jsi_ptr.modified_document_copy(jsi_document, &block)
+        MetaschemaNode.new(modified_document, **our_initialize_params)
+      else
+        modified_jsi_root_node = jsi_root_node.jsi_modified_copy do |root|
+          jsi_ptr.modified_document_copy(root, &block)
+        end
+        modified_jsi_root_node.jsi_descendent_node(jsi_ptr)
+      end
+    end
+
+    # @private
+    # @return [Array<String>]
+    def jsi_object_group_text
+      if jsi_schemas && jsi_schemas.any?
+        class_n_schemas = -"#{self.class} (#{jsi_schemas.map { |s| s.jsi_schema_module.name_from_ancestor || s.jsi_ptr.uri }.join(' ')})"
+      else
+        class_n_schemas = self.class.to_s
+      end
+      [
+        class_n_schemas,
+        is_a?(Metaschema) ? "Metaschema" : is_a?(Schema) ? "Schema" : nil,
+        *(jsi_node_content.respond_to?(:jsi_object_group_text) ? jsi_node_content.jsi_object_group_text : nil),
+      ].compact
+    end
+
+    # see {Util::Private::FingerprintHash}
+    # @api private
+    def jsi_fingerprint
+      {class: self.class, jsi_document: jsi_document}.merge(our_initialize_params)
+    end
+
+    protected
+
+    attr_reader :root_descendent_node_map
+
+    private
+
+    def jsi_memomaps_initialize
+      if jsi_ptr.root?
+        @root_descendent_node_map = jsi_memomap(key_by: proc { |i| i[:ptr] }, &method(:jsi_root_descendent_node_compute))
+      else
+        @root_descendent_node_map = @jsi_root_node.root_descendent_node_map
+      end
+    end
+
+    # note: does not include jsi_root_node
+    def our_initialize_params
+      {
+        jsi_ptr: jsi_ptr,
+        schema_implementation_modules: schema_implementation_modules,
+        metaschema_root_ptr: metaschema_root_ptr,
+        root_schema_ptr: root_schema_ptr,
+        jsi_schema_base_uri: jsi_schema_base_uri,
+        jsi_schema_registry: jsi_schema_registry,
+      }
+    end
+
+    # note: not for root node
+    def new_node(**params)
+      MetaschemaNode.new(jsi_document, jsi_root_node: jsi_root_node, **our_initialize_params, **params)
+    end
+
+    def jsi_root_descendent_node_compute(ptr: )
+      #chkbug raise(Bug) unless jsi_ptr.root?
+      if ptr.root?
+        self
+      else
+        new_node(
+          jsi_ptr: ptr,
+          jsi_schema_base_uri: jsi_resource_ancestor_uri,
+        )
+      end
+    end
+
+    # @param bootstrap_schemas [Enumerable<BootstrapSchema>]
+    # @return [SchemaSet<MetaschemaNode>]
+    def bootstrap_schemas_to_msn(bootstrap_schemas)
+      SchemaSet.new(bootstrap_schemas) do |bootstrap_schema|
+        if bootstrap_schema.jsi_ptr == jsi_ptr
+          self
+        elsif bootstrap_schema.jsi_ptr.root?
+          @jsi_root_node
+        else
+          new_node(
+            jsi_ptr: bootstrap_schema.jsi_ptr,
+            jsi_schema_base_uri: bootstrap_schema.jsi_schema_base_uri,
+          )
+        end
+      end
+    end
+  end
+end