card 1.99.6 → 1.100.0

data/tmpsets/set/mod002-core/all/haml.rb

@@ -1,14 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All; module Haml; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/haml.rb ~~
-format do
-  def render_haml locals={}, template=nil, a_binding=nil, &block
-    template ||= yield
-    a_binding ||= binding
-    ::Haml::Engine.new(template).render(a_binding, locals)
-  end
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/haml.rb ~~
-end;end;end;end;

data/tmpsets/set/mod002-core/all/initialize.rb

@@ -1,42 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All; module Initialize; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/initialize.rb ~~
-JUNK_INIT_ARGS = %w(missing skip_virtual id).freeze
-
-module ClassMethods
-  def new args={}, _options={}
-    args = (args || {}).stringify_keys
-    JUNK_INIT_ARGS.each { |a| args.delete(a) }
-    %w(type type_code).each { |k| args.delete(k) if args[k].blank? }
-    args.delete("content") if args["attach"] # should not be handled here!
-    super args
-  end
-end
-
-def initialize args={}
-  args["name"] = args["name"].to_s
-  args["db_content"] = args.delete("content") if args["content"]
-  @supercard = args.delete "supercard" # must come before name =
-  skip_modules = args.delete "skip_modules"
-  skip_type_lookup = args["skip_type_lookup"]
-
-  super args # ActiveRecord #initialize
-  self.type_id = get_type_id_from_structure if !type_id && !skip_type_lookup
-  include_set_modules unless skip_modules
-  self
-end
-
-def include_set_modules
-  unless @set_mods_loaded
-    set_modules.each do |m|
-      singleton_class.send :include, m
-    end
-    assign_set_specific_attributes
-    @set_mods_loaded = true
-  end
-  self
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/initialize.rb ~~
-end;end;end;end;

data/tmpsets/set/mod002-core/all/location_history.rb

@@ -1,15 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All; module LocationHistory; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/location_history.rb ~~
-event :discard_deleted_locations, in: :finalize, on: :delete do
-  Env.discard_locations_for self
-  success.target = :previous if success.target == self
-end
-
-event :save_current_location, before: :show_page, on: :read do
-  Env.save_location self
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/location_history.rb ~~
-end;end;end;end;

data/tmpsets/set/mod002-core/all/name.rb

