story-teller 1.1.3

data/lib/story_teller/inform/relational/module.rb

@@ -0,0 +1,203 @@
+# lib/story_teller/inform/relational/module.rb
+# encoding: utf-8
+# frozen_string_literal: false
+
+# Copyright Nels Nelson 2008-2025 but freely usable (see license)
+#
+# This file is part of the StoryTeller.
+#
+# The StoryTeller is free software: you can redistribute it and/or
+# modify it under the terms of the GNU General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# The StoryTeller is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with the StoryTeller.  If not, see <http://www.gnu.org/licenses/>.
+
+# Module
+
+if defined?(Sequel::Migration)
+# The ModuleSetup class
+class ModuleSetup < Sequel::Migration
+  def up
+    log.debug "#up"
+    create_table? :module do
+      primary_key :id
+      index :name
+      index :created_at
+
+      String :name, unique: true, null: false
+      DateTime :created_at
+      DateTime :modified_at
+    end
+  end
+
+  def down
+    drop_table(:module, cascade: true) if table_exists? :module
+  end
+end
+# class ModuleSetup
+end
+# defined?(Sequel::Migration)
+
+# The Inform module
+module Inform
+  # Deine the Inform::Module class
+  class Module < Sequel::Model
+    set_primary_key :id
+    def_column_accessor :created_at, :modified_at
+    def_column_accessor :name
+
+    def to_s
+      name
+    end
+
+    def <=>(other)
+      self.name <=> other.name
+    end
+
+    def self.tidy
+      db << %{delete from module where id in
+(select a.id from module a group by a.id, a.name
+having ((select count(b.id) from modularized b
+where b.module_id = a.id) = 0))}
+      return nil
+    end
+
+    # rubocop: disable Style/FormatString
+    # rubocop: disable Style/FormatStringToken
+    def self.dirty
+      results = db.fetch %{select a.id, a.name from module a group by a.id, a.name having
+((select count(b.id) from modularized b where b.module_id = a.id) = 0)}
+      return nil if results.empty?
+      s = ["%5s %20s" % results.first.keys]
+      s.concat(results.collect { |row| "%5d %20s" % row.values })
+      s.join("\n")
+    end
+    # rubocop: enable Style/FormatString
+    # rubocop: enable Style/FormatStringToken
+
+    # rubocop: disable Style/FormatString
+    # rubocop: disable Style/FormatStringToken
+    def self.stats
+      results = db.fetch %{select a.*, count(a.id) as "number modularized"
+from module a, modularized b where b.module_id = a.id group by a.id, a.name}
+      return nil if results.empty?
+      s = ["%5s %20s %15s" % results.first.keys]
+      s.concat(results.collect { |row| "%5d %20s %15s" % row.values })
+      s.join("\n")
+    end
+    # rubocop: enable Style/FormatString
+    # rubocop: enable Style/FormatStringToken
+  end
+end
+# module Inform
+
+# Modularized
+
+if defined?(Sequel::Migration)
+# The ModularizedSetup class
+class ModularizedSetup < Sequel::Migration
+  def up
+    create_table? :modularized do
+      primary_key :id
+      foreign_key :object_id, :object, on_delete: :cascade
+      foreign_key :module_id, :module, on_delete: :cascade
+    end
+  end
+
+  def down
+    drop_table(:modularized, cascade: true) if table_exists? :modularized
+  end
+end
+# class ModularizedSetup
+end
+# defined?(Sequel::Migration)
+
+# The Inform module
+module Inform
+  # The Inform::Modularized class
+  class Modularized < Sequel::Model
+    set_primary_key :id
+  end
+end
+# module Inform
+
+# Modular
+
+# The Inform module
+module Inform
+  # The Inform::Modular module
+  module Modular
+    def after_initialize
+      self.apply_modules
+      super
+    end
+
+    def modules
+      super
+    rescue StandardError => _e
+      Array::Empty
+    end
+
+    def mod(*args)
+      a = args.flatten.collect(&:to_s)
+      (a - (nil_safe_modules & a)).each do |mod|
+        add_module(Inform::Module.find_or_create(name: mod))
+      end
+      save
+      apply_modules
+      self
+    end
+
+    def unmod(*args)
+      (nil_safe_modules & args.flatten.collect(&:to_s)).each do |mod|
+        remove_module(Inform::Module.find(name: mod))
+      end
+      save
+      i = parent(self)
+      self.remove
+      i << self
+      self
+    end
+
+    def modules_semaphore
+      @modules_semaphore ||= Mutex.new
+    end
+
+    def nil_safe_modules
+      modules.compact.map(&:to_s)
+    end
+
+    def apply_modules(exceptions = [])
+      nil_safe_modules.each do |module_name|
+        next if exceptions.include?(module_name.to_sym)
+        mod = find_module(module_name)
+        next if mod.nil?
+        mod.ancestors.reverse.each do |ancestor|
+          self.extend(ancestor)
+        end
+      end
+      self
+    end
+
+    # TODO: This is broken somehow FIXME
+    def reset_modules
+      nil_safe_modules.each do |module_name|
+        remove_module(module_name)
+        mod = find_module(module_name)
+        next if mod.nil?
+        mod.instance_methods.each { |method_name| undef_method(method_name) }
+      end
+      save
+      self
+    end
+  end
+  # module Inform::Modular
+end
+# module Inform