/[m4]/m4/m4/utility.c
ViewVC logotype

Diff of /m4/m4/utility.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by akim, Sat Oct 13 08:54:53 2001 UTC revision 1.21 by akim, Sat Oct 13 08:55:43 2001 UTC
# Line 138  m4_skip_space (const char *arg) Line 138  m4_skip_space (const char *arg)
138     VALUEP. If the conversion fails, print error message for macro MACRO.     VALUEP. If the conversion fails, print error message for macro MACRO.
139     Return TRUE iff conversion succeeds.  */     Return TRUE iff conversion succeeds.  */
140  boolean  boolean
141  m4_numeric_arg (m4_token *macro, const char *arg, int *valuep)  m4_numeric_arg (int argc, m4_token **argv, int arg, int *valuep)
142  {  {
143    char *endp;    char *endp;
144    
145    if (*arg == 0 || (*valuep = strtol (m4_skip_space (arg), &endp, 10),    if (*M4ARG (arg) == 0
146                      *m4_skip_space (endp) != 0))        || (*valuep = strtol (m4_skip_space (M4ARG (arg)), &endp, 10),
147              *m4_skip_space (endp) != 0))
148      {      {
149        M4WARN ((warning_status, 0,        M4WARN ((warning_status, 0,
150                 _("Warning: %s: non-numeric argument: %s"),                 _("Warning: %s: argument %d non-numeric: %s"),
151                 TOKEN_TEXT (macro), arg));                 M4ARG (0), arg - 1, M4ARG (arg)));
152        return FALSE;        return FALSE;
153      }      }
154    return TRUE;    return TRUE;

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26