flor 0.0.1 → 0.9.0

data/lib/flor/pcore/noeval.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::NoEval < Flor::Procedure
+  #
+  # Immediately replies, children are not evaluated
+  #
+  # ```
+  # sequence
+  #   1
+  #   noeval
+  #     true
+  #     [ 1, 2, 3 ]
+  #   # f.ret is still 1 here, not [ 1, 2, 3 ]
+  # ```
+
+  name 'noeval'
+
+  def execute
+
+    reply
+  end
+end
+

data/lib/flor/pcore/noret.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::NoRet < Flor::Procedure
+  #
+  # executes its children, but doesn't alter the received f.ret
+  #
+  # ```
+  # sequence
+  #   123
+  #   noret
+  #     456
+  #   # f.ret is "back" to 123 at this point
+  # ```
+
+  name 'noret'
+
+  def receive_last
+
+    payload['ret'] = node_payload_ret
+
+    reply
+  end
+end
+

data/lib/flor/pcore/push.rb

@@ -0,0 +1,69 @@
+#--
+# 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::Push < Flor::Procedure
+
+  name 'push', 'pushr'
+
+  def pre_execute
+
+    unatt_unkeyed_children
+    stringify_first_child
+  end
+
+  def receive_non_att
+
+    @node['arr'] ||= payload['ret']
+
+    super
+  end
+
+  def receive_last
+
+    arr = @node['arr']
+
+    if arr.is_a?(String)
+      payload.copy if arr[0, 1] == 'f'
+      arr = lookup(arr)
+    end
+
+    fail Flor::FlorError.new(
+      "cannot push to given target (#{arr.class})", self
+    ) unless arr.respond_to?(:push)
+
+    val =
+      unkeyed_children.size > 1 ?
+      payload['ret'] :
+      node_payload_ret
+
+    arr.push(val)
+
+    payload['ret'] = node_payload_ret \
+      unless tree[0] == 'pushr'
+
+    reply
+  end
+end
+

data/lib/flor/pcore/sequence.rb

@@ -0,0 +1,39 @@
+#--
+# 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::Sequence < Flor::Procedure
+  #
+  # Executes child expressions in sequence.
+  #
+  # ```
+  # sequence
+  #   task 'alpha'
+  #   task 'bravo' if f.amount > 2000
+  #   task 'charly'
+  # ```
+
+  names %w[ sequence _apply begin ]
+end
+

data/lib/flor/pcore/set.rb

@@ -0,0 +1,76 @@
+#--
+# 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::Set < Flor::Procedure
+
+  names %w[ set setr ]
+
+  def pre_execute
+
+    unatt_unkeyed_children
+    stringify_first_child
+  end
+
+  def receive_non_att
+
+    @node['ref'] ||= payload['ret']
+
+    super
+  end
+
+  def receive_last
+
+    set_value(@node['ref'], payload['ret'])
+
+    payload['ret'] =
+      if tree[0] == 'setr' || @node['ref'] == 'f.ret'
+        payload['ret']
+      else
+        node_payload_ret
+      end
+
+    reply
+  end
+end
+
+#  protected
+#
+#  def splat(ks, vs)
+#
+#    ks.inject(0) { |off, k|
+#      if k[0, 1] == '*'
+#        #p({ off: off, k: k, ks: ks[off + 1..-1], vs: vs[off..-1] })
+#        l = vs.length - ks.length + 1
+#        set_value(k[1..-1], vs[off, l])
+#        off + l
+#      else
+#        set_value(k, vs[off])
+#        off + 1
+#      end
+#    }
+#  end
+  #
+  # TODO need a splat a some point
+

data/lib/flor/pcore/stall.rb

@@ -0,0 +1,35 @@
+#--
+# 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::Stall < Flor::Procedure
+
+  name 'stall'
+
+  def receive_last_att
+
+    [] # give back no messages, just stall...
+  end
+end
+

data/lib/flor/pcore/until.rb

