l43_open_object 0.3.0 → 0.4.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: b6d55f44ec50f1cd6ba1dc6488db8cd515a5cef61841a34da88e30032963932c
-  data.tar.gz: 3f04fe5f15b9e81f9c80b57099d0bbf691eff30be9f32707002175b7c3b82850
+  metadata.gz: 4de3a4790f943a126eec581676c8b3dfcfb19ee6a300baba9bc5d93a7e43d084
+  data.tar.gz: 7da96a9783f76cf20571dec4808dcf33e3690e399d20e320cc51e0445bee3860
 SHA512:
-  metadata.gz: d132576dde02301168436e9633f0a4caa4b61f61d055b7fcdcb52a3e00665d1c4d5ff8dff00366a30f28c5f12fe54ca2b031bab5a35d6b0c8c8dca11a7e70e98
-  data.tar.gz: 30e854ee3d537492a0ee2e2d5b69bf0f47a0350071e5953a7596be59e411139ea82c2b06b09e59fc7646102651432033cd0c5979a966abfefbfe9366aa3ad271
+  metadata.gz: 25f70fda2074d8008c758d0614c4448e921212591ec049148b09ad517ca0d1eedf72209e6bc05acdf4f3e81ac99c69d04597bdf07362de314663c0a7c2bad1cf
+  data.tar.gz: b8004ec9f68be0978e5b3d036a441c2a845d3550d5cfa0b3bc26467dd8132f5b1940fef68616ecec5b1ab6725e4740fc251cadf7b7a44a7b83ac4bab161f0e22

data/lib/l43/kernel.rb

@@ -0,0 +1,14 @@
+# frozen_string_literal: true
+
+module Kernel
+  def import(*path)
+    require(File.join(["l43", *path]))
+
+    segments = path.map do |seg|
+      seg.split("_").map(&:capitalize).join
+    end.join("::")
+    Kernel.const_get("L43::#{segments}")
+  end
+
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/l43/open_object/initializer.rb

@@ -6,16 +6,19 @@ module L43
     module Initializer extend self
 
       def define_initialize(klass, atts, defaults, blk)
-        klass.define_method :initialize do |**kwds|
+        klass.define_method :initialize do |**kwds, &b|
           spurious = kwds.keys - atts - defaults.keys
           raise ArgumentError, "spurious keyword parameters: #{spurious.inspect}" unless spurious.empty?
 
           values = defaults.merge(kwds)
           values.each do |key, value|
-            instance_variable_set("@#{key}", value)
+            if Proc == value
+              instance_variable_set("@#{key}", b)
+            else
+              instance_variable_set("@#{key}", value)
+            end
           end
 
-
           if blk
             more_values = instance_exec(OpenStruct.new(values), &blk)
             if Hash === more_values 

data/lib/l43/open_object/version.rb

@@ -2,7 +2,7 @@
 
 module L43
   module OpenObject
-    VERSION = "0.3.0"
+    VERSION = "0.4.0"
   end
 end
 # SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/l43/typed_object/behavior.rb

@@ -0,0 +1,25 @@
+# frozen_string_literal: true
+
+require 'ostruct'
+module L43
+  module TypedObject
+    module Behavior
+      def ==(other)
+        return false unless self.class === other
+        other.to_h == to_h
+      end
+
+      def deconstruct_keys(*) = to_h
+
+      def merge(**args)
+        self.class.new(**to_h.merge(**args))
+      end
+
+
+      def to_ostruct
+        OpenStruct.new(to_h)
+      end
+    end
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/l43/typed_object/constants.rb

@@ -0,0 +1,12 @@
+# frozen_string_literal: true
+
+module L43
+  module TypedObject
+    None = BasicObject.new
+
+    MissingAttribute = Class.new(RuntimeError)
+    SpuriousAttribute = Class.new(RuntimeError)
+    ValueError = Class.new(RuntimeError)
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/l43/typed_object/description.rb

@@ -0,0 +1,41 @@
+# frozen_string_literal: true
+
+require 'ostruct'
+require_relative 'implementation'
+module L43
+  module TypedObject
+    class Description
+
+      def check_types!
+        ImplHelper.check_value_errors!(args: defaults, attributes:)
+      end
+
+      def implement =
+        Implementation.new(klass:, attributes: attributes.freeze, defaults:)
+
+      private
+      attr_reader :allowed, :klass, :required
+      def initialize(klass)
+        @klass = klass
+      end
+
+
+      def attr(name, default: None, as: None, &blk)
+        attributes.update(name => OpenStruct.new(default:, type: as, constraint: blk))
+      end
+
+      def attributes =  @__attributes__ ||= {}
+
+      def defaults
+        @__defaults__ ||= attributes.inject({}) do |defaults, (name, desc)|
+          if desc.default == None
+            defaults
+          else
+            defaults.merge(name => desc.default)
+          end
+        end.freeze
+      end
+    end
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/l43/typed_object/impl_helper.rb

