flor 0.0.1 → 0.9.0

data/lib/flor/punit/concurrence.rb

@@ -0,0 +1,149 @@
+#--
+# Copyright (c) 2015-2017, John Mettraux, jmettraux+flor@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+# Made in Japan.
+#++
+
+
+class Flor::Pro::Concurrence < Flor::Procedure
+
+  name 'concurrence'
+
+  def pre_execute
+
+    @node['atts'] = []
+  end
+
+  def receive_last_att
+
+    return reply unless children[@ncid]
+
+    (@ncid..children.size - 1)
+      .map { |i| execute_child(i, 0, 'payload' => payload.copy_current) }
+      .flatten(1)
+        #
+        # call execute for each of the (non _att) children
+  end
+
+  def receive_non_att
+
+    @node['receiver'] ||= determine_receiver
+    @node['merger'] ||= determine_merger
+
+    (@node['cnodes'] || []).delete(from)
+
+    return [] if @node['over']
+
+    over = invoke_receiver
+      # true: the concurrence is over, false: the concurrence is still waiting
+
+    return [] unless over
+
+    @node['over'] = true
+
+    pld = invoke_merger
+      # determine post-concurrence payload
+
+    cancel_remaining +
+    reply('payload' => pld)
+  end
+
+  def receive_from_child_when_closed
+
+    ms = receive
+
+    return [] if ms.empty?
+
+    pop_on_receive_last || ms
+  end
+
+  protected
+
+  def determine_receiver
+
+    ex = att(:expect)
+
+    return 'expect_integer_receive' if ex && ex.is_a?(Integer) && ex > 0
+
+    'default_receive'
+  end
+
+  def determine_merger
+
+    'default_merge'
+  end
+
+  def cancel_remaining
+
+    # remaining:
+    # * 'cancel' (default)
+    # * 'forget'
+    # * 'wait'
+
+    rem = att(:remaining, :rem)
+
+    return [] if rem == 'forget'
+
+    cancel_nodes(@node['cnodes'])
+  end
+
+  def invoke_receiver
+
+    # TODO: receiver function case
+
+    self.send(@node['receiver'])
+  end
+
+  def invoke_merger
+
+    # TODO: merger function case
+
+    self.send(@node['merger'])
+  end
+
+  def store_payload
+
+    (@node['payloads'] ||= {})[@message['from']] =
+      @message['payload']
+  end
+
+  def default_receive
+
+    store_payload
+
+    @node['payloads'].size >= non_att_children.size
+  end
+
+  def expect_integer_receive
+
+    store_payload
+
+    @node['payloads'].size >= att(:expect)
+  end
+
+  def default_merge
+
+    @node['payloads'].values
+      .reverse
+      .inject({}) { |h, pl| h.merge!(pl) }
+  end
+end
+

data/lib/flor/punit/every.rb

@@ -0,0 +1,46 @@
+#--
+# Copyright (c) 2015-2017, John Mettraux, jmettraux+flor@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+# Made in Japan.
+#++
+
+
+class Flor::Pro::Every < Flor::Macro
+
+  name 'every'
+
+  def rewrite_tree
+
+    l = tree[2]
+
+    th = [ 'schedule', [], l, *tree[3] ]
+    att_children.each { |ac| th[1] << Flor.dup(ac) }
+
+    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/punit/on.rb

@@ -0,0 +1,81 @@
+#--
+# Copyright (c) 2015-2017, John Mettraux, jmettraux+flor@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+# Made in Japan.
+#++
+
+
+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/punit/schedule.rb

