func CreateXmlArchHint(a pf.ArchIf) (xmla *backend.XmlArchPosHint) {
xmla = backend.XmlArchPosHintNew(a.Name())
xmla.Entry = freesp.CreateXmlModePosition(a).Entry
for _, p := range a.ArchPorts() {
xmla.ArchPorts = append(xmla.ArchPorts, *CreateXmlArchPortHint(p))
}
for _, p := range a.Processes() {
xmla.Processes = append(xmla.Processes, *CreateXmlProcessHint(p))
}
return
}
