mikras_utils 0.3.2 → 0.4.0

data/lib/mikras_utils/rls/analyzer.rb

@@ -0,0 +1,108 @@
+
+class Analyzer
+  attr_reader :spec
+  def vars = spec.variables
+
+  def initialize(spec)
+    @spec = spec
+  end
+
+  def analyze
+    interpolate
+    expand_rules
+    merge_rules
+    spec
+  end
+
+  def self.analyze(spec)
+    self.new(spec).analyze
+  end
+
+private
+  #
+  # Interpolate variables
+  #
+  def interpolate
+    interpolate_variables
+    interpolate_spec
+  end
+
+  def interpolate_variables
+    spec.variables.transform_values! { |a|
+      a.map { |e|
+        if e =~ /^\$[A-Za-z0-9_]+$/
+          spec.variables[e] or ShellOpts::error "Unknown variable #{e}"
+        else
+          e
+        end
+      }.flatten
+    }
+  end
+
+  def interpolate_spec
+    spec.rules.each { |r| interpolate_rule(r) }
+  end
+
+  def interpolate_rule(rule)
+    rule.tables = interpolate_array(rule.tables)
+    p rule.opers.map(&:class)
+
+    rule.opers.each { |op| interpolate_oper(op) }
+  end
+
+  def interpolate_oper(oper)
+    oper.accesses.each { |a| interpolate_access(a) }
+  end
+
+  def interpolate_access(access)
+    access.roles = interpolate_array(access.roles)
+    access.tables = interpolate_string(access.tables)
+    access.fields = interpolate_array(access.fields)
+    access.where = interpolate_string(access.where)
+  end
+
+  def interpolate_string(string)
+    return nil if string.nil?
+    for key, value in vars
+      next if !value.is_a?(String)
+      string.gsub!(/#{key}/, value)
+    end
+    string
+  end
+
+  def interpolate_array(array)
+    return nil if array.nil?
+    array.map { |e| vars[e] || e }.flatten
+  end
+
+  #
+  # Expand rules
+  #
+  def expand_rules()
+    rules = []
+    spec.rules.each { |rule|
+      rule.tables.each { |t| r = rule.dup; r.tables = [t]; rules << r }
+    }
+    spec.rules = rules
+  end
+
+  #
+  # Merge rules
+  #
+  def merge_rules()
+    spec.rules = spec.rules.group_by { |rule| rule.tables.first }.map { |table, rules|
+      rule = Rule.new([table])
+      for oper in Spec::OPERS
+        rule[oper] = merge_opers(oper, rules.map { |r| r[oper] }.flatten)
+      end
+      rule
+    }
+  end
+
+  def merge_opers(oper, opers)
+    oper = Oper.new(oper)
+    oper.accesses = opers.map { |op| op.accesses }.flatten
+    oper
+  end
+end
+

data/lib/mikras_utils/rls/parser.rb

@@ -0,0 +1,70 @@
+#!/usr/bin/env ruby
+
+require 'yaml'
+
+include ForwardTo
+
+class Parser
+  def initialize(file)
+    @file = file
+  end
+
+  def parse
+    yaml = YAML.load(IO.read(@file).sub(/^__END__$.*/m, ""), symbolize_names: true)
+    rules = nil
+    variables = {}
+    yaml.each { |key, value|
+      case key
+        when :rules; rules = value.map { |v| parse_rule(v) }
+        when /^\$[A-Z0-9_]+$/; variables[key.to_s] = parse_array(value)
+      else
+        raise "Illegal section: #{key}"
+      end
+    }
+    Spec.new(@file, rules, variables)
+  end
+
+  def self.parse(file) self.new(file).parse end
+
+private
+  def parse_rule(hash)
+    tables = parse_array(hash[:tables]) or error "Can't find 'table' key"
+    rule = Rule.new(tables)
+    for oper in Spec::OPERS
+      value = hash[oper] or next
+      rule.send(:"#{oper}=", parse_oper(oper, value))
+    end
+    rule
+  end
+
+  def parse_oper(oper, value)
+    case value
+      when String; Oper.new(oper, [Access.new(parse_array(value), nil, nil, nil)])
+      when Hash; Oper.new(oper, [parse_access(value)])
+      when Array; Oper.new(oper, value.map { |hash| parse_access(hash) })
+    else
+      error "Illegal argument: #{value.invaluet}"
+    end
+  end
+
+  def parse_access(hash)
+    illegal_keys = hash.keys - Spec::FIELDS
+    illegal_keys.empty? or error "Illegal keys: #{illegal_keys.join(', ')}"
+    roles = parse_array(hash[:roles])
+    tables = parse_array(hash[:tables])
+    fields = parse_array(hash[:fields])
+    where = hash[:where]
+    Access.new(roles, tables, fields, where)
+  end
+
+  def parse_array(value)
+    case value
+      when String; value.split
+      when Array; value
+      when nil; nil
+    else
+      error "Illegal array value: #{value.inspect}"
+    end
+  end
+end
+

data/lib/mikras_utils/rls/spec.rb

@@ -0,0 +1,86 @@
+
+class Spec
+  OPERS = [:select, :insert, :update, :delete, :attach]
+  FIELDS = [:roles, :tables, :fields, :where]
+
+  attr_reader :file
+  attr_accessor :rules
+  attr_accessor :variables
+
+  forward_to :variables, :[], :[]=
+
+  def initialize(file, rules, variables)
+    @file, @rules, @variables = file, rules, variables
+  end
+
+  def dump
+    puts "File: #{file}"
+    puts "Variables"
+    indent { variables.each { |k,v| puts "#{k} = #{v.inspect}" } }
+    puts "Rules"
+    indent { rules.sort_by { |rule| rule.tables.first }.each(&:dump) }
+  end
+end
+
+class Rule
+  attr_accessor :tables
+  attr_accessor *Spec::OPERS
+
+  def initialize(tables)
+    @tables = tables
+    Spec::OPERS.each { |op| self[op] = Oper.new(op) }
+  end
+
+  def opers() = Spec::OPERS.map { |op| self.send(op) }.compact
+  def [](key) = self.send(key)
+  def []=(key, value) self.send(:"#{key}=", value) end
+
+  def to_s() = "Rule, tables: #{tables.join(', ')}"
+
+  def dump
+    puts "Rule"
+    indent {
+      puts "tables: #{tables}"
+      opers.each { |op| op.dump }
+    }
+  end
+end
+
+class Oper
+  attr_reader :name
+  attr_accessor :accesses
+
+  def self.symbol = self.to_s.sub(/Decl/, "").downcase.to_sym
+
+  def initialize(name, accesses = [])
+    @name = name
+    @accesses = accesses
+  end
+
+  def dump
+    puts "#{name}"
+    indent { accesses.each(&:dump) }
+  end
+end
+
+class Access
+  attr_accessor *Spec::FIELDS
+
+  def initialize(roles, table, fields, where)
+    @roles = roles
+    @table = table
+    @fields = fields
+    @where = where
+  end
+
+  def dump
+    puts "access:"
+    indent {
+      Spec::FIELDS.each { |f|
+        value = self.send(f) or next
+        puts "#{f}: #{value}"
+      }
+    }
+  end
+end
+

data/lib/mikras_utils/version.rb

@@ -1,5 +1,5 @@
 # frozen_string_literal: true
 
 module MikrasUtils
-  VERSION = "0.3.2"
+  VERSION = "0.4.0"
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: mikras_utils
 version: !ruby/object:Gem::Version
-  version: 0.3.2
+  version: 0.4.0
 platform: ruby
 authors:
 - Claus Rasmussen
 autorequire:
 bindir: exe
 cert_chain: []
-date: 2024-08-07 00:00:00.000000000 Z
+date: 2025-01-01 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: pg_conn
@@ -72,6 +72,7 @@ email:
 executables:
 - mikras_utils
 - mkacl
+- rls
 extensions: []
 extra_rdoc_files: []
 files:
@@ -84,7 +85,9 @@ files:
 - build
 - exe/mikras_utils
 - exe/mkacl
+- exe/rls
 - lib/mikras_utils.rb
+- lib/mikras_utils/mikras.rb
 - lib/mikras_utils/mkacl.rb
 - lib/mikras_utils/mkacl/analyzer.rb
 - lib/mikras_utils/mkacl/generator.rb
@@ -93,8 +96,13 @@ files:
 - lib/mikras_utils/mkacl/generators/insert_triggers.rb
 - lib/mikras_utils/mkacl/generators/role_functions.rb
 - lib/mikras_utils/mkacl/generators/rules.rb
+- lib/mikras_utils/mkacl/generators/seeds.rb
 - lib/mikras_utils/mkacl/parser.rb
+- lib/mikras_utils/mkacl/simple_symtab.rb
 - lib/mikras_utils/mkacl/spec.rb
+- lib/mikras_utils/rls/analyzer.rb
+- lib/mikras_utils/rls/parser.rb
+- lib/mikras_utils/rls/spec.rb
 - lib/mikras_utils/version.rb
 - sig/mikras_utils.rbs
 - tests/acl.fox