%
% single arrangement of source images for product prebuilt fill
%

_Arching.Vm
{

/*
 "p:\___Work\_____Names\Single\"
*/

*xlinkiot &"Single\"

/*
 "p:\inetpub\wwwroot\images\kiosk"
*/

*xlinkios -1 right

}
{

/*
 "c:\___Work\_____Names\Single\"
*/

*xlinkiot &"Single\"

/*
 "c:\inetpub\wwwroot\images\kiosk"
*/

*xlinkios -1 right


} ifelse
folder !Tem.ProdPrefix
numprods & folder !Tem.ProdSrc

_Tem.ProdPrefix numprods & folder !Tem.Dest


/*
_Arching.Vm
{
 "p:\___Work\_____Names\"
}
{
 "c:\___Work\_____Names\"
} ifelse
*/

*xlinkiot

!Tem.NameSrc

empty !Tem.FontName
0 !Tem.ProdNum
empty !Tem.NameSeed

"NameProds.txt" ^_Tem.NameSrc exec$

_Tem.ProdNum dup 0 gt exch 10 lt and
{
 _Tem.FontNum
 <
 |1 "Bamboo" !Tem.FontName
 |2 "Bear" !Tem.FontName
 |3 "Clown" !Tem.FontName
 |4 "Dolphin" !Tem.FontName
 |5 "Elf" !Tem.FontName
 > dup not
 {
  1 !Tem.FontNum
  empty !Tem.NameSeed
 } if

/*
 _Tem.FontName
 <
 |Dolphin
 |Clown
 |Bear
 |Bamboo
 |Elf
 > dup not
 {
  "Dolphin" !Tem.FontName
  empty !Tem.NameSeed
 } if
*/

%
% stack: continue
%
"*$$" log)(
{
%
% check through product/font for non-existent name
%

 _Tem.ProdNum &_Tem.FontNum !Xact
 "phase.txt" ofxact exists
 "NameProds.txt" ofxact exists
 or
 {
%
% do not assign, will pick this up next time through
%
 }
 {
%
% available for assignment
%
  _Tem.ProdPrefix &_Tem.ProdNum &"\" &_Tem.FontName &"\"
  !Tem.ProdFont
  0 !Tem.Counter
  _Tem.NameSrc &_Tem.FontName &"\B\"
"****$" log)(
  _Tem.NameSeed
  {
   "*.png" !wilder
   nextfile ?
"--$" log)(
   dup !Tem.NameSeed
%
% is there a matching prod/font plate for this name
%
   dup noext !Tem.Named

   _Tem.ProdFont &_Tem.Named &"_2.jpg" exists
"***$" log)(
   {
    false
   }
   {
%
% does not exist, must assign to builder
%
% write current search stats for xact, builder will use
%
empty
"Tem.ProdNum" sval
"Tem.FontName" sval
"Tem.NameSeed" sval

"NameProds.txt" ofxact
write

    "ProdFont" *shootern
    _Xact catcr
    _Xact text ofcur
    write
    true
   } ifelse
   ?
   false
   +Tem.Counter 300 gt
   {
empty
"Tem.ProdNum" sval
"Tem.FontName" sval
"Tem.NameSeed" sval

"NameProds.txt" ^_Tem.NameSrc
write
    pop true
   } if
   ?
  } loop
  filing)
 } ifelse
} if
}
{
%
% return to beginning product
%
 1 !Tem.ProdNum
 "Dolphin" !Tem.FontName
 empty !Tem.NameSeed
} ifelse

%
% write current search stats
%
empty
"Tem.ProdNum" sval
"Tem.FontName" sval
"Tem.NameSeed" sval

"NameProds.txt" ^_Tem.NameSrc

write