Adding a simple perl script for generating C defines based on the IANA registry

Signed-off-by: Bjørn Mork <bjorn@mork.no>

1 files changed, 20 insertions, 0 deletions

diff --git a/tools/ianatable2defines.pl b/tools/ianatable2defines.pl
new file mode 100755
index 0000000..933b318
--- /dev/null
+++ b/tools/ianatable2defines.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $pfx = shift || '';
+
+# typical input:
+# 1       OPTION_CLIENTID [RFC3315]
+
+while (<>) {
+    my ($code, $name, $ref, $rest) = split(/\s/);
+    if ($rest || !$ref) { # i.e. parse failure
+	chomp;
+	print "/* $_ */\n";
+	next;
+    }
+    $name =~ s/-/_/g;
+    print "#define $name\t\t$code\t/* $ref */\n";
+}
+