]>
Commit | Line | Data |
---|---|---|
cd1a2927 MT |
1 | #!/usr/bin/perl\r |
2 | #\r | |
3 | # $Id: makelangs.pl,v 1.4 2003/12/11 11:25:53 riddles Exp $\r | |
4 | #\r | |
5 | # Used to process lang_en.c and build the enum type from comments embeded \r | |
6 | # within said source file.\r | |
7 | \r | |
8 | while (<>)\r | |
9 | {\r | |
10 | if (/\/\* (TR_[A-Z0-9_]*)/) {\r | |
11 | print "\t$1,\n"; }\r | |
12 | } \r | |
13 | print "};\n";\r |