@@ -0,0 +1,122 @@
+#--
+# 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::Until < Flor::Procedure
+
+  names 'until', 'while'
+
+  def pre_execute
+
+    @node['subs'] = []
+
+    unatt_first_unkeyed_child
+  end
+
+  def receive_first
+
+    @node['vars'] =
+      {}
+    @node['vars']['break'] =
+      [ '_proc', { 'proc' => 'break', 'nid' => nid }, tree[-1] ]
+    @node['vars']['continue'] =
+      [ '_proc', { 'proc' => 'continue', 'nid' => nid }, tree[-1] ]
+
+    super
+  end
+
+  def receive_non_att
+    #
+    # receiving from a non_att child (condition or block)
+
+    if @fcid == first_unkeyed_child_id
+
+      t0 = tree[0]
+      tru = Flor.true?(payload['ret'])
+
+      if (tru && t0 == 'until') || ( ! tru && t0 == 'while')
+        #
+        # over
+
+        ret = @node.has_key?('cret') ? @node['cret'] : node_payload_ret
+        reply('ret' => ret)
+
+      else
+        #
+        # condition yield false, enter "block"
+
+        payload['ret'] = node_payload_ret
+        execute_child(@ncid, @node['subs'].last)
+      end
+
+    elsif @ncid >= children.size
+      #
+      # block over, increment counter and head back to condition
+
+      @node['subs'] << counter_next('subs')
+
+      @node['cret'] = payload['ret']
+      payload['ret'] = node_payload_ret
+      execute_child(first_unkeyed_child_id, @node['subs'].last)
+
+    else
+      #
+      # we're in the middle of the "block", let's carry on
+
+      # no need to set 'ret', we're in some kind of sequence
+      execute_child(@ncid, @node['subs'].last)
+    end
+  end
+
+  def cancel_when_closed
+
+    return [] unless @message['flavour'] == 'break'
+
+    cancel
+  end
+
+  def cancel
+
+    fla = @message['flavour']
+
+    if fla == 'continue'
+
+      pl = node_payload.copy_current
+      pl = pl.merge!(payload.copy_current)
+
+      @node['subs'] << counter_next('subs')
+
+      @node['on_receive_last'] =
+        execute_child(
+          first_unkeyed_child_id, @node['subs'].last, 'payload' => pl)
+
+    else
+
+      @node['on_receive_last'] = nil
+    end
+
+    super
+  end
+end
+

data/lib/flor/pcore/val.rb

@@ -0,0 +1,40 @@
+#--
+# 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::Val < Flor::Procedure
+
+  name '_val'
+
+  def execute
+
+    heat = @node['heat']
+    heat = nil if heat == [ '_proc', 'val', -1 ]
+
+    payload['ret'] = heat
+
+    reply
+  end
+end
+

data/lib/flor/punit/cancel.rb

@@ -0,0 +1,69 @@
+#--
+# 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::Cancel < Flor::Procedure
+  #
+  # Cancels an execution branch
+  #
+  # ```
+  # concurrence
+  #   sequence tag: 'blue'
+  #   sequence
+  #     cancel ref: 'blue'
+  # ```
+
+  name 'cancel', 'kill'
+    # ruote had "undo" as well...
+
+  def pre_execute
+
+    @node['atts'] = []
+  end
+
+  def receive_last
+
+    targets =
+      @node['atts']
+        .select { |k, v| k == nil }
+        .inject([]) { |a, (k, v)|
+          v = Array(v)
+          a.concat(v) if v.all? { |e| e.is_a?(String) }
+          a
+        } +
+      att_a('nid') +
+      att_a('ref')
+
+    nids, tags = targets.partition { |t| Flor.is_nid?(t) }
+
+    nids += tags_to_nids(tags)
+
+    fla = @node['heap']
+
+    nids.uniq.collect { |nid|
+      reply('point' => 'cancel', 'nid' => nid, 'flavour' => fla).first
+    } + reply
+  end
+end
+

data/lib/flor/punit/cmap.rb

@@ -0,0 +1,76 @@
+#--
+# 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::Cmap < Flor::Procedure
+
+  name 'cmap'
+
+  def pre_execute
+
+    @node['atts'] = []
+
+    @node['fun'] = nil
+    @node['col'] = []
+  end
+
+  def receive_non_att
+
+    if @node['fun']
+      receive_elt
+    else
+      receive_fun
+    end
+  end
+
+  protected
+
+  def receive_fun
+
+    fun = payload['ret']
+
+    fail ArgumentError.new(
+      "cmap expects a function"
+    ) unless Flor.is_func_tree?(fun)
+
+    col = att(nil)
+    @node['fun'] = fun
+
+    col.collect.with_index do |e, i|
+      apply(@node['fun'], [ e, i ], tree[2])
+    end.flatten(1)
+  end
+
+  def receive_elt
+
+    @node['col'] << payload['ret']
+
+    return [] if @node['cnodes'].any?
+
+    payload['ret'] = @node['col']
+
+    reply
+  end
+end
+