%
% generate files to Sources for Templating
%

empty
_Arching.ListSpec exec$
{
 isnull ?
 _Arching.Images
 countup
 {
  pop
  "[MaxOrdinal - " &_ImageOrdinal &"]" !OrdinalIndex

  " SourceText" &_OrdinalIndex &" = " exch jsfend
 &" SourceImage" &_OrdinalIndex &" = " exch tojsquo js&;&
  ^:Sources
  +:MaxOrdinal
  +:ImageOrdinal
 } for
} loop
pop

"function Sources()
{
 MaxOrdinal = " &_MaxOrdinal &";
 Outputs = "

&_Outputs js&;

&_Sources

&"}
"
%
% stack: source-jsx
%
"Sources.jsx" ofdesk write