diff options
Diffstat (limited to 'network_cmds/route.tproj/gen_header.pl')
-rwxr-xr-x | network_cmds/route.tproj/gen_header.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/network_cmds/route.tproj/gen_header.pl b/network_cmds/route.tproj/gen_header.pl new file mode 100755 index 0000000..dfd9963 --- /dev/null +++ b/network_cmds/route.tproj/gen_header.pl @@ -0,0 +1,15 @@ +#!/usr/local/bin/perl -n +# +# Too run convert the keywords run the following command +# gen_header.pl keywords > keywords.h + +next if m/^#/; +next if m/^$/; +$line_no++; +chop; +$keyword = $_; +$upper = $keyword; +$upper =~ tr/a-z/A-Z/; + +printf "#define\tK_%s\t%d\n\t{\"%s\", K_%s},\n", + $upper, $line_no, $keyword, $upper; |