%
% aamg test platform timing step
%
/*
timer objects
-------------
camer
 build - for photoshop build processes
  supervise - check for photoshop build processes
   phase = Building - Unbuilt
   phase = Thumbing - Unthumb
cust
 sms - customer message transmission
  taken - send the preliminary customer message
aamg
 sms - test customer message transmission
  taken - send the preliminary customer message
  composite - send the composite image (null)
  final - end test transmission (null)
 shot - customer test process
  inject - insert a test image into BusB21
  check - check for count of images inserted, inject or final
  final - final image was inserted, turn off test flags
jpeg
 analyze - jpeg analysis process
*/
%
% Event.Time, Event.Object, Event.Step are provided for analysis
%
% Event.Step has ident_step
%
_Event.Step term1
<
|shot
 _Event.Step term2
 <
 |inject
%
% inject a test image into the ven/shooter directory
% initiate another injection
%
% take the next of /aamg objects A through I .gpj
%
  +Aamg.Shot dup letter !Aamg.TestLet 12 ge { 0 !Aamg.Shot } if
  _Aamg.TestLet ^"aamg\" oflocal &".gpj"
dup log#
%
% stack: src-gpj
%
  "Img" Time.Now
  dup !Aamg.Now
  Time.FullOrder & &_Aamg.TestLet &".gpj"
  second File.Info
  {
%
% js utc time that matches image stamp
%
   _Aamg.Now jsmsec
second log)(
   &"_" ^ &"_" ^
%
% stack: src-img dest-jpg-filename
%
% copy to test destination of Incoming
%
   _Aamg.IncTest &"\" ofincom folder ^
%
% stack: src-img dest-gpj
%
dup log#
   dup tuck copyfile
   ".jpg" overext
%
% wait to insert next image
%
   _Event.Step term3 _Event.Step term1 &"_check_" ^
   "*aamgtest" exch "aamg" 5000 *timeract
   !Act.Timer
  }
  {
   pop2
"^^^ failed aamg image insertion" log#
  } ifelse

 |check
%
% next image insertion
%
  _Event.Step term3 + dup 3 gt
  {
   ^"shot_final_"
  }
  {
   _Event.Step term1 &"_inject_" ^
  } ifelse
  "*aamgtest" exch "aamg" 5000 *timeract
  !Act.Timer

 |final
%
% injected the final image into the ven/shooter directory
% don't activate another inject
%

 > pop

> pop