tcl_tests/mkn2o.tcl

   1 proc oid {oid name types} {
   2         global new_name2oid
   3         set new_name2oid($name) $oid
   4 }
   5
   6 source [lindex $argv 0]
   7 source name2oid.tcl
   8
   9 set differ 0
  10 foreach name [array names name2oid] {
  11         if {![info exists new_name2oid($name)] || $new_name2oid($name) != $name2oid($name)} {set differ 1}
  12 }
  13 if {!$differ} {
  14         foreach name [array names new_name2oid] {
  15                 if {![info exists name2oid($name)]} {set differ 1}
  16         }
  17 }
  18
  19 if {$differ} {
  20         set n2of [open name2oid.tcl w]
  21         puts $n2of "array set name2oid {"
  22         foreach name [lsort [array names new_name2oid]] {
  23                 puts $n2of "$name $new_name2oid($name)"
  24         }
  25         puts $n2of "}"
  26         close $n2of
  27 }
  28