proc getdataType {path} {
  return [lindex [split [hinfo $path] ,] 0]
}

proc encode {str} {
    set result [string map -nocase {
      {"}   {"}
      {'}   {'}
      {<}   {&lt;}
      {>}   {&gt;}
      {&}   {&amp;}
    } $str]
    return $result
}

proc make_nodes {path result indent} {
set nodename [file tail $path];
set type [getdataType $path]
set prefix [string repeat " " $indent]
set newIndent [expr $indent + 2]
set control "true"
  foreach {key rvalue} [string map {= " "} [hlistprop $path tcl]] {
    set value [encode $rvalue]
    if {[string compare -nocase $key "control"] == 0} {
      if {[string compare -nocase $value "false"] == 0} {
	set control "false"
      }
    }
  }
  if {"$control" == "true"} {
    append result "$prefix<component id=\"$nodename\" dataType=\"$type\">\n"
    foreach p [property_elements $path $newIndent] {
      append result $p
    }
    foreach x [hlist $path] {
      set result [make_nodes [string map {// /} "$path/$x"] $result $newIndent]
    }
    append result  "$prefix</component>\n"
  }
  return $result
}

proc property_elements {path indent} {
  set prefix [string repeat " " $indent]
  foreach {key rvalue} [string map {= " "} [hlistprop $path tcl]] {
    set value [encode $rvalue]
    if {[string compare -nocase $key "control"] == 0} {continue}
    lappend proplist "$prefix<property id=\"$key\">\n"
    if {[string compare -nocase $key "help"] == 0} {
      lappend proplist "$prefix$prefix<value>$value</value>\n"
    } else {
      foreach v [split $value ,] {
        lappend proplist "$prefix$prefix<value>$v</value>\n"
      }
    }
    lappend proplist "$prefix</property>\n"
  }
  if [info exists proplist] {return $proplist}
}

proc getgumtreexml {path} {
  append result "<?xml version = \"1.0\" encoding = \"UTF-8\"?>\n"
  append result "<hipadaba:SICS xmlns:hipadaba=\"http://www.psi.ch/sics/hipadaba\" >\n"

  if {[string compare $path "/" ] == 0} {
    foreach n [hlist $path] {
      set result [make_nodes $n $result 2]
    }
  } else {
    set result [make_nodes $path $result 2]
  }

  append result "</hipadaba:SICS>\n"
}

if {[info exists guminit] == 0} {
  set guminit 1
  Publish getgumtreexml Spy
}