card 1.99.6 → 1.100.0

data/tmpsets/set/mod003-core/abstract/lock.rb

@@ -0,0 +1,35 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract
+# Set: Abstract (Lock)
+#
+module Lock;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/abstract/lock.rb"; end
+def lock
+  was_already_locked = locked?
+  return if was_already_locked
+  Auth.as_bot do
+    lock!
+    yield
+  end
+ensure
+  unlock! unless was_already_locked
+end
+
+def lock_cache_key
+  "UPDATE-LOCK:#{key}"
+end
+
+def locked?
+  Card.cache.read lock_cache_key
+end
+
+def lock!
+  Card.cache.write lock_cache_key, true
+end
+
+def unlock!
+  Card.cache.write lock_cache_key, false
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/abstract/lock.rb ~~

data/tmpsets/set/mod003-core/abstract/vendor_code_file.rb

@@ -0,0 +1,19 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class Abstract
+# Set: Abstract (VendorCodeFile)
+#
+module VendorCodeFile;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/abstract/vendor_code_file.rb"; end
+include_set Abstract::CodeFile
+
+def self.included host_class
+  host_class.mattr_accessor :file_content_mod_name
+  host_class.file_content_mod_name = Card::Set.mod_name(caller)
+end
+
+def source_dir
+  "vendor"
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/abstract/vendor_code_file.rb ~~

data/tmpsets/set/{mod002-core/all/actify.rb → mod003-core/all/abort.rb}

@@ -1,6 +1,10 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All; module Actify; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/actify.rb ~~
+class Card; module Set; class All
+# Set: All cards (Abort)
+#
+module Abort;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/abort.rb"; end
 
 # The Card#abort method is for cleanly exiting an action without continuing
 # to process any further events.
@@ -22,57 +26,34 @@ def abort status, msg="action canceled"
   raise Card::Error::Abort.new(status, msg)
 end
 
-module ClassMethods
-  def create! opts
-    card = Card.new opts
-    card.act do
-      card.save!
-    end
-    card
-  end
-
-  def create opts
-    card = Card.new opts
-    card.act do
-      card.save
-    end
-    card
-  end
-end
-
-def save!(*)
-  act { super }
-end
-
-def save(*)
-  act { super }
-end
-
-def valid?(*)
-  act { super }
-end
-
-def update_attributes *args
-  act(*args) { super }
-end
-
-def update_attributes! *args
-  act(*args) { super }
+def aborting
+  yield
+  errors.any? ? abort(:failure) : abort(:success)
 end
 
 def abortable
   yield
 rescue Card::Error::Abort => e
+  handle_abort_error e
+end
+
+private
+
+def handle_abort_error e
   if e.status == :triumph
     @supercard ? raise(e) : true
   elsif e.status == :success
-    if @supercard
-      @supercard.subcards.delete key
-      @supercard.director.subdirectors.delete self
-      expire_soft
-    end
-    true
+    abort_success
+  end
+end
+
+def abort_success
+  if @supercard
+    @supercard.subcards.delete key
+    @supercard.director.subdirectors.delete self
+    expire :soft
   end
+  true
 end
 
 # this is an override of standard rails behavior that rescues abort
@@ -81,21 +62,24 @@ def with_transaction_returning_status
   status = nil
   self.class.transaction do
     add_to_transaction
+    remember_transaction_record_state
     status = abortable { yield }
     raise ActiveRecord::Rollback unless status
   end
   status
 end
 
+# FIXME: these two do not belong here!
+
+public
+
 event :notable_exception_raised do
   error = Card::Error.current
   Rails.logger.debug "#{error.message}\n#{error.backtrace * "\n  "}"
 end
 
 def success
-  Env.success(cardname)
+  Env.success(name)
 end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/actify.rb ~~
 end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/abort.rb ~~

data/tmpsets/set/mod003-core/all/actify.rb

