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