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 ++++++++++++++++++++++++++++
 utils/data2texts/mkfile       | 13 +++++++++++++
 2 files changed, 41 insertions(+)
 create mode 100644 utils/data2texts/data2texts.c
 create mode 100644 utils/data2texts/mkfile

(limited to 'utils')

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);
+}
diff --git a/utils/data2texts/mkfile b/utils/data2texts/mkfile
new file mode 100644
index 00000000..179e1e43
--- /dev/null
+++ b/utils/data2texts/mkfile
@@ -0,0 +1,13 @@
+<../../mkconfig
+
+TARG=data2texts
+
+OFILES=	data2texts.$O\
+
+HFILES=../../include/bio.h
+
+LIBS=bio 9			#order matters
+
+BIN=$ROOT/$OBJDIR/bin
+
+<$ROOT/mkfiles/mkone-$SHELLTYPE
-- 
cgit v1.2.3