mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

(scm_find_executable): Compile fix -- fgetc returns an

Browse source 
unsigned char cast to an int, or -1 for EOS.
This commit is contained in:
Marius Vollmer 2005-12-06 22:35:05 +00:00
parent 08f489c98b
commit d9c36d2a6f
2 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/script.c
View file

@ -120,7 +120,7 @@ char *
scm_find_executable (const char *name)
{
char tbuf[MAXPATHLEN];
int i = 0;
int i = 0, c;
FILE *f;
/* fprintf(stderr, "s_f_e checking access %s ->%d\n", name, access(name, X_OK)); fflush(stderr); */
@ -132,16 +132,19 @@ scm_find_executable (const char *name)
if ((fgetc (f) == '#') && (fgetc (f) == '!'))
{
while (1)
switch (tbuf[i++] = fgetc (f))
switch (c = fgetc (f))
{
case /*WHITE_SPACES */ ' ':
case '\t':
case '\r':
case '\f':
case EOF:
tbuf[--i] = 0;
tbuf[i] = 0;
fclose (f);
return scm_cat_path (0L, tbuf, 0L);
default:
tbuf[i++] = c;
break;
}
}
fclose (f);