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

Diff of /m4/modules/gnu.c

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

revision 1.10 by gary, Thu Sep 20 03:48:05 2001 UTC revision 1.11 by gary, Sun Sep 30 14:43:38 2001 UTC
# Line 171  M4BUILTIN_HANDLER (changesyntax) Line 171  M4BUILTIN_HANDLER (changesyntax)
171    
172    for (i = 1; i < argc; i++)    for (i = 1; i < argc; i++)
173      {      {
174        m4_set_syntax (*M4_SYMBOL_TEXT (argv[i]),        m4_set_syntax (*M4_TOKEN_DATA_TEXT (argv[i]),
175                       m4_expand_ranges (M4_SYMBOL_TEXT (argv[i])+1, obs));                       m4_expand_ranges (M4_TOKEN_DATA_TEXT (argv[i])+1, obs));
176      }      }
177  }  }
178    
# Line 270  M4BUILTIN_HANDLER (regexp) Line 270  M4BUILTIN_HANDLER (regexp)
270    if (m4_bad_argc (argv[0], argc, 3, 4))    if (m4_bad_argc (argv[0], argc, 3, 4))
271      return;      return;
272    
273    victim = M4_SYMBOL_TEXT (argv[1]);    victim = M4_TOKEN_DATA_TEXT (argv[1]);
274    regexp = M4_SYMBOL_TEXT (argv[2]);    regexp = M4_TOKEN_DATA_TEXT (argv[2]);
275    
276    buf.buffer = NULL;    buf.buffer = NULL;
277    buf.allocated = 0;    buf.allocated = 0;
# Line 301  M4BUILTIN_HANDLER (regexp) Line 301  M4BUILTIN_HANDLER (regexp)
301      m4_shipout_int (obs, startpos);      m4_shipout_int (obs, startpos);
302    else if (startpos >= 0)    else if (startpos >= 0)
303      {      {
304        repl = M4_SYMBOL_TEXT (argv[3]);        repl = M4_TOKEN_DATA_TEXT (argv[3]);
305        substitute (obs, victim, repl, &regs);        substitute (obs, victim, repl, &regs);
306      }      }
307    
# Line 331  M4BUILTIN_HANDLER (patsubst) Line 331  M4BUILTIN_HANDLER (patsubst)
331    if (m4_bad_argc (argv[0], argc, 3, 4))    if (m4_bad_argc (argv[0], argc, 3, 4))
332      return;      return;
333    
334    regexp = M4_SYMBOL_TEXT (argv[2]);    regexp = M4_TOKEN_DATA_TEXT (argv[2]);
335    
336    buf.buffer = NULL;    buf.buffer = NULL;
337    buf.allocated = 0;    buf.allocated = 0;
# Line 348  M4BUILTIN_HANDLER (patsubst) Line 348  M4BUILTIN_HANDLER (patsubst)
348        return;        return;
349      }      }
350    
351    victim = M4_SYMBOL_TEXT (argv[1]);    victim = M4_TOKEN_DATA_TEXT (argv[1]);
352    length = strlen (victim);    length = strlen (victim);
353    
354    offset = 0;    offset = 0;
# Line 433  M4BUILTIN_HANDLER (syncoutput) Line 433  M4BUILTIN_HANDLER (syncoutput)
433    if (m4_bad_argc (argv[0], argc, 2, 2))    if (m4_bad_argc (argv[0], argc, 2, 2))
434      return;      return;
435    
436    if (M4_SYMBOL_TYPE (argv[1]) != M4_TOKEN_TEXT)    if (M4_TOKEN_DATA_TYPE (argv[1]) != M4_TOKEN_TEXT)
437      return;      return;
438    
439    if (M4_SYMBOL_TEXT(argv[1])[0] == '0'    if (M4_TOKEN_DATA_TEXT(argv[1])[0] == '0'
440        || M4_SYMBOL_TEXT(argv[1])[0] == 'n'        || M4_TOKEN_DATA_TEXT(argv[1])[0] == 'n'
441        || (M4_SYMBOL_TEXT(argv[1])[0] == 'o'        || (M4_TOKEN_DATA_TEXT(argv[1])[0] == 'o'
442            && M4_SYMBOL_TEXT(argv[1])[1] == 'f'))            && M4_TOKEN_DATA_TEXT(argv[1])[1] == 'f'))
443      sync_output = 0;      sync_output = 0;
444    else if (M4_SYMBOL_TEXT(argv[1])[0] == '1'    else if (M4_TOKEN_DATA_TEXT(argv[1])[0] == '1'
445             || M4_SYMBOL_TEXT(argv[1])[0] == 'y'             || M4_TOKEN_DATA_TEXT(argv[1])[0] == 'y'
446             || (M4_SYMBOL_TEXT(argv[1])[0] == 'o'             || (M4_TOKEN_DATA_TEXT(argv[1])[0] == 'o'
447                 && M4_SYMBOL_TEXT(argv[1])[1] == 'n'))                 && M4_TOKEN_DATA_TEXT(argv[1])[1] == 'n'))
448      sync_output = 1;      sync_output = 1;
449  }  }
450    

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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