@@ -0,0 +1,64 @@
+# frozen_string_literal: true
+
+module L43
+  module TypedObject
+    module ImplHelper extend self
+      def check_for_missing!(actual:, required:)
+        missing = required - actual
+        return if missing.empty?
+
+        raise MissingAttribute, "the following attributes do not have a default, but are not provided: #{missing.inspect}"
+      end
+
+      def check_for_spurious!(actual:, allowed:)
+        spurious = actual - allowed
+        return if spurious.empty?
+
+        raise SpuriousAttribute, "the following attributes have not been defined on this class: #{spurious.inspect}"
+      end
+
+      def check_type(type, value)
+        return if None == type
+        case type
+        when Array
+          return true unless type.member?(value)
+        else
+          return true unless type === value
+        end
+      end
+
+      def check_value(desc, value)
+        return :type if check_type(desc.type, value)
+        case desc.constraint
+        when nil
+          nil
+        else
+          return :constraint unless desc.constraint.(value)
+        end
+      end
+
+      def check_value_errors!(args:, attributes:)
+        errors = _get_value_errors(args:, attributes:)
+        return if errors.empty?
+
+        raise ValueError, "bad values:\n#{errors.join("\n")}"
+      end
+
+      private
+      def _get_value_errors(args:, attributes:)
+        args.map do |name, value|
+          desc = attributes[name] 
+          case check_value(desc, value)
+          when :type
+            "  bad value: #{value.inspect} for attribute #{name}, expected type was: #{desc.type.inspect}"
+          when :constraint
+            "  value: #{value.inspect} violates constraint for attribute #{name}"
+          else
+            nil
+          end
+        end.compact
+      end
+    end
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/l43/typed_object/implementation.rb

@@ -0,0 +1,91 @@
+# frozen_string_literal: true
+
+require_relative 'behavior'
+require_relative 'impl_helper'
+
+module L43
+  module TypedObject
+    class Implementation
+
+      private
+      attr_reader :attributes, :defaults, :klass
+
+      def initialize(klass:, attributes:, defaults:)
+        @attributes = attributes
+        @defaults = defaults
+        @klass = klass
+        implement
+      end
+
+      def allowed =  @__allowed__ ||= attributes.map(&:first)
+
+      def define_behavior
+        klass.send :include, Behavior
+      end
+
+      def define_initialize
+        allowed = self.allowed
+        attributes = self.attributes
+        defaults = self.defaults
+        required = self.required.keys
+
+        klass.define_method(:initialize) do |**args|
+          args = defaults.merge(args)
+          actual = args.keys
+          ImplHelper.check_for_missing!(required:, actual:)
+          ImplHelper.check_for_spurious!(allowed:, actual:)
+          ImplHelper.check_value_errors!(args:, attributes:)
+          args.each do |name, value|
+            instance_variable_set("@#{name}", value)
+          end
+        end
+      end
+
+      def define_read_access
+        allowed = self.allowed
+        klass.module_eval do
+          attr_reader(*allowed)
+        end
+      end
+
+      def define_to_h
+        attributes = self.attributes.keys
+        klass.define_method(:to_h) do
+          attributes.inject({}) do |result, att_name|
+            result.merge(att_name => instance_variable_get("@#{att_name}"))
+          end
+        end
+      end
+
+      def define_update
+        allowed = self.allowed
+        attributes = self.attributes
+        klass.define_method(:update) do |**args|
+          ImplHelper.check_value_errors!(args:, attributes:)
+          ImplHelper.check_for_spurious!(allowed:, actual: args.keys)
+          args.each do |name, value|
+            instance_variable_set("@#{name}", value)
+          end
+          self
+        end
+      end
+
+      def implement
+        separate_attributes
+        define_read_access
+        define_to_h
+        define_update
+        define_behavior
+        define_initialize
+      end
+
+      def required =  @__required__ ||= {}
+
+      def separate_attributes
+        attributes.each { |name, desc| required.update(name => desc) if desc.default == None } 
+      end
+
+    end
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/l43/typed_object.rb

@@ -0,0 +1,15 @@
+# frozen_string_literal: true
+
+require_relative 'typed_object/constants'
+require_relative 'typed_object/description'
+module L43
+  module TypedObject
+    def def_atts(&blk)
+      desc = Description.new(self)
+      desc.instance_eval(&blk)
+      desc.check_types!
+      desc.implement
+    end
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

metadata

@@ -1,13 +1,13 @@
 --- !ruby/object:Gem::Specification
 name: l43_open_object
 version: !ruby/object:Gem::Version
-  version: 0.3.0
+  version: 0.4.0
 platform: ruby
 authors:
 - Robert Dober
 bindir: bin
 cert_chain: []
-date: 2026-04-27 00:00:00.000000000 Z
+date: 2026-11-01 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: ostruct
@@ -37,10 +37,17 @@ extra_rdoc_files: []
 files:
 - LICENSE
 - lib/l43.rb
+- lib/l43/kernel.rb
 - lib/l43/open_object.rb
 - lib/l43/open_object/behavior.rb
 - lib/l43/open_object/initializer.rb
 - lib/l43/open_object/version.rb
+- lib/l43/typed_object.rb
+- lib/l43/typed_object/behavior.rb
+- lib/l43/typed_object/constants.rb
+- lib/l43/typed_object/description.rb
+- lib/l43/typed_object/impl_helper.rb
+- lib/l43/typed_object/implementation.rb
 homepage: https://codeberg.org/lab419/l43_open_object
 licenses:
 - AGPL-3.0-or-later
@@ -59,7 +66,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubygems_version: 4.0.10
+rubygems_version: 4.0.20
 specification_version: 4
 summary: Define attributes with potential defaults, get all the goodies...
 test_files: []