3 open F,"<","gost_obj.txt" or die "Cannot open gost_obj.txt:$!";
5 open H,">","newnids.h" or die "Cannot open newnids.h:$!";
6 open C,">","newnids.c" or die "Cannot open newnids.c:$!";
12 /* This file declare variables for NIDs of new OIDs they are not already
13 * definded as preprocessor symbols in openss core
16 #include <openssl/objects.h>
21 #include <openssl/objects.h>
33 ($oid,$sn,$ln) = split(/\s*:\s*/);
34 die "Empty short name in line $." unless $sn;
44 print H "#ifndef $nid\nextern int $nid;\n#endif\n";
45 print C "#ifndef $nid\nint $nid = NID_undef;\n#endif\n";
46 $defn .= "#ifndef $nid\n $nid = gost_add_obj($oid,\"$sn\",\"$ln\");\n if ($nid == NID_undef) return 0;\n#endif\n";
49 print C "\nint gost_define_nids()\n{\n$defn; return 1;\n}\n";