1#!/usr/local/bin/perl -n
2#
3# Too run convert the keywords run the following command
4#	gen_header.pl keywords > keywords.h
5
6next if m/^#/;
7next if m/^$/;
8$line_no++;
9chop;
10$keyword = $_;
11$upper = $keyword;
12$upper =~ tr/a-z/A-Z/;
13
14printf "#define\tK_%s\t%d\n\t{\"%s\", K_%s},\n",
15    $upper, $line_no, $keyword, $upper;
16