Extral Maps

In a map names (or fields) alternate with the value attached to this name, eg.: {name1 {value of name1} name2 {value of name2} ...} Using the map commands, you can use a list as a sort of array. However, maps have some advantages to arrays:

• They can be passed to functions easily
• maps can be nested: an element of a map can contain another map, etc.
• although finding a value in an array should be faster, creating the array can take more time.
• maps can be handled according to a certain schema using the -map option.

Using the -map option a schema can be specified that puts constraints on which branches are allowed, and what values are allowed in the branches. A schema is also organised as a map. when the first element in a value starts with an asterisk, it is an endnode. Otherwise it is the schema of the submap starting at the name of that value. An endnode consists of a type indicator (the first element starting with an asterisk) and type parameters. A number of types are available by default (*any, *int, *regexp, *date, *named *list, ...). New types can be added using either Tcl or C code.

If a schema contains names consisting of a list where element 0 is a questionmark these are treated specially: The list must have 2 further elements: element 1 is the long name for the value, and element 2 the short name. Both long and short name can be used to set or get values from the map. However, map_set will always return a struct with the short name (efficient storage), while map_get will return the long form.

map_set ?-map schema? ?-data clientdata? list field value ?field value ...?

set the value of a field in the map. The -data option can be used to pass data to self defined data types.
eg.:

	set the value for tag
		% set list {a 1 b 4}
		a 1 b 4
		% set list [map_set $list c 3]
		a 1 b 4 c 3
		% map_set {a 1 b 4 c 3} b 2
		a 1 b 2 c 3
	example of nesting:
		% map_set {a 1 b {a 1 b 4} c 3} {b b} 2
		a 1 b {a 1 b 2} c 3
	example of map:
		% set struct {
			reg {*regexp {^a[0-9]} ?}
			sub {
				a {*any ?}
				b {*between 0 10 ?}
			}
			ints {
				*named {*int ?}
			}
		}
		% set data {}
		% set data [map_set -map $struct $data {sub b} 9]
		sub {b 9}
		% set data [map_set -map $struct $data {sub b} 11]
		error: 11 is not between 0 and 10 at field "b" at field "sub"
		% set data [map_set -map $struct $data ints {a 9}]
		sub {b 9} ints {a 9}
		% set data [map_set -map $struct $data {sub b} ?]
		ints {a 9}

map_get ?-map schema? list field ?field ...?

get the value of a field in the map
eg.:

	% set struct {
		reg {*regexp {^a[0-9]} ?}
		sub {
			a {*any ?}
			b {*between 0 10 ?}
		}
		ints {
			*named {*int ?}
		}
	}
	% map_get -map $struct {ints {a 9}} {sub b}
	?
	% map_get -map $struct {ints {a 9}} {ints}
	a 9

map_unset ?-map schema? ?-data clientdata? list field ?field ...?

unset the value of a field in the map
eg.:

	% map_unset {a 1 b 2} b
	a 1

map_fields list field ?valueVar?

returns the fields present in the map list

map_xml xml

puts the information in xml into a map data (not in tags) will be placed in the map with the tag "_"
eg.:

---

Peter De Rijk

hosted at