From ace7902333b6f61aab5a6035dbcb222763bff186 Mon Sep 17 00:00:00 2001
From: marha <marha@users.sourceforge.net>
Date: Fri, 6 Nov 2009 06:59:46 +0000
Subject: Added libXaw-1.0.7

---
 libXaw/spec/block.awk | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 libXaw/spec/block.awk

(limited to 'libXaw/spec/block.awk')

diff --git a/libXaw/spec/block.awk b/libXaw/spec/block.awk
new file mode 100644
index 000000000..0dd75f3f7
--- /dev/null
+++ b/libXaw/spec/block.awk
@@ -0,0 +1,22 @@
+BEGIN {
+	firstchar = "@";
+	a["a"] = "A"; a["b"] = "B"; a["c"] = "C";
+	a["d"] = "D"; a["e"] = "E"; a["f"] = "F";
+	a["g"] = "G"; a["h"] = "H"; a["i"] = "I";
+	a["j"] = "J"; a["k"] = "K"; a["l"] = "L";
+	a["m"] = "M"; a["n"] = "N"; a["o"] = "O";
+	a["p"] = "P"; a["q"] = "Q"; a["r"] = "R";
+	a["s"] = "S"; a["t"] = "T"; a["u"] = "U";
+	a["v"] = "V"; a["w"] = "W"; a["x"] = "X";
+	a["y"] = "Y"; a["z"] = "Z";
+}
+
+{
+	c = substr($2,2,1);
+	if (c >= "a" && c <= "z")
+		c = a[c];
+	if (c != firstchar)
+		printf(".LB %s\n", c);
+	firstchar = c;
+	print;
+}
-- 
cgit v1.2.3