fbe 0.0.1

data/Gemfile.lock

@@ -0,0 +1,264 @@
+PATH
+  remote: .
+  specs:
+    fbe (0.0.0)
+      backtrace (~> 0.3)
+      decoor (~> 0.0)
+      factbase (~> 0.0)
+      faraday (= 2.9.1)
+      faraday-http-cache (= 2.5.1)
+      faraday-multipart (= 1.0.4)
+      faraday-retry (= 2.2.1)
+      json (~> 2.7)
+      judges (~> 0.0)
+      loog (~> 0.2)
+      nokogiri (~> 1.10)
+      obk (~> 0.0)
+      octokit (~> 9.1.0)
+      others (~> 0.0)
+      tago (~> 0.0)
+      verbose (~> 0.0)
+      yaml (~> 0.3)
+
+GEM
+  remote: https://rubygems.org/
+  specs:
+    actionpack (7.1.3.4)
+      actionview (= 7.1.3.4)
+      activesupport (= 7.1.3.4)
+      nokogiri (>= 1.8.5)
+      racc
+      rack (>= 2.2.4)
+      rack-session (>= 1.0.1)
+      rack-test (>= 0.6.3)
+      rails-dom-testing (~> 2.2)
+      rails-html-sanitizer (~> 1.6)
+    actionview (7.1.3.4)
+      activesupport (= 7.1.3.4)
+      builder (~> 3.1)
+      erubi (~> 1.11)
+      rails-dom-testing (~> 2.2)
+      rails-html-sanitizer (~> 1.6)
+    activesupport (7.1.3.4)
+      base64
+      bigdecimal
+      concurrent-ruby (~> 1.0, >= 1.0.2)
+      connection_pool (>= 2.2.5)
+      drb
+      i18n (>= 1.6, < 2)
+      minitest (>= 5.1)
+      mutex_m
+      tzinfo (~> 2.0)
+    addressable (2.8.7)
+      public_suffix (>= 2.0.2, < 7.0)
+    ast (2.4.2)
+    backtrace (0.4.0)
+    base64 (0.2.0)
+    bigdecimal (3.1.8)
+    builder (3.3.0)
+    concurrent-ruby (1.3.3)
+    connection_pool (2.4.1)
+    crass (1.0.6)
+    decoor (0.0.1)
+    diff-lcs (1.5.1)
+    docile (1.4.0)
+    drb (2.2.1)
+    erubi (1.13.0)
+    ethon (0.16.0)
+      ffi (>= 1.15.0)
+    factbase (0.0.54)
+      backtrace (~> 0.3)
+      decoor (~> 0.0)
+      json (~> 2.7)
+      loog (~> 0.2)
+      nokogiri (~> 1.10)
+      others (~> 0.0)
+      tago (~> 0.0)
+      yaml (~> 0.3)
+    faraday (2.9.1)
+      faraday-net_http (>= 2.0, < 3.2)
+    faraday-http-cache (2.5.1)
+      faraday (>= 0.8)
+    faraday-multipart (1.0.4)
+      multipart-post (~> 2)
+    faraday-net_http (3.1.0)
+      net-http
+    faraday-retry (2.2.1)
+      faraday (~> 2.0)
+    ffi (1.17.0-arm64-darwin)
+    ffi (1.17.0-x64-mingw-ucrt)
+    ffi (1.17.0-x86_64-darwin)
+    ffi (1.17.0-x86_64-linux-gnu)
+    gli (2.21.1)
+    i18n (1.14.5)
+      concurrent-ruby (~> 1.0)
+    io-console (0.7.2)
+    irb (1.13.2)
+      rdoc (>= 4.0.0)
+      reline (>= 0.4.2)
+    iri (0.8.0)
+    json (2.7.2)
+    judges (0.13.0)
+      backtrace (~> 0.3)
+      concurrent-ruby (~> 1.2)
+      factbase (~> 0.0)
+      gli (~> 2.21)
+      iri (~> 0.8)
+      loog (~> 0.2)
+      moments (~> 0.3)
+      nokogiri (~> 1.10)
+      others (~> 0.0)
+      retries (~> 0.0)
+      tago (~> 0.0)
+      typhoeus (~> 1.3)
+    language_server-protocol (3.17.0.3)
+    loofah (2.22.0)
+      crass (~> 1.0.2)
+      nokogiri (>= 1.12.0)
+    loog (0.5.1)
+    minitest (5.24.0)
+    moments (0.3.0)
+    multipart-post (2.4.1)
+    mutex_m (0.2.0)
+    net-http (0.4.1)
+      uri
+    nokogiri (1.16.6-arm64-darwin)
+      racc (~> 1.4)
+    nokogiri (1.16.6-x64-mingw-ucrt)
+      racc (~> 1.4)
+    nokogiri (1.16.6-x86_64-darwin)
+      racc (~> 1.4)
+    nokogiri (1.16.6-x86_64-linux)
+      racc (~> 1.4)
+    obk (0.3.1)
+    octokit (9.1.0)
+      faraday (>= 1, < 3)
+      sawyer (~> 0.9)
+    others (0.0.3)
+    parallel (1.25.1)
+    parser (3.3.3.0)
+      ast (~> 2.4.1)
+      racc
+    psych (5.1.2)
+      stringio
+    public_suffix (6.0.0)
+    racc (1.8.0)
+    rack (3.1.4)
+    rack-session (2.0.0)
+      rack (>= 3.0.0)
+    rack-test (2.1.0)
+      rack (>= 1.3)
+    rackup (2.1.0)
+      rack (>= 3)
+      webrick (~> 1.8)
+    rails-dom-testing (2.2.0)
+      activesupport (>= 5.0.0)
+      minitest
+      nokogiri (>= 1.6)
+    rails-html-sanitizer (1.6.0)
+      loofah (~> 2.21)
+      nokogiri (~> 1.14)
+    railties (7.1.3.4)
+      actionpack (= 7.1.3.4)
+      activesupport (= 7.1.3.4)
+      irb
+      rackup (>= 1.0.0)
+      rake (>= 12.2)
+      thor (~> 1.0, >= 1.2.2)
+      zeitwerk (~> 2.6)
+    rainbow (3.1.1)
+    rake (13.2.1)
+    rdoc (6.7.0)
+      psych (>= 4.0.0)
+    regexp_parser (2.9.2)
+    reline (0.5.9)
+      io-console (~> 0.5)
+    retries (0.0.5)
+    rexml (3.3.1)
+      strscan
+    rspec-core (3.13.0)
+      rspec-support (~> 3.13.0)
+    rspec-expectations (3.13.1)
+      diff-lcs (>= 1.2.0, < 2.0)
+      rspec-support (~> 3.13.0)
+    rspec-mocks (3.13.1)
+      diff-lcs (>= 1.2.0, < 2.0)
+      rspec-support (~> 3.13.0)
+    rspec-rails (6.1.3)
+      actionpack (>= 6.1)
+      activesupport (>= 6.1)
+      railties (>= 6.1)
+      rspec-core (~> 3.13)
+      rspec-expectations (~> 3.13)
+      rspec-mocks (~> 3.13)
+      rspec-support (~> 3.13)
+    rspec-support (3.13.1)
+    rubocop (1.64.1)
+      json (~> 2.3)
+      language_server-protocol (>= 3.17.0)
+      parallel (~> 1.10)
+      parser (>= 3.3.0.2)
+      rainbow (>= 2.2.2, < 4.0)
+      regexp_parser (>= 1.8, < 3.0)
+      rexml (>= 3.2.5, < 4.0)
+      rubocop-ast (>= 1.31.1, < 2.0)
+      ruby-progressbar (~> 1.7)
+      unicode-display_width (>= 2.4.0, < 3.0)
+    rubocop-ast (1.31.3)
+      parser (>= 3.3.1.0)
+    rubocop-performance (1.21.1)
+      rubocop (>= 1.48.1, < 2.0)
+      rubocop-ast (>= 1.31.1, < 2.0)
+    rubocop-rspec (3.0.1)
+      rubocop (~> 1.61)
+    ruby-progressbar (1.13.0)
+    sawyer (0.9.2)
+      addressable (>= 2.3.5)
+      faraday (>= 0.17.3, < 3)
+    simplecov (0.22.0)
+      docile (~> 1.1)
+      simplecov-html (~> 0.11)
+      simplecov_json_formatter (~> 0.1)
+    simplecov-cobertura (2.1.0)
+      rexml
+      simplecov (~> 0.19)
+    simplecov-html (0.12.3)
+    simplecov_json_formatter (0.1.4)
+    stringio (3.1.1)
+    strscan (3.1.0)
+    tago (0.0.2)
+    thor (1.3.1)
+    typhoeus (1.4.1)
+      ethon (>= 0.9.0)
+    tzinfo (2.0.6)
+      concurrent-ruby (~> 1.0)
+    unicode-display_width (2.5.0)
+    uri (0.13.0)
+    verbose (0.0.2)
+      loog (~> 0.2)
+      tago (~> 0.0)
+    webrick (1.8.1)
+    yaml (0.3.0)
+    yard (0.9.36)
+    zeitwerk (2.6.16)
+
+PLATFORMS
+  arm64-darwin-22
+  x64-mingw-ucrt
+  x86_64-darwin-20
+  x86_64-linux
+
+DEPENDENCIES
+  fbe!
+  minitest (= 5.24.0)
+  rake (= 13.2.1)
+  rspec-rails (= 6.1.3)
+  rubocop (= 1.64.1)
+  rubocop-performance (= 1.21.1)
+  rubocop-rspec (= 3.0.1)
+  simplecov (= 0.22.0)
+  simplecov-cobertura (= 2.1.0)
+  yard (= 0.9.36)
+
+BUNDLED WITH
+   2.4.22

