card 1.102.0 → 1.103.3

data/tmpsets/set/mod015-machines/abstract/machine.rb

@@ -1,230 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract
-# Set: Abstract (Machine)
-#
-# ## What are Machines?
-# {Machine} and {MachineInput} together implement a kind of observer pattern.
-# {Machine} processes a collection of input cards to generate an output card
-# (a {Set::Type::File} card by default). If one of the input cards is changed
-# the output card will be updated.
-#
-# The classic example: A style card observes a collection of css and sccs card
-# to generate a file card with a css file that contains the assembled
-# compressed css.
-#
-# ## Using Machines
-# Include the Machine module in the card set that is supposed to produce the
-# output card. If the output card should be automatically updated when a input
-# card is changed the input card has to be in a set that includes the
-# MachineInput module.
-#
-# The default machine:
-module Machine;
-extend Card::Set
-def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/machines/set/abstract/machine.rb"; end
-#
-#  -  uses its item cards as input cards or the card itself if there are no
-# item cards;
-#  -  can be changed by passing a block to collect_input_cards
-#  -  takes the raw view of the input cards to generate the output;
-#  -  can be changed by passing a block to machine_input (in the input card
-# set)
-#  -  stores the output as a .txt file in the '+machine output' card;
-#  -  can be changed by passing a filetype and/or a block to
-#     store_machine_output
-#
-#
-# ## How does it work?
-# Machine cards have a '+machine input' and a '+machine output' card. The
-# '+machine input' card is a pointer to all input cards. Including the
-# MachineInput module creates an 'on: save' event that runs the machines of
-# all cards that are linked to that card via the +machine input pointer.
-module MachineClassMethods
-  attr_accessor :output_config
-
-  def collect_input_cards &block
-    define_method :engine_input, &block
-  end
-
-  def prepare_machine_input &block
-    define_method :before_engine, &block
-  end
-
-  def machine_engine &block
-    define_method :engine, &block
-  end
-
-  def store_machine_output args={}, &block
-    output_config.merge!(args)
-    return unless block_given?
-
-    define_method :after_engine, &block
-  end
-end
-
-card_accessor :machine_output, type: FileID
-card_accessor :machine_input, type: PointerID
-
-def before_engine; end
-
-def engine_input
-  ei = EngineInput.new self
-  ei.process
-  ei.new_input
-end
-
-# TODO: replace with call of extended_item_cards
-# traverse through all levels of pointers and
-# collect all item cards as input
-class EngineInput
-  attr_accessor :new_input
-
-  def initialize machine_card
-    @machine_card = machine_card
-    @items = [machine_card]
-    @new_input = []
-    @extended = {}
-    @loop_limit = 5
-  end
-
-  def process
-    each_valid_item do
-      input_item = simple_item? ? @item : pointer_item
-      new_input << input_item if input_item
-    end
-  end
-
-  def simple_item?
-    @item.item_cards == [@item] || @item.try(:self_machine_input?) # no pointer card
-  end
-
-  def pointer_item
-    @items.insert 0, @item.item_cards.reject(&:unknown?)
-    @items.flatten!
-    record_item
-    @item if @item != @machine_card && @item.known?
-  end
-
-  def record_item
-    @extended[@item] = @extended[@item].to_i + 1
-  end
-
-  def each_valid_item
-    until @items.empty?
-      @item = @items.shift
-      yield unless invalid_item?
-    end
-  end
-
-  def invalid_item?
-    @item.trash || @extended[@item.id].to_i > @loop_limit
-  end
-end
-
-def engine input
-  input
-end
-
-def after_engine output
-  filetype = output_config[:filetype]
-  file = Tempfile.new [id.to_s, ".#{filetype}"]
-  file.write output
-  file.rewind
-  Card::Auth.as_bot do
-    p = machine_output_card
-    p.file = file
-    p.save!
-  end
-  file.close
-  file.unlink
-end
-
-view :machine_output_url do
-  machine_output_url
-end
-
-class << self
-  def included host_class
-    host_class.extend(MachineClassMethods)
-    host_class.mattr_accessor :output_config
-    host_class.output_config = { filetype: "txt" }
-
-    define_machine_events host_class
-  end
-
-  def define_machine_events host_class
-    event_suffix = host_class.name.tr ":", "_"
-    event_name = "reset_machine_output_#{event_suffix}".to_sym
-    host_class.event event_name, after: :expire_related, changed: :content, on: :save do
-      reset_machine_output
-    end
-  end
-end
-
-include_set Abstract::Lock
-
-def run_machine joint="\n"
-  before_engine
-  output =
-    input_item_cards.map do |input_card|
-      run_engine input_card
-    end.select(&:present?).join(joint)
-  after_engine output
-end
-
-def direct_machine_input? input_card
-  !input_card.collection? ||
-    input_card.respond_to?(:machine_input)
-end
-
-def run_engine input_card
-  return unless direct_machine_input? input_card
-  if (cached = fetch_cache_card(input_card)) && cached.content?
-    return cached.content
-  end
-
-  engine(input_from_card(input_card)).tap do |output|
-    cache_output_part input_card, output
-  end
-end
-
-def input_from_card input_card
-  if input_card.respond_to? :machine_input
-    input_card.machine_input
-  else
-    input_card.format._render_raw
-  end
-end
-
-def make_machine_output_coded mod=:machines
-  update_machine_output
-  Card::Auth.as_bot do
-    ENV["STORE_CODED_FILES"] = "true"
-    machine_output_card.update! storage_type: :coded, mod: mod,
-                                codename: machine_output_codename
-    ENV["STORE_CODED_FILES"] = nil
-  end
-end
-
-def machine_output_codename
-  machine_output_card.name.parts.map do |part|
-    Card[part].codename&.to_s || Card[part].name.safe_key
-  end.join "_"
-end
-
-def input_item_cards
-  machine_input_card.item_cards
-end
-
-def machine_output_url
-  ensure_machine_output
-  machine_output_card.file.url # (:default, timestamp: false)
-  # to get rid of additional number in url
-end
-
-def machine_output_path
-  ensure_machine_output
-  machine_output_card.file.path
-end
-end;end;end;end;
-# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/machines/set/abstract/machine.rb ~~

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

