X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fir%2Firprintf.c;h=5b288f53bb2200894ec566bfeb1d712e67a60178;hb=41eca21e7add2e4f30f14c46600a23839852b3fc;hp=fc9e58f63c782010cf43712700df199d005ca3c8;hpb=a855b8f68c97cf18d2c7308bbc6157be9b72096f;p=libfirm diff --git a/ir/ir/irprintf.c b/ir/ir/irprintf.c index fc9e58f63..5b288f53b 100644 --- a/ir/ir/irprintf.c +++ b/ir/ir/irprintf.c @@ -1,445 +1,217 @@ /* - * Project: libFIRM - * File name: ir/ir/irprintf.c - * Purpose: A little printf helper unterstanding firm types - * Author: Sebastian Hack - * Created: 29.11.2004 - * CVS-ID: $Id$ - * Copyright: (c) 1998-2004 Universität Karlsruhe - * Licence: This file protected by GPL - GNU GENERAL PUBLIC LICENSE. + * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved. + * + * This file is part of libFirm. + * + * This file may be distributed and/or modified under the terms of the + * GNU General Public License version 2 as published by the Free Software + * Foundation and appearing in the file LICENSE.GPL included in the + * packaging of this file. + * + * Licensees holding valid libFirm Professional Edition licenses may use + * this file in accordance with the libFirm Commercial License. + * Agreement provided with the Software. + * + * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE + * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR + * PURPOSE. */ /** - * @file irprinf.c - * - * A little printf helper unterstanding firm types. - * @author Sebastian Hack - * @date 29.11.2004 + * @file + * @brief A little printf helper unterstanding firm types + * @author Sebastian Hack + * @date 29.11.2004 + * @version $Id$ */ - -#ifdef HAVE_CONFIG_H #include "config.h" + +#include +#ifdef HAVE_INTTYPES_H +#include #endif +#include #include #include -#ifdef HAVE_STRING_H -#include -#endif - #include #include "ident.h" #include "irmode_t.h" #include "irnode_t.h" #include "entity_t.h" -#include "tv.h" +#include "type_t.h" +#include "tv_t.h" #include "irprintf.h" +#include "obst.h" #include "pset.h" #include "iterator.h" +#include "bitset.h" +#include "dbginfo_t.h" +#define STRNIL "(nil)" /** - * append a char to a string buffer + * Init the string. + */ +static void str_init(void *object, size_t n) +{ + (void) n; + strcpy(object, ""); +} + +/** + * append a char to a string buffer. */ static void str_append_char(void *object, size_t n, char ch) { - char buf[2]; + char buf[2]; - buf[0] = ch; - buf[1] = 0; + buf[0] = ch; + buf[1] = 0; - strncat(object, buf, n); + strncat(object, buf, n); } /** - * append a string to a string buffer + * append a string to a string buffer. */ static void str_append_str(void *object, size_t n, const char *str) { - strncat(object, str, n); + strncat(object, str, n); +} + + +/** + * Init the file. i.e. do nothing. + */ +static void file_init(void *object, size_t n) +{ + (void) object; + (void) n; } /** - * append a char to a file + * append a char to a file. */ static void file_append_char(void *object, size_t n, char ch) { + (void) n; fputc(ch, object); } /** - * append a string to a file + * append a string to a file. */ static void file_append_str(void *object, size_t n, const char *str) { - fputs(str, object); + (void) n; + fputs(str, object); } /** - * the file appender + * Init the obstack. i.e. do nothing. */ -static const appender_t file_appender = { - file_append_char, - file_append_str -}; +static void obst_init(void *object, size_t n) +{ + (void) object; + (void) n; +} /** - * the string buffer appender + * append a char to a obstack. */ -static const appender_t str_appender = { - str_append_char, - str_append_str -}; - -static void ir_common_vprintf(const appender_t *app, void *object, - size_t limit, const char *fmt, va_list args); - -static INLINE void ir_common_printf(const appender_t *app, void *object, - size_t limit, const char *fmt, ...) +static void obst_append_char(void *object, size_t n, char ch) { - va_list args; - - va_start(args, fmt); - ir_common_vprintf(app, object, limit, fmt, args); - va_end(args); + struct obstack *obst = object; + (void) n; + obstack_1grow(obst, ch); } -#if 0 -static int is_std_fmt(const char *fmt) -{ - static const char *fmt_re_str = - "^[0 -+#']?[1-9]*(\\.[1-9]*)?[hlLqjzt]?[diouxXeEfFgGaAc]"; - - static regex_t fmt_re; - static int preapred_re = 0; - - regmatch_t match[1]; - int res; - - if(!preapred_re) { - int res = regcomp(&fmt_re, fmt_re_str, REG_EXTENDED); - assert(res == 0 && "Could not prepare regex"); - preapred_re = 1; - } - - res = regexec(&fmt_re, fmt, 1, &match[0], 0); - -#if 0 - if(res != 0) { - char buf[256]; - regerror(res, &fmt_re, buf, sizeof(buf)); - printf("%s ", buf); - } - - printf("res: %d, start: %d, end: %d\n", - res, match[0].rm_so, match[0].rm_eo); -#endif - - return res == 0 ? match[0].rm_eo : -1; -} -#endif - -struct settings { - char pad; - int width; - int left_just; - int put_plus; - int alternate; -}; - -#define MIN(x,y) ((x) < (y) ? (x) : (y)) -#define MAX(x,y) ((x) > (y) ? (x) : (y)) - - -static void dump_with_settings(const appender_t *app, void *object, size_t limit, - const struct settings *settings, const char *str) +/** + * append a string to a obstack. + */ +static void obst_append_str(void *object, size_t n, const char *str) { - if(settings->width >= 0) { - int i; - size_t n = strlen(str); - int lim = MIN(settings->width, limit); - int to_print = MIN(lim, n); - int to_pad = to_print - lim; - - if(!settings->left_just) - for(i = 0; i < to_pad; ++i) - app->append_char(object, lim, settings->pad); - - app->append_str(object, to_print, str); - - if(!settings->left_just) - for(i = 0; i < to_pad; ++i) - app->append_char(object, lim, settings->pad); - } - - else - app->append_str(object, limit, str); + struct obstack *obst = object; + (void) n; + obstack_grow(obst, str, strlen(str)); } - -/* Length specifiers. */ -enum { - len_char, - len_short, - len_int, - len_long, - len_long_long +/** + * the file appender + */ +static const appender_t file_appender = { + file_init, + file_append_char, + file_append_str }; - /** - * A small printf helper routine for ir nodes. - * @param app An appender (this determines where the stuff is dumped - * to). - * @param object A target passed to the appender. - * @param limit The maximum number of characters to dump. - * @param fmt The format string. - * @param args A va_list. + * the string buffer appender */ -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 -} +static const appender_t str_appender = { + str_init, + str_append_char, + str_append_str +}; /** - * Convencience for stdout dumping. + * the obstack appender. */ +static const appender_t obst_appender = { + obst_init, + obst_append_char, + obst_append_str +}; + +#include "irargs_t.h" + void ir_printf(const char *fmt, ...) { va_list args; + va_start(args, fmt); - ir_common_vprintf(&file_appender, stdout, 0, fmt, args); + lc_evprintf(firm_get_arg_env(), fmt, args); va_end(args); } -/** - * Convencience for file dumping. - */ void ir_fprintf(FILE *f, const char *fmt, ...) { va_list args; + va_start(args, fmt); - ir_common_vprintf(&file_appender, f, 0, fmt, args); + lc_evfprintf(firm_get_arg_env(), f, fmt, args); va_end(args); } -/** - * Convencience for string dumping. - */ -void ir_snprintf(char *buf, size_t len, const char *fmt, ...) +void ir_snprintf(char *buf, size_t n, const char *fmt, ...) { va_list args; + va_start(args, fmt); - ir_common_vprintf(&str_appender, buf, len, fmt, args); + lc_evsnprintf(firm_get_arg_env(), buf, n, fmt, args); va_end(args); } + +void ir_vprintf(const char *fmt, va_list args) +{ + lc_evprintf(firm_get_arg_env(), fmt, args); +} + +void ir_vfprintf(FILE *f, const char *fmt, va_list args) +{ + lc_evfprintf(firm_get_arg_env(), f, fmt, args); +} + +void ir_vsnprintf(char *buf, size_t len, const char *fmt, va_list args) +{ + lc_evsnprintf(firm_get_arg_env(), buf, len, fmt, args); +} + +void ir_obst_vprintf(struct obstack *obst, const char *fmt, va_list args) +{ + lc_evoprintf(firm_get_arg_env(), obst, fmt, args); +}