]> wagner.pp.ru Git - openssl-gost/engine.git/blob - tcl_tests/mkn2o.tcl
Update Copyright lines after registration rework
[openssl-gost/engine.git] / 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