flor 0.0.1 → 0.9.0

data/lib/flor/pcore/cursor.rb

@@ -0,0 +1,223 @@
+#--
+# 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::Cursor < Flor::Procedure
+  #
+  # Executes child expressions in sequence, but may be "guided".
+  #
+  # ```
+  # cursor
+  #   task 'alpha'
+  #   task 'bravo' if f.amount > 2000
+  #   task 'charly'
+  # ```
+  #
+  # ## break
+  #
+  # Cursor understands `break`. For example, this execution will go from
+  # "alpha" to "charly", task "bravo" will not be visited.
+  # ```
+  # cursor
+  #   task 'alpha'
+  #   break _
+  #   task 'bravo'
+  # task 'charly'
+  # ```
+
+  name 'cursor'
+
+  def pre_execute
+
+    @node['subs'] = []
+  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] ]
+
+    @node['vars']['move'] =
+      [ '_proc', { 'proc' => 'move', 'nid' => nid }, tree[-1] ]
+
+    super
+  end
+
+  def receive_att
+
+    receive_unkeyed_tag_att + super
+  end
+
+  def receive_non_att
+
+    if @ncid >= children.size
+      if @message['orl'] == 'continue'
+        @node['subs'] << counter_next('subs')
+        execute_child(first_non_att_child_id, @node['subs'].last)
+      else
+        reply
+      end
+    else
+      execute_child(@ncid, @node['subs'].last)
+    end
+  end
+
+  def cancel_when_closed
+
+    return [] unless @message['flavour'] == 'break'
+
+    cancel
+  end
+
+  def cancel
+
+    fla = @message['flavour']
+
+#    busy = @node['on_receive_last']
+#
+#    close_node
+#
+#    @node['on_receive_last'] =
+#      if fla == 'continue'
+#        @node['subs'] << counter_next('subs')
+#        execute_child(first_non_att_child_id, @node['subs'].last, 'orl' => fla)
+#      elsif fla == 'move'
+#        @node['subs'] << counter_next('subs')
+#        execute_child(move_target_child_id, @node['subs'].last, 'orl' => fla)
+#      else # 'break'
+#        nil
+#      end
+#
+#    return [] if busy
+#      # <------- that implies that upon a sound reply,
+#      #          @node['on_receive_last'] is set to nil!
+#      #          @node['status'] is cleaned...
+#
+#    super.tap { |ms| pp ms }
+
+#if nid == '0_1_0'
+#  puts "\\" * 80
+#  puts caller[0, 7]
+#end
+
+    if fla == 'continue'
+
+      @node['on_receive_last'] =
+        reply(
+          'nid' => nid, 'from' => "#{nid}_#{children.size + 1}",
+          'orl' => fla,
+          'payload' => Flor.dup(message['payload']))
+
+    elsif fla == 'move'
+
+      @node['subs'] << counter_next('subs')
+
+      @node['on_receive_last'] =
+        execute_child(move_target_child_id, @node['subs'].last, 'orl' => fla)
+
+    else
+
+      @node['on_receive_last'] = nil
+    end
+
+    super#.tap { |ms| pp ms }
+  end
+
+  protected
+
+  def move_target_child_id
+
+    to = @message['to']
+
+    fail("move target #{to.inspect} is not a string") unless to.is_a?(String)
+
+    find_tag_target(to) ||
+    find_string_arg_target(to) ||
+    find_string_target(to) ||
+    find_name_target(to) ||
+    find_att_target(to) ||
+    fail("move target #{to.inspect} not found")
+  end
+
+  def find_tag_target(to)
+
+    tree[1]
+      .index { |c|
+        c[1].is_a?(Array) &&
+        c[1].index { |cc|
+          Flor.is_tree?(cc) &&
+          cc[0] == '_att' &&
+          cc[1].size == 2 &&
+          cc[1][0][0] == 'tag' &&
+          %w[ _sqs _dqs ].include?(cc[1][1][0]) &&
+          cc[1][1][1] == to
+        }
+      }
+  end
+
+  def find_string_arg_target(to)
+
+    tree[1]
+      .index { |c|
+        c[1].is_a?(Array) &&
+        c[1].index { |cc|
+          Flor.is_tree?(cc) &&
+          cc[0] == '_att' &&
+          cc[1].size == 1 &&
+          %w[ _sqs _dqs ].include?(cc[1][0][0]) &&
+          cc[1][0][1] == to
+        }
+      }
+  end
+
+  def find_string_target(to)
+
+    tree[1].index { |c| %w[ _sqs _dqs ].include?(c[0]) && c[1] == to }
+  end
+
+  def find_name_target(to)
+
+    tree[1].index { |c| c[0] == to }
+  end
+
+  def find_att_target(to)
+
+    tree[1]
+      .index { |c|
+        c[0] == '_' &&
+        c[1].is_a?(Array) &&
+        c[1].find { |cc|
+          cc[0] == '_att' &&
+          cc[1].is_a?(Array) &&
+          cc[1][0][0, 2] == [ 'here', [] ]
+        }
+      }
+  end
+end
+

