/[m4]/m4/src/freeze.c
ViewVC logotype

Diff of /m4/src/freeze.c

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

revision 1.10 by gary, Mon Aug 20 19:42:38 2001 UTC revision 1.11 by gary, Sat Sep 1 16:10:41 2001 UTC
# Line 130  void Line 130  void
130  produce_symbol_dump (FILE *file, const m4_symbol *bucket)  produce_symbol_dump (FILE *file, const m4_symbol *bucket)
131  {  {
132    const m4_symbol *pending = bucket;    const m4_symbol *pending = bucket;
133    lt_dlhandle   handle          = SYMBOL_HANDLE (pending);    lt_dlhandle   handle          = M4_SYMBOL_HANDLE (pending);
134    const char   *symbol_name     = SYMBOL_NAME (pending);    const char   *symbol_name     = M4_SYMBOL_NAME (pending);
135    const char   *module_name     = handle ? m4_module_name (handle) : NULL;    const char   *module_name     = handle ? m4_module_name (handle) : NULL;
136    const m4_builtin *bp;    const m4_builtin *bp;
137    
138    bucket = SYMBOL_NEXT (bucket);    bucket = M4_SYMBOL_NEXT (bucket);
139    if (bucket)    if (bucket)
140      produce_symbol_dump (file, bucket);      produce_symbol_dump (file, bucket);
141        
142    switch (SYMBOL_TYPE (pending))    switch (M4_SYMBOL_TYPE (pending))
143      {      {
144      case M4_TOKEN_TEXT:      case M4_TOKEN_TEXT:
145        fprintf (file, "T%lu,%lu",        fprintf (file, "T%lu,%lu",
146                 (unsigned long) strlen (symbol_name),                 (unsigned long) strlen (symbol_name),
147                 (unsigned long) strlen (SYMBOL_TEXT (pending)));                 (unsigned long) strlen (M4_SYMBOL_TEXT (pending)));
148        if (handle)        if (handle)
149          fprintf (file, ",%lu", (unsigned long) strlen (module_name));          fprintf (file, ",%lu", (unsigned long) strlen (module_name));
150        fputc ('\n', file);        fputc ('\n', file);
151    
152        fputs (symbol_name, file);        fputs (symbol_name, file);
153        fputs (SYMBOL_TEXT (pending), file);        fputs (M4_SYMBOL_TEXT (pending), file);
154        if (handle)        if (handle)
155          fputs (module_name, file);          fputs (module_name, file);
156        fputc ('\n', file);        fputc ('\n', file);
157        break;        break;
158    
159      case M4_TOKEN_FUNC:      case M4_TOKEN_FUNC:
160        bp = m4_builtin_find_by_func (m4_module_builtins(SYMBOL_HANDLE(pending)),        bp = m4_builtin_find_by_func (m4_module_builtins(M4_SYMBOL_HANDLE(pending)),
161                                      SYMBOL_FUNC (pending));                                      M4_SYMBOL_FUNC (pending));
162        if (bp == NULL)        if (bp == NULL)
163          {          {
164            M4ERROR ((warning_status, 0,            M4ERROR ((warning_status, 0,

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