/[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.37 by gary, Fri Jun 13 13:05:46 2003 UTC revision 1.38 by gary, Fri Jun 13 13:54:36 2003 UTC
# Line 94  typedef unsigned long int unumber; Line 94  typedef unsigned long int unumber;
94    
95  static void     include         (int argc, m4_token **argv,  static void     include         (int argc, m4_token **argv,
96                                   boolean silent);                                   boolean silent);
97  static int      set_trace       (const void *ignored, void *symbol,  static int      set_trace       (m4_hash *hash, const void *ignored,
98                                   void *data);                                   void *symbol, void *userdata);
99  static const char *ntoa         (number value, int radix);  static const char *ntoa         (number value, int radix);
100  static void     numb_obstack    (struct obstack *obs, const number value,  static void     numb_obstack    (struct obstack *obs, const number value,
101                                   const int radix, int min);                                   const int radix, int min);
# Line 582  M4BUILTIN_HANDLER (m4wrap) Line 582  M4BUILTIN_HANDLER (m4wrap)
582     tracing of a macro.  It disables tracing if DATA is NULL, otherwise it     tracing of a macro.  It disables tracing if DATA is NULL, otherwise it
583     enable tracing.  */     enable tracing.  */
584  static int  static int
585  set_trace (const void *ignored, void *symbol, void *data)  set_trace (m4_hash *hash, const void *ignored, void *symbol,
586               void *userdata)
587  {  {
588    SYMBOL_TRACED ((m4_symbol *) symbol) = (boolean) (data != NULL);    SYMBOL_TRACED ((m4_symbol *) symbol) = (boolean) (userdata != NULL);
589    return 0;    return 0;
590  }  }
591    
# Line 600  M4BUILTIN_HANDLER (traceon) Line 601  M4BUILTIN_HANDLER (traceon)
601          const char *name = M4ARG (i);          const char *name = M4ARG (i);
602          m4_symbol *symbol = m4_symbol_lookup (name);          m4_symbol *symbol = m4_symbol_lookup (name);
603          if (symbol != NULL)          if (symbol != NULL)
604            set_trace (name, symbol, (char *) obs);            set_trace (NULL, NULL, symbol, (char *) obs);
605          else          else
606            M4WARN ((warning_status, 0,            M4WARN ((warning_status, 0,
607                     _("Warning: %s: undefined name: %s"), M4ARG (0), name));                     _("Warning: %s: undefined name: %s"), M4ARG (0), name));
# Line 620  M4BUILTIN_HANDLER (traceoff) Line 621  M4BUILTIN_HANDLER (traceoff)
621          const char *name = M4ARG (i);          const char *name = M4ARG (i);
622          m4_symbol *symbol = m4_symbol_lookup (name);          m4_symbol *symbol = m4_symbol_lookup (name);
623          if (symbol != NULL)          if (symbol != NULL)
624            set_trace (name, symbol, NULL);            set_trace (NULL, NULL, symbol, NULL);
625          else          else
626            M4WARN ((warning_status, 0,            M4WARN ((warning_status, 0,
627                     _("Warning: %s: undefined name: %s"), M4ARG (0), name));                     _("Warning: %s: undefined name: %s"), M4ARG (0), name));

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

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