data/lib/flor/pcore/define.rb

@@ -0,0 +1,96 @@
+#--
+# 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::Define < Flor::Procedure
+  #
+  # Defines a function.
+  #
+  # In its `define` flavour, will take a function body and assign it to
+  # variable.
+  # ```
+  # define sum a, b # make variable 'sum' hold the function
+  #   +
+  #     a
+  #     b
+  #   # yields the function, like `fun` and `def` do
+  #
+  # sum 1 2
+  #   # will yield 3
+  # ```
+  #
+  # In the `fun` and `def` flavours, the function is unnamed, it's thus not
+  # bound in a local variable.
+  # ```
+  # map [ 1, 2, 3 ]
+  #   def x
+  #     + x 3
+  # # yields [ 4, 5, 6 ]
+  # ```
+  #
+  # It's OK to generate the function name at the last moment:
+  # ```
+  # sequence
+  #   set prefix "my"
+  #   define "$(prefix)-sum" a b
+  #     + a b
+  # ```
+
+  names %w[ def fun define ]
+
+  def execute
+
+    if i = att_children.index { |c| %w[ _dqs _sqs ].include?(c[1].first.first) }
+      execute_child(i)
+    else
+      receive_att
+    end
+  end
+
+  def receive_att
+
+    t = tree
+    cnode = lookup_var_node(@node, 'l')
+    cnid = cnode['nid']
+    fun = counter_next('funs') - 1
+    (cnode['closures'] ||= []) << fun
+
+    val = [ '_func', { 'nid' => nid, 'cnid' => cnid, 'fun' => fun }, t[2] ]
+
+    if t[0] == 'define'
+      name =
+        if @message['point'] == 'execute'
+          t[1].first[1].first[0]
+        else
+          payload['ret']
+        end
+      set_var('', name, val)
+    end
+
+    payload['ret'] = val
+
+    reply
+  end
+end
+

data/lib/flor/pcore/fail.rb

@@ -0,0 +1,45 @@
+#--
+# 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::Fail < Flor::Procedure
+
+  names 'fail', 'error'
+
+  def receive_last
+
+    err =
+      Flor::FlorError.new(
+        (payload['ret'] || 'error').to_s,
+        Flor::Node.new(@executor, @node, @message))
+
+    #fail err
+      #
+      # let's reply with the failed message directly,
+      # no need for a Ruby backtrace, it's an error at the Flor level.
+      #
+    reply('point' => 'failed', 'error' => Flor.to_error(err))
+  end
+end
+

data/lib/flor/pcore/ife.rb

@@ -0,0 +1,56 @@
+#--
+# 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::Ife < Flor::Procedure
+
+  names 'ife', 'unlesse'
+
+  def pre_execute
+
+    unatt_unkeyed_children
+  end
+
+  def receive_non_att
+
+    return reply if @fcid > first_unkeyed_child_id
+      # "else" or "then" answered, replying to parent...
+
+    off =
+      if tree[0] == 'unlesse'
+        Flor.false?(payload['ret']) ? 1 : 2
+      else # 'ife'
+        Flor.true?(payload['ret']) ? 1 : 2
+      end
+
+    nxt = @fcid + off
+
+    if nxt >= children.size
+      reply('ret' => node_payload_ret)
+    else
+      execute_child(nxt)
+    end
+  end
+end
+

