3 * File name: ir/ir/irprintf.c
4 * Purpose: A little printf helper unterstanding firm types
5 * Author: Sebastian Hack
8 * Copyright: (c) 1998-2004 Universität Karlsruhe
9 * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE.
15 * A little printf helper unterstanding firm types.
16 * @author Sebastian Hack
45 * append a char to a string buffer
47 static void str_append_char(void *object, size_t n, char ch)
54 strncat(object, buf, n);
58 * append a string to a string buffer
60 static void str_append_str(void *object, size_t n, const char *str)
62 strncat(object, str, n);
66 * append a char to a file
68 static void file_append_char(void *object, size_t n, char ch)
74 * append a string to a file
76 static void file_append_str(void *object, size_t n, const char *str)
84 static const appender_t file_appender = {
90 * the string buffer appender
92 static const appender_t str_appender = {
97 static void ir_common_vprintf(const appender_t *app, void *object,
98 size_t limit, const char *fmt, va_list args);
100 static INLINE void ir_common_printf(const appender_t *app, void *object,
101 size_t limit, const char *fmt, ...)
106 ir_common_vprintf(app, object, limit, fmt, args);
111 static int is_std_fmt(const char *fmt)
113 static const char *fmt_re_str =
114 "^[0 -+#']?[1-9]*(\\.[1-9]*)?[hlLqjzt]?[diouxXeEfFgGaAc]";
116 static regex_t fmt_re;
117 static int preapred_re = 0;
123 int res = regcomp(&fmt_re, fmt_re_str, REG_EXTENDED);
124 assert(res == 0 && "Could not prepare regex");
128 res = regexec(&fmt_re, fmt, 1, &match[0], 0);
133 regerror(res, &fmt_re, buf, sizeof(buf));
137 printf("res: %d, start: %d, end: %d\n",
138 res, match[0].rm_so, match[0].rm_eo);
141 return res == 0 ? match[0].rm_eo : -1;
153 #define MIN(x,y) ((x) < (y) ? (x) : (y))
154 #define MAX(x,y) ((x) > (y) ? (x) : (y))
157 static void dump_with_settings(const appender_t *app, void *object, size_t limit,
158 const struct settings *settings, const char *str)
160 if(settings->width >= 0) {
162 size_t n = strlen(str);
163 int lim = MIN(settings->width, limit);
164 int to_print = MIN(lim, n);
165 int to_pad = to_print - lim;
167 if(!settings->left_just)
168 for(i = 0; i < to_pad; ++i)
169 app->append_char(object, lim, settings->pad);
171 app->append_str(object, to_print, str);
173 if(!settings->left_just)
174 for(i = 0; i < to_pad; ++i)
175 app->append_char(object, lim, settings->pad);
179 app->append_str(object, limit, str);
184 /* Length specifiers. */
195 * A small printf helper routine for ir nodes.
196 * @param app An appender (this determines where the stuff is dumped
198 * @param object A target passed to the appender.
199 * @param limit The maximum number of characters to dump.
200 * @param fmt The format string.
201 * @param args A va_list.
203 static void ir_common_vprintf(const appender_t *app, void *object,
204 size_t limit, const char *fmt, va_list args)
210 #define DUMP_STR(s) app->append_str(object, limit, s)
211 #define DUMP_CH(ch) app->append_char(object, limit, ch)
213 for(i = 0, n = strlen(fmt); i < n; ++i) {
218 const char *len_str = "";
220 struct settings settings;
222 settings.alternate = 0;
225 settings.left_just = 0;
226 settings.put_plus = 0;
230 /* Clear the temporary buffer */
233 /* Set the string to print to the buffer by default. */
236 while(strchr("#0-+", ch)) {
239 settings.alternate = 1;
245 settings.left_just = 1;
248 settings.put_plus = 1;
256 /* Read the field width */
261 settings.width = (int) strtol(&fmt[i], &endptr, 10);
262 increase = (char *) endptr - &fmt[i];
263 ch = fmt[i += increase];
268 /* Ignore the precision */
270 while(isdigit(ch = fmt[++i]));
272 /* read the length modifier. */
277 if((ch = fmt[++i]) == 'h') {
286 if((ch = fmt[++i]) == 'l') {
296 /* Do the conversion specifier. */
299 /* The percent itself */
306 buf[0] = va_arg(args, int);
311 str = va_arg(args, const char *);
315 snprintf(buf, sizeof(buf), "%p", va_arg(args, void *));
324 snprintf(fmt_str, sizeof(fmt_str), "%%%s%c", len_str, ch);
325 vsnprintf(buf, sizeof(buf), fmt_str, args);
330 str = get_id_str(va_arg(args, ident *));
334 str = get_entity_name(va_arg(args, entity *));
338 str = get_entity_ld_name(va_arg(args, entity *));
342 tarval_snprintf(buf, sizeof(buf), va_arg(args, tarval *));
347 ir_node *irn = va_arg(args, ir_node *);
348 snprintf(buf, sizeof(buf), "%s%s:%ld",
349 get_irn_opname(irn), get_mode_name(get_irn_mode(irn)), get_irn_node_nr(irn));
354 str = get_irn_opname(va_arg(args, ir_node *));
358 snprintf(buf, sizeof(buf), "%ld", get_irn_node_nr(va_arg(args, ir_node *)));
362 str = get_mode_name(va_arg(args, ir_mode *));
366 snprintf(buf, sizeof(buf), "%ld",
367 get_irn_node_nr(get_nodes_block(va_arg(args, ir_node *))));
372 iterator_t *it = va_arg(args, iterator_t *);
373 void *collection = va_arg(args, void *);
375 const char *prefix = "";
376 char format = fmt[++i];
377 ir_printf_cb_t *cb = format == 'C' ? va_arg(args, ir_printf_cb_t *) : NULL;
379 assert(is_iterator(it) && "Pass an iterator interface and the collection");
381 snprintf(buf, sizeof(buf), "%%%c", format);
384 for(curr = it->start(collection); curr; curr = it->next(collection, curr)) {
388 cb(app, object, limit, curr);
390 ir_common_printf(app, object, limit, buf, curr);
394 it->finish(collection, curr);
399 /* clean the buffer again */
404 dump_with_settings(app, object, limit, &settings, str);
416 * Convencience for stdout dumping.
418 void ir_printf(const char *fmt, ...)
422 ir_common_vprintf(&file_appender, stdout, 0, fmt, args);
427 * Convencience for file dumping.
429 void ir_fprintf(FILE *f, const char *fmt, ...)
433 ir_common_vprintf(&file_appender, f, 0, fmt, args);
438 * Convencience for string dumping.
440 void ir_snprintf(char *buf, size_t len, const char *fmt, ...)
444 ir_common_vprintf(&str_appender, buf, len, fmt, args);