mikras_utils 0.14.1 → 0.15.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: a7a7d9d893a73103e2159bfbc3ec2d0ff48fc644dec46bff98e35173d98bcff0
-  data.tar.gz: 872e5596dead57f495e4b7f903a5607063a4efd2e46b7716414fdfd0c6688e34
+  metadata.gz: 4b53fcf02009d498760ed46a4e2e01fb5418ed6a8ee19b37a66504d5c524b209
+  data.tar.gz: b4361d6d864f9582fe93462b9d8b2fac2d846e96ac04d5a18777dce4d16bddfb
 SHA512:
-  metadata.gz: 198336a960602043f627077526bbdb1962ea32709aa9d82cecd6b244bdc64a59034db125f429c11fe51b19037e5d08141077f7b8d9145924169f06ebb9eb4daf
-  data.tar.gz: ace4fdcf35f66b9be6ee8e4ecdac0e0a70f6fdd4d9e79468bfbb39819a5a7c554f1be6ca4c73a7280139c0de1ad9e814c2eba90029d4482600c2ddf8fd8f937e
+  metadata.gz: 414f6394b7c34992986a859875d69c14931ac913af2739a80759157effb38e20a55ee2addc815d024210908c15cddbf41669ab87ba474c527eada2aa92695458
+  data.tar.gz: 8ef782e64378a14de544d0099534d952963a223573bfb833e710acf673b6d3058d4928cd6c2f3c00805371bf163c85a3fbe3c41a5ce83e589170dc9e14f2e8d1

data/lib/mikras_utils/mkacl/generators/seeds.rb

