%
% check the date/time of Fire file compared to mod date/time
% insure the root name is simplified to non-# separated
%
*jsphsimp
%
% inspect the file date-time compared to the tree
%
Tree.Down
{
 !\
%
% determine time difference between file and tree node
%
 "_wtime" \_
 any?
 {
%
% stack: file-time
%
  "_Fname" \_
  dup exists
  {
%
% stack: file-time filename
%
% task tree has modification stamp for comparison
% compare the Fire file date/time with the recorded modification time
%
   stamp
   "s" Time.Diff
%
% stack: time-diff
%
"Diff " log)(
   unwhole
   {
%
% file older than tree mod, tree is used
%
    "Default" _\ Tree.!Mark
   }
   {
%
% the Fire file is newer than the tree
% mark the modification of the tree using its date/time
%
    "_Fname" \_ stamp
"Firetime " log)(
    "_wtime" \!
    "_Fname" \_ read "Body" \!
    *firedesc

    "Changed" _\ Tree.!Mark

%%%    *expander
%
% mark the tree as changed
%
    nod@
   } ifelse

  }
  {
%
% stack: file-time filename
%
% mark as missing
%
   "Missing" _\ Tree.!Mark
   pop2

  } ifelse

 } if

} for