flor 0.18.0 → 1.0.0

data/lib/flor/pcore/do_return.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::DoReturn < Flor::Macro
   #

data/lib/flor/pcore/each.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 require 'flor/pcore/iterator'
 

data/lib/flor/pcore/echo.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Echo < Flor::Procedure
 

data/lib/flor/pcore/empty.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Empty < Flor::Procedure
   #

data/lib/flor/pcore/fail.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Fail < Flor::Procedure
   #

data/lib/flor/pcore/filter.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 require 'flor/pcore/iterator'
 

data/lib/flor/pcore/find.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 require 'flor/pcore/iterator'
 

data/lib/flor/pcore/flatten.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Flatten < Flor::Procedure
   #

data/lib/flor/pcore/for_each.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 require 'flor/pcore/iterator'
 

data/lib/flor/pcore/if.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::If < Flor::Procedure
   #

data/lib/flor/pcore/includes.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Includes < Flor::Procedure
 

data/lib/flor/pcore/inject.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 require 'flor/pcore/iterator'
 

data/lib/flor/pcore/iterator.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Iterator < Flor::Procedure
 

data/lib/flor/pcore/keys.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Keys < Flor::Procedure
   #

data/lib/flor/pcore/length.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Length < Flor::Procedure
   #

data/lib/flor/pcore/loop.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Loop < Flor::Pro::Cursor
   #

data/lib/flor/pcore/map.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Map < Flor::Pro::Iterator
   #

data/lib/flor/pcore/match.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Match < Flor::Pro::Case
   #

data/lib/flor/pcore/matchr.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Matchr < Flor::Procedure
   #

data/lib/flor/pcore/max.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Max < Flor::Procedure
 

data/lib/flor/pcore/merge.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Merge < Flor::Procedure
   #

data/lib/flor/pcore/move.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Move < Flor::Procedure
   #

data/lib/flor/pcore/noeval.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::NoEval < Flor::Procedure
   #

data/lib/flor/pcore/noret.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::NoRet < Flor::Procedure
   #

data/lib/flor/pcore/not.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Not < Flor::Procedure
   #

data/lib/flor/pcore/on.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::On < Flor::Macro
   #
@@ -125,13 +126,13 @@ class Flor::Pro::On < Flor::Macro
     if att = find_catch # 22
       rewrite_as_catch_tree(att)
     else
-      rewrite_as_trap_tree
+      rewrite_as_signal_trap_tree
     end
   end
 
   protected
 
-  CATCHES = %w[ error cancel timeout ]
+  CATCHES = %w[ error cancel timeout ].freeze
 
   def find_catch
 
@@ -165,7 +166,7 @@ class Flor::Pro::On < Flor::Macro
     th
   end
 
-  def rewrite_as_trap_tree
+  def rewrite_as_signal_trap_tree
 
     atts = att_children
     signame_i = atts.index { |at| at[1].size == 1 }

data/lib/flor/pcore/on_cancel.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::OnCancel < Flor::Procedure
   #

data/lib/flor/pcore/on_error.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::OnError < Flor::Procedure
   #

data/lib/flor/pcore/push.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Push < Flor::Procedure
   #

data/lib/flor/pcore/rand.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Rand < Flor::Procedure
   #

data/lib/flor/pcore/range.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Range < Flor::Procedure
   #

data/lib/flor/pcore/reduce.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Reduce < Flor::Pro::Iterator
   #

data/lib/flor/pcore/return.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Return < Flor::Procedure
 

data/lib/flor/pcore/reverse.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Reverse < Flor::Procedure
   #

data/lib/flor/pcore/select.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 require 'flor/pcore/iterator'
 

data/lib/flor/pcore/sequence.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Sequence < Flor::Procedure
   #

data/lib/flor/pcore/set.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Set < Flor::Procedure
   #

data/lib/flor/pcore/shuffle.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Shuffle < Flor::Procedure
   #

data/lib/flor/pcore/slice.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Slice < Flor::Procedure
   #

data/lib/flor/pcore/sort.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Sort < Flor::Procedure
   #

