#!/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