aboutsummaryrefslogtreecommitdiff
path: root/openssl/util/err-ins.pl
diff options
context:
space:
mode:
Diffstat (limited to 'openssl/util/err-ins.pl')
-rw-r--r--openssl/util/err-ins.pl33
1 files changed, 33 insertions, 0 deletions
diff --git a/openssl/util/err-ins.pl b/openssl/util/err-ins.pl
new file mode 100644
index 000000000..31b70df8d
--- /dev/null
+++ b/openssl/util/err-ins.pl
@@ -0,0 +1,33 @@
+#!/usr/local/bin/perl
+#
+# tack error codes onto the end of a file
+#
+
+open(ERR,$ARGV[0]) || die "unable to open error file '$ARGV[0]':$!\n";
+@err=<ERR>;
+close(ERR);
+
+open(IN,$ARGV[1]) || die "unable to open header file '$ARGV[1]':$!\n";
+
+@out="";
+while (<IN>)
+ {
+ push(@out,$_);
+ last if /BEGIN ERROR CODES/;
+ }
+close(IN);
+
+open(OUT,">$ARGV[1]") || die "unable to open header file '$ARGV[1]':$1\n";
+print OUT @out;
+print OUT @err;
+print OUT <<"EOF";
+
+#ifdef __cplusplus
+}
+#endif
+#endif
+
+EOF
+close(OUT);
+
+