diff options
Diffstat (limited to 'tools/ianatable2defines.pl')
-rwxr-xr-x | tools/ianatable2defines.pl | 20 |
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"; +} + |