Class: Flor::Pro::Max

Inherits:
Flor::Procedure show all
Defined in:
lib/flor/pcore/max.rb

Constant Summary

Constants inherited from Flor::Procedure

Flor::Procedure::RVARS, Flor::Procedure::TRUE_ATTS

Instance Attribute Summary

Attributes inherited from Node

#message

Instance Method Summary collapse

Methods inherited from Flor::Procedure

[], core?, #debug_msg, #debug_tree, #end, #flank, #heap, inherited, make, names, #prepare_on_receive_last, #trigger_on_error

Methods inherited from Node

#child_id, #cnodes, #cnodes_any?, #cnodes_empty?, #deref, #descendant_of?, #domain, #exid, #fei, #from, #h, #initialize, #lookup_tree, #lookup_value, #message_or_node_payload, #nid, #node_closed?, #node_ended?, #node_open?, #node_payload, #node_payload_ret, #node_status, #node_status_flavour, #on_error_parent, #parent, #payload, #payload_ret, #point, #reheap, #to_procedure_node, #tree

Constructor Details

This class inherits a constructor from Flor::Node

Instance Method Details

#pre_execute ⇒ Object 



7
8
9
10
11
12
13
 
# File 'lib/flor/pcore/max.rb', line 7

def pre_execute

  @node['atts'] = []
  @node['ret'] ||= receive_payload_ret

  unatt_unkeyed_children
end

#receive_last ⇒ Object 



24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
# File 'lib/flor/pcore/max.rb', line 24

def receive_last

  ret = @node['ret']

  fail Flor::FlorError.new(
    "found no argument that can #{@node['heap']}", self
  ) unless ret

  lax = att('lax', 'loose') == true
  types = ret.collect { |e| Flor.type(e) }

  ret = ret.collect { |x| JSON.dump(x) } if lax && types != [ 'number' ]

  r =
    begin
      ret.send(@node['heap'])
    rescue
      fail unless lax
      nil
    end
  res =
    r ?
    @node['ret'][ret.index { |e| e == r }] :
    nil

  wrap_reply('ret' => res)
end

#receive_payload_ret ⇒ Object 



15
16
17
18
19
20
21
22
 
# File 'lib/flor/pcore/max.rb', line 15

def receive_payload_ret

  case ret = payload['ret']
  when Array then ret
  when Hash then ret.values
  else false
  end
end