237 |
print "const char *str;\n"; |
print "const char *str;\n"; |
238 |
print "int len;\n"; |
print "int len;\n"; |
239 |
print "{\n"; |
print "{\n"; |
240 |
|
print "\tstruct keyword *keyword;\n"; |
241 |
|
print "\n"; |
242 |
if ($type eq 'sharp') { |
if ($type eq 'sharp') { |
243 |
print "\tchar *p = strtrim(str, TRIM_ALL, &len);\n"; |
print "\t/* Delete blanks. Ex. ' # define ' => '#define' */\n"; |
244 |
print "\tstruct keyword *keyword = ${pre}_lookup(p, len);\n"; |
print "\tstr = strtrim(str, TRIM_ALL, &len);\n"; |
245 |
} else { |
print "\n"; |
|
print "\tstruct keyword *keyword = ${pre}_lookup(str, len);\n"; |
|
246 |
} |
} |
247 |
print "\tint n = keyword ? keyword->token : 0;\n"; |
print "\tkeyword = ${pre}_lookup(str, len);\n"; |
248 |
print "\treturn IS_RESERVED_${TYPE}(n) ? n : 0;\n"; |
print "\treturn (keyword && IS_RESERVED_${TYPE}(keyword->token)) ? keyword->token : 0;\n"; |
249 |
print "}\n"; |
print "}\n"; |
250 |
} |
} |
251 |
if ($n_word > $START_WORD) { |
if ($n_word > $START_WORD) { |