flor 0.14.0 → 0.15.0

data/lib/flor/punit/on.rb

@@ -1,57 +0,0 @@
-
-class Flor::Pro::On < Flor::Macro
-  #
-  # Traps a signal by name
-  #
-  # Turns
-  # ```
-  # on 'approve'
-  #   task 'bob' mission: 'gather signatures'
-  # ```
-  # into
-  # ```
-  # trap point: 'signal', name: 'approve'
-  #   set sig 'signal'
-  #   def msg
-  #     task 'bob' mission: 'gather signatures'
-  # ```
-  #
-
-  name 'on'
-
-  def rewrite_tree
-
-    atts = att_children
-    signame_i = atts.index { |at| at[1].size == 1 }
-
-    fail ArgumentError.new(
-      "signal name not found in #{tree.inspect}"
-    ) unless signame_i
-
-    tname = atts[signame_i]
-    tname = Flor.dup(tname[1][0])
-    atts.delete_at(signame_i)
-
-    l = tree[2]
-
-    th = [ 'trap', [], l, *tree[3] ]
-    th[1] << [ '_att', [ [ 'point', [], l ], [ '_sqs', 'signal', l ] ], l ]
-    th[1] << [ '_att', [ [ 'name', [], l ], tname ], l ]
-    th[1] << [ '_att', [ [ 'payload', [], l ], [ '_sqs', 'event', l ] ], l ]
-    atts.each { |ac| th[1] << Flor.dup(ac) }
-
-    th[1] << [ 'set', [
-      [ '_att', [ [ 'sig', [], l ] ], l ],
-      tname
-    ], l ]
-
-    td = [ 'def', [], l ]
-    td[1] << [ '_att', [ [ 'msg', [], l ] ], l ]
-    non_att_children.each { |nac| td[1] << Flor.dup(nac) }
-
-    th[1] << td
-
-    th
-  end
-end
-

data/lib/flor/unit/runner.rb

@@ -1,84 +0,0 @@
-
-module Flor
-
-  class Runner
-
-    # NB: tasker configuration entries start with "rnr_"
-
-    def initialize(unit)
-
-      @unit = unit
-    end
-
-    def shutdown
-    end
-
-    def run(service, conf, message)
-
-      return ruby_run(service, conf, message) if conf['class'] || conf['module']
-      return cmd_run(service, conf, message) if conf['cmd']
-
-      fail ArgumentError.new("don't know how to run item at #{conf['_path']}")
-    end
-
-    protected
-
-    def fjoin(root, path)
-
-      root == '.' ? path : File.join(root, path)
-    end
-
-    def ruby_run(service, conf, message)
-
-      root = File.dirname(conf['_path'])
-
-      Flor.h_fetch_a(conf, 'require').each { |pa|
-        fail ArgumentError.new('".." not allowed in paths') if pa =~ /\.\./
-        require(fjoin(root, pa)) }
-      Flor.h_fetch_a(conf, 'load').each { |pa|
-        fail ArgumentError.new('".." not allowed in paths') if pa =~ /\.\./
-        load(fjoin(root, pa)) }
-
-      k = Flor.const_lookup(conf['class'] || conf['module'])
-
-      o =
-        if k.class == Module
-          k
-        else
-          case k.instance_method(:initialize).arity
-          when 1 then k.new(service)
-          when 2 then k.new(service, conf)
-          when 3 then k.new(service, conf, message)
-          when -1 then k.new({
-            service: service, configuration: conf, message: message })
-          else k.new
-          end
-        end
-
-      p = message['point']
-      m = :on
-      m = "on_#{p}" if ! o.respond_to?(m)
-      m = p if ! o.respond_to?(m)
-      m = :cancel if m == 'detask' && ! o.respond_to?(m)
-
-      fail(
-        "#{k.class.to_s.downcase} #{k} doesn't respond to on, on_#{p} or #{p}"
-      ) if ! o.respond_to?(m)
-
-      case o.method(m).arity
-      when 1 then o.send(m, message)
-      when 2 then o.send(m, conf, message)
-      when 3 then o.send(m, executor, conf, message)
-      when -1 then o.send(m, {
-        service: service, configuration: conf, message: message })
-      else o.send(m)
-      end
-    end
-
-    def cmd_run(service, conf, message)
-
-fail NotImplementedError
-    end
-  end
-end
-

data/match.md

@@ -1,22 +0,0 @@
-
-```
-  match f.data
-    { temperature: t }; register_temperature t
-    { humidity: h }; register_humidity h
-    { luminosity: l, period: 'am' }; register_morning_luminosity l
-    { luminosity: l }; register_pm_luminosity l
-```
-
-or
-
-```
-  cond
-    f.data.temperature; register_temperature f.data.temperature
-    f.data.humidity; register_humidity f.data.humidity
-    and \
-      luminosity
-      == period 'am'
-    register_morning_luminosity f.data.luminosity
-    f.data.luminosity; register_pm_luminosity f.data.luminosity
-```
-