[ViewVC] Diff of: cvs/deliantra/server/include/preprocess

Comparing deliantra/server/include/preprocess (file contents):
Revision 1.2 by root, Thu Aug 31 09:19:34 2006 UTC vs.
Revision 1.3 by root, Thu Aug 31 17:54:14 2006 UTC

 #!/opt/bin/perl
+use List::Util;
 # todo: gather dynamically
 my @kw = qw(
    ac
    activate_on_push
 struct keyword_idx { const char *name; enum keyword index; };
 %%
 EOF
 for (@kw) {
-   printf GPERF "%s,%s\n", $_, "KW_" . uc;
+   printf GPERF "%s,%s\n", $_, "KW_$_";
 }
 print GPERF <<EOF;
 %%
-const char *const keyword_str [] = {
+extern const char *const keyword_str [] = {
   "<EOF>",
   "<ERROR>",
 EOF
 for (@kw) {
    printf GPERF "  \"%s\",\n", $_;
 }
-print GPERF "};\n\n";
+print GPERF "};\n";
+printf GPERF "\nextern const unsigned char keyword_len [] = { 5, 7, %s };\n\n",
+       join ", ", map length, @kw;
 open KW, ">", "keyword.h";
 print KW <<EOF;
 #ifndef KW_H__
 #define KW_H__
 enum keyword {
-  KW_eof, KW_error,
+  KW_EOF, KW_ERROR,
 EOF
 for (@kw) {
-   printf KW "  %s,\n", "KW_" . uc;
+   printf KW "  %s,\n", "KW_$_",
 }
 print KW <<EOF;
   NUM_KEYWORD,
 };
 extern const char *const keyword_str [];
+extern const unsigned char keyword_len [];
+EOF
+printf KW "#define MAX_KEYWORD_LEN %d\n", List::Util::max map length, @kw;
+print KW <<EOF;
 #endif
 EOF

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines