+ textures_used="$textures_used$LF$2"
+
+ # TODO 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_}
+ case "$2" in
+ "$pre"/map/*)
+ ;;
+ *)
+ echo "(EE) texture $2 of shader $1 is out of place, recommended file name is $pre/map_$suf"
+ ;;
+ 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/*)
+ case "$2" in
+ "$1")
+ # 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 or textures/common/*/*"
+ ;;
+ 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" self
+ while read L A1; do
+ case "$L" in
+ qer_editorimage\ *)
+ use_texture "$parsing_shader" "$A1" editorimage
+ ;;
+ '{')
+ parse_shaderstage
+ ;;
+ '}')
+ break
+ ;;
+ *)
+ ;;
+ esac
+ done
+}
+
+parse_shaderfile()
+{
+ while read L; do
+ case "$L" in
+ textures/*)
+ 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 < "$t"
+done
+rm -f "$t"
+
+textures_avail=`( cd ..; find textures/ -type f -not -name '*_norm.*' -not -name '*_glow.*' -not -name '*_gloss.*' ) | 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