@@ -0,0 +1,88 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (Actify)
+#
+module Actify;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/actify.rb"; end
+def act &block
+  @action ||= identify_action
+  if act_card
+    add_to_act &block
+  else
+    start_new_act &block
+  end
+end
+
+def start_new_act
+  self.director = nil
+  ActManager.run_act(self) do
+    run_callbacks(:act) { yield }
+  end
+end
+
+def add_to_act
+  # if only_storage_phase is true then the card is already part of the act
+  return yield if act_card? || only_storage_phase
+  director.reset_stage
+  director.update_card self
+  self.only_storage_phase = true
+  yield
+end
+
+def act_card
+  Card::ActManager.act_card
+end
+
+def act_card?
+  self == act_card
+end
+
+def clear_action_specific_attributes
+  self.class.action_specific_attributes.each do |attr|
+    instance_variable_set "@#{attr}", nil
+  end
+end
+
+module ClassMethods
+  def create! opts
+    card = Card.new opts
+    card.act do
+      card.save!
+    end
+    card
+  end
+
+  def create opts
+    card = Card.new opts
+    card.act do
+      card.save
+    end
+    card
+  end
+end
+
+def save!(*)
+  act { super }
+end
+
+def save(*)
+  act { super }
+end
+
+def valid?(*)
+  act { super }
+end
+
+def update *args
+  act { super }
+end
+
+def update! *args
+  act { super }
+end
+
+alias_method :update_attributes, :update
+alias_method :update_attributes!, :update!
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/actify.rb ~~

data/tmpsets/set/{mod002-core → mod003-core}/all/active_card.rb

@@ -1,6 +1,10 @@
 # -*- encoding : utf-8 -*-
-class Card; module Set; class All; module ActiveCard; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/active_card.rb ~~
+class Card; module Set; class All
+# Set: All cards (ActiveCard)
+#
+module ActiveCard;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/active_card.rb"; end
 =begin
 
 # following may be useful, but is neither tested nor in use
@@ -33,10 +37,7 @@ end
 # FIXME: -this needs a better home!
 def format opts={}
   opts = { format: opts.to_sym } if [Symbol, String].member? opts.class
-
   Card::Format.new self, opts
 end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/active_card.rb ~~
 end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/active_card.rb ~~

data/tmpsets/set/mod003-core/all/assign_attributes.rb

@@ -0,0 +1,135 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (AssignAttributes)
+#
+module AssignAttributes;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/assign_attributes.rb"; end
+
+def assign_attributes args={}
+  args = prepare_assignment_args args
+
+  assign_with_subcards args do
+    assign_with_set_modules args do
+      params = prepare_assignment_params args
+      super params
+    end
+  end
+end
+
+def assign_set_specific_attributes
+  set_specific.each_pair do |name, value|
+    send "#{name}=", value
+  end
+end
+
+def extract_subcard_args! args
+  subcards = args.delete("subcards") || args.delete(:subcards) || {}
+  if (subfields = args.delete("subfields") || args.delete(:subfields))
+    subfields.each_pair do |key, value|
+      subcards[name.field(key)] = value
+    end
+  end
+  args.keys.each do |key|
+    subcards[key] = args.delete(key) if key =~ /^\+/
+  end
+  subcards = subcards.to_unsafe_h if subcards.respond_to?(:to_unsafe_h)
+  subcards
+end
+
+protected
+
+module ClassMethods
+  def assign_or_newish name, attributes, fetch_opts={}
+    if (known_card = Card.fetch(name, fetch_opts))
+      known_card.refresh.newish attributes
+      known_card
+    else
+      Card.new attributes.merge(name: name)
+    end
+  end
+end
+
+def prepare_assignment_params args
+  args = args.to_unsafe_h if args.respond_to?(:to_unsafe_h)
+  params = ActionController::Parameters.new(args)
+  params.permit!
+  params[:db_content] = standardize_content(params[:db_content]) if params[:db_content]
+  params
+end
+
+def prepare_assignment_args args
+  return {} unless args
+  args = args.stringify_keys
+  normalize_type_attributes args
+  stash_set_specific_attributes args
+  args
+end
+
+def assign_with_set_modules args
+  set_changed = args["name"] || args["type_id"]
+  return yield unless set_changed
+
+  refresh_set_modules { yield }
+end
+
+def assign_with_subcards args
+  subcard_args = extract_subcard_args! args
+  yield
+  # name= must come before process subcards
+  return unless subcard_args.present?
+  subcards.add subcard_args
+end
+
+def refresh_set_modules
+  reinclude_set_modules = @set_mods_loaded
+  yield
+  reset_patterns
+  include_set_modules if reinclude_set_modules
+end
+
+def stash_set_specific_attributes args
+  @set_specific = {}
+  Card.set_specific_attributes.each do |key|
+    set_specific[key] = args.delete(key) if args.key?(key)
+  end
+end
+
+def normalize_type_attributes args
+  new_type_id = extract_type_id! args unless args.delete("type_lookup") == :skip
+  args["type_id"] = new_type_id if new_type_id
+end
+
+def extract_type_id! args={}
+  case
+  when (type_id = args.delete("type_id")&.to_i)
+    type_id.zero? ? nil : type_id
+  when (type_code = args.delete("type_code")&.to_sym)
+    type_id_from_codename type_code
+  when (type_name = args.delete "type")
+    type_id_from_cardname type_name
+  end
+end
+
+def type_id_from_codename type_code
+  type_id_or_error(type_code) { Card::Codename.id type_code }
+end
+
+def type_id_from_cardname type_name
+  type_id_or_error(type_name) { Card.fetch_id type_name }
+end
+
+def type_id_or_error val
+  type_id = yield
+  return type_id if type_id
+
+  errors.add :type, "#{val} is not a known type."
+  nil
+end
+
+# 'set' refers to the noun not the verb
+def set_specific
+  @set_specific ||= {}
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/assign_attributes.rb ~~

