#!/bin/sh

gawk -v CC=$1 '
@include "scripts/getcls.awk"

function hndl(x) {
	if (x == "/")
		return
	if (x ~ /[XO@]/)
		have++
	cnt++
}

BEGIN {
	CC = toupper(CC)
}

FILENAME == "data/coins" && $1 == CC && $2 != "start" {
	split($0, xs)
	for (i = 2; i < length(xs); i++)
		hndl(xs[i])
}

FILENAME == "data/ccs" && $1 == CC {
	gsub(/([A-Z]{2} [0-9]{4}( [A-Za-z]+)?|\t.*)/, " ")
	split($0, xs)
	for (i = 1; i <= length(xs); i++)
		hndl(xs[i])
}

END {
	printf "%d/%d (%d%%)\n", have, cnt, have / cnt * 100
}
' data/coins data/ccs