hush: fix IFS handling in read
$ echo "X:Y:" | (IFS=": " read x y; echo "|$x|$y|") |X|Y| $ echo "X:Y : " | (IFS=": " read x y; echo "|$x|$y|") |X|Y| function old new delta shell_builtin_read 1320 1426 +106 Signed-off-by: Denys Vlasenko <vda.linux@googlemail.com>
This commit is contained in:
parent
9678636911
commit
44257ad5d0
9
shell/hush_test/hush-read/read_ifs2.right
Normal file
9
shell/hush_test/hush-read/read_ifs2.right
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
|X|Y:Z:|
|
||||||
|
|X|Y:Z|
|
||||||
|
|X|Y|
|
||||||
|
|X|Y|
|
||||||
|
|X||
|
||||||
|
|X||
|
||||||
|
|||
|
||||||
|
Whitespace should be trimmed too:
|
||||||
|
|X|Y|
|
9
shell/hush_test/hush-read/read_ifs2.tests
Executable file
9
shell/hush_test/hush-read/read_ifs2.tests
Executable file
@ -0,0 +1,9 @@
|
|||||||
|
echo "X:Y:Z:" | (IFS=": " read x y; echo "|$x|$y|")
|
||||||
|
echo "X:Y:Z" | (IFS=": " read x y; echo "|$x|$y|")
|
||||||
|
echo "X:Y:" | (IFS=": " read x y; echo "|$x|$y|")
|
||||||
|
echo "X:Y" | (IFS=": " read x y; echo "|$x|$y|")
|
||||||
|
echo "X:" | (IFS=": " read x y; echo "|$x|$y|")
|
||||||
|
echo "X" | (IFS=": " read x y; echo "|$x|$y|")
|
||||||
|
echo "" | (IFS=": " read x y; echo "|$x|$y|")
|
||||||
|
echo Whitespace should be trimmed too:
|
||||||
|
echo "X:Y : " | (IFS=": " read x y; echo "|$x|$y|")
|
@ -274,9 +274,44 @@ shell_builtin_read(void FAST_FUNC (*setvar)(const char *name, const char *val),
|
|||||||
|
|
||||||
if (argv[0]) {
|
if (argv[0]) {
|
||||||
/* Remove trailing space $IFS chars */
|
/* Remove trailing space $IFS chars */
|
||||||
while (--bufpos >= 0 && isspace(buffer[bufpos]) && strchr(ifs, buffer[bufpos]) != NULL)
|
while (--bufpos >= 0
|
||||||
|
&& isspace(buffer[bufpos])
|
||||||
|
&& strchr(ifs, buffer[bufpos]) != NULL
|
||||||
|
) {
|
||||||
continue;
|
continue;
|
||||||
|
}
|
||||||
buffer[bufpos + 1] = '\0';
|
buffer[bufpos + 1] = '\0';
|
||||||
|
|
||||||
|
/* Last variable takes the entire remainder with delimiters
|
||||||
|
* (sans trailing whitespace $IFS),
|
||||||
|
* but ***only "if there are fewer vars than fields"(c)***!
|
||||||
|
* The "X:Y:" case below: there are two fields,
|
||||||
|
* and therefore last delimiter (:) is eaten:
|
||||||
|
* IFS=": "
|
||||||
|
* echo "X:Y:Z:" | (read x y; echo "|$x|$y|") # |X|Y:Z:|
|
||||||
|
* echo "X:Y:Z" | (read x y; echo "|$x|$y|") # |X|Y:Z|
|
||||||
|
* echo "X:Y:" | (read x y; echo "|$x|$y|") # |X|Y|, not |X|Y:|
|
||||||
|
* echo "X:Y : " | (read x y; echo "|$x|$y|") # |X|Y|
|
||||||
|
*/
|
||||||
|
if (bufpos >= 0
|
||||||
|
&& strchr(ifs, buffer[bufpos]) != NULL
|
||||||
|
) {
|
||||||
|
/* There _is_ a non-whitespace IFS char */
|
||||||
|
/* Skip whitespace IFS char before it */
|
||||||
|
while (--bufpos >= 0
|
||||||
|
&& isspace(buffer[bufpos])
|
||||||
|
&& strchr(ifs, buffer[bufpos]) != NULL
|
||||||
|
) {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
/* Are there $IFS chars? */
|
||||||
|
if (strcspn(buffer, ifs) >= ++bufpos) {
|
||||||
|
/* No: last var takes one field, not more */
|
||||||
|
/* So, drop trailing IFS delims */
|
||||||
|
buffer[bufpos] = '\0';
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
/* Use the remainder as a value for the next variable */
|
/* Use the remainder as a value for the next variable */
|
||||||
setvar(*argv, buffer);
|
setvar(*argv, buffer);
|
||||||
/* Set the rest to "" */
|
/* Set the rest to "" */
|
||||||
|
Loading…
Reference in New Issue
Block a user