data/tmpsets/set/mod003-core/all/cache.rb

@@ -0,0 +1,116 @@
+# -*- encoding : utf-8 -*-
+class Card; module Set; class All
+# Set: All cards (Cache)
+#
+module Cache;
+extend Card::Set
+def self.source_location; "/Users/ethan/dev/decko/gem/card/mod/core/set/all/cache.rb"; end
+module ClassMethods
+  def retrieve_from_cache cache_key, local_only=false
+    return unless cache
+    local_only ? cache.soft.read(cache_key) : cache.read(cache_key)
+  end
+
+  def retrieve_from_cache_by_id id, local_only=false
+    key = Card::Lexicon.name(id)&.key
+    return unless key.present?
+
+    retrieve_from_cache key, local_only if key
+  end
+
+  def retrieve_from_cache_by_key key, local_only=false
+    retrieve_from_cache key, local_only
+  end
+
+  def write_to_cache card, local_only=false
+    if local_only
+      write_to_soft_cache card
+    elsif cache
+      cache.write card.key, card
+      cache.write "~#{card.id}", card.key if card.id.to_i.nonzero?
+    end
+  end
+
+  def write_to_soft_cache card
+    return unless cache
+    cache.soft.write card.key, card
+    cache.soft.write "~#{card.id}", card.key if card.id.to_i.nonzero?
+  end
+
+  def expire name
+    key = name.to_name.key
+    return unless (card = Card.cache.read key)
+    card.expire
+  end
+end
+
+def expire_pieces
+  name.piece_names.each do |piece|
+    Card.expire piece
+  end
+end
+
+def expire cache_type=nil
+  return unless (cache_class = cache_class_from_type cache_type)
+  expire_views
+  expire_names cache_class
+  expire_id cache_class
+end
+
+def cache_class_from_type cache_type
+  cache_type ? Card.cache.send(cache_type) : Card.cache
+end
+
+def view_cache_clean?
+  !db_content_changed?
+end
+
+def view_cache_keys
+  @view_cache_keys ||= hard_read_view_cache_keys || []
+end
+
+def ensure_view_cache_key cache_key
+  return if view_cache_keys.include? cache_key
+
+  @view_cache_keys << cache_key
+  hard_write_view_cache_keys
+end
+
+def hard_read_view_cache_keys
+  Card.cache.hard&.read_attribute key, :view_cache_keys
+end
+
+def hard_write_view_cache_keys
+  # puts "WRITE VIEW CACHE KEYS (#{name}): #{view_cache_keys}"
+  Card.cache.hard&.write_attribute key, :view_cache_keys, view_cache_keys
+end
+
+def expire_views
+  # puts "EXPIRE VIEW CACHE (#{name}): #{view_cache_keys}"
+  return unless view_cache_keys.present?
+  Array.wrap(view_cache_keys).each do |view_cache_key|
+    Card::View.cache.delete view_cache_key
+  end
+  @view_cache_keys = []
+  hard_write_view_cache_keys
+end
+
+def expire_names cache
+  [name, name_before_act].uniq.each do |name_version|
+    expire_name name_version, cache
+  end
+end
+
+def expire_name name_version, cache
+  return unless name_version.present?
+  key_version = name_version.to_name.key
+  return unless key_version.present?
+  cache.delete key_version
+end
+
+def expire_id cache
+  return unless id.present?
+  cache.delete "~#{id}"
+end
+end;end;end;end;
+# ~~ generated from /Users/ethan/dev/decko/gem/card/mod/core/set/all/cache.rb ~~