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, |