@@ -1,82 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract
-# Set: Abstract (MachineInput)
-#
-module MachineInput;
-extend Card::Set
-def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/machines/set/abstract/machine_input.rb"; end
-module MachineInputClassMethods
-  attr_accessor :machines_cql
-
-  def machine_input_for args
-    @machines_cql = 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_cql = {}
-  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
-  cql_statement =
-    { right_plus: [
-      { codename: "machine_input" },
-      { link_to: name }
-    ] }.merge(host_class.machines_cql)
-  Card.search(cql_statement)
-end
-
-def expire_machine_cache
-  Card.search(right_plus: [{ codename: "machine_input" }, { link_to: name }],
-              return: :name).each do |machine_name|
-    cache_card = Card.fetch(name, machine_name, :machine_cache)
-    next unless cache_card&.content?
-
-    Auth.as_bot { cache_card.update! trash: true }
-  end
-end
-end;end;end;end;
-# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/machines/set/abstract/machine_input.rb ~~

data/tmpsets/set/mod015-machines/all/reset_machines.rb

@@ -1,31 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class All
-# Set: All cards (ResetMachines)
-#
-module ResetMachines;
-extend Card::Set
-def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/machines/set/all/reset_machines.rb"; end
-module ClassMethods
-  def reset_script_machine
-    Auth.as_bot do
-      card = Card[:all, :script, :machine_output]
-      if card
-        card.update_columns trash: true
-        card.expire
-        Card::Virtual.where(right_id: MachineCacheID).delete_all
-      end
-    end
-  end
-
-  def reset_all_machines
-    Auth.as_bot do
-      Card.search(right: { codename: "machine_output" }).each do |card|
-        card.update_columns trash: true
-        card.expire
-      end
-      Card::Virtual.where(right_id: MachineCacheID).delete_all
-    end
-  end
-end
-end;end;end;end;
-# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/machines/set/all/reset_machines.rb ~~

