- char buf[256];
- int i, n;
-
-#define DUMP_STR(s) app->append_str(subject, limit, s)
-#define DUMP_CH(ch) app->append_char(subject, limit, ch)
-
- for(i = 0, n = strlen(fmt); i < n; ++i) {
- char ch = fmt[i];
-
- if(ch == '%') {
- char next_ch = fmt[++i];
-
- /* Clear the temporary buffer */
- buf[0] = '\0';
-
- switch(next_ch) {
- case '%':
- DUMP_CH('%');
- break;
- case 's':
- DUMP_STR(va_arg(args, const char *));
- break;
-
- case 'p':
- snprintf(buf, sizeof(buf), "%p", va_arg(args, void *));
- break;
-
- case 't':
- tarval_snprintf(buf, sizeof(buf), va_arg(args, tarval *));
- break;
-
- case 'N':
- {
- ir_node *irn = va_arg(args, ir_node *);
- snprintf(buf, sizeof(buf), "%s%s:%ld",
- get_irn_opname(irn), get_mode_name(get_irn_mode(irn)), get_irn_node_nr(irn));
- }
- break;
-
- case 'o':
- DUMP_STR(get_irn_opname(va_arg(args, ir_node *)));
- break;
-
- case 'n':
- snprintf(buf, sizeof(buf), "%ld", get_irn_node_nr(va_arg(args, ir_node *)));
- break;
-
- case 'm':
- DUMP_STR(get_mode_name(va_arg(args, ir_mode *)));
- break;
-
- case 'b':
- snprintf(buf, sizeof(buf), "%ld",
- get_irn_node_nr(get_nodes_block(va_arg(args, ir_node *))));
- break;
- }
-
- /* Dump the temporary buffer, if something is in it. */
- if(buf[0] != '\0')
- DUMP_STR(buf);
- }
-
- else
- DUMP_CH(ch);
- }
-
-#undef DUMP_STR
-#undef DUMP_CH