-static void ir_common_vprintf(const appender_t *app, void *object,
- size_t limit, const char *fmt, va_list args)
-{
- const char *str;
- char buf[4096];
- int i, n;
-
-#define DUMP_STR(s) app->append_str(object, limit, s)
-#define DUMP_CH(ch) app->append_char(object, limit, ch)
-
- for(i = 0, n = strlen(fmt); i < n; ++i) {
- char ch = fmt[i];
-
- if(ch == '%') {
- int len;
- const char *len_str = "";
-
- struct settings settings;
-
- settings.alternate = 0;
- settings.pad = ' ';
- settings.width = -1;
- settings.left_just = 0;
- settings.put_plus = 0;
-
- ch = fmt[++i];
-
- /* Clear the temporary buffer */
- buf[0] = '\0';
-
- /* Set the string to print to the buffer by default. */
- str = buf;
-
- while(strchr("#0-+", ch)) {
- switch(ch) {
- case '#':
- settings.alternate = 1;
- break;
- case '0':
- settings.pad = '0';
- break;
- case '-':
- settings.left_just = 1;
- break;
- case '+':
- settings.put_plus = 1;
- break;
- }
-
- ch = fmt[++i];
- }
-
-
- /* Read the field width */
- {
- char *endptr;
- int increase;
-
- settings.width = (int) strtol(&fmt[i], &endptr, 10);
- increase = (char *) endptr - &fmt[i];
- ch = fmt[i += increase];
- if(increase == 0)
- settings.width = -1;
- }
-
- /* Ignore the precision */
- if(ch == '.')
- while(isdigit(ch = fmt[++i]));
-
- /* read the length modifier. */
- switch(ch) {
- case 'h':
- len_str = "h";
- len = len_short;
- if((ch = fmt[++i]) == 'h') {
- len_str = "hh";
- len = len_char;
- }
- break;
-
- case 'l':
- len_str = "l";
- len = len_long;
- if((ch = fmt[++i]) == 'l') {
- len_str = "ll";
- len = len_long_long;
- }
- break;
-
- default:
- len = len_int;
- }
-
- /* Do the conversion specifier. */
- switch(ch) {
-
- /* The percent itself */
- case '%':
- buf[0] = '%';
- buf[1] = '\0';
- break;
-
- case 'c':
- buf[0] = va_arg(args, int);
- buf[1] = '\0';
- break;
-
- case 's':
- str = va_arg(args, const char *);
- break;
-
- case 'p':
- snprintf(buf, sizeof(buf), "%p", va_arg(args, void *));
- break;
-
- case 'd':
- case 'x':
- case 'X':
- case 'o':
- {
- char fmt_str[16];
- snprintf(fmt_str, sizeof(fmt_str), "%%%s%c", len_str, ch);
- vsnprintf(buf, sizeof(buf), fmt_str, args);
- }
- break;
-
- case 'I':
- str = get_id_str(va_arg(args, ident *));
- break;
-
- case 'e':
- str = get_entity_name(va_arg(args, entity *));
- break;
-
- case 'E':
- str = get_entity_ld_name(va_arg(args, entity *));
- 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':
- 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':
- 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;
-
- case '*':
- {
- iterator_t *it = va_arg(args, iterator_t *);
- void *collection = va_arg(args, void *);
- void *curr;
- const char *prefix = "";
- char format = fmt[++i];
- ir_printf_cb_t *cb = format == 'C' ? va_arg(args, ir_printf_cb_t *) : NULL;
-
- assert(is_iterator(it) && "Pass an iterator interface and the collection");
-
- snprintf(buf, sizeof(buf), "%%%c", format);
-
- DUMP_CH('[');
- for(curr = it->start(collection); curr; curr = it->next(collection, curr)) {
- DUMP_STR(prefix);
-
- if(cb)
- cb(app, object, limit, curr);
- else
- ir_common_printf(app, object, limit, buf, curr);
-
- prefix = ", ";
- }
- it->finish(collection, curr);
-
- DUMP_CH(']');
- }
-
- /* clean the buffer again */
- buf[0] = '\0';
- break;
- }
-
- dump_with_settings(app, object, limit, &settings, str);
- }
-
- else
- DUMP_CH(ch);
- }
-
-#undef DUMP_STR
-#undef DUMP_CH
-}