From 1d7eccb06b61f239b9671617488f33910286f0f1 Mon Sep 17 00:00:00 2001
From: Werner Almesberger <werner@almesberger.net>
Date: Sat, 15 Feb 2014 18:08:26 -0300
Subject: [PATCH] dump.c: add dumping of %iprint

---
 dump.c      |  9 +++++++--
 test/iprint | 15 +++++++++++++++
 2 files changed, 22 insertions(+), 2 deletions(-)

diff --git a/dump.c b/dump.c
index 26f96f4..3c23415 100644
--- a/dump.c
+++ b/dump.c
@@ -1,8 +1,8 @@
 /*
  * dump.c - Dump objects in the native FPD format
  *
- * Written 2009-2012 by Werner Almesberger
- * Copyright 2009-2012 by Werner Almesberger
+ * Written 2009-2012, 2014 by Werner Almesberger
+ * Copyright 2009-2012, 2014 by Werner Almesberger
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -383,6 +383,11 @@ char *print_obj(const struct obj *obj, const struct vec *prev)
 		}
 		free(s2);
 		break;
+	case ot_iprint:
+		s2 = unparse(obj->u.iprint.expr);
+		s = stralloc_printf("%%iprint %s", s2);
+		free(s2);
+		break;
 	default:
 		abort();
 	}
diff --git a/test/iprint b/test/iprint
index 84c1ca2..65c16d4 100755
--- a/test/iprint
+++ b/test/iprint
@@ -98,4 +98,19 @@ expect <<EOF
 undefined variable "foo"
 EOF
 
+#------------------------------------------------------------------------------
+
+fped_dump "iprint: dump" <<EOF
+%iprint 42
+EOF
+expect <<EOF
+42
+/* MACHINE-GENERATED ! */
+
+package "_"
+unit mm
+
+%iprint 42
+EOF
+
 ###############################################################################