X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fir%2Firprintf.c;h=5b288f53bb2200894ec566bfeb1d712e67a60178;hb=f250d98f949371038744bd320096fa98f4b218fe;hp=c610b379edd2d52cb5e8c93cd76839433bd4c2af;hpb=5e81570b16fb7fe35f4f1fcca6b14fdf308780e6;p=libfirm diff --git a/ir/ir/irprintf.c b/ir/ir/irprintf.c index c610b379e..5b288f53b 100644 --- a/ir/ir/irprintf.c +++ b/ir/ir/irprintf.c @@ -1,173 +1,217 @@ +/* + * 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. + */ + /** - * A little printf helper funterstanding 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$ */ +#include "config.h" +#include +#ifdef HAVE_INTTYPES_H +#include +#endif + +#include #include #include -#include -#include "irmode.h" -#include "irnode.h" -#include "tv.h" +#include + +#include "ident.h" +#include "irmode_t.h" +#include "irnode_t.h" +#include "entity_t.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)" /** - * Something that can append strings and chars to somewhere. + * Init the string. */ -typedef struct _appender_t { - void (*append_char)(void *subject, size_t n, char ch); - void (*append_str)(void *subject, size_t n, const char *str); -} appender_t; +static void str_init(void *object, size_t n) +{ + (void) n; + strcpy(object, ""); +} -static void str_append_char(void *subject, size_t n, char ch) +/** + * 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(subject, buf, n); + strncat(object, buf, n); } -static void str_append_str(void *subject, size_t n, const char *str) +/** + * append a string to a string buffer. + */ +static void str_append_str(void *object, size_t n, const char *str) { - strncat(subject, str, n); + strncat(object, str, n); } -static void file_append_char(void *subject, size_t n, char ch) + +/** + * Init the file. i.e. do nothing. + */ +static void file_init(void *object, size_t n) { - fputc(ch, subject); + (void) object; + (void) n; } -static void file_append_str(void *subject, size_t n, const char *str) +/** + * append a char to a file. + */ +static void file_append_char(void *object, size_t n, char ch) { - fputs(str, subject); + (void) n; + fputc(ch, object); } -static const appender_t file_appender = { - file_append_char, - file_append_str -}; - -static const appender_t str_appender = { - str_append_char, - str_append_str -}; - - /** - * A small printf helper routine for ir nodes. - * @param app An appender (this determines where the stuff is dumped - * to). - * @param subject 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. + * append a string to a file. */ -static void ir_common_vprintf(const appender_t *app, void *subject, - size_t limit, const char *fmt, va_list args) +static void file_append_str(void *object, size_t n, const char *str) { - 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; + (void) n; + fputs(str, object); +} - case 'n': - snprintf(buf, sizeof(buf), "%ld", get_irn_node_nr(va_arg(args, ir_node *))); - break; +/** + * Init the obstack. i.e. do nothing. + */ +static void obst_init(void *object, size_t n) +{ + (void) object; + (void) n; +} - case 'm': - DUMP_STR(get_mode_name(va_arg(args, ir_mode *))); - break; +/** + * append a char to a obstack. + */ +static void obst_append_char(void *object, size_t n, char ch) +{ + struct obstack *obst = object; + (void) n; + obstack_1grow(obst, ch); +} - case 'b': - snprintf(buf, sizeof(buf), "%ld", - get_irn_node_nr(get_nodes_block(va_arg(args, ir_node *)))); - break; - } +/** + * append a string to a obstack. + */ +static void obst_append_str(void *object, size_t n, const char *str) +{ + struct obstack *obst = object; + (void) n; + obstack_grow(obst, str, strlen(str)); +} - /* Dump the temporary buffer, if something is in it. */ - if(buf[0] != '\0') - DUMP_STR(buf); - } - else - DUMP_CH(ch); - } +/** + * the file appender + */ +static const appender_t file_appender = { + file_init, + file_append_char, + file_append_str +}; -#undef DUMP_STR -#undef DUMP_CH -} +/** + * the string buffer appender + */ +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); +}