#
# tcl/tk specific support functions for configuration parsing
#

#
# Write out an entry:
#

function write_entry ( item_name, item_type, item ) {
  print "global var_" PREFIX "array"
  print "global var_type_array"
  print "set var_" PREFIX "array(" item_name ") {" item "}"
  print "set var_type_array(" item_name ") \"" item_type "\""
}
