false !Values.Sub
false !Values.Subs
false !Values.All
false !Values.List
%
% if the name is empty treat as *
%
isnull { pop "*" } if
%
% stack: search-field-text
%
dup 1 left
<
|[
%
% [,] - the value name list is included
%
 true !Values.List

|>
%
% >> - search names all subtrees of this tree with this text
% > - search names one level of subtrees of this tree with this text
%
 -1 left
 dup 1 left
 <
 |>
%
% >> - search names all subtrees of this tree with this text
%
  -1 left
  true !Values.Subs

 > not
 {
%
% > - search names one level of subtrees of this tree with this text
%
  true !Values.Sub
 } if
 
|*
%
% search names all trees with this text
%
 -1 left
 true !Values.All

> pop
%
% stack: [ [ . . . ] list-count ] search-adj-text
%