#include "irmode_t.h"
#include "irnode_t.h"
#include "entity_t.h"
+#include "type_t.h"
#include "tv.h"
#include "irprintf.h"
+#include "obst.h"
#include "pset.h"
#include "iterator.h"
#include "bitset.h"
fputs(str, object);
}
+/**
+ * Init the obstack. i.e. do nothing.
+ */
+static void obst_init(void *object, size_t n)
+{
+}
+
+/**
+ * append a char to a obstack.
+ */
+static void obst_append_char(void *object, size_t n, char ch)
+{
+ struct obstack *obst = object;
+ obstack_1grow(obst, ch);
+}
+
+/**
+ * append a string to a obstack.
+ */
+static void obst_append_str(void *object, size_t n, const char *str)
+{
+ struct obstack *obst = object;
+ obstack_grow(obst, str, strlen(str));
+}
+
+
/**
* the file appender
*/
str_append_str
};
+/**
+ * the obstack appender.
+ */
+static const appender_t obst_appender = {
+ obst_init,
+ obst_append_char,
+ obst_append_str
+};
+
static void ir_common_vprintf(const appender_t *app, void *object,
size_t limit, const char *fmt, va_list args);
str = get_id_str(va_arg(args, ident *));
break;
+ case 't':
+ str = get_type_name(va_arg(args, type *));
+ break;
+
case 'e':
str = get_entity_name(va_arg(args, entity *));
break;
str = get_entity_ld_name(va_arg(args, entity *));
break;
- case 't':
+ case 'T':
tarval_snprintf(buf, sizeof(buf), va_arg(args, tarval *));
break;
ir_common_vprintf(&str_appender, buf, len, fmt, args);
va_end(args);
}
+
+/**
+ * Convencience for string dumping.
+ */
+void ir_obst_printf(struct obstack *obst, const char *fmt, ...)
+{
+ va_list args;
+ va_start(args, fmt);
+ ir_common_vprintf(&obst_appender, obst, 0, fmt, args);
+ va_end(args);
+}
+
+void ir_vprintf(const char *fmt, va_list args)
+{
+ ir_common_vprintf(&file_appender, stdout, 0, fmt, args);
+}
+
+void ir_vfprintf(FILE *f, const char *fmt, va_list args)
+{
+ ir_common_vprintf(&file_appender, f, 0, fmt, args);
+}
+
+void ir_vsnprintf(char *buf, size_t len, const char *fmt, va_list args)
+{
+ ir_common_vprintf(&str_appender, buf, len, fmt, args);
+}
+
+void ir_obst_vprintf(struct obstack *obst, const char *fmt, va_list args)
+{
+ ir_common_vprintf(&obst_appender, obst, 0, fmt, args);
+}
#define _IRPRINTF_H
#include <stddef.h>
+#include <stdarg.h>
#include <stdio.h>
+#include <obstack.h>
/**
* Something that can append strings and chars to something.
* - @%p A pointer.
* - @%s A string.
* - @%I An ident.
+ * - @%t A type name.
* - @%e An entity name.
- * - @%E An entity ld_name.
+ * - @%E An entity ld name.
* - @%n A full description of a node.
* - @%O The opcode name of an ir node.
* - @%m The mode name of an ir mode.
* - @%N The node number of an ir node.
* - @%B The block node number of the nodes block.
* - @%b A bitset.
- * - @%t A tarval.
+ * - @%T A tarval.
*
* Each of these can be prepended by a '+' which means, that the given
* pointer is a collection of items specified by the format. In this
* @code
* pset *nodes;
* ...
- * ir_printf("Some nodes: %+n\n", it_pset, nodes);
+ * ir_printf("Some nodes: %*n\n", it_pset, nodes);
* @endcode
* The @c it_pset is an iterator interface (of type
* @c iterator_t that allows the dumper to traverse the set.
* ...
* pset *xyzs;
*
- * ir_printf("A set of xyz\'s: %+C\n", it_pset, xyzs, xyz_dump);
+ * ir_printf("A set of xyz\'s: %*C\n", it_pset, xyzs, xyz_dump);
* @endcode
*
* @param fmt The format string.
*/
void ir_snprintf(char *buf, size_t n, const char *fmt, ...);
+/**
+ * @see irn_printf.
+ */
+void ir_vprintf(const char *fmt, va_list args);
+
+/**
+ * @see irn_printf.
+ */
+void ir_vfprintf(FILE *f, const char *fmt, va_list args);
+
+/**
+ * @see irn_printf.
+ */
+void ir_vsnprintf(char *buf, size_t len, const char *fmt, va_list args);
+
+/**
+ * @see irn_printf.
+ */
+void ir_obst_vprintf(struct obstack *obst, const char *fmt, va_list args);
#endif