l43_base 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 80a1f55728d1bde85d95be0c9a6578ebc5c48741224cdbef3f3ea3cee4208140
+  data.tar.gz: 900b22d8c1623ace5f39e0d4e31f9913140dcdda3f26f62abd30eb095ccffe5d
+SHA512:
+  metadata.gz: '035865b356f7c7ab01611faafffae4bebca2581a9b5769540fd2db4e518d2542af07798cee6ace287a7f2e2ba36d892ecc4f4c9a1e3e2e09515820165a2d73e1'
+  data.tar.gz: 610e0f965e14ac7ca81e9ee53f6e560a8fd836c9b15fd6ed6a4205c3e9f54d3ac0eb7856f1366e304c0e6d17d4d93545bd64fecd3352899dc8d13bb113c7260d

data/lib/l43/base/data_class/data_class_class.rb

@@ -0,0 +1,24 @@
+# frozen_string_literal: true
+
+module L43
+  module Base
+    module DataClass
+      class DataClassClass
+
+        def ==(other)
+          return false unless self.class === other
+          other.to_h == to_h
+        end
+
+        def update_attribute(attribute, &blk)
+          raise ArgumentError, "cannot update attribute #{attribute.inspect} without a block" unless blk
+          update(attribute => blk.(to_h[attribute]))
+        end
+
+        private
+        def check_instance! = nil
+      end
+    end
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/l43/base/data_class/data_class_maker.rb

@@ -0,0 +1,95 @@
+# frozen_string_literal: true
+
+require_relative './data_class_class'
+module L43
+  module Base
+    module DataClass
+      class DataClassMaker
+
+        attr_reader :block_name, :klass
+
+        def define(*required, **defaulted, &blk)
+          @klass = Class.new(DataClassClass)
+          define_klass(required:, defaulted:)
+          klass.module_eval(&blk) if blk
+          klass.freeze
+        end
+
+        private
+        def initialize(block_name: nil)
+          @block_name = block_name
+        end
+
+        def define_accessors(names:)
+          klass.instance_eval {
+            attr_reader(*names)
+          }
+        end
+
+        def define_klass(required:, defaulted:)
+          delta = required.intersection(defaulted.keys)
+          raise ArgumentError, "incoherant attribute definition, arg must not be required and defaulted, violating args: #{delta.inspect}" unless delta.empty?
+
+          init_instance(block_name:, required:, defaulted:)
+          names = required + defaulted.keys
+          names = names << block_name if block_name
+          define_update(names:)
+          define_accessors(names:)
+          define_to_h(names:)
+        end
+
+        def define_to_h(names:)
+          klass.define_method :to_h do |*|
+            names.inject({}) do |r, k|
+              r.update(k => instance_variable_get("@#{k}"))
+            end
+          end
+          klass.alias_method :deconstruct_keys, :to_h
+        end
+
+        def define_update(names:)
+          klass.define_method :update do |**kwds|
+            spurious = kwds.keys - names 
+            raise ArgumentError, "undefined attributes: #{spurious.inspect}" unless spurious.empty?
+            if frozen?
+              new_values = to_h.merge(**kwds)
+              self.class.new(**new_values)
+            else
+              kwds.each do |k, v|
+                instance_variable_set("@#{k}", v)
+              end
+              self
+            end
+          end
+        end
+
+        def init_instance(block_name:, required:, defaulted:)
+          klass.define_method :initialize do |**kwds, &blk|
+            if block_name
+              if blk
+                b = -> { instance_exec(&blk) }
+                instance_variable_set("@#{block_name}", b)
+              end
+            else
+              raise ArgumentError, "block argument not supported" if blk
+            end
+            
+            missing = required - kwds.keys
+            raise ArgumentError, "missing required keyword parameters: #{missing.inspect}" unless missing.empty?
+            spurious = kwds.keys - required - defaulted.keys
+            raise ArgumentError, "spurious keyword parameters: #{spurious.inspect}" unless spurious.empty?
+
+            values = defaulted.merge(kwds)
+            values.each do |key, value|
+              instance_variable_set("@#{key}", value)
+            end
+
+            error = check_instance!
+            raise ArgumentError, Array(error).join("\n") if error
+          end
+        end
+      end
+    end
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/l43/base/data_class.rb

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+
+require_relative 'data_class/data_class_maker'
+module L43
+  module Base
+    module DataClass extend self
+
+      def define(*a, **k, &b) 
+        DataClassMaker.new.define(*a, **k, &b)
+      end
+      
+      def with_block(block_name)
+        DataClassMaker.new(block_name:)
+      end
+
+    end
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/l43/base/version.rb

@@ -0,0 +1,8 @@
+# frozen_string_literal: true
+
+module L43
+  module Base
+    VERSION = '0.1.0'
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/l43/base.rb

@@ -0,0 +1,10 @@
+# frozen_string_literal: true
+
+require_relative 'r'
+module L43
+  require_all __FILE__
+  module Base
+    def DataClass(*a, **k, &b) = DataClass.define(*a, **k, &b)
+  end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

data/lib/l43/r.rb

@@ -0,0 +1,10 @@
+# frozen_string_literal: true
+
+module L43
+    def self.require_all(file, descend: false)
+      dir = file.sub(/\.[^.]*\z/, '')
+      wc = descend ? '/**/*.rb' : '/*.rb'
+      Dir.glob(File.join(dir, wc)).each { require it }
+    end
+end
+# SPDX-License-Identifier: AGPL-3.0-or-later

metadata

@@ -0,0 +1,61 @@
+--- !ruby/object:Gem::Specification
+name: l43_base
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- Robert Dober
+bindir: bin
+cert_chain: []
+date: 2025-12-03 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: ostruct
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.6.3
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - "~>"
+      - !ruby/object:Gem::Version
+        version: 0.6.3
+description: 'Basic Ruby Building Blocks
+
+  '
+email: robert.dober@gmail.com
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/l43/base.rb
+- lib/l43/base/data_class.rb
+- lib/l43/base/data_class/data_class_class.rb
+- lib/l43/base/data_class/data_class_maker.rb
+- lib/l43/base/version.rb
+- lib/l43/r.rb
+homepage: https://codeberg.org/lab419/l43_base
+licenses:
+- AGPL-3.0-or-later
+metadata: {}
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: 3.4.5
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.7.2
+specification_version: 4
+summary: Basic Ruby Building Blocks
+test_files: []