%
% check for assigned active xact build to vm
%
 "assign_" textwild
 empty ofxone
 empty
 {
  nextfile ?
"xactlokr" log)(
  1 !Build.Xact
  filing exec$
  _Build.Xact
"xbuild" log)(
  1 gt
  {
   _Build.Xact !Xact
   dup noext "_" 1 1 1 parse
%
% see if the builder removed the ready signal from the xact
%
   "ready_" &2 text ofxone
"ckready" log)(
   exists
"ckexist" log)(
   {
%
% still busy with a xact, verify that it is not already finished
%
    dup !Temp.Locker
    1 right
"stillbusy" log)(
    <
    |D
     "phase_" &_Temp.Locker &"_Object.new" ofxact exists
    > not
    {
%%%     "Subject_Displayed.txt" ofxact exists
     "phase_" &_Temp.Locker &"_Post.new" ofxact exists
    } if
    {
     "assign_" &_Temp.Locker &"_*.txt" ofxone delfiles
     "busy_" &_Temp.Locker text ofxone del
     _Xact text ofcur del
    }
    {
    } ifelse
   }
   {
%
% the vm is finished with this xact
% remove the locker xact entry
% and the busy signal
%
% get the new phase assignment from the filename
%
    "phase_" &2 &"_*.new" !wilder
    empty ofxact
    empty
    {
     nextfile ?
"phasenew" log)(
     dup "_" 2 1 1 parse noext
"phasenewb" log)(
     *shootern
/*
     quoter
"phasenewb" log)(
     &" !Camera.Phase" catcr
     "phase" text!xact
     xactphase
*/
    } loop
    filing)
    "assign_" textwild
    second ^4
"assndel" log)(
    del

    ^"busy_" text ^3
"busyends" log)(
    del
   } ifelse
  }
  {
   filing
"filingnot" log)(
   del
  } ifelse
 } loop
 filing)
 empty ofcur
 empty
 {
 "*.gpj" !wilder
  nextfile ?
"gpjfile" log)(
  filing
  second "_" right$ ^"_" jsnow ^ ".jpg" reextend
  "MMS" *allseter ofincom folder ^
"toincom" log)(
  copyfile
  filing del
  true ?
 } loop
 filing)

_Arching.Atype
"$$$" log)(
<
|FirstOf
%
% check for prod/font builds to assign
%
%%% *kiosking
> not
{
} if