%
% supervise the Photoshop connection
% if Stepper.xml exists for longer than 30 seconds,
% the Photoshop remote connection is cleared
%
_Pshop.Cycler negative
"cycler " log()
{
%
% stop cycling, exiting Atop
%
}
{
%
% the owner signal file from the mobile device must exist
%
 "_owner.txt" ofdesk exists
 {
%
% the Photoshop channel owner exists, get info from mobile device
%
  _Pshop.Owner
  "_owner.txt" ofdesk read
  execstr
%
% is this the current owner
%
  _Pshop.Owner
  eq$
  {
%
% this is the same owner, see if uplink to mobile device clear
%
   "Stepper.xml" ofdesk exists
"xml " log()
   {
%
% uplink exists, this should be processed within 30 seconds
%
    +Pshop.Waiting
    _Pshop.Limit lt
    {
%
% waiting for uplink processing
%
    }
    {
%
% limit of waiting, clear the connection
%
     "Stepper.xml" ofdesk del
     "_owner.txt" ofbin del
"CLEARED CONNECTION" logs
    } ifelse
   }
   {
%
% the mobile device has cleared the last command
%
    0 !Pshop.Waiting
%
% decide what part of the screen needs to be uplinked
%
    _Pshop.Screen
    <
    |Tree
     *atopttre
    |Screen
     *atopttre
    |Shoot
     *atopttre
    |Active
     *atopttre
    > not
    {
%
% improper uplink screen mode
%
    } if
   } ifelse
  }
  {
%
% a different owner has claimed Photoshop
%
"DIFFERENT OWNER" logs
  } ifelse
 }
 {
%
% no owner for the Photoshop channel
%
  "Stepper.xml" ofdesk del
  0 !Pshop.Waiting
  pop
 } ifelse
%
% supervise cycle again
%
 *(=

} ifelse