card 1.19.1 → 1.19.2

data/tmpsets/set/mod011-machines/abstract/machine_input.rb

@@ -1,83 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract; module MachineInput; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/machines/set/abstract/machine_input.rb ~~
-module MachineInputClassMethods
-  attr_accessor :machines_wql
-
-  def machine_input_for args
-    @machines_wql = args
-  end
-
-  def machine_input &block
-    define_method :machine_input, block
-  end
-end
-
-def self.included host_class
-  host_class.extend(MachineInputClassMethods)
-  host_class.machines_wql = {}
-  host_class.machine_input do
-    format._render_raw
-  end
-  event_suffix = host_class.name.tr ":", "_"
-  define_update_event event_suffix, host_class
-  define_delete_events event_suffix, host_class
-end
-
-def self.define_delete_events event_suffix, host_class
-  event_name = "before_machine_input_deleted_#{event_suffix}".to_sym
-  host_class.event event_name, :store, on: :delete do
-    # exclude self because it's on the way to the trash
-    # otherwise it will be created again with the reset_machine_output
-    # call in the event below
-    @involved_machines =
-      MachineInput.search_involved_machines(name, host_class)
-                  .reject { |card| card == self }
-  end
-  event_name = "after_machine_input_deleted_#{event_suffix}".to_sym
-  host_class.event event_name, :finalize, on: :delete do
-    expire_machine_cache
-    @involved_machines.each do |item|
-      item.reset_machine_output if item.is_a? Machine
-    end
-  end
-end
-
-def self.define_update_event event_suffix, host_class
-  host_class.event(
-    "after_machine_input_updated_#{event_suffix}".to_sym, :integrate,
-    on: :save
-  ) do
-    expire_machine_cache
-    MachineInput.search_involved_machines(name, host_class)
-                .each do |item|
-      item.reset_machine_output if item.is_a? Machine
-    end
-  end
-end
-
-def self.search_involved_machines name, host_class
-  wql_statement =
-    { right_plus: [
-      { codename: "machine_input" },
-      { link_to: name }
-    ] }.merge(host_class.machines_wql)
-  Card.search(wql_statement)
-end
-
-def expire_machine_cache
-  Card.search(right_plus: [
-                { codename: "machine_input" },
-                { link_to: name }
-              ],
-              return: :name).each do |machine_name|
-    next unless (cache = Card.fetch(name, machine_name, :machine_cache))
-    Auth.as_bot do
-      cache.update_attributes! trash: true
-    end
-  end
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/machines/set/abstract/machine_input.rb ~~
-end;end;end;end;

data/tmpsets/set/mod014-developer/all/event_viz.rb

@@ -1,59 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All; module EventViz; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/all/event_viz.rb ~~
-require_dependency 'active_support/callbacks_ext'
-
-# the events method is a developer's tool for visualizing the event order
-# for a given card.
-# For example, from a console you might run
-#
-#   puts mycard.events :update
-#
-# to see the order of events that will be executed on mycard.
-# The indention and arrows (^v) indicate event dependencies.
-#
-# Note: as of yet, the functionality is a bit rough.  It does not display events
-# that are called directly from within other events,
-# and certain event requirements (like the presence of a 'current_act') may
-# prevent events from showing up in the tree.
-def events action
-  @action = action
-  events = Card::Stage::STAGES.map { |stage| events_tree("#{stage}_stage") }
-  @action = nil
-  puts_events events
-end
-
-# private
-
-def puts_events events, prefix="", depth=0
-  r = ""
-  depth += 1
-  events.each do |e|
-    space = " " * (depth * 2)
-
-    # FIXME: this is not right.  before and around callbacks are processed in
-    # declaration order regardless of kind.  not all befores then all arounds
-    e[:before] && r += puts_events(e[:before], space + "v  ", depth)
-    e[:around] && r += puts_events(e[:around], space + "vv ", depth)
-    r += "#{prefix}#{e[:name]}\n"
-    e[:after] && r += puts_events(e[:after].reverse, space + "^  ", depth)
-  end
-  r
-end
-
-def events_tree filt
-  hash = { name: filt }
-  if respond_to? "_#{filt}_callbacks"
-    send("_#{filt}_callbacks").each do |callback|
-      next unless callback.applies? self
-      hash[callback.kind] ||= []
-      hash[callback.kind] << events_tree(callback.filter)
-    end
-  end
-
-  hash
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/all/event_viz.rb ~~
-end;end;end;end;

