]> wagner.pp.ru Git - openssl-gost/engine.git/blob - tcl_tests/enums.tcl
Kuznyechik ASN1 parameters parsing
[openssl-gost/engine.git] / tcl_tests / enums.tcl
1 set f [open enums2tcl.c w]
2 puts $f "#include \"../ccore/ccapi.h\""
3 puts $f "#include \"../ccore/ccrdscb.h\""
4 puts $f "#include <stdio.h>"
5 puts $f "int main (void) {"
6 set inc [open ../ccore/ccapi.h r]
7 while {[gets $inc line] >= 0} {
8         if [regexp {\bcc_rc_\w+} $line code] {
9                 puts $f "printf(\"set $code %d\\n\", $code);"
10         }
11 }
12 close $inc
13 set inc [open ../ccore/ccrdscb.h r]
14 while {[gets $inc line] >= 0} {
15         if [regexp {\bcc_rds_cb_(rc|op|stage)_\w+} $line code] {
16                 puts $f "printf(\"set $code %d\\n\", $code);"
17         }
18 }
19 close $inc
20 puts $f "return 0;"
21 puts $f "}"
22 close $f
23