#!/bin/sh

LF="
"

normalize()
{
	echo "$1" | sed 's/\.\(tga\|jpg\|png\)$//'
}

allowed_prefixes=
forbidden_prefixes=

textures_used=
# $1 = shader
# $2 = texture
# $3 = shader | map | animmap | editorimage | sky
use_texture()
{
	# does texture exist?
	if \
		[ -f "../$2.tga" ] || \
		[ -f "../$2.jpg" ] || \
		[ -f "../$2.png" ]; then
		:
	else
		if [ "$3" = "shader" ]; then
			return
		else
			echo "(EE) shader $1 uses non-existing texture $2"
		fi
	fi
	textures_used="$textures_used$LF$2"

	if [ -n "$allowed_prefixes" ]; then
		ok=false
		for p in $allowed_prefixes; do
			case "$1:" in
				"$p"*)
					ok=true
					;;
			esac
		done
	else
		ok=true
	fi
	for p in $forbidden_prefixes; do
		case "$1:" in
			"$p"*)
				ok=false
				;;
		esac
	done
	if ! $ok; then
		echo "(EE) shader $1 is not allowed in this shader file (allowed: $allowed_prefixes, forbidden: $forbidden_prefixes)"
	fi

	case "$3" in
		sky)
			case "$2" in
				env/*)
					;;
				*)
					echo "(EE) texture $2 of shader $1 is out of place, $3 textures must be in env/"
					;;
			esac
			;;
		*)
			case "$2" in
				env/*)
					echo "(EE) texture $2 of shader $1 is out of place, $3 textures must not be in env/"
					;;
				*)
					;;
			esac
			;;
	esac

	# verify shader -> texture name
	case "$1" in
		textures/*x/*-*)
			pre=${1%%x/*}x
			suf=${1#*x/}
			# rule: in suffix part, change each - to /
			suf="`echo "$suf" | sed 's,-,/,g'`"
			case "$2" in
				"$pre"/*/*)
					;;
				*)
					echo "(EE) texture $2 of shader $1 is out of place, recommended file name is $pre/$suf"
					;;
			esac
			;;
		textures/*x/*)
			pre=${1%%x/*}x
			suf=${1#*x/}
			case "$2" in
				"$pre"/*/*)
					;;
				*)
					echo "(EE) texture $2 of shader $1 is out of place, recommended file name is $pre/base/$suf"
					;;
			esac
			;;
		textures/map_*/*)
			pre=${1%%/map_*}
			suf=${1#*/map_}
			map=${suf%%[_/]*}
			case "$2" in
				"$pre"/map_$map[/_]*)
					;;
				*)
					echo "(EE) texture $2 of shader $1 is out of place, recommended file name is $pre/map_$map/*"
					;;
			esac
			;;
		textures/common/*)
			case "$2" in
				"$1")
					;;
				textures/common/*/*)
					;;
				*)
					echo "(EE) texture $2 of shader $1 is out of place, recommended file name is $1 or textures/common/*/*"
					;;
			esac
			;;
		textures/decals/*|textures/liquids/water/*|textures/liquids/slime/*|textures/liquids/lava/*|textures/warpzone/*)
			prefix=${1%%_*}
			case "$2" in
				"$prefix"_*|"$prefix")
					# I _suppose_ this is fine, as tZork committed this pack
					;;
				*)
					echo "(EE) texture $2 of shader $1 is out of place, recommended file name is $1"
					;;
			esac
			;;
		textures/skies/*)
			sky=${1#textures/skies/}
			sky=${sky%%_*}
			case "$2" in
				"$1")
					# typical place for preview image
					;;
				env/$sky[/_]*)
					# typical place for skybox
					;;
				*)
					echo "(EE) texture $2 of shader $1 is out of place, recommended file name is $1"
					;;
			esac
			;;
		models/*)
			case "$2" in
				models/*)
					;;
				*)
					echo "(EE) texture $2 of shader $1 is out of place, recommended file name is $1 or models/*"
					;;
			esac
			;;
		*)
			echo "(EE) no shader name pattern for $1"
			;;
	esac
}

parsing_shader=
parse_shaderstage()
{
	while read L A1 A2 Aother; do
		case "$L" in
			map)
				case "$A1" in
					'$lightmap')
						;;
					*)
						use_texture "$parsing_shader" "`normalize "$A1"`" map
						;;
				esac
				;;
			animmap)
				for X in $A2 $Aother; do
					use_texture "$parsing_shader" "`normalize "$X"`" animmap
				done
				;;
			'}')
				break
				;;
			*)
				;;
		esac
	done
}

parse_shader()
{
	use_texture "$parsing_shader" "$parsing_shader" shader
	while read L A1; do
		case "$L" in
			qer_editorimage\ *)
				use_texture "$parsing_shader" "$A1" editorimage
				;;
			skyparms\ *)
				use_texture "$parsing_shader" "$A1" sky
				;;
			'{')
				parse_shaderstage
				;;
			'}')
				break
				;;
			*)
				;;
		esac
	done
}

parse_shaderfile()
{
	case "$1" in
		map_*)
			allowed_prefixes="textures/map_`echo "$1" | cut -d _ -f 2`_ textures/map_`echo "$1" | cut -d - -f 2`/"
			forbidden_prefixes=
			;;
		skies_*)
			allowed_prefixes="textures/skies/`echo "$1" | cut -d _ -f 2`: textures/skies/`echo "$1" | cut -d _ -f 2`_"
			forbidden_prefixes=
			;;
		*)
			allowed_prefixes=
			forbidden_prefixes="textures/skies/ textures/map_"
			;;
	esac
	while read L; do
		case "$L" in
			*/*)
				parsing_shader="`normalize "$L"`"
				if [ x"$L" != x"$parsing_shader" ]; then
					echo "(WW) normalized shader name $L to $parsing_shader"
				fi
				;;
			'{')
				parse_shader
				;;
			*)
				;;
		esac
	done
}

strip_comments()
{
	sed 's,//.*,,g; s,\r, ,g; s,\t, ,g; s,  *, ,g; s, $,,; s,^ ,,; /^$/ d'
}

t=`mktemp`
for X in *.shader; do
	strip_comments < "$X" > "$t"
	parse_shaderfile "${X%.shader}" < "$t"
done
rm -f "$t"

textures_avail=`( cd ..; find textures/ -type f -not -name '*_norm.*' -not -name '*_glow.*' -not -name '*_gloss.*' -not -name '*.xcf' ) | while IFS= read -r T; do normalize "$T"; done | sort -u`
textures_used=`echo "${textures_used#$LF}" | sort -u`

echo "$textures_used$LF$textures_used$LF$textures_avail" | sort | uniq -u | while IFS= read -r L; do
	case "$L" in
		textures/radiant/*)
			;;
		textures/map_*/*)
			;;
		*)
			echo "(EE) texture $L is not referenced by any shader"
			;;
	esac
done