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

Diff of /m4/modules/m4.c

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

revision 1.29 by akim, Sat Oct 13 08:54:53 2001 UTC revision 1.30 by akim, Sat Oct 13 08:55:43 2001 UTC
# Line 387  M4BUILTIN_HANDLER (incr) Line 387  M4BUILTIN_HANDLER (incr)
387  {  {
388    int value;    int value;
389    
390    if (!m4_numeric_arg (argv[0], M4ARG (1), &value))    if (!m4_numeric_arg (argc, argv, 1, &value))
391      return;      return;
392    
393    m4_shipout_int (obs, value + 1);    m4_shipout_int (obs, value + 1);
# Line 397  M4BUILTIN_HANDLER (decr) Line 397  M4BUILTIN_HANDLER (decr)
397  {  {
398    int value;    int value;
399    
400    if (!m4_numeric_arg (argv[0], M4ARG (1), &value))    if (!m4_numeric_arg (argc, argv, 1, &value))
401      return;      return;
402    
403    m4_shipout_int (obs, value - 1);    m4_shipout_int (obs, value - 1);
# Line 413  M4BUILTIN_HANDLER (divert) Line 413  M4BUILTIN_HANDLER (divert)
413  {  {
414    int i = 0;    int i = 0;
415    
416    if (argc == 2 && !m4_numeric_arg (argv[0], M4ARG (1), &i))    if (argc == 2 && !m4_numeric_arg (argc, argv, 1, &i))
417      return;      return;
418    
419    m4_make_diversion (i);    m4_make_diversion (i);
# Line 441  M4BUILTIN_HANDLER (undivert) Line 441  M4BUILTIN_HANDLER (undivert)
441        if (sscanf (M4ARG (1), "%d", &i) == 1)        if (sscanf (M4ARG (1), "%d", &i) == 1)
442          m4_insert_diversion (i);          m4_insert_diversion (i);
443        else if (no_gnu_extensions)        else if (no_gnu_extensions)
444          m4_numeric_arg (argv[0], M4ARG (1), &i);          m4_numeric_arg (argc, argv, 1, &i);
445        else        else
446          {          {
447            FILE *fp = m4_path_search (M4ARG (1), (char **) NULL);            FILE *fp = m4_path_search (M4ARG (1), (char **) NULL);
# Line 562  M4BUILTIN_HANDLER (m4exit) Line 562  M4BUILTIN_HANDLER (m4exit)
562  {  {
563    int exit_code = 0;    int exit_code = 0;
564    
565    if (argc == 2  && !m4_numeric_arg (argv[0], M4ARG (1), &exit_code))    if (argc == 2  && !m4_numeric_arg (argc, argv, 1, &exit_code))
566      exit_code = 0;      exit_code = 0;
567    
568    m4_module_close_all (obs);    m4_module_close_all (obs);
# Line 678  M4BUILTIN_HANDLER (substr) Line 678  M4BUILTIN_HANDLER (substr)
678    int start, length, avail;    int start, length, avail;
679    
680    length = avail = strlen (M4ARG (1));    length = avail = strlen (M4ARG (1));
681    if (!m4_numeric_arg (argv[0], M4ARG (2), &start))    if (!m4_numeric_arg (argc, argv, 2, &start))
682      return;      return;
683    
684    if (argc == 4 && !m4_numeric_arg (argv[0], M4ARG (3), &length))    if (argc == 4 && !m4_numeric_arg (argc, argv, 3, &length))
685      return;      return;
686    
687    if (start < 0 || length <= 0 || start >= avail)    if (start < 0 || length <= 0 || start >= avail)

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

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