@@ -54,6 +54,7 @@ module MkAcl
 
           table.actions.values.each { |action|
             puts %(
+              -- #{action.name.upcase}
               insert into acl_portal.acl_actions (acl_table_id, kind)
                 values (:table_id, '#{action.name.upcase}')
                 returning id as "action_id"
@@ -75,11 +76,12 @@ module MkAcl
 
               rule.stamps.each { |stamp|
                 puts %(
-                  insert into acl_portal.acl_stamps (acl_rule_id, watch, stamp)
+                  insert into acl_portal.acl_stamps (acl_rule_id, watch, stamp, value)
                     values (
                       :rule_id,
                       #{conn.quote_value(stamp.watch)},
-                      #{conn.quote_value(stamp.stamp)}
+                      #{conn.quote_value(stamp.stamp)},
+                      #{conn.quote_value(stamp.value)}
                     );
                 ).align
               }
@@ -87,7 +89,11 @@ module MkAcl
           }
         end
 
+        # Patch-up acl_tables
         puts %(
+          --
+          -- ASSIGN TABLE PARENT ID
+          --
           update acl_portal.acl_tables sub
             set parent_id = (
               select id
@@ -97,6 +103,33 @@ module MkAcl
             );
         ).align
         puts
+
+        # Patch-up acl_stamps
+        puts %(
+          --
+          -- ASSIGN STAMP TYPE AND VALUE
+          --
+          update acl_portal.acl_stamps s
+            set type = c.column_type,
+                value = coalesce(
+                  s.value,
+                  case c.column_type
+                    when 'int' then 'public.current_role_id()'
+                    when 'time' then 'now()'
+                  end
+                )
+          from
+            acl_portal.acl_rules r
+            join acl_portal.acl_actions a on a.id = r.acl_action_id
+            join acl_portal.acl_tables t on t.id = a.acl_table_id
+            join meta.columns c
+              on  c.schema_name = t.schema_name
+              and c.table_name = t.table_name
+          where
+            r.id = s.acl_rule_id
+            and c.column_name = s.stamp
+          ;
+        ).align
       end
     end
   end

data/lib/mikras_utils/mkacl/parser.rb

@@ -103,12 +103,9 @@ module MkAcl
     def parse_stamps(rule, stamps)
       constrain rule, Rule
       constrain stamps, String, Hash, Array
-#     constrain stamps, String, Hash[watch: NilClass | String | [String], stamp: String | [String]]
 
       # Normalize stamps
-      stamps = Array(stamps)
-
-      stamps.map! { |stamp|
+      stamps = Array(stamps).map! { |stamp|
         case stamp
           when Hash; stamp
           when String; { stamp: stamp }
@@ -120,32 +117,16 @@ module MkAcl
       # Check fields and create stamp
       stamps.each { |stamp|
         # Check fields
-        diff = stamp.keys - [:watch, :stamp]
+        diff = stamp.keys - [:watch, :stamp, :value]
         diff.empty? or raise "Illegal field '#{diff.first}' in #{rule.name} rule in table #{rule.table.name}"
-        Stamp.new(rule, stamp[:watch]&.split, stamp[:stamp].split)
+        (stamp[:watch]&.split || [nil]).map { |watch_field|
+          stamp[:stamp].split.map { |stamp_field|
+            Stamp.new(rule, watch_field, stamp_field, stamp[:value])
+          }
+        }
+        StampExpr.new(rule, stamp[:watch]&.split, stamp[:stamp].split, stamp[:value])
       }
     end
   end
 end
 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-

data/lib/mikras_utils/mkacl/spec.rb

@@ -175,13 +175,9 @@ module MkAcl
       end
     end
 
-    def dump(header = nil)
-      if header
-        header = "#{header || name}:"
-        indent { dump_body }
-      else
-        dump_body
-      end
+    def dump(header = name)
+      puts "#{header || name}:"
+      indent { dump_body }
     end
 
   private
@@ -202,6 +198,7 @@ module MkAcl
     attr_accessor :fields # Only used for insert and update, nil otherwise
     attr_accessor :tables # Only used for attach and detach, nil otherwise
     attr_accessor :stamps
+    attr_accessor :stamp_exprs
     attr_reader :ordinal
 
     # admin, internal, etc.
@@ -220,6 +217,7 @@ module MkAcl
       @fields = %w(insert update).include?(action.name) ? [] : nil
       @tables = %w(attach detach).include?(action.name) ? [] : nil
       @stamps = []
+      @stamp_exprs = []
 
       action.send :attach_rule, self
     end
@@ -232,47 +230,80 @@ module MkAcl
       puts "fields: #{fields.join(' ')}" if fields && !fields.empty?
       puts "tables: #{tables.join(' ')}" if tables && !tables.empty?
 
-      if stamps.size == 1
-        stamps.first.dump
-      elsif stamps.size > 1
+      if stamp_exprs.size == 1
+        stamp_exprs.first.dump
+      elsif stamp_exprs.size > 1
         puts "stamps:"
         indent {
-          for stamp in stamps
+          for stamp_expr in stamp_exprs
             print "- "
-            indent(bol: false) { stamp.dump }
+            indent(bol: false) { stamp_expr.dump }
           end
         }
       end
 
       puts "ordinal: #{ordinal}"
     end
+
   private
     def attach_stamp(stamp)
       @stamps << stamp
     end
+
+    def attach_stamp_expr(stamp_expr)
+      @stamp_exprs << stamp_expr
+    end
   end
 
   class Stamp
     attr_reader :rule
+
     forward_to :rule, :table, :name
 
     attr_accessor :watch
     attr_accessor :stamp
+    attr_accessor :value
 
-    def initialize(rule, watch = nil, stamp)
+    def initialize(rule, watch, stamp, value)
       constrain rule, Rule
+      constrain watch, String, nil
+      constrain stamp, String
       @rule = rule
-      @watch, @stamp = watch, stamp
+      @watch, @stamp, @value = watch, stamp, value
       rule.send :attach_stamp, self
     end
 
+    def to_s() = watch ? "#{watch}->#{stamp}" : stamp
+
+    def dump
+      puts "watch: #{watch}" if watch
+      puts "stamp: #{stamp}" if stamp
+      puts "value: #{value}" if value
+    end
+  end
+
+  class StampExpr # For debug. Express the structure of stamp syntax
+    attr_reader :rule
+    forward_to :rule, :table, :name
+
+    attr_accessor :watch # [String]
+    attr_accessor :stamp # [String]
+    attr_accessor :value
+
+    def initialize(rule, watch, stamp, value)
+      constrain rule, Rule
+      @rule = rule
+      @watch, @stamp, @value = watch, stamp, value
+      rule.send :attach_stamp_expr, self
+    end
+
     def to_s() = watch
 
     def dump
       puts "watch: #{watch.join(" ")}" if watch
       puts "stamp: #{stamp.join(" ")}" if stamp
+      puts "value: #{value}" if value
     end
   end
-
 end
 

data/lib/mikras_utils/version.rb

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

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: mikras_utils
 version: !ruby/object:Gem::Version
-  version: 0.14.1
+  version: 0.15.0
 platform: ruby
 authors:
 - Claus Rasmussen
 autorequire:
 bindir: exe
 cert_chain: []
-date: 2025-03-21 00:00:00.000000000 Z
+date: 2025-03-22 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: pg_conn