1 files changed, 56 insertions, 0 deletions
diff --git a/scripts/completion b/scripts/completion
new file mode 100755
index 0000000..0b9881e
--- /dev/null
+++ b/scripts/completion
@@ -0,0 +1,56 @@
+#!/bin/sh
+
+gawk -v CC="$1" -v TYPE="$2" -v MODE="$3" '
+function hndl(x)
+{
+	if (x == "/")
+		return
+	if (x ~ /X/) {
+		have_c++
+		cnt_c++
+	} else if (x ~ /[O@]/) {
+		have_n++
+		cnt_n++
+	} else if (x ~ /[-^]/) {
+		cnt_c++
+	} else if (x ~ /[*%+]/) {
+		cnt_n++
+	} else if (x == "?") {
+		cnt_u++
+	}
+}
+
+function gen(have, cnt)
+{
+	if (cnt == 0)
+		print "N/A"
+	else
+		printf "%d/%d (%d%%)\n", have, cnt, have / cnt * 100
+}
+
+BEGIN {
+	  CC = toupper(CC)
+}
+
+FILENAME == "data/coins" && $1 == CC && TYPE == "s" && $2 != "start" {
+	split($0, xs)
+	for (i = 2; i < length(xs); i++)
+		hndl(xs[i])
+}
+
+FILENAME == "data/ccs" && $1 == CC && TYPE == "c" {
+	gsub(/([A-Z]{2} [0-9]{4} |\t.*)/, " ")
+	split($0, xs)
+	for (i = 1; i <= length(xs); i++)
+		hndl(xs[i])
+}
+
+END {
+	if (MODE == "circ")
+		gen(have_c, cnt_c)
+	else if (MODE == "nifc")
+		gen(have_n, cnt_n)
+	else if (MODE == "comb")
+		gen(have_c + have_n, cnt_c + cnt_n + cnt_u)
+}
+' data/coins data/ccs
+\ No newline at end of file