Class: Flor::Pro::PatArr

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

#execute, #execute_child

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 



10
11
12
13
14
15
 
# File 'lib/flor/pcore/_pat_arr.rb', line 10

def pre_execute

  @node['index'] = 0

  super
end

#receive_first ⇒ Object 



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

def receive_first

  return wrap_no_match_reply unless val.is_a?(Array)

  super
end

#receive_last ⇒ Object 



61
62
63
64
65
66
67
68
69
 
# File 'lib/flor/pcore/_pat_arr.rb', line 61

def receive_last

  return wrap_no_match_reply if @node['index'] < val.size

  payload['_pat_binding'] = @node['binding']
  payload.delete('_pat_val')

  super
end

#receive_non_att ⇒ 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
51
52
53
54
55
56
57
58
59
 
# File 'lib/flor/pcore/_pat_arr.rb', line 24

def receive_non_att

  ct = child_type(@fcid)
#p [ :rna, :fcid, @fcid, :index, @node['index'], :ct, ct ]

  offset = 1

  if ct == :pattern

    if b = payload.delete('_pat_binding')
      offset, _ = @node['_sub_pat_val']
      @node['binding'].merge!(b)
    else
      return wrap_no_match_reply
    end

  elsif ct.is_a?(String)

    @node['binding'][ct] = val[@node['index']] if ct != '_'

  elsif ct.is_a?(Array)

    offset, v = @node['_sub_pat_val']
    @node['binding'][ct[0]] = v if ct[0].length > 0

  elsif val[@node['index']] != payload['ret']

    return wrap_no_match_reply
  end

  @node['index'] = @node['index'] + offset

  return wrap_no_match_reply if @node['index'] > val.size

  super
end