flor 0.0.1 → 0.9.0

data/lib/flor/pcore/_dump.rb

@@ -0,0 +1,60 @@
+#--
+# 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::Dump < Flor::Procedure
+
+  name '_dump'
+
+  def pre_execute
+
+    @node['atts'] = []
+  end
+
+  def receive_last
+
+    if n = @execution['nodes']['0']
+
+      dump = {}
+
+      dump['message'] = Flor.dup(@message)
+      dump['node'] = Flor.dup(@node)
+
+      vars = {}
+      pn = @node
+      while pn
+        if vs = pn['vars']
+          vs.each { |k, v| vars[k] = Flor.dup(v) unless vars.has_key?(k) }
+        end
+        pn = @execution['nodes'][pn['parent']]
+      end
+      dump['vars'] = vars
+
+      (n['vars']['dumps'] ||= []) << dump
+    end
+
+    super
+  end
+end
+

data/lib/flor/pcore/_err.rb

@@ -0,0 +1,30 @@
+#--
+# 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::Err < Flor::Procedure
+
+  name '_err'
+end
+

data/lib/flor/pcore/_happly.rb

@@ -0,0 +1,73 @@
+#--
+# 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::Happly < Flor::Procedure
+
+  name '_happly'
+
+  def pre_execute
+
+    @node['atts'] = []
+  end
+
+  def execute
+
+    queue(
+      'point' => 'execute',
+      'nid' => Flor.child_nid(nid, tree[1].size),
+      'tree' => tree[0])
+  end
+
+  def receive
+
+    fcid = Flor.child_id(message['from'])
+
+    return reply if @node['applied']
+    return super unless fcid == tree[1].size
+
+    ret = payload['ret']
+
+    @node['hret'] = payload['ret']
+    execute_child(0)
+  end
+
+  def receive_last
+
+    hret = @node['hret']
+
+    return reply('ret' => hret) unless Flor.is_func_tree?(hret)
+
+    args = @node['atts'].collect(&:last)
+
+    hret[1].merge!('head' => true, 'nid' => nid)
+
+    msgs = apply(hret, args, tree[2])
+
+    @node['applied'] = msgs.first['nid']
+
+    msgs
+  end
+end
+

data/lib/flor/pcore/_obj.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::Obj < Flor::Procedure
+
+  name '_obj'
+
+  def pre_execute
+
+    @node['rets'] = []
+  end
+
+  def receive_first
+
+    return reply('ret' => {}) if children == 0
+
+    cn = children
+      .inject([]) { |a, e| a << (a.size.even? ? stringify(e) : e); a }
+
+    @node['tree'] = [ tree[0], cn, tree[2] ] if children != cn
+
+    super
+  end
+
+  def receive_last
+
+    payload['ret'] =
+      @node['rets']
+        .each_slice(2)
+        .inject({}) { |h, (k, v)| h[k.to_s] = v; h }
+
+    reply
+  end
+
+  protected
+
+  def stringify(t)
+
+    return t unless t[1] == [] && t[0].is_a?(String)
+    [ '_sqs', deref(t[0]) || t[0], t[2] ]
+  end
+end
+

data/lib/flor/pcore/_skip.rb

@@ -0,0 +1,63 @@
+#--
+# 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::Skip < Flor::Procedure
+  #
+  # Skips x messages, mostly used for testing flor.
+  #
+  # ```
+  # concurrence
+  #   sequence
+  #     set f.i 0
+  #     while tag: 'xx'
+  #       true
+  #       set f.i (+ f.i 1)
+  #   sequence
+  #     _skip 7 # after 7 messages will go on
+  #     break ref: 'xx'
+  # ```
+
+  name '_skip'
+
+  def receive
+
+    return super unless @node.has_key?('count')
+
+    @node['count'] -= 1
+
+    return reply if @node['count'] < 1
+
+    reply('nid' => nid, 'from' => Flor.child_nid(nid, children.size))
+  end
+
+  def receive_last
+
+    @node['count'] = payload['ret'].to_i
+    payload['ret'] = node_payload_ret
+
+    receive
+  end
+end
+

data/lib/flor/pcore/apply.rb

