%
% download registrations from cloud
%
% stack: shooter-num
%
% process shooter cloud registration files
%
dup !clun
empty !builder
^_Clup.RegP &_Clup.RegS &"*.msg"
"clupwild" log)(
!wilder
_Clup.Storage
"clupstor" log)(
empty
{
 nextfile ?
"nextstor" log)(
 _builder any?
 {
  del
 } if
 filing !builder
} loop
filing)

empty !RegFile
"_Reg" &_clun text*bin
true !Reging

empty !StartFile
"_Start" &_clun text*bin
true !Starring

empty !NewFile
"_New" &_clun text*bin
true !Newing

empty !DoneFile
"_Done" &_clun text*bin
true !Doneing

empty !EndFile
"_End" &_clun text*bin
true !Endring

false !ChangedFile

_builder any?
"hasbuilder" log)(
{
 empty exch read execstr
 {
  isnull ?
"fproc" log)(
  dup "/" right$ "_" left$
"fplook" log)(
  <
  |Reg/CurReg
   _Reging
   {
    _RegFile
    2 copy ne$
    {
     second quoter &" !RegFile" &;
     "_Reg" &_clun text!bin
     true !ChangedFile
    } if
    false !Reging
    pop
   } if
   pop
  |Opst/OPstart
   _Starring
   {
    _StartFile
    2 copy ne$
    {
     second quoter &" !StartFile" &;
     "_Start" &_clun text!bin
     true !ChangedFile
    } if
    false !Starring
    pop
   } if
   pop
  |Opdon/OPdone
   _Doneing
   {
    _DoneFile
    2 copy ne$
    {
     second quoter &" !DoneFile" &;
     "_Done" &_clun text!bin
     true !ChangedFile
    } if
    false !Doneing
    pop
   } if
   pop
  |Opnd/OPend
   _Endring
   {
    _EndFile
    2 copy ne$
    {
     second quoter &" !EndFile" &;
     "_End" &_clun text!bin
     true !ChangedFile
    } if
    false !Endring
    pop
   } if
   pop
  |Opnw/OPnew
   _Newing
   {
    _NewFile
    2 copy ne$
    {
     second quoter &" !NewFile" &;
     "_New" &_clun text!bin
     true !ChangedFile
    } if
    false !Newing
    pop
   } if
   pop
  > not
  {
   pop
  } if
 } loop
 pop
/*
  false !Clup.Active
  _Newing _Doneing and _Starring and _Endring and
  {
%
% no change in any file process
%
  }
  {
%
% one of the process files was changed
%
   true !Clup.Active
  _clun *cloudclb
  } ifelse
*/

} if
false !Clup.Active
_Clup.Active not
{
"&&&&&>>> P" log#
} if