@@ -0,0 +1,68 @@
+#--
+# Copyright (c) 2015-2017, John Mettraux, jmettraux+flor@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+# Made in Japan.
+#++
+
+
+class Flor::Pro::Schedule < Flor::Procedure
+  #
+  # Schedules a function
+  #
+  # ```
+  # schedule cron: '0 0 1 jan *'  # every 1st day of the year, check systems
+  #   def msg
+  #     check_systems
+  # ```
+  #
+  # See also: cron, at, in and sleep
+
+  name 'schedule'
+
+  def pre_execute
+
+    @node['atts'] = []
+  end
+
+  def receive_last
+
+    fun = @fcid > 0 ? payload['ret'] : nil
+
+    fail ArgumentError.new(
+      "missing a function to call when the scheduler triggers"
+    ) unless fun
+
+    msg = apply(fun, [], tree[2], false).first.merge('noreply' => true)
+
+    type, string =
+      @node['atts'].find { |k, v| %w[ cron at in every ].include?(k) } ||
+      @node['atts'].find { |k, v| k == nil }
+
+    fail ArgumentError.new(
+      "missing a schedule"
+    ) unless string
+
+    #m = reply('point' => 'receive').first
+
+    schedule('type' => type, 'string' => string, 'message' => msg)
+  end
+end
+

data/lib/flor/punit/signal.rb

@@ -0,0 +1,47 @@
+#--
+# Copyright (c) 2015-2017, John Mettraux, jmettraux+flor@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+# Made in Japan.
+#++
+
+
+class Flor::Pro::Signal < Flor::Procedure
+
+  name 'signal'
+
+  def pre_execute
+
+    @node['atts'] = []
+  end
+
+  def receive_last
+
+    name = att('name', nil)
+
+    return super unless name
+
+    reply(
+      'point' => 'signal', 'nid' => nid, 'name' => name,
+      'payload' => payload.copy_current
+    ) + super
+  end
+end
+

data/lib/flor/punit/sleep.rb

@@ -0,0 +1,53 @@
+#--
+# Copyright (c) 2015-2017, John Mettraux, jmettraux+flor@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+# Made in Japan.
+#++
+
+
+class Flor::Pro::Sleep < Flor::Procedure
+  #
+  # Makes a branch of an execution sleep for a while.
+  #
+  # ```
+  # sleep '1y'       # sleep for one year
+  # sleep for: '2y'  # sleep for two years, with an explicit for:
+  # sleep '2d1m10s'  # sleep for two days, one minute and ten seconds
+  # ```
+
+  name 'sleep'
+
+  def pre_execute
+
+    @node['atts'] = []
+  end
+
+  def receive_last
+
+    t = att('for', nil)
+    fail ArgumentError.new("missing a sleep time duration") unless t
+
+    m = reply('point' => 'receive').first
+
+    schedule('type' => 'in', 'string' => t, 'message' => m)
+  end
+end
+

data/lib/flor/punit/task.rb

@@ -0,0 +1,109 @@
+#--
+# Copyright (c) 2015-2017, John Mettraux, jmettraux+flor@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+# Made in Japan.
+#++
+
+
+class Flor::Pro::Task < Flor::Procedure
+
+  name 'task'
+
+  def pre_execute
+
+    @node['atts'] = []
+  end
+
+  def do_receive
+
+    return reply('payload' => determine_reply_payload) \
+      if point == 'receive' && from == nil
+
+    super
+      # which goes to #receive or #receive_when_status
+  end
+
+  def receive_last_att
+
+    # task 'clean up' by: 'alan'
+    # task 'clean up' for: 'alan'
+    # task 'clean up' assign: 'alan'
+    # task 'alan' with: 'clean up'
+    # clean_up assign: 'alan'
+    # "clean up" assign: 'alan'
+    # alan task: 'clean up'
+
+    #@executor.unit.tasker.has_tasker?(@executor.exid, key)
+
+    ni = att(nil)
+    ta = att('by', 'for', 'assign')
+    tn = att('with', 'task')
+
+    tasker = ta || ni
+
+    taskname = tn || ni
+    taskname = nil if ta == nil && tasker == ni
+
+    attl, attd = determine_atts
+
+    queue(
+      'point' => 'task',
+      'exid' => exid, 'nid' => nid,
+      'tasker' => tasker,
+      'taskname' => taskname,
+      'attl' => attl, 'attd' => attd,
+      'payload' => determine_payload)
+#.tap { |x| pp x.first }
+  end
+
+  def cancel
+
+    attl, attd = determine_atts
+
+    queue(
+      'point' => 'detask',
+      'exid' => exid, 'nid' => nid,
+      'tasker' => att(nil),
+      'attl' => attl, 'attd' => attd,
+      'payload' => determine_payload)
+  end
+
+  protected
+
+  def determine_atts
+
+    attl, attd = [], {}
+    @node['atts'].each { |k, v| if k.nil?; attl << v; else; attd[k] = v; end }
+
+    [ attl, attd ]
+  end
+
+  def determine_payload
+
+    message_or_node_payload.copy_current
+  end
+
+  def determine_reply_payload
+
+    payload.copy_current
+  end
+end
+

