14 proc valid {target} {  argument
20                     if {[string compare $target $name] == 0} {
33 proc isValid {target} {  argument
35           set address [valid $target]
37                     viMsg $viScreenId "$target is [string trim $address]"
39                     viMsg $viScreenId "$target not found"
54 proc aliased {target} {  argument
60                     if {[string compare $target [string trim $address]] == 0} {
70 proc isAliased {target} {  argument
72           set found [aliased $target]
75                     viMsg $viScreenId "$target is aliased to [string trim $name]"
77                     viMsg $viScreenId "$target not aliased"
81 proc appendAlias {target address} {
82           if {![aliased $target]} {
84                     puts $aliasFile "$target: $address"
96                     append $target [string index $line $column]
99           set found [isValid $target]