data/tmpsets/set/mod015-machines/right/machine_cache.rb

@@ -1,14 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right
-# Set: All "+MachineCache" cards
-#
-module MachineCache;
-extend Card::Set
-def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/machines/set/right/machine_cache.rb"; end
-include_set Abstract::VirtualCache
-
-def clean_html?
-  false
-end
-end;end;end;end;
-# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/machines/set/right/machine_cache.rb ~~

data/tmpsets/set/mod015-machines/right/machine_input.rb

@@ -1,16 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right
-# Set: All "+MachineInput" cards
-#
-module MachineInput;
-extend Card::Set
-def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/machines/set/right/machine_input.rb"; end
-def followable?
-  false
-end
-
-def history?
-  false
-end
-end;end;end;end;
-# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/machines/set/right/machine_input.rb ~~

data/tmpsets/set/mod015-machines/right/machine_output.rb

@@ -1,53 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Right
-# Set: All "+MachineOutput" cards
-#
-module MachineOutput;
-extend Card::Set
-def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/machines/set/right/machine_output.rb"; end
-def followable?
-  false
-end
-
-def ok_to_read
-  left.ok_to_read
-end
-
-def history?
-  false
-end
-
-event :remove_codename, :prepare_to_validate,
-      on: :delete,
-      when: proc { |c| c.codename.present? } do
-  # load file before deleting codename otherwise it will fail later
-  attachment
-  self.codename = nil
-end
-
-module Format; module_parent.send :register_set_format, Card::Format, self; extend Card::Set::AbstractFormat
-  view :not_found do
-    if update_machine_output_live?
-      Card::Cache.reset_all # FIXME: wow, this is overkill, no?
-      root.error_status = 302
-      card.left.update_machine_output
-      card_path card.left.machine_output_url
-    else
-      super()
-    end
-  end
-
-  def update_machine_output_live?
-    case
-    when !card.left.is_a?(Abstract::Machine) then false # must be a machine
-    when card.left.locked?         then false # machine must not be running
-    when card.new_card?            then true  # always update if new
-    else
-      # must want current output (won't re-output old stuff)
-      (selected_id = card.selected_action_id) &&
-        selected_id == card.last_action_id
-    end
-  end
-end
-end;end;end;end;
-# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/machines/set/right/machine_output.rb ~~

data/tmpsets/set/mod016-script/abstract/01_asset_java_script.rb

@@ -1,32 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract
-# Set: Abstract (AssetJavaScript)
-#
-# -*- encoding : utf-8 -*-
-module AssetJavaScript;
-extend Card::Set
-def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/script/set/abstract/01_asset_java_script.rb"; end
-
-include_set Abstract::AssetFile
-
-def compress_js?
-  @minimize
-end
-
-module JsFormat; module_parent.send :register_set_format, Card::Format::JsFormat, self; extend Card::Set::AbstractFormat
-  view :source do
-    if @local
-      card.machine_output_url
-    else
-      source
-    end
-  end
-end
-
-module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
-  view :javascript_include_tag do
-    javascript_include_tag card.machine_output_url
-  end
-end
-end;end;end;end;
-# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/script/set/abstract/01_asset_java_script.rb ~~

data/tmpsets/set/mod016-script/abstract/asset_coffee_script.rb