data/lib/flor/punit/trace.rb

@@ -0,0 +1,51 @@
+#--
+# Copyright (c) 2015-2017, John Mettraux, jmettraux+flor@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+# Made in Japan.
+#++
+
+
+class Flor::Pro::Trace < Flor::Procedure
+
+  name 'trace'
+
+  def receive
+
+    if @message['point'] == 'receive'
+
+      t = lookup_tree(@message['from'])
+
+      if t.first == '_att' && t[1].size == 1
+        @executor.unit.storage.trace(exid, nid, 'trace', payload['ret'])
+      end
+    end
+
+    super
+  end
+
+  def receive_last
+
+    payload['ret'] = node_payload_ret
+
+    reply
+  end
+end
+

data/lib/flor/punit/trap.rb

@@ -0,0 +1,100 @@
+#--
+# Copyright (c) 2015-2017, John Mettraux, jmettraux+flor@gmail.com
+#
+# Permission is hereby granted, free of charge, to any person obtaining a copy
+# of this software and associated documentation files (the "Software"), to deal
+# in the Software without restriction, including without limitation the rights
+# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the Software is
+# furnished to do so, subject to the following conditions:
+#
+# The above copyright notice and this permission notice shall be included in
+# all copies or substantial portions of the Software.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+# THE SOFTWARE.
+#
+# Made in Japan.
+#++
+
+
+# # trap
+#
+# ## range:/scope:
+# * subnid (default)
+# * execution/exe
+# * domain
+# * subdomain
+#
+# ## bind:
+# * parent (default)
+# * root
+#
+class Flor::Pro::Trap < Flor::Procedure
+
+  name 'trap'
+
+  def pre_execute
+
+    @node['vars'] = {}
+    @node['atts'] = []
+    @node['fun'] = nil
+
+    #unatt_unkeyed_children
+  end
+
+  def receive_non_att
+
+    return execute_child(@ncid) if children[@ncid]
+
+    fun = @fcid > 0 ? payload['ret'] : nil
+
+    points = att_a('point', 'points', nil)
+    tags = att_a('tag', 'tags', nil)
+    heats = att_a('heat', 'heats', nil)
+    heaps = att_a('heap', 'heaps', nil)
+    names = att_a('name', 'names', nil)
+    pl = att('payload', 'pl') || 'trap'
+
+    points = att_a(nil, nil) unless points || tags
+    points = [ 'entered' ] if tags && ! points
+
+    msg =
+      if fun
+        apply(fun, [], tree[2], false).first.merge('noreply' => true)
+      else
+        reply.first
+      end
+
+    tra = {}
+    tra['bnid'] = parent || '0' # shouldn't it be [the real] root?
+    tra['points'] = points
+    tra['tags'] = tags
+    tra['heaps'] = heaps
+    tra['heats'] = heats
+    tra['names'] = names
+    tra['message'] = msg
+    tra['pl'] = pl
+
+    count = att('count')
+    count = 1 if fun == nil # blocking mode implies count: 1
+    tra['count'] = count if count
+
+    tra['range'] = att('range') || att('scope') || 'subnid'
+
+    reply('point' => 'trap','nid' => nid, 'trap' => tra) +
+    (fun ? reply : [])
+  end
+
+  def receive_last
+
+    #fail ArgumentError.new('trap requires a function')
+    receive_non_att
+  end
+end
+