@@ -1,282 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All; module Name; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/name.rb ~~
-require "uuid"
-
-module ClassMethods
-  def uniquify_name name, rename=:new
-    return name unless Card.exists?(name)
-    uniq_name = "#{name} 1"
-    uniq_name.next! while Card.exists?(uniq_name)
-    if rename == :old
-      # name conflict resolved; original name can be used
-      Card[name].update_attributes! name: uniq_name,
-                                    update_referers: true
-      name
-    else
-      uniq_name
-    end
-  end
-end
-
-def name= newname
-  cardname = newname.to_name
-  if @supercard
-    @supercard.subcards.rename key, cardname.key
-    @contextual_name = cardname.to_s
-    relparts = cardname.parts
-    if relparts.size == 2 &&
-       (relparts.first.blank? || relparts.first.to_name.key == @supercard.key)
-      @superleft = @supercard
-    end
-    cardname = cardname.to_absolute_name @supercard.name
-  end
-
-  newkey = cardname.key
-  self.key = newkey if key != newkey
-  update_subcard_names cardname
-  write_attribute :name, cardname.s
-end
-
-def key= newkey
-  was_in_cache = Card.cache.soft.delete key
-  write_attribute :key, newkey
-  # keep the soft cache up-to-date
-  Card.write_to_soft_cache self if was_in_cache
-  # reset the old name - should be handled in tracked_attributes!!
-  reset_patterns_if_rule
-  reset_patterns
-  newkey
-end
-
-def update_subcard_names cardname
-  return unless @subcards
-  subcards.each do |subcard|
-    # if subcard has a relative name like +C
-    # and self is a subcard as well that changed from +B to A+B then
-    # +C should change to A+B+C. #replace_part doesn't work in this case
-    # because the old name +B is not a part of +C
-    name_to_replace =
-      if subcard.cardname.junction? &&
-         subcard.cardname.parts.first.empty? &&
-         cardname.parts.first.present?
-        # replace the empty part
-        "".to_name
-      else
-        name
-      end
-    subcard.name = subcard.cardname.replace_part name_to_replace, cardname.s
-  end
-end
-
-def cardname
-  name.to_name
-end
-
-def autoname name
-  if Card.exists? name
-    autoname name.next
-  else
-    name
-  end
-end
-
-# FIXME: use delegations and include all cardname functions
-def simple?
-  cardname.simple?
-end
-
-def junction?
-  cardname.junction?
-end
-
-def contextual_name
-  @contextual_name || name
-end
-
-def relative_name context_name=nil
-  context_name ||= @supercard.cardname if @supercard
-  cardname.relative_name context_name
-end
-
-def absolute_name context_name=nil
-  context_name ||= @supercard.cardname if @supercard
-  cardname.absolute_name context_name
-end
-
-def left *args
-  case
-  when simple?    then nil
-  when @superleft then @superleft
-  when name_changed? && name.to_name.trunk_name.key == name_was.to_name.key
-    nil # prevent recursion when, eg, renaming A+B to A+B+C
-  else
-    Card.fetch cardname.left, *args
-  end
-end
-
-def right *args
-  Card.fetch(cardname.right, *args) unless simple?
-end
-
-def [] *args
-  case args[0]
-  when Fixnum, Range
-    fetch_name = Array.wrap(cardname.parts[args[0]]).compact.join "+"
-    Card.fetch(fetch_name, args[1] || {}) unless simple?
-  else
-    super
-  end
-end
-
-def trunk *args
-  simple? ? self : left(*args)
-end
-
-def tag *args
-  simple? ? self : Card.fetch(cardname.right, *args)
-end
-
-def left_or_new args={}
-  left(args) || Card.new(args.merge(name: cardname.left))
-end
-
-def fields
-  field_names.map { |name| Card[name] }
-end
-
-def field_names parent_name=nil
-  child_names parent_name, :left
-end
-
-def children
-  child_names.map { |name| Card[name] }
-end
-
-def child_names parent_name=nil, side=nil
-  # eg, A+B is a child of A and B
-  parent_name ||= name
-  side ||= parent_name.to_name.simple? ? :part : :left
-  Card.search({ side => parent_name, return: :name },
-              "(#{side}) children of #{parent_name}")
-end
-
-# ids of children and children's children
-def descendant_ids parent_id=nil
-  return [] if new_card?
-  parent_id ||= id
-  Auth.as_bot do
-    child_ids = Card.search part: parent_id, return: :id
-    child_descendant_ids = child_ids.map { |cid| descendant_ids cid }
-    (child_ids + child_descendant_ids).flatten.uniq
-  end
-end
-
-# children and children's children
-# NOTE - set modules are not loaded
-# -- should only be used for name manipulations
-def descendants
-  @descendants ||= descendant_ids.map { |id| Card.quick_fetch id }
-end
-
-def repair_key
-  Auth.as_bot do
-    correct_key = cardname.key
-    current_key = key
-    return self if current_key == correct_key
-
-    if (key_blocker = Card.find_by_key_and_trash(correct_key, true))
-      key_blocker.cardname = key_blocker.cardname + "*trash#{rand(4)}"
-      key_blocker.save
-    end
-
-    saved =   (self.key      = correct_key) && save!
-    saved ||= (self.cardname = current_key) && save!
-
-    if saved
-      descendants.each(&:repair_key)
-    else
-      Rails.logger.debug "FAILED TO REPAIR BROKEN KEY: #{key}"
-      self.name = "BROKEN KEY: #{name}"
-    end
-    self
-  end
-rescue
-  Rails.logger.info "BROKE ATTEMPTING TO REPAIR BROKEN KEY: #{key}"
-  self
-end
-
-event :set_autoname, :prepare_to_validate, on: :create do
-  if name.blank? && (autoname_card = rule_card(:autoname))
-    self.name = autoname autoname_card.content
-    # FIXME: should give placeholder in approve phase
-    # and finalize/commit change in store phase
-    autoname_card.refresh.update_column :db_content, name
-  end
-end
-
-event :set_name, :store, changed: :name do
-  Card.expire name
-  Card.expire name_was
-end
-
-event :set_left_and_right, :store,
-      changed: :name, on: :save do
-  if cardname.junction?
-    [:left, :right].each do |side|
-      sidename = cardname.send "#{side}_name"
-      sidecard = Card[sidename]
-
-      # eg, renaming A to A+B
-      old_name_in_way = (sidecard && sidecard.id == id)
-      suspend_name(sidename) if old_name_in_way
-      side_id_or_card =
-        if !sidecard || old_name_in_way
-          add_subcard(sidename.s)
-        else
-          sidecard.id
-        end
-      send "#{side}_id=", side_id_or_card
-    end
-  else
-    self.left_id = self.right_id = nil
-  end
-end
-
-event :rename, after: :set_name, on: :update do
-  if (existing_card = Card.find_by_key_and_trash(cardname.key, true)) &&
-     existing_card != self
-    existing_card.name = existing_card.name + "*trash"
-    existing_card.rename_without_callbacks
-    existing_card.save!
-  end
-end
-
-def suspend_name name
-  # move the current card out of the way, in case the new name will require
-  # re-creating a card with the current name, ie.  A -> A+B
-  Card.expire name
-  tmp_name = "tmp:" + UUID.new.generate
-  Card.where(id: id).update_all(name: tmp_name, key: tmp_name)
-end
-
-event :cascade_name_changes, :finalize, on: :update, changed: :name do
-  des = descendants
-  @descendants = nil # reset
-
-  des.each do |de|
-    # here we specifically want NOT to invoke recursive cascades on these
-    # cards, have to go this low level to avoid callbacks.
-    Rails.logger.info "cascading name: #{de.name}"
-    Card.expire de.name # old name
-    newname = de.cardname.replace_part name_was, name
-    Card.where(id: de.id).update_all name: newname.to_s, key: newname.key
-    de.update_referers = update_referers
-    de.refresh_references_in
-    Card.expire newname
-  end
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/name.rb ~~
-end;end;end;end;

