|
Lines 722-738
Link Here
|
| 722 |
* Print every character in octal format with the leading backslash. |
722 |
* Print every character in octal format with the leading backslash. |
| 723 |
* tcsh and zsh may require 4-digit octals, bash < 2.05b doesn't like them. |
723 |
* tcsh and zsh may require 4-digit octals, bash < 2.05b doesn't like them. |
| 724 |
*/ |
724 |
*/ |
| 725 |
if (subshell_type == BASH) { |
725 |
|
| 726 |
for (; *s; s++) { |
|
|
| 727 |
/* Must quote numbers, so that they are not glued to octals */ |
| 728 |
if (isalpha ((unsigned char) *s)) { |
| 729 |
*d++ = (unsigned char) *s; |
| 730 |
} else { |
| 731 |
sprintf (d, "\\%03o", (unsigned char) *s); |
| 732 |
d += 4; |
| 733 |
} |
| 734 |
} |
| 735 |
} else { |
| 736 |
for (; *s; s++) { |
726 |
for (; *s; s++) { |
| 737 |
if (isalnum ((unsigned char) *s)) { |
727 |
if (isalnum ((unsigned char) *s)) { |
| 738 |
*d++ = (unsigned char) *s; |
728 |
*d++ = (unsigned char) *s; |
|
Lines 741-747
Link Here
|
| 741 |
d += 5; |
731 |
d += 5; |
| 742 |
} |
732 |
} |
| 743 |
} |
733 |
} |
| 744 |
} |
|
|
| 745 |
|
734 |
|
| 746 |
memcpy (d, common_end, sizeof (common_end)); |
735 |
memcpy (d, common_end, sizeof (common_end)); |
| 747 |
|
736 |
|
