/* GNU m4 -- A simple macro processor
- Copyright (C) 1989-1994, 2006-2014, 2016 Free Software Foundation,
- Inc.
+ Copyright (C) 1989-1994, 2006-2014, 2016-2017, 2020-2021 Free
+ Software Foundation, Inc.
This file is part of GNU M4.
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
- along with this program. If not, see <http://www.gnu.org/licenses/>.
+ along with this program. If not, see <https://www.gnu.org/licenses/>.
*/
/* printf like formatting for m4. */
value = strtol (str, &endp, 10);
if (endp - str - len)
M4ERROR ((warning_status, 0, _("non-numeric argument %s"), str));
- else if (isspace (to_uchar (*str)))
+ else if (c_isspace (*str))
M4ERROR ((warning_status, 0, _("leading whitespace ignored")));
else if (errno == ERANGE || (int) value != value)
M4ERROR ((warning_status, 0, _("numeric overflow detected")));
value = strtol (str, &endp, 10);
if (endp - str - len)
M4ERROR ((warning_status, 0, _("non-numeric argument %s"), str));
- else if (isspace (to_uchar (*str)))
+ else if (c_isspace (*str))
M4ERROR ((warning_status, 0, _("leading whitespace ignored")));
else if (errno == ERANGE)
M4ERROR ((warning_status, 0, _("numeric overflow detected")));
value = strtod (str, &endp);
if (endp - str - len)
M4ERROR ((warning_status, 0, _("non-numeric argument %s"), str));
- else if (isspace (to_uchar (*str)))
+ else if (c_isspace (*str))
M4ERROR ((warning_status, 0, _("leading whitespace ignored")));
else if (errno == ERANGE)
M4ERROR ((warning_status, 0, _("numeric overflow detected")));
fmt++;
}
else
- while (isdigit (to_uchar (*fmt)))
+ while (c_isdigit (*fmt))
{
width = 10 * width + *fmt - '0';
fmt++;
else
{
prec = 0;
- while (isdigit (to_uchar (*fmt)))
+ while (c_isdigit (*fmt))
{
prec = 10 * prec + *fmt - '0';
fmt++;
if (sizeof ok <= c || !ok[c])
{
M4ERROR ((warning_status, 0,
- "Warning: unrecognized specifier in `%s'", f));
+ _("Warning: unrecognized specifier in `%s'"), f));
if (c == '\0')
fmt--;
continue;