/[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.12 by gary, Mon Aug 20 19:42:38 2001 UTC revision 1.13 by gary, Sat Sep 1 16:10:40 2001 UTC
# Line 279  M4BUILTIN_HANDLER (dumpdef) Line 279  M4BUILTIN_HANDLER (dumpdef)
279    
280    for (; data.size > 0; --data.size, data.base++)    for (; data.size > 0; --data.size, data.base++)
281      {      {
282        fprintf (stderr, "%s:\t", SYMBOL_NAME (data.base[0]));        fprintf (stderr, "%s:\t", M4_SYMBOL_NAME (data.base[0]));
283    
284        switch (SYMBOL_TYPE (data.base[0]))        switch (M4_SYMBOL_TYPE (data.base[0]))
285          {          {
286          case M4_TOKEN_TEXT:          case M4_TOKEN_TEXT:
287            if (debug_level & M4_DEBUG_TRACE_QUOTE)            if (debug_level & M4_DEBUG_TRACE_QUOTE)
288              fprintf (stderr, "%s%s%s\n",              fprintf (stderr, "%s%s%s\n",
289                       lquote.string, SYMBOL_TEXT (data.base[0]), rquote.string);                       lquote.string, M4_SYMBOL_TEXT (data.base[0]), rquote.string);
290            else            else
291              fprintf (stderr, "%s\n", SYMBOL_TEXT (data.base[0]));              fprintf (stderr, "%s\n", M4_SYMBOL_TEXT (data.base[0]));
292            break;            break;
293    
294          case M4_TOKEN_FUNC:          case M4_TOKEN_FUNC:
295            bp = m4_builtin_find_by_func (NULL, SYMBOL_FUNC (data.base[0]));            bp = m4_builtin_find_by_func (NULL, M4_SYMBOL_FUNC (data.base[0]));
296            if (bp == NULL)            if (bp == NULL)
297              {              {
298                M4ERROR ((warning_status, 0,                M4ERROR ((warning_status, 0,
299                          _("Undefined name `%s'"), SYMBOL_NAME (data.base[0])));                          _("Undefined name `%s'"), M4_SYMBOL_NAME (data.base[0])));
300                abort ();                abort ();
301              }              }
302            fprintf (stderr, "<%s>\n", bp->name);            fprintf (stderr, "<%s>\n", bp->name);
# Line 325  M4BUILTIN_HANDLER (defn) Line 325  M4BUILTIN_HANDLER (defn)
325    if (symbol == NULL)    if (symbol == NULL)
326      return;      return;
327    
328    switch (SYMBOL_TYPE (symbol))    switch (M4_SYMBOL_TYPE (symbol))
329      {      {
330      case M4_TOKEN_TEXT:      case M4_TOKEN_TEXT:
331        m4_shipout_string(obs, SYMBOL_TEXT (symbol), 0, TRUE);        m4_shipout_string(obs, M4_SYMBOL_TEXT (symbol), 0, TRUE);
332        break;        break;
333    
334      case M4_TOKEN_FUNC:      case M4_TOKEN_FUNC:
335        m4_push_macro (SYMBOL_FUNC (symbol), SYMBOL_HANDLE (symbol),        m4_push_macro (M4_SYMBOL_FUNC (symbol), M4_SYMBOL_HANDLE (symbol),
336                       SYMBOL_TRACED (symbol));                       M4_SYMBOL_TRACED (symbol));
337        break;        break;
338    
339      case M4_TOKEN_VOID:      case M4_TOKEN_VOID:
# Line 611  M4BUILTIN_HANDLER (m4wrap) Line 611  M4BUILTIN_HANDLER (m4wrap)
611  static void  static void
612  set_trace (m4_symbol *symbol, const char *data)  set_trace (m4_symbol *symbol, const char *data)
613  {  {
614    SYMBOL_TRACED (symbol) = (boolean) (data != NULL);    M4_SYMBOL_TRACED (symbol) = (boolean) (data != NULL);
615  }  }
616    
617  M4BUILTIN_HANDLER (traceon)  M4BUILTIN_HANDLER (traceon)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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