%
% sequenced list reverse
%
% stack: xlist-pre xlist-post xlist-ctr
%
%%% !Xact
_Cust.NavType
<
|Sequenced

|DateRange
 *cusvhilo

|Subjects

> pop

0 !counter
0 !Cust.AnchXact
_Search.Term isnull)
_Xact "1" le$ and
{ 0 !Xact } if

snap "xact*"
{
%
% stack: xlist-pre xlist-post xlist-ctr snap-dir wildcard
%
 2 copy
 xactseed
%
% stack: xlist-pre xlist-post xlist-ctr snap-dir wildcard
%         snap-dir wildcard xact-seed (empty to start)
%
"seed" log)(

 _Cust.Forward
 {
  File.FoldNext
 }
 {
  File.FoldPrev
 } ifelse
%
% stack: xlist-pre xlist-post xlist-ctr snap-dir wildcard new-pathed-seed
%
 isnull ?
"newfold" log)(

 +counter 10 gt ?

%
% stack: xlist-pre xlist-post xlist-ctr snap-dir wildcard new-seed
%
 "\xact" right$ !Xact

%
% stack: xlist-pre xlist-post xlist-ctr snap-dir wildcard
%
 "incoming.txt" ofxact exists
"incomexist" log)(
 {
  *xactninf *xactmmtx
_Cust.NavType
<
|Sequenced
  _Search.Term
  isnull
  {
   pop true
  }
  {
   length _Xact exch right
   eq$
  } ifelse

|DateRange

 _Msg.msec
"msec" log)(
 _TimeLo
"timelo" log)(
gt _Msg.msec _TimeHi
"timehi" log)(
 lt and

|Subjects

> not
{
 true
} if

%
% stack: xlist-pre xlist-post xlist-ctr snap-dir wildcard process
%
"process" log)(
  {

   _Xact !Cust.Xact
%
% stack: xlist-pre xlist-post xlist-ctr snap-dir wildcard
%
   _counter 1 eq
   {
    _Xact
"anchxact" log)(
    !Cust.AnchXact
   }
   {
   } ifelse

   third

   *cusvsubt

"new-ctr" log)(
%
% stack:  xlist-pre xlist-post xlist-ctr snap-dir wildcard new-xlist-ctr
%

   6 -1 roll ^
   5 1 roll
%
% stack:  new-xlist-pre xlist-post xlist-ctr snap-dir wildcard
%

  }
  {
   -:counter
  } ifelse

 }
 {
   -:counter

 } ifelse

%
% stack:  new-xlist-pre xlist-post xlist-ctr snap-dir wildcard
%
} loop
"endloop" log)(
%
% stack:  xlist-pre xlist-post xlist-ctr tack-dir seed new-pathed-seed
%
3 popoff
%
% Xact is set to the matched xact number or the last Xact in Snap
%
"ctr" log)(
%
% stack:  xlist-pre xlist-post xlist-ctr
%
*cusvsore
*cusvseek

_Xact length) 2 gt
{
 *custsvop
 *custsawu
}
{
} ifelse