%
% stack: response-expected
%
" " "+" replall
"respect " log)(
!Act.Response
% look for a callback file past the time of the request
%
"cal_" &_Act.Tracker anytext !wilder
 empty !early
false !Act.Received
_Arching.Connector
empty
{
%
% stack: path seed
%
 nextfile ?
 dup !Sim.File
%
% shelve file if earlier than event time
%
 filing System.FileTimes pop2
 dup _Act.Time "s" Time.Diff negative
 {
%
% stack: filetime
%
% this is later than event time
%
  true !Act.Received
  _early isnull)
  {
%
% first potential candidate
%
   !early
   dup !filer
  }
  {
   dup _early "s" Time.Diff negative
   {
%
% this is later than detected so far, don't shelve
%
    pop
   }
   {
%
% earlier or same as detected so far, don't shelve
%
    !early 
    dup !filer
   } ifelse
  } ifelse
 }
 {
%
% this is earlier or same as event time, shelve
%
% stack: filetime
%
  pop
 } ifelse
} loop
%
% if this response is what is expected
%
_early isnull)
{
%
% nothing detected yet
%
 false
}
{
%
% check the raw url for desired response
%
 _filer ^3 read
 dup !Sim.Response
 _Act.Response found)?
 {
%
% this is proper response
%
  true
 }
 {
%
% not found in this response, shelve
%
  false
 } ifelse
} ifelse
pop2&3
%
% stack: response-valid
%