@@ -0,0 +1,60 @@
+#--
+# 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::Apply < Flor::Procedure
+
+  name 'apply'
+
+  def pre_execute
+
+    @node['atts'] = []
+  end
+
+  def receive
+
+    return reply if from && from == @node['applied']
+
+    super
+  end
+
+  def receive_last
+
+    args = @node['atts'].collect(&:last)
+
+    nht = @node['heat']
+
+    src =
+      Flor.is_proc_tree?(nht) && nht[1]['proc'] == 'apply' ?
+      args.shift :
+      nht
+
+    ms = apply(src, args, tree[2])
+
+    @node['applied'] = ms.first['nid']
+
+    ms
+  end
+end
+

data/lib/flor/pcore/arith.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::Arith < Flor::Procedure
+
+  names %w[ + - * / ]
+
+  DEFAULTS = { :+ => 0, :* => 1, :- => 0, :/ => 1 }
+
+  def pre_execute
+
+    @node['rets'] = []
+  end
+
+  def receive_last
+
+    sign = tree.first.to_sym
+
+    payload['ret'] = @node['rets'].reduce(&sign) || DEFAULTS[sign]
+
+    reply
+  end
+end
+

data/lib/flor/pcore/break.rb

@@ -0,0 +1,71 @@
+#--
+# 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::Break < Flor::Procedure
+  #
+  # Breaks or continues a "while" or "until".
+  #
+  # ```
+  # until false
+  #   # do something
+  #   continue if f.x == 0
+  #   break if f.x == 1
+  #   # do something more
+  # ```
+
+  name 'break', 'continue'
+
+  def pre_execute
+
+    @node['atts'] = []
+  end
+
+  def receive_last
+
+    ref = att('ref')
+    nid = tags_to_nids(ref).first || @node['heat'][1]['nid']
+#p [ :break, @node['heap'], nid ]
+
+    payload['ret'] = att(nil) if has_att?(nil)
+
+    ms = []
+
+    if nid
+
+      ms += reply('point' => 'cancel', 'nid' => nid, 'flavour' => @node['heap'])
+    end
+
+    unless is_ancestor_node?(nid)
+
+      pl = ms.any? ? payload.copy_current : payload.current
+      pl['ret'] = node_payload_ret
+
+      ms += reply('payload' => pl)
+    end
+
+    ms
+  end
+end
+

data/lib/flor/pcore/cmp.rb

@@ -0,0 +1,72 @@
+#--
+# 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::Cmp < Flor::Procedure
+
+  names %w[ = == < > ]
+
+  def pre_execute
+
+    @node['rets'] = []
+  end
+
+  def receive_last
+
+    payload['ret'] =
+      if @node['rets'].size > 1
+        case tree[0]
+          when '=', '==' then check_equal
+          when '<', '>' then check_lesser
+          else true
+        end
+      else
+        true
+      end
+
+    reply
+  end
+
+  protected
+
+  def check_equal
+
+    @node['rets'].first == @node['rets'].last
+  end
+
+  def check_lesser
+
+    a, b = @node['rets'][-2], @node['rets'][-1]
+
+    case tree[0]
+      when '<' then return false if a >= b
+      when '<=' then return false if a > b
+      when '>' then return false if a <= b
+      when '>=' then return false if a < b
+    end
+
+    true
+  end
+end
+

data/lib/flor/pcore/cond.rb

@@ -0,0 +1,57 @@
+#--
+# 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::Cond < Flor::Procedure
+
+  name 'cond'
+
+  def receive_non_att
+
+    return execute_child(0) if @message['point'] == 'execute'
+    return reply if @node['found']
+
+    tf2 = tree[1][@fcid + 2]
+
+    if Flor.true?(payload['ret'])
+      @node['found'] = true
+      execute_child(@fcid + 1)
+    elsif tf2 && tf2[0, 2] == [ 'else', [] ]
+      @node['found'] = true
+      execute_child(@fcid + 3)
+    else
+      execute_child(@fcid + 2)
+    end
+  end
+
+  protected
+
+  def execute_child(i)
+
+    payload['ret'] = node_payload_ret unless tree[1][i]
+
+    super(i)
+  end
+end
+