X-Git-Url: http://wagner.pp.ru/gitweb/?a=blobdiff_plain;f=tcl_tests%2Fmkoidf.tcl;fp=tcl_tests%2Fmkoidf.tcl;h=c08e01590b085d61d7d0c6b2fcc21b1325b5b115;hb=3b8ddfe2f303b8931842e52bdb5c07c97042f651;hp=0000000000000000000000000000000000000000;hpb=e09d5a86fe1cb876b3c7cf5eb0d890f557b466d0;p=openssl-gost%2Fengine.git

diff --git a/tcl_tests/mkoidf.tcl b/tcl_tests/mkoidf.tcl
new file mode 100644
index 0000000..c08e015
--- /dev/null
+++ b/tcl_tests/mkoidf.tcl
@@ -0,0 +1,5 @@
+proc oid {oid name types} {
+	puts "$oid $name GOST $name $oid"
+}
+
+source [lindex $argv 0]