32 lines
476 B
Awk
32 lines
476 B
Awk
BEGIN {
|
|
FS = "\t"
|
|
}
|
|
|
|
!(FILENAME ~ /mtg-data/) {
|
|
impl[$1] = 0
|
|
next
|
|
}
|
|
|
|
FILENAME ~ /mtg-data/ {
|
|
name = $1
|
|
if (name in impl) {
|
|
found[name] = 1
|
|
print name
|
|
while ($0 != "") {
|
|
getline
|
|
gsub(name,"@")
|
|
print $0
|
|
}
|
|
cnt++
|
|
}
|
|
}
|
|
|
|
END {
|
|
print "found " cnt " card" > "/dev/stderr"
|
|
for (i in impl) {
|
|
if (!(i in found)) {
|
|
print i " not found" > "/dev/stderr"
|
|
}
|
|
}
|
|
}
|