%
% process the xact directory
%
% read the basic incoming info
%
%
% stack: current-dir next-file
%
_Xact !Xact.Ref
lock<
axuact "M" eq$
%
% stack: current-dir next-file amach
%
{
"axumontrax" log)(
%
% stack: current-dir next-file
%
 *axumontr
"axumontry" log)(
}
{
%
% check for ability to process
%
 "phase.txt" ofxact
"phaseda" log)(
 exists
"phasedb" log)(
%
% stack: current-dir next-file phase-exists
%
 {
%
% stack: current-dir next-file
%
  *xactninf
%
% the A machine checks for what can be flagged for other builders
%
  false !dropout
%
% stack: current-dir next-file
%
  _Camera.Phase any?
  {
"./.phased" log)(
   <
   |Staged         true
   |Thumbing	   false
   |Make           true
   |Building	   false
   |Temed          true
   |Products       true
   |Proding	   false
   |Prebuilt       true
   |PresDone       false
   |Presing	   false
   |PrdDone        true
   |PrsProds       true
   |ProdFill       true
   |ProdFilling    false
   |Pfonting       false
   |xObject        false
   |Objecter       true !dropout true
   |xFaced         false
   |Facer          false
   |Fitter         false
   |ProdFont       true
   |NameGen        true
   |NameGenB       true
   |NameGenC       true
   |NameGenD       true
   |NameGenE       true
   > not
   {
%
% if it is not for other builders, we take care of it
%
% stack: current-dir next-file
%
    "xact" *atoptick
    false
   } if
  }
  {
   false
  } ifelse
 }
 {
  false
 } ifelse

"xazc" log)(
%
% stack: current-dir next-file can-build
%
 {
%
% vm builder types are not a-mach
%
% stack: current-dir next-file
%
  *camerxbz
 }
 {
%
% task is for A machine
%
 } ifelse
%
% check marked for display
%
 "Subject_Displayed.txt" ofxact exists
%
% stack: current-dir next-file displayed
%
 {
 }
 {
  "Display.txt" ofxact exists
%
% stack: current-dir next-file display-resid
  {
%
% stack: current-dir next-file
%
   "Xact_Displayer.txt" ofhere exec$
  }
  {
  } ifelse
 } ifelse
} ifelse
%
% stack: current-dir next-file
%
"<<<" log)(