definer
{

"stattr$" "Create Status Attribute"
"Exec" % "status --> status-attr-str"
'"status" attr$'
newdef

"stattr&" "Add Status Attribute to Build String"
"Exec" % "build-str status --> adj-build"
"stattr$ &"
newdef

"prattr$" "Create Proc Attribute"
"Exec" % "proc --> proc-attr-str"
'"proc" attr$'
newdef

"prstelem$" "Create Element With Proc and Status Attribute"
"Exec" % "str status proc elem-name --> proc-elem-str"
"tuck prattr$ exch stattr& exch elattr$"
newdef

"prelem$" "Create Element With Proc Attribute"
"Exec" % "str proc elem-name --> proc-elem-str"
"exch prattr$ exch elattr$"
newdef

"prattr&" "Add Proc Attribute to Build String"
"Exec" % "build-str proc --> adj-build"
"prattr$ &"
newdef

"appattr$" "Surround String With Application Element and Attribues"
"Exec" % "str attrs --> apped-xml"
'"Ftos" elattr$'
newdef

"elattr$" "Make Element of String With Attributes"
"Exec" % "str attrs elem-name --> elem-str"
'dup ^"<" &" " &3) &" >" exch ^"</" &">" ^3) &'
newdef

"appel$" "Surround Xml With Application Element"
"Exec" % "xml --> apped-xml"
'"Ftos" elem$'
newdef

"elattr/$" "Make Element of String No Body"
"Exec" % "attrs elem-name --> elem-str"
'^"<" &" " ^ &" />"'
newdef

"yelem/$" "Make Element of String With Yml Name No Body"
"Exec" % "elem-name --> elem-str"
'yml ^"<" &" />"'
newdef

"yelem/&" "Add Element of String With Yml Name No Body"
"Exec" % "build-str elem-name --> adj-build-str"
"yelem/$ &"
newdef

"yelattr/$" "Make Element of String With Yml Name No Body"
"Exec" % "attrs elem-name --> elem-str"
"yml elattr/$"
newdef

"attr$" "Create Attribute String"
"Exec" % "attr-val attr-name --> attr-str"
'^" " &"=" exch quocat'
newdef

"attr&" "Add Attribute to Build String"
"Exec" % "build-str attr-val attr-name --> adj-build"
"attr$ &"
newdef

"yattrx$" "Create Yml Named Attribute Hex Valued"
"Exec" % "attr-val attr-name --> yml-attr-hexed-str"
"yml attrx$"
newdef

"yattr$" "Create Yml Named Attribute"
"Exec" % "attr-val attr-name --> yml-attr-str"
"yml attr$"
newdef

"yattr&" "Add Yml Named Attribute to Build String"
"Exec" % "build-str attr-val attr-name --> adj-build"
"yattr$ &"
newdef

"attrx&" "Add Attribute Hex Valued to Build String"
"Exec" % "build-str attr-val attr-name --> adj-build"
"attrx$ &"
newdef

"attrx$" "Create Attribute Hex Valued"
"Exec" % "attr-val attr-name --> attr-hexed-str"
'^" " &"=" exch asc2hex quocat'
newdef

"yattrx&" "Add Yml Named Attribute Hex Valued to Build String"
"Exec" % "build-str attr-val attr-name --> adj-build"
"yattrx$ &"
newdef

"yelem$" "Make Element of String With Yml Name"
"Exec" % "str elem-name --> elem-str"
'yml dup ^"<" &">" exch ^"</" &">" ^3) &'
newdef

} if