/[global]/global/gctags/reserved.pl
ViewVC logotype

Diff of /global/gctags/reserved.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by h-iwamoto, Thu Oct 14 13:18:52 2004 UTC revision 1.15 by shigio, Fri Oct 15 04:41:28 2004 UTC
# Line 237  sub generate_procedure { Line 237  sub generate_procedure {
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) {

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26