Add function that can debugprint the PostScript stack.

1 files changed, 31 insertions, 0 deletions

diff --git a/mupdf/pdf_function.c b/mupdf/pdf_function.c
index 927e6c91..c31fec25 100644
--- a/mupdf/pdf_function.c
+++ b/mupdf/pdf_function.c
@@ -118,6 +118,37 @@ struct psstack_s
 	int sp;
 };
 
+void
+pdf_debugpsstack(psstack *st)
+{
+	int i;
+
+	printf("stack: ");
+
+	for (i = PSSTACKSIZE - 1; i >= st->sp; i--)
+	{
+		switch (st->stack[i].type)
+		{
+		case PSBOOL:
+			if (st->stack[i].u.b)
+				printf("true ");
+			else
+				printf("false ");
+			break;
+
+		case PSINT:
+			printf("%d ", st->stack[i].u.i);
+			break;
+
+		case PSREAL:
+			printf("%g ", st->stack[i].u.f);
+			break;
+		}
+	}
+	printf("\n");
+
+}
+
 static void
 psinitstack(psstack *st)
 {