%
% determine the session of the xact
% the Subject directory has files of format:
% ven/sht_dddddddd_tttttt_uuuuuuuuuu_suffix.txt
% Camera.Modified must fit
% in time sequence, after a Bnew and before a Cdone suffix
% see if a subject reference is already in place
%
"xactsess0" log#
*xactsubj not
{
%
% no subject reference yet, make up the ven/sht/time seed for finding 
%
 false !Xact.Detect
 *xactninf
 _Camera.Msec
"xactsesc" log)(
 _Subj.Dir
 empty
 {
%
% stack: time-stake venue-dir file-seed
%
  chuuter anytext nextof ?
"xactsesd" log)(
  execing
%
% always track the subject
%
  dup term4 zeronull
"xactsese" log)(
  dupnzis
  {
   !Shooter.Subject
   *xactwthn
  }
  {
   false
  } ifelse
  ?
 } loop
 filing)
%
% stack: time-stake
%
 pop
%
% see if we found a shooter Bnew and no Cdone yet
%
 _Xact.Detect
"xactsesj" log)(
 {
%
% we did have a shooter Bnew operation before a coming Cdone
%
  *xactosub
  "Subject" *shootern
 } if
} if
%
% stack:
%