data/lib/flor/pcore/loop.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::Loop < Flor::Pro::Cursor
+  #
+  # Executes child expressions in sequence, then loops around.
+  #
+  # It's mostly a [cursor](cursor.md) that loops upon going past its
+  # last child.
+  #
+  # ```
+  # loop
+  #   task 'alpha'
+  #   task 'bravo'
+  # ```
+  #
+  # Accepts `break` and `continue` like `cursor` does.
+
+  name 'loop'
+
+  def receive_non_att
+
+    if @ncid >= children.size
+      @node['subs'] << counter_next('subs')
+      execute_child(first_non_att_child_id, @node['subs'].last)
+    else
+      execute_child(@ncid, @node['subs'].last)
+    end
+  end
+end
+

data/lib/flor/pcore/map.rb

@@ -0,0 +1,75 @@
+#--
+# 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::Map < Flor::Procedure
+
+  name 'map'
+
+  def pre_execute
+
+    #@node['ret'] = Flor.dup(payload['ret']) # now using @node['payload']
+
+    @node['vars'] = {}
+      # just to store the local idx
+
+    @node['col'] = nil
+    @node['idx'] = -1
+    @node['fun'] = nil
+    @node['res'] = []
+
+    unatt_unkeyed_children
+  end
+
+  def receive_non_att
+
+    @node['col'] ||=
+      Flor.to_coll(
+        if Flor.is_func_tree?(payload['ret'])
+          node_payload_ret
+        else
+          payload['ret']
+        end)
+
+    return execute_child(@ncid) \
+      if @node['fun'] == nil && children[@ncid] != nil
+
+    if @node['idx'] < 0
+      @node['fun'] = payload['ret']
+    else
+      @node['res'] << payload['ret']
+    end
+
+    @node['idx'] += 1
+    @node['mtime'] = Flor.tstamp
+
+    return reply('ret' => @node['res']) \
+      if @node['idx'] == @node['col'].size
+
+    @node['vars']['idx'] = @node['idx']
+
+    apply(@node['fun'], @node['col'][@node['idx'], 1], tree[2])
+  end
+end
+

data/lib/flor/pcore/match.rb

@@ -0,0 +1,70 @@
+#--
+# 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::Match < Flor::Procedure
+
+  names %w[ match match? ]
+
+  def pre_execute
+
+    @node['rets'] = []
+  end
+
+  def receive_last
+
+    rex, str = arguments
+
+    m = rex.match(str)
+
+    payload['ret'] =
+      if @node['heap'] == 'match?'
+        !! m
+      else
+        m ? m.to_a : []
+      end
+
+    reply
+  end
+
+  protected
+
+  def arguments
+
+    fail ArgumentError.new(
+      "'match' needs at least 2 arguments"
+    ) if @node['rets'].size < 2
+
+    rex = @node['rets']
+      .find { |r| r.is_a?(Array) && r[0] == '_rxs' } || @node['rets'].last
+
+    str = (@node['rets'] - [ rex ]).first
+
+    rex = rex.is_a?(String) ? rex : rex[1].to_s
+    rex = rex.match(/\A\/[^\/]*\/[a-z]*\z/) ? Kernel.eval(rex) : Regexp.new(rex)
+
+    [ rex, str ]
+  end
+end
+

data/lib/flor/pcore/move.rb

@@ -0,0 +1,65 @@
+#--
+# 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::Move < Flor::Procedure
+  #
+  # Moves a cursor to a given position
+  #
+  # ```
+  # cursor
+  #   do-this
+  #   move to: 'do-that-other-thing'
+  #   do-that # got skipped
+  #   do-that-other-thing
+  # ```
+
+  name 'move'
+
+  def pre_execute
+
+    @node['atts_accepting_symbols'] = %w[ to ]
+
+    @node['atts'] = []
+  end
+
+  def receive_last
+
+    ref = att('ref', nil)
+    nid = tags_to_nids(ref).first || @node['heat'][1]['nid']
+
+    to = att('to')
+
+    rep = is_ancestor_node?(nid) ? [] : reply
+
+    reply(
+      'point' => 'cancel',
+      'nid' => nid,
+      'flavour' => @node['heap'], # "move"
+      'payload' => rep.any? ? payload.copy_current : payload.current,
+      'to' => to) +
+    rep
+  end
+end
+