1 files changed, 34 insertions, 0 deletions
diff --git a/src/cmd/tcs/font/kmap.c b/src/cmd/tcs/font/kmap.c
new file mode 100644
index 00000000..3266ed41
--- /dev/null
+++ b/src/cmd/tcs/font/kmap.c
@@ -0,0 +1,34 @@
+#include	<u.h>
+#include	<libc.h>
+#include	<bio.h>
+#include	<libg.h>
+#include	"hdr.h"
+#include	"../kuten208.h"
+
+/*
+	map: put kuten for runes from..to into chars
+*/
+
+void
+kmap(int from, int to, long *chars)
+{
+	long *l, *ll;
+	int k, k1, n;
+
+	for(n = from; n <= to; n++)
+		chars[n-from] = 0;
+	for(l = tabkuten208, ll = tabkuten208+KUTEN208MAX; l < ll; l++)
+		if((*l >= from) && (*l <= to))
+			chars[*l-from] = l-tabkuten208;
+	k = 0;
+	k1 = 0;		/* not necessary; just shuts ken up */
+	for(n = from; n <= to; n++)
+		if(chars[n-from] == 0){
+			k++;
+			k1 = n;
+		}
+	if(k){
+		fprint(2, "%s: %d/%d chars found (missing include 0x%x=%d)\n", argv0, (to-from+1-k), to-from+1, k1, k1);
+		/*exits("map problem");/**/
+	}
+}