%
% process all sub-trees into final xtools build
%
% move down the tier1 siblings below root
% load the sub-trees
% based on Pshop
%
@@
*jsphnpre

%
% get pre-text for entire build
%

"Starting" log)(

first\?
{
 {
  !\
"Grouping" log)(

  _\ _@

  "Boot" \_ any)?
  {
   "Booter" log)(
  }
  {
%
% non-boot code group
%
% stack: builder src-node src-tree code-group 
%
   _\\ ^"#" ^_namepre
   *jsphbulc
"Posting" log)(
   pop
   _@ "#" right$ &".jsx"
   _JS.Root &"\" ofdesk
   ^
"cgroup" log)(
   dup !file
   write

   _tree !@
%
% indicate when modified in child and root
%
   _file stamp
"bule" log)(
   "Mod" 0 Tree.!ValueOf
   "Over" *persists

   empty tuck
%
% stack: builder src-node src-tree
%
  } ifelse

%
% stack: builder src-node src-tree
%
  !@ !\
"Nexting" log)(
%
% stack: builder
%
  final\? ?
 } loop
 pop
}
{
} ifelse

%
% get post-text for entire build
%

"Ending" log)(

%
% stack: empty-build
%
pop