data/tmpsets/set/mod014-developer/all/view_viz.rb

@@ -1,30 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All; module ViewViz; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/all/view_viz.rb ~~
-format :html do
-  view :views_by_format do
-    format_views =
-      self.class.ancestors.each_with_object({}) do |format_class, hash|
-        views =
-          format_class.instance_methods.map do |method|
-            next unless method.to_s =~ /^_view_(.+)$/
-            Regexp.last_match(1)
-          end.compact
-        next unless  views.present?
-        format_class.name =~ /^Card(::Set)?::(.+?)$/ #::(\w+Format)
-        hash[Regexp.last_match(2)] = views
-      end
-    accordion_group format_views
-  end
-
-  view :views_by_name do
-    views = methods.map do |method|
-      Regexp.last_match(1) if method.to_s =~ /^_view_(.+)$/
-    end.compact.sort
-    list_group views
-  end
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/all/view_viz.rb ~~
-end;end;end;end;

data/tmpsets/set/mod014-developer/right/debug.rb

@@ -1,96 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right; module Debug; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/right/debug.rb ~~
-def virtual?
-  true
-end
-
-format :html do
-  view :core do |_args|
-    subject = card.left
-
-    output [
-      ["Sets",
-       static_tabs("set modules" => set_modules_accordion(subject),
-                   "all modules" => singleton_modules_list(subject),
-                   "patterns" => set_patterns_breadcrumb(subject))],
-      ["Views",
-       static_tabs("by format" => subformat(subject)._render_views_by_format,
-                   "by name" => subformat(subject)._render_views_by_name)],
-      ["Events",
-       static_tabs(create: "<pre>#{subject.events(:create)}</pre>",
-                   update: "<pre>#{subject.events(:update)}</pre>",
-                   delete: "<pre>#{subject.events(:delete)}</pre>")],
-      ["Cache/DB Comparison", cache_comparison_table(subject)]
-    ].map { |item| section(*item) }
-  end
-
-  # rubocop:disable AccessorMethodName
-  def set_modules_accordion subject
-    sets = subject.set_modules.each_with_object({}) do |sm, hash|
-      ans = sm.ancestors
-      ans.shift
-      hash[sm.to_s] = ans
-    end
-    accordion_group sets
-  end
-
-  def set_patterns_breadcrumb subject
-    links = subject.patterns.reverse.map { |pattern| card_link pattern.to_s }
-    breadcrumb(links)
-  end
-  # rubocop:enable AccessorMethodName
-
-  def singleton_modules_list subject
-    all_mods = subject.singleton_class.ancestors.map(&:to_s)
-    all_mods.shift
-    list_group all_mods
-  end
-
-  def cache_comparison_table subject
-    cache_card = Card.fetch(subject.key)
-    db_card    = Card.find_by_key(subject.key)
-    return unless cache_card && db_card
-    table(
-      [:name, :updated_at, :updater_id, :content, :inspect].map do |field|
-        [field.to_s,
-         h(cache_card.send(field)),
-         h(db_card.send(field))]
-      end,
-      header: ["Field", "Cache Val", "Database Val"]
-    )
-  end
-
-  def section title, content
-    %(
-      <h2>#{title}</h2>
-      #{content}
-    )
-  end
-
-  def class_locations klass
-    methods = defined_methods(klass)
-    file_groups = methods.group_by { |sl| sl[0] }
-    file_counts = file_groups.map do |file, sls|
-      lines = sls.map { |sl| sl[1] }
-      count = lines.size
-      line = lines.min
-      { file: file, count: count, line: line }
-    end
-    file_counts.sort_by! { |fc| fc[:count] }
-    file_counts.map { |fc| [fc[:file], fc[:line]] }
-  end
-
-  def defined_methods klass
-    methods =
-      klass.methods(false).map { |m| klass.method(m) } +
-      klass.instance_methods(false).map { |m| klass.instance_method(m) }
-    methods.map!(&:source_location)
-    methods.compact!
-    methods
-  end
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/developer/set/right/debug.rb ~~
-end;end;end;end;

data/tmpsets/set/mod015-carrierwave/abstract/attachment.rb

