%
% detect new images and record the xact directory and contents
%
empty ofincom "*" File.Folders
%
% determine the next shooter directories in Incoming to process
%
countup
{
 pop
 dup normpath !Camera.Dir
%
% stack: [ . . . ] curpath
%
 dup filename
%
% stack: [ . . . ] curpath leaf-name
%
 length 2 gt
 {
  dup chuuter?
  {
   dup 2 right    
%
% stack: [ . . . ] curpath leaf-name shoot-number
%
   "Shooters" text?conn
   {
"cameroll" log)(
    chuuter!
%
% stack: [ . . . ] curpath
%
    *xactopdi
   }
   {
%
% stack: [ . . . ] curpath leaf-name 
%
    pop
   } ifelse
  }
  {
%
% stack: [ . . . ] curpath leaf-name
%
   pop
  } ifelse
 }
 {
%
% stack: [ . . . ] curpath leaf-name
%
  pop
 } ifelse
%
% stack: [ . . . ] curpath
%
 pop
} for