From 7be3f0592841640c07819aa23f14735de9f767d5 Mon Sep 17 00:00:00 2001
From: Bjørn Mork <bjorn@mork.no>
Date: Wed, 9 Nov 2011 16:06:58 +0100
Subject: Adding a simple perl script for generating C defines based on the
 IANA registry
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Bjørn Mork <bjorn@mork.no>
---
 tools/ianatable2defines.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 tools/ianatable2defines.pl

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";
+}
+    
-- 
cgit v1.2.3