mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-22 11:04:51 -04:00
68 lines
2.4 KiB
Plaintext
68 lines
2.4 KiB
Plaintext
$NetBSD: patch-ad,v 1.2 2014/12/15 11:35:42 mef Exp $
|
|
|
|
More file types to support
|
|
|
|
--- libidu/scanners.c.orig 2014-11-20 22:55:49.000000000 +0900
|
|
+++ libidu/scanners.c 2014-11-20 23:00:17.000000000 +0900
|
|
@@ -77,11 +77,16 @@ static struct language languages_0[] =
|
|
{
|
|
{ "C", parse_args_c, get_token_c, help_me_c },
|
|
{ "C++", parse_args_c, get_token_c, help_me_cpp },
|
|
+ { "cpp", parse_args_c, get_token_c, help_me_cpp },
|
|
+ { "cc", parse_args_c, get_token_c, help_me_cpp },
|
|
{ "Java", parse_args_c, get_token_c, help_me_java },
|
|
{ "asm", parse_args_asm, get_token_asm, help_me_asm },
|
|
+ { "S", parse_args_asm, get_token_asm, help_me_asm },
|
|
+ { "s", parse_args_asm, get_token_asm, help_me_asm },
|
|
{ "text", parse_args_text, get_token_text, help_me_text },
|
|
{ "perl", parse_args_perl, get_token_perl, help_me_perl },
|
|
- { "lisp", parse_args_lisp, get_token_lisp, help_me_lisp }
|
|
+ { "lisp", parse_args_lisp, get_token_lisp, help_me_lisp },
|
|
+ { "make", parse_args_text, get_token_text, help_me_text }
|
|
};
|
|
static struct language const *languages_N
|
|
= &languages_0[cardinalityof (languages_0)];
|
|
@@ -1711,8 +1716,9 @@ get_token_lisp (FILE *in_FILE, void cons
|
|
{
|
|
while (is_LETTER (c = getc (in_FILE)))
|
|
*id++ = c;
|
|
- if (c != EOF)
|
|
- ungetc (c, in_FILE);
|
|
+ if (c == EOF)
|
|
+ goto out;
|
|
+ ungetc (c, in_FILE);
|
|
*flags = TOK_LITERAL;
|
|
obstack_grow0 (&tokens_obstack, scanner_buffer, id - scanner_buffer);
|
|
return (struct token *) obstack_finish (&tokens_obstack);
|
|
@@ -1729,13 +1735,17 @@ get_token_lisp (FILE *in_FILE, void cons
|
|
break;
|
|
}
|
|
} while (c != EOF);
|
|
+ if (c == EOF)
|
|
+ goto out;
|
|
goto top;
|
|
}
|
|
else if (c == '@') /* #@LENGTH ...^_ EMACS byte-code comment */
|
|
{
|
|
do {
|
|
c = getc (in_FILE);
|
|
- } while ( (c != EOF) && (c != '\037'));
|
|
+ if (c == EOF)
|
|
+ goto out;
|
|
+ } while (c != '\037');
|
|
goto top;
|
|
}
|
|
else if (c == '[') /* #[ ... ] EMACS byte-code object */
|
|
@@ -1787,8 +1797,9 @@ get_token_lisp (FILE *in_FILE, void cons
|
|
*id++ = c;
|
|
while (is_NUMBER (c = getc (in_FILE)))
|
|
*id++ = c;
|
|
- if (c != EOF)
|
|
- ungetc (c, in_FILE);
|
|
+ if (c == EOF)
|
|
+ goto out;
|
|
+ ungetc (c, in_FILE);
|
|
*flags = TOK_NUMBER | TOK_LITERAL;
|
|
obstack_grow0 (&tokens_obstack, scanner_buffer, id - scanner_buffer);
|
|
return (struct token *) obstack_finish (&tokens_obstack);
|