+/*
+ * 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"
+#ifdef HAVE_STRING_H
+#include <string.h>
+#endif
+#ifdef HAVE_INTTYPES_H
+#include <inttypes.h>
+#endif
+
+#include <stdlib.h>
#include <stdio.h>
#include <stdarg.h>
-#include <string.h>
-#include "irmode.h"
-#include "irnode.h"
-#include "tv.h"
+#include <ctype.h>
+
+#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);
+}
projects / libfirm / blobdiff