@@ -1,118 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract; module Attachment; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/abstract/attachment.rb ~~
-require "carrier_wave/cardmount"
-
-attr_writer :empty_ok
-
-def self.included host_class
-  host_class.extend CarrierWave::CardMount
-end
-
-event :select_file_revision, after: :select_action do
-  attachment.retrieve_from_store!(attachment.identifier)
-end
-
-# we need a card id for the path so we have to update db_content when we have
-# an id
-event :correct_identifier, :finalize,
-      on: :create, when: proc { |c| !c.web? } do
-  update_column(:db_content, attachment.db_content)
-  expire
-end
-
-event :save_original_filename, :prepare_to_store,
-      when: proc { |c| c.file_ready_to_save? } do
-  return unless @current_action
-  @current_action.update_attributes! comment: original_filename
-end
-
-event :validate_file_exist, :validate, on: :save do
-  return if empty_ok?
-  if will_be_stored_as == :web
-    errors.add "url is missing" if content.blank?
-  elsif !attachment.file.present?
-    errors.add attachment_name, "is missing"
-  end
-end
-
-event :write_identifier, after: :save_original_filename,
-                         when: proc { |c| !c.web? } do
-  self.content = attachment.db_content
-end
-
-def file_ready_to_save?
-  attachment.file.present? &&
-    !preliminary_upload? &&
-    !save_preliminary_upload? &&
-    attachment_changed?
-end
-
-def item_names _args={} # needed for flexmail attachments.  hacky.
-  [cardname]
-end
-
-def original_filename
-  return content.split("/").last if web?
-  attachment.original_filename
-end
-
-def unfilled?
-  !attachment.present? && !save_preliminary_upload? && !subcards.present? &&
-    !content.present?
-end
-
-def attachment_changed?
-  send "#{attachment_name}_changed?"
-end
-
-def create_versions?
-  true
-end
-
-def empty_ok?
-  @empty_ok
-end
-
-def assign_set_specific_attributes
-  # reset content if we really have something to upload
-  if @set_specific.present? && @set_specific[attachment_name.to_s].present?
-    self.content = nil
-  end
-  super
-end
-
-def delete_files_for_action action
-  with_selected_action_id(action.id) do
-    attachment.file.delete
-    attachment.versions.each_value do |version|
-      version.file.delete
-    end
-  end
-end
-
-# create filesystem links to files from prior action
-def rollback_to action
-  update_attributes! revision(action).merge(empty_ok: true)
-end
-
-def attachment_format ext
-  if ext.present? && attachment && (original_ext = attachment.extension)
-    if ["file", original_ext].member? ext
-      original_ext
-    elsif (exts = MIME::Types[attachment.content_type])
-      if exts.find { |mt| mt.extensions.member? ext }
-        ext
-      else
-        exts[0].extensions[0]
-      end
-    end
-  end
-rescue => e
-  Rails.logger.info "attachment_format issue: #{e.message}"
-  nil
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/abstract/attachment.rb ~~
-end;end;end;end;

data/tmpsets/set/mod015-carrierwave/abstract/attachment/paths.rb

@@ -1,57 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract; module Attachment; module Paths; extend Card::Set
-# ~~ above autogenerated; below pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/abstract/attachment/paths.rb ~~
-MOD_FILE_DIR = "file".freeze
-
-def store_dir
-  will_become_coded? ? coded_dir(@new_mod) : upload_dir
-end
-
-def retrieve_dir
-  coded? ? coded_dir : upload_dir
-end
-
-# place for files of regular file cards
-def upload_dir
-  id ? "#{files_base_dir}/#{id}" : tmp_upload_dir
-end
-
-# place for files of mod file cards
-def coded_dir new_mod=nil
-  dir = File.join mod_dir(new_mod), MOD_FILE_DIR, codename
-  FileUtils.mkdir_p dir
-  dir
-end
-
-def mod_dir new_mod=nil
-  find_mod = new_mod || mod
-  Card::Mod::Loader.mod_dirs.path(find_mod) ||
-    raise(Error, "can't find mod \"#{find_mod}\"")
-end
-
-def files_base_dir
-  bucket ? bucket_config[:subdirectory] : Card.paths["files"].existent.first
-end
-
-# used in the indentifier
-def file_dir
-  if coded?
-    ":#{codename}"
-  elsif cloud?
-    "(#{bucket})/#{file_id}"
-  else
-    "~#{file_id}"
-  end
-end
-
-def public?
-  who_can(:read).include? Card[:anyone].id
-end
-
-def file_id
-  id? ? id : upload_cache_card.id
-end
-
-
-# ~~ below autogenerated; above pulled from /Users/ethan/dev/wagn/gem/card/mod/carrierwave/set/abstract/attachment/paths.rb ~~
-end;end;end;end;end;