#!/usr/bin/awk -f

BEGIN {
	s=0
}

/	$/ {
	f="%s:%d:%d: Trailing tabs detected\n"
	match($0, /[^	]	+$/)
	printf f, FILENAME, FNR, RSTART+1 | "cat 1>&2"
	s=1
}

/ $/ {
	f="%s:%d:%d: Trailing spaces detected\n"
	match($0, /[^ ] +$/)
	printf f, FILENAME, FNR, RSTART+1 | "cat 1>&2"
	s=1
}

END {
	exit s
}