@@ -1,34 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract
-# Set: Abstract (AssetCoffeeScript)
-#
-# -*- encoding : utf-8 -*-
-module AssetCoffeeScript;
-extend Card::Set
-def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/script/set/abstract/asset_coffee_script.rb"; end
-
-require "coffee-script"
-
-include_set Abstract::AssetFile
-
-def compress_js?
-  @minimize
-end
-
-module JsFormat; module_parent.send :register_set_format, Card::Format::JsFormat, self; extend Card::Set::AbstractFormat
-  view :source do
-    if @local
-      card.machine_output_url
-    else
-      source
-    end
-  end
-end
-
-module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
-  view :javascript_include_tag do
-    javascript_include_tag card.machine_output_url
-  end
-end
-end;end;end;end;
-# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/script/set/abstract/asset_coffee_script.rb ~~

data/tmpsets/set/mod016-script/abstract/asset_list.rb

@@ -1,98 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract
-# Set: Abstract (AssetList)
-#
-module AssetList;
-extend Card::Set
-def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/script/set/abstract/asset_list.rb"; end
-include_set Abstract::Machine
-include_set Abstract::MachineInput
-include_set Abstract::ReadOnly
-include_set Abstract::Sources
-include_set Abstract::Items
-
-machine_input { standard_machine_input }
-store_machine_output filetype: "js"
-
-def update_if_source_file_changed
-  return unless !output_updated_at || source_changed?(since: output_updated_at)
-
-  update_items!
-end
-
-event :update_asset_list, :prepare_to_store, on: :save do
-  self.db_content = relative_paths.join("\n")
-end
-
-def update_items!
-  Card::Auth.as_bot do
-    save!
-  end
-  regenerate_machine_output
-end
-
-def item_name_to_path name
-  name
-end
-
-def fetch_item_card name, _args={}
-  new_asset_file_card item_name_to_path(name)
-end
-
-def new_asset_file_card path, name = ::File.basename(path)
-  if path.ends_with? ".js.coffee"
-    type_id = Card::CoffeeScriptID
-    set_module = ::Card::Set::Abstract::AssetCoffeeScript
-  elsif path.ends_with? ".js"
-    type_id = Card::JavaScriptID
-    set_module = ::Card::Set::Abstract::AssetJavaScript
-  else
-    return
-  end
-  asset_card = Card.new name: name,
-                        type_id: type_id,
-                        content: path
-
-  asset_card.include_set_module set_module
-  asset_card.minimize if @minimize
-  asset_card.local if @local
-  asset_card
-end
-
-def source_paths
-  paths
-end
-
-def self_machine_input?
-  true
-end
-
-def local
-  @local = true
-end
-
-def minimize?
-  @minimize = true
-end
-
-def standard_machine_input
-  item_cards.map do |mcard|
-    js = mcard.format(:js)._render_core
-    js = mcard.compress_js js if minimize?
-    "// #{mcard.name}\n#{js}"
-  end.join "\n"
-end
-
-module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
-  view :javascript_include_tag do
-    javascript_include_tag card.machine_output_url
-  end
-end
-
-def source_changed? since:
-  difference = (relative_paths + item_names) - (relative_paths & item_names)
-  difference.present? ||
-    existing_source_paths.any? { |path| ::File.mtime(path) > since }
-end
-end;end;end;end;
-# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/script/set/abstract/asset_list.rb ~~

data/tmpsets/set/mod016-script/abstract/manifest_group.rb

@@ -1,22 +0,0 @@
-# -*- encoding : utf-8 -*-
-class Card; module Set; class Abstract
-# Set: Abstract (ManifestGroup)
-#
-module ManifestGroup;
-extend Card::Set
-def self.source_location; "/Users/ezl5238/dev/decko/gem/mod/script/set/abstract/manifest_group.rb"; end
-def group_name
-  codename.to_s.sub(/^.+__/, "")
-end
-
-def relative_paths
-  paths
-end
-
-module HtmlFormat; module_parent.send :register_set_format, Card::Format::HtmlFormat, self; extend Card::Set::AbstractFormat
-  view :core do
-    list_group card.item_names
-  end
-end
-end;end;end;end;
-# ~~ generated from /Users/ezl5238/dev/decko/gem/mod/script/set/abstract/manifest_group.rb ~~