From c94646172c399b31bfc70676feefb90a08c52850 Mon Sep 17 00:00:00 2001
From: David Boddie <david@boddie.org.uk>
Date: Sun, 19 Mar 2023 02:03:31 +0100
Subject: Added a variant of data2s that puts data in the text section.

---
 utils/data2texts/data2texts.c | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 utils/data2texts/data2texts.c

(limited to 'utils/data2texts/data2texts.c')

diff --git a/utils/data2texts/data2texts.c b/utils/data2texts/data2texts.c
new file mode 100644
index 00000000..7a7f9cb3
--- /dev/null
+++ b/utils/data2texts/data2texts.c
@@ -0,0 +1,28 @@
+#include <lib9.h>
+#include <bio.h>
+
+void
+main(int argc, char *argv[])
+{
+	Biobuf bin, bout;
+	long len;
+	int n;
+	uchar block[4];
+
+	if(argc != 2){
+		fprint(2, "usage: data2texts name\n");
+		exits("usage");
+	}
+	setbinmode();
+	Binit(&bin, 0, OREAD);
+	Binit(&bout, 1, OWRITE);
+        Bprint(&bout, "TEXT %scode(SB), 0, $-4\n", argv[1]);
+	for(len=0; (n=Bread(&bin, block, sizeof(block))) > 0; len += n){
+
+                ulong w = *(ulong *)block;
+	        Bprint(&bout, "WORD $0x%08ux\n", w);
+	}
+	Bprint(&bout, "TEXT %slen(SB), 0, $-4\n", argv[1]);
+	Bprint(&bout, "WORD $%ld\n", len);
+	exits(0);
+}
-- 
cgit v1.2.3