%
% Default Task tree ownership
%

|Xml
 pop
%
% receive xml dance
%
 Task.@CmdArg
 pop2nd
dup 80 left ^"xmlexec " logs
stop
 dup execstr
 true

|xml((
 pop
%
% add child of current
%child-name
%-->
%
 newchild
 true

|xml()
%
%text-content
%-->
%
 pop *xmldcont true

|xml(desc)
 pop
%
%comments
%-->
%
 "desc"
\!

 true

|xml(pi)
 pop
%
%proc-instr
%-->
%
 "pi"
\!

 true

|xml)
 pop
%
%[ aval attr . . . ] count/2
%-->
%count is pairs of attr/values
%
 Tree.!!
 true

|xml)(
 pop
%
%other-block
% other-type
%-->
%
 "other"
\!

 "block"
\!

 true

|xml))
 pop
%
% return to parent node
%parent
%-->
%
 pop
 Tree._Parent !\
 true

|xmlRun(
%
% start of Run tree dance
%
 pop *xmldruns true

|xmlRun)
 pop
%
% end of Run tree dance
% save the Run tree in its app/ownid named file
%
 this &".tlt" photon Tree.Save pop
 hide
 true

|xml*(
%
% start of xml dance
% add a root node as child of current
%raw-xml-string
%root-name
%-->
%
 pop *xmldstar true

%
% end of other xml types referred to this owner
%
|xml_)
 pop true

|xml_(
%
% other xml types referred to this owner
%
 pop *xmldownr true

%
% end of xml dance
%
|xml*)
 pop *xmleruns true