%
% acceptance vectors for Tree manager operations
%
Task.@

_Ent.Page
<

|Search
%
% Tree manager vector operations
% note that the case for the first tab is derived from the tab # in E4
% to derive startup, use a separate lookup for prior tab 'name' in E5
%
 Ent._E3
">Search " log()
 <
 |Initial
  "SearchTrees" *helpface
  *archsize
  _App.Zoom
"zoom " log()
  13 add normint "Zoomer" do

 |Tab
%
% react to the tab selection
%
  Ent._E4 trim
">>Tab " log()
  <
  |Options
%
% check for first time entering
%
   Ent._E5 trim
">>>Options " log()
   <
   |-1
   > not
   {
   } if
%
% set the display name to be the parent pep tree address
%
   owner(_)
   *entervan
   _Values.SearchA "SetSearchA" Url.(esc) &
   _Values.SearchB "SetSearchB" Url.(esc) &
   _Values.SearchC "SetSearchC" Url.(esc) &
   _Values.SearchD "SetSearchD" Url.(esc) &
   *enteroff
   &"SearchReset();"
   Help.!

  |InTree
   "A" !Values.Trees
%
% enable text entry in Tree and Node fields
%
   *srchsetr

  |InName
   "B" !Values.Trees
%
% enable text entry in Node and Value fields
%
   *srchsetr

  |InVals
   "C" !Values.Trees
%
% enable text entry in Value and Content fields
%
   *srchsetr

  |Quick
   "D" !Values.Trees
%
% enable text entry in Value and Content fields
%
   *srchsetr

  > pop

%
% expand specific references
%
 |Expand
  *jsphexpa

 |Recall
  "_Trees.tlt" ofbin Tree.Load
  "_searched.txt" ofbin read !Jsph.Searched
  *jsphopts

 |TreeOps
  owner()
  _Drop.Global "\" Str.Left *treemang

 |TreeGet
  _Drop.Global
  *hierlocl

 |TreeGo
  _Drop.Global
  "Go" vector()

 |Liner
%
% seek the selected line's tree and node location
%
  Ent._E5 unescape
%
% stack: global-tree-url
%
"globdrop " log()
  dup !Drop.Global
  rootnode
  "tglobal" *findvalu
  {
   select*
  }
  {
   _Drop.Global "\" Str.Right "/" Str.Left !\
   select*
  } ifelse
  _Values.Trees
  <
%
% in trees tab
%
  |A

%
% in name tab
%
  |B

%
% in values tab
%
  |C

%
% in quick tab
%
  |D

  > pop
  "Tabber(4);" Help.!

 |SearchZ
  *treeasim
%
%
% >>>>>>>>>> this is the A Trees group of searches
%
 |SearchA
%
% search for: tree names / node text, exactly case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *trexactn

 |SearchB
%
% search for: tree names / node text, exactly case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *trexactc

 |SearchC
%
% search for: tree names / node text, begin with case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *trbeginn

 |SearchD
%
% search for: tree names / node text, begin with case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *trbeginc

 |SearchE
%
% search for: tree names / node text, relaxed case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *trrelaxn

 |SearchF
%
% search for: tree names / node text, relaxed case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *trrelaxc

 |SearchG
%
% search for: tree names / node text, selected case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *trselecn

 |SearchH
%
% search for: tree names / node text, selected case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *trselecc

%
% >>>>>>>>>> this is the B Trees group of searches
%
 |SearchI
%
% search for: node names / value names, exactly case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vnexactn

 |SearchJ
%
% search for: node names / value names, exactly case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vnexactc

 |SearchK
%
% search for: node names / value names, begin with case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vnbeginn

 |SearchL
%
% search for: node names / value names, begin with case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vnbeginc

 |SearchM
%
% search for: node names / value names, relaxed case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vnrelaxn

 |SearchN
%
% search for: node names / value names, relaxed case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vnrelaxc

 |SearchO
%
% search for: node names / value names, selected case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vnselecn

 |SearchP
%
% search for: node names / value names, selected case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vnselecc

%
% >>>>>>>>>> this is the C Trees group of searches
%
 |SearchQ
%
% search for: value names / value content, exact case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vaexactn

 |SearchR
%
% search for: value names / value content, exact case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vaexactc

 |SearchS
%
% search for: value names / value content, begin case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vabeginn

 |SearchT
%
% search for: value names / value content, begin case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vabeginc

 |SearchU
%
% search for: value names / value content, relaxed case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *varelaxn

 |SearchV
%
% search for: value names / value content, relaxed case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *varelaxc

 |SearchW
%
% search for: value names / value content, selected case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vaselecn

 |SearchX
%
% search for: value names / value content, selected case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *vaselecc

%
% >>>>>>>>>> this is the D Trees group of searches
%
 |QuickQ
%
% search for: value names / value content, exact case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *quexactn

 |QuickR
%
% search for: value names / value content, exact case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *quexactc

 |QuickS
%
% search for: value names / value content, begin case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *qubeginn

 |QuickT
%
% search for: value names / value content, begin case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *qubeginc

 |QuickU
%
% search for: value names / value content, relaxed case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *qurelaxn

 |QuickV
%
% search for: value names / value content, relaxed case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *qurelaxc

 |QuickW
%
% search for: value names / value content, selected case insensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *quselecn

 |QuickX
%
% search for: value names / value content, selected case sensitive
%
  *varching
%
% stack: [ [ . . . ] list-count ] search-for val-name
%
  *quselecc

 |Help
  "SearchTrees" !Help.Url
  *xhelstar

 |Accept

%
% cancel link clicked, normal path
%
 |Reject
  *archback

 > pop

>

*acceptun

%
% stack: found
%