data/tmpsets/set/mod002-core/all/name_validations.rb

@@ -1,65 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All; module NameValidations; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/name_validations.rb ~~
-event :permit_codename, :validate,
-      on: :update, changed: :codename do
-  errors.add :codename, "only admins can set codename" unless Auth.always_ok?
-  validate_uniqueness_of_codename
-end
-
-event :validate_uniqueness_of_codename do
-  return unless codename.present? && errors.empty? &&
-                Card.find_by_codename(codename).present?
-  errors.add :codename, "codename #{codename} already in use"
-end
-
-event :validate_name, :validate,
-      on: :save, changed: :name do
-  validate_legality_of_name
-  return if errors.any?
-  validate_uniqueness_of_name
-end
-
-event :validate_uniqueness_of_name do
-  # validate uniqueness of name
-  condition_sql = "cards.key = ? and trash=?"
-  condition_params = [cardname.key, false]
-  unless new_record?
-    condition_sql << " AND cards.id <> ?"
-    condition_params << id
-  end
-  if (c = Card.find_by(condition_sql, *condition_params))
-    errors.add :name, "must be unique; '#{c.name}' already exists."
-  end
-end
-
-event :validate_legality_of_name do
-  if name.length > 255
-    errors.add :name, "is too long (255 character maximum)"
-  elsif cardname.blank?
-    errors.add :name, "can't be blank"
-  elsif cardname.parts.include? ""
-    errors.add :name, "is incomplete"
-  else
-    unless cardname.valid?
-      errors.add :name, "may not contain any of the following characters: " \
-                        "#{Card::Name.banned_array * ' '}"
-    end
-    # this is to protect against using a plus card as a tag
-    return unless cardname.junction? && simple? && id &&
-                  Auth.as_bot { Card.count_by_wql right_id: id } > 0
-    errors.add :name, "#{name} in use as a tag"
-  end
-end
-
-event :validate_key, after: :validate_name, on: :save do
-  if key.empty?
-    errors.add :key, "cannot be blank" if errors.empty?
-  elsif key != cardname.key
-    errors.add :key, "wrong key '#{key}' for name #{name}"
-  end
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/name_validations.rb ~~
-end;end;end;end;

data/tmpsets/set/mod002-core/all/pattern.rb

@@ -1,67 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All; module Pattern; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/pattern.rb ~~
-
-def patterns
-  @patterns ||= set_patterns.map { |sub| sub.new self }.compact
-end
-
-def patterns_with_new
-  new_card? ? patterns_without_new[1..-1] : patterns_without_new
-end
-alias_method_chain :patterns, :new
-
-def reset_patterns
-  @patterns = nil
-  @template = @virtual = nil
-  @set_mods_loaded = @set_modules = @set_names = @rule_set_keys = nil
-  @junction_only = nil # only applies to set cards
-  true
-end
-
-def reset_patterns_if_rule saving=false
-  if !new_card? && is_rule?
-    set = left
-    set.reset_patterns
-    set.include_set_modules
-
-    # FIXME: should be in right/read.rb
-    if saving && right.id == Card::ReadID
-      add_to_read_rule_update_queue set.item_cards(limit: 0)
-    end
-  end
-end
-
-def safe_set_keys
-  patterns.map(&:safe_key).reverse * " "
-end
-
-def set_modules
-  @set_modules ||=
-    patterns_without_new[0..-2].reverse.map(&:module_list).flatten.compact
-end
-
-def set_format_modules klass
-  @set_format_modules ||= {}
-  @set_format_modules[klass] =
-    patterns_without_new[0..-2].reverse.map do |pattern|
-      pattern.format_module_list klass
-    end.flatten.compact
-end
-
-def set_names
-  @set_names = patterns.map(&:to_s) if @set_names.nil?
-  @set_names
-end
-
-def in_set? set_module
-  patterns.map(&:module_key).include? set_module.shortname
-end
-
-def rule_set_keys
-  @rule_set_keys ||= patterns.map(&:rule_set_key).compact
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/core/set/all/pattern.rb ~~
-end;end;end;end;