data/LICENSE.txt

@@ -0,0 +1,21 @@
+(The MIT License)
+
+Copyright (c) 2024 Zerocracy
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the 'Software'), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

data/README.md

@@ -0,0 +1,30 @@
+# FactBase Extended
+
+[![DevOps By Rultor.com](http://www.rultor.com/b/yegor256/fbe)](http://www.rultor.com/p/yegor256/fbe)
+[![We recommend RubyMine](https://www.elegantobjects.org/rubymine.svg)](https://www.jetbrains.com/ruby/)
+
+[![rake](https://github.com/yegor256/fbe/actions/workflows/rake.yml/badge.svg)](https://github.com/yegor256/fbe/actions/workflows/rake.yml)
+[![PDD status](http://www.0pdd.com/svg?name=yegor256/fbe)](http://www.0pdd.com/p?name=yegor256/fbe)
+[![Gem Version](https://badge.fury.io/rb/fbe.svg)](http://badge.fury.io/rb/fbe)
+[![Test Coverage](https://img.shields.io/codecov/c/github/yegor256/fbe.svg)](https://codecov.io/github/yegor256/fbe?branch=master)
+[![Yard Docs](http://img.shields.io/badge/yard-docs-blue.svg)](http://rubydoc.info/github/yegor256/fbe/master/frames)
+[![Hits-of-Code](https://hitsofcode.com/github/yegor256/fbe)](https://hitsofcode.com/view/github/yegor256/fbe)
+[![License](https://img.shields.io/badge/license-MIT-green.svg)](https://github.com/yegor256/fbe/blob/master/LICENSE.txt)
+
+It's a collection of tools.
+
+## How to contribute
+
+Read
+[these guidelines](https://www.yegor256.com/2014/04/15/github-guidelines.html).
+Make sure you build is green before you contribute
+your pull request. You will need to have
+[Ruby](https://www.ruby-lang.org/en/) 3.2+ and
+[Bundler](https://bundler.io/) installed. Then:
+
+```bash
+bundle update
+bundle exec rake
+```
+
+If it's clean and you don't see any error messages, submit your pull request.

data/Rakefile

@@ -0,0 +1,66 @@
+# frozen_string_literal: true
+
+# Copyright (c) 2024 Zerocracy
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the 'Software'), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require 'rubygems'
+require 'rake'
+require 'rake/clean'
+
+def name
+  @name ||= File.basename(Dir['*.gemspec'].first, '.*')
+end
+
+def version
+  Gem::Specification.load(Dir['*.gemspec'].first).version
+end
+
+task default: %i[clean test rubocop yard copyright]
+
+require 'rake/testtask'
+desc 'Run all unit tests'
+Rake::TestTask.new(:test) do |test|
+  Rake::Cleaner.cleanup_files(['coverage'])
+  test.libs << 'lib' << 'test'
+  test.pattern = 'test/**/test_*.rb'
+  test.warning = true
+  test.verbose = false
+end
+
+require 'yard'
+desc 'Build Yard documentation'
+YARD::Rake::YardocTask.new do |t|
+  t.files = ['lib/**/*.rb']
+end
+
+require 'rubocop/rake_task'
+desc 'Run RuboCop on all directories'
+RuboCop::RakeTask.new(:rubocop) do |task|
+  task.fail_on_error = true
+  task.requires << 'rubocop-rspec'
+end
+
+task :copyright do
+  sh "grep -q -r '#{Date.today.strftime('%Y')}' \
+    --include '*.rb' \
+    --include '*.txt' \
+    --include 'Rakefile' \
+    ."
+end

data/fbe.gemspec

@@ -0,0 +1,59 @@
+# frozen_string_literal: true
+
+# Copyright (c) 2024 Zerocracy
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the 'Software'), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require_relative 'lib/fbe'
+
+Gem::Specification.new do |s|
+  s.required_rubygems_version = Gem::Requirement.new('>= 0') if s.respond_to? :required_rubygems_version=
+  s.required_ruby_version = '>=3.0'
+  s.name = 'fbe'
+  s.version = Fbe::VERSION
+  s.license = 'MIT'
+  s.summary = 'FactBase Extended (FBE), a collection of utility classes for Zerocracy judges'
+  s.description =
+    'A collection of extensions for a factbase, helping the judges of Zerocracy ' \
+    'manipulate the facts and create new ones'
+  s.authors = ['Yegor Bugayenko']
+  s.email = 'yegor256@gmail.com'
+  s.homepage = 'http://github.com/zerocracy/fbe'
+  s.files = `git ls-files`.split($RS)
+  s.rdoc_options = ['--charset=UTF-8']
+  s.extra_rdoc_files = ['README.md', 'LICENSE.txt']
+  s.add_runtime_dependency 'backtrace', '~>0.3'
+  s.add_runtime_dependency 'decoor', '~>0.0'
+  s.add_runtime_dependency 'factbase', '~>0.0'
+  s.add_runtime_dependency 'faraday', '2.9.1'
+  s.add_runtime_dependency 'faraday-http-cache', '2.5.1'
+  s.add_runtime_dependency 'faraday-multipart', '1.0.4'
+  s.add_runtime_dependency 'faraday-retry', '2.2.1'
+  s.add_runtime_dependency 'json', '~>2.7'
+  s.add_runtime_dependency 'judges', '~>0.0'
+  s.add_runtime_dependency 'loog', '~>0.2'
+  s.add_runtime_dependency 'nokogiri', '~>1.10'
+  s.add_runtime_dependency 'obk', '~>0.0'
+  s.add_runtime_dependency 'octokit', '~>9.1.0'
+  s.add_runtime_dependency 'others', '~>0.0'
+  s.add_runtime_dependency 'tago', '~>0.0'
+  s.add_runtime_dependency 'verbose', '~>0.0'
+  s.add_runtime_dependency 'yaml', '~>0.3'
+  s.metadata['rubygems_mfa_required'] = 'true'
+end

data/lib/fbe/conclude.rb

@@ -0,0 +1,117 @@
+# frozen_string_literal: true
+
+# MIT License
+#
+# Copyright (c) 2024 Zerocracy
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require_relative '../fbe'
+require_relative 'octo'
+
+# Create a conclude code block.
+def Fbe.conclude(fbx = fb, judge = $judge, loog = $loog, &)
+  c = Fbe::Conclude.new(fbx, judge, loog)
+  c.instance_eval(&)
+end
+
+# Conclude.
+# Author:: Yegor Bugayenko (yegor256@gmail.com)
+# Copyright:: Copyright (c) 2024 Zerocracy
+# License:: MIT
+class Fbe::Conclude
+  def initialize(fb, judge, loog)
+    @fb = fb
+    @judge = judge
+    @loog = loog
+    @query = nil
+    @follows = []
+    @threshold = 9999
+    @quota_aware = false
+  end
+
+  def quota_aware
+    @quota_aware = true
+  end
+
+  def on(query)
+    raise 'Query is already set' unless @query.nil?
+    @query = query
+  end
+
+  def threshold(max)
+    @threshold = max
+  end
+
+  def follow(props)
+    @follows = props.split
+  end
+
+  def draw(&)
+    roll do |fbt, a|
+      n = fbt.insert
+      fill(n, a, &)
+      n
+    end
+  end
+
+  def maybe(&)
+    roll do |fbt, a|
+      Fbe.if_absent(fbt) do |n|
+        fill(n, a, &)
+      end
+    end
+  end
+
+  def consider(&)
+    roll do |_fbt, a|
+      yield a
+      nil
+    end
+  end
+
+  private
+
+  def roll(&)
+    catch :stop do
+      passed = 0
+      @fb.txn do |fbt|
+        fbt.query(@query).each do |a|
+          throw :stop if @quota_aware && Fbe.octo(loog: @loog).off_quota
+          throw :stop if passed >= @threshold
+          n = yield fbt, a
+          @loog.info("#{n.what}: #{n.details}") unless n.nil?
+          passed += 1
+        end
+      end
+    end
+  end
+
+  def fill(fact, prev)
+    @follows.each do |follow|
+      v = prev.send(follow)
+      fact.send("#{follow}=", v)
+      fact.cause = prev._id
+    end
+    r = yield fact, prev
+    return unless r.is_a?(String)
+    fact.details = r
+    fact.what = @judge
+  end
+end

data/lib/fbe/fb.rb

@@ -0,0 +1,45 @@
+# frozen_string_literal: true
+
+# MIT License
+#
+# Copyright (c) 2024 Zerocracy
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require 'judges'
+require 'factbase/looged'
+require 'factbase/pre'
+require 'factbase/rules'
+require_relative '../fbe'
+
+def Fbe.fb
+  rules = Dir.glob(File.join('rules', '*.fe')).map { |f| File.read(f) }
+  fb = Factbase::Rules.new(
+    $fb,
+    "(and \n#{rules.join("\n")}\n)",
+    uid: '_id'
+  )
+  fb = Factbase::Pre.new(fb) do |f|
+    max = $fb.query('(eq _id (max _id))').each.to_a[0]
+    f._id = (max.nil? ? 0 : max._id) + 1
+    f._time = Time.now
+    f._version = "#{Factbase::VERSION}/#{Judges::VERSION}/#{$options.judges_action_version}"
+  end
+  Factbase::Looged.new(fb, Loog::NULL)
+end

data/lib/fbe/if_absent.rb

@@ -0,0 +1,55 @@
+# frozen_string_literal: true
+
+# MIT License
+#
+# Copyright (c) 2024 Zerocracy
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in all
+# copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+# SOFTWARE.
+
+require 'time'
+require 'others'
+require_relative '../fbe'
+
+# Injects a fact if it's absent in the factbase.
+def Fbe.if_absent(fb)
+  attrs = {}
+  f = others(map: attrs) do |*args|
+    k = args[0]
+    if k.end_with?('=')
+      @map[k[0..-2].to_sym] = args[1]
+    else
+      @map[k.to_sym]
+    end
+  end
+  yield f
+  q = attrs.except('_id', '_time', '_version').map do |k, v|
+    vv = v.to_s
+    if v.is_a?(String)
+      vv = "'#{vv.gsub('"', '\\\\"').gsub("'", "\\\\'")}'"
+    elsif v.is_a?(Time)
+      vv = v.utc.iso8601
+    end
+    "(eq #{k} #{vv})"
+  end.join(' ')
+  q = "(and #{q})"
+  return unless fb.query(q).each.to_a.empty?
+  n = fb.insert
+  attrs.each { |k, v| n.send("#{k}=", v) }
+  n
+end