%
% filter the target trees
%
@Default#Targets
%
% skip all reserved tree files
%
_\\
<
|Hier.
|History.
|Lint.
|Node.
|Vals.
|Values.
|Xhelp.
> not dup
{
 pop
%
% not a reserved Tree file
% don't process directories
%
 _\\
"treecheck " log)(
 1 right "." eq$
 {
%
% this is a Tree file, use the hierarchy string to identify the tree
%
  *treetxlt
  "Pshop#Listen" found?
  "Pshop#Ytools" third Str.Found
  or
  "Pshop#Btools" third Str.Found
  or
  {
   pop
   false
  }
  {
   true
  } ifelse
 }
 {
%
% this is a directory, don't process
%
  false
 } ifelse

} if
%
% stack: [ tree-pep ] process-true  (tree pep string only if true)
%