Function set_or_detect_lang

tools/tokenizer/libtoken.c:415–445

Either set this file's input language explicitly via a string or use the filename extension to determine the language. If neither works out, use the default language C. Uses global filename (maybe stdin). Once the language is known, configs for that language are applied, e.g. the correct keyword table to use. */

   e.g. the correct keyword table to use.
*/
Language set_or_detect_lang(const char *source)
{
  int i;
  Language lang = C; // default language

  if (source) {
    /* Check if explicit language is known: */
    for (i = 0; i < sizeof(langs)/sizeof(langs[0]); i++)
      if (!strcmp(source, langs[i].name)) {
        lang = langs[i].lang;
        goto done;
      }
    fprintf(stderr, "(E): No support for language `%s'.\n", source);
  }

  char *p;
  if (p = strrchr(filename, '.')) {
    for (i = 0; i < sizeof(langs)/sizeof(langs[0]); i++)
      if (!strcmp(p, langs[i].ext)) {
        lang = langs[i].lang;
        goto done;
      }
    fprintf(stderr, "(E): Unknown filename extension `%s'.\n", p);
  }
  if (!nowarn)
    fprintf(stderr, "(W): Assuming default language C.\n");

 done:
  is_keyword = lang_configs[lang].is_keyword;
  return lang;
}

// Dynamically sized token buffer:
static char *token_buf = 0;