data/lib/flor/pcore/sort_by.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::SortBy < Flor::Pro::Iterator
   #

data/lib/flor/pcore/split.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Split < Flor::Procedure
 

data/lib/flor/pcore/stall.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Stall < Flor::Procedure
   #

data/lib/flor/pcore/strings.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Strings < Flor::Procedure
   #

data/lib/flor/pcore/timestamp.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::TimeStamp < Flor::Procedure
   #

data/lib/flor/pcore/to_array.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::ToArray < Flor::Procedure
   #

data/lib/flor/pcore/twig.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Twig < Flor::Procedure
 

data/lib/flor/pcore/type_of.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::TypeOf < Flor::Procedure
   #

data/lib/flor/pcore/until.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Until < Flor::Procedure
   #

data/lib/flor/punit/abort.rb

@@ -0,0 +1,50 @@
+# frozen_string_literal: true
+
+class Flor::Pro::Abort < Flor::Procedure
+  #
+  # Cancels the current execution.
+  #
+  # Cancels all the root nodes at once. Is usually the equivalent of
+  # `cancel '0'` but sometimes the root nodes are gone...
+  #
+  # "kabort" is like "abort" but the cancel flavour is 'kill', so that
+  # cancel handlers are ignored.
+  #
+  # ```
+  # # ...
+  # cursor
+  #   task 'prepare mandate'
+  #   abort _ if f.outcome == 'reject'
+  #   task 'sign mandate'
+  # # ...
+  # ```
+  #
+  # ## see also
+  #
+  # Cancel, kill
+
+  name 'abort', 'kabort'
+
+  def receive_last
+
+    fla = heap == 'kabort' ? 'kill' : 'cancel'
+
+    nodes = @execution['nodes']
+    nids = nodes.keys.dup
+
+    @execution['nodes'].values.each do |n|
+
+#p n.select { |k, v| %w[ nid can parent cnodes ].include?(k) }
+      nid = n['nid']
+      pa = nodes[n['parent']]
+
+      nids.delete(nid) if pa && pa['cnodes'].include?(nid)
+    end
+#p nids
+
+    wrap_cancel_nodes(nids, { 'flavour' => fla })
+      .each { |m| m['from'] = '9' }
+        # since '9' isn't the parent of any node
+  end
+end
+

data/lib/flor/punit/c_collect.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Ccollect < Flor::Macro::Iterator
   #

data/lib/flor/punit/c_each.rb

@@ -1,5 +1,24 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Ceach < Flor::Macro::Iterator
+  #
+  # Concurrent "each".
+  #
+  # ```
+  # ceach [ alice bob charly ]
+  #   task elt "prepare monthly report"
+  # ```
+  # which is equivalent to
+  # ```
+  # concurrence
+  #   task 'alice' "prepare monthly report"
+  #   task 'bob' "prepare monthly report"
+  #   task 'charly' "prepare monthly report"
+  # ```
+  #
+  # ## see also
+  #
+  # For-each, c-map, and c-for-each.
 
   names %w[ ceach c-each ]
 

data/lib/flor/punit/c_for_each.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 require 'flor/punit/c_iterator'
 
@@ -27,7 +28,7 @@ class Flor::Pro::CforEach < Flor::Pro::ConcurrentIterator
   #
   # ## see also
   #
-  # For-each, cmap, and ceach.
+  # For-each, c-map, and c-each.
 
   name 'c-for-each'
 

data/lib/flor/punit/c_iterator.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 require 'flor/punit/m_ram'
 

data/lib/flor/punit/c_map.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 require 'flor/punit/c_iterator'
 

data/lib/flor/punit/cancel.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::Cancel < Flor::Procedure
   #

data/lib/flor/punit/concurrence.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 require 'flor/punit/m_ram'
 

data/lib/flor/punit/cron.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 require 'flor/punit/schedule'
 

data/lib/flor/punit/do_trap.rb

@@ -1,3 +1,4 @@
+# frozen_string_literal: true
 
 class Flor::Pro::DoTrap < Flor::Macro
   #