mirrors/make
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/make.git synced 2025-01-31 03:25:08 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Formerly read.c.~39~

Browse source
This commit is contained in:
Roland McGrath 1992-10-12 17:35:43 +00:00
parent f31ff1c1c4
commit 81acf8675a
1 changed files with 16 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
read.c
View file

@ -1385,11 +1385,24 @@ parse_file_seq (stringp, stopchar, size, strip)
p--;
if (strip)
while (q[0] == '.' && q[1] == '/' && q[2] != '\0' && !isblank (q[2]))
q += 2;
{
/* Skip leading `./'s. */
while (p - q > 2 && q[0] == '.' && q[1] == '/')
{
q += 2; /* Skip "./". */
while (q < p && *q == '/')
/* Skip following slashes: ".//foo" is "foo", not "/foo". */
++q;
}
}
/* Extract the filename just found, and skip it. */
name = savestring (q, p - q);
if (q == p)
/* ".///" was stripped to "". */
name = savestring ("./", 2);
else
name = savestring (q, p - q);
/* Add it to the front of the chain. */
new1 = (struct nameseq *) xmalloc (size);