Class: Flor::Pro::Obj

Inherits:
Coll show all
Defined in:
lib/flor/pcore/_obj.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

#execute_child(index = 0, sub = nil, h = nil) ⇒ Object 



31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
# File 'lib/flor/pcore/_obj.rb', line 31

def execute_child(index=0, sub=nil, h=nil)

  return super if @node['rets'].size.odd?

  ct = children[index]

  return super unless ct[1] == []

  t = tree
  t[1][index] = [ '_sqs', ct[0], *ct[2..-1] ]
  @node['tree'] = t

  super
end

#pre_execute ⇒ Object 



26
27
28
29
 
# File 'lib/flor/pcore/_obj.rb', line 26

def pre_execute

  @node['rets'] = []
end

#receive_last ⇒ Object 



56
57
58
59
 
# File 'lib/flor/pcore/_obj.rb', line 56

def receive_last

  wrap_object(@node['rets'])
end

#receive_last_att ⇒ Object 



46
47
48
49
50
51
52
53
54
 
# File 'lib/flor/pcore/_obj.rb', line 46

def receive_last_att

  cn = tree[1][@ncid..-1]

  return wrap_object(cn.collect { |c| c[1] }) \
    if cn.all? { |c| atomic?(c) }

  super
end