#!/bin/bash -f -
# jnk  :::  identify or erase useless nib files and plists, etc.
#(c)EF/-HI-2008.Apr.15
IFS=$' \t\n'
PATH=/bin:/usr/bin
export PATH
OWD=$(pwd -P)
PROG=$(basename "$0")
XCOD=0

exit2sh ()
{
	trap '' INT QUIT ABRT TERM HUP
	[[ $1 ]] && (( XCOD+=$1 ))
	if [ $XCOD -ne 0 ]
	then
		s=s; [ $XCOD -eq 1 ] && s=
		printf '\n\e[37;41m %d error%s occurred \e[0m\n' $XCOD "$s" >&2
		[ $XCOD -eq 1 ] && XCOD=2 # exit 1 reserved to mean "got junk"
		[ $XCOD -gt 125 ] && XCOD=125
	fi
	exit $XCOD
}

trap 'printf "\r$PROG: stopping on signal\n" >&2; exit2sh' INT QUIT ABRT TERM
trap 'printf "\e[0m" >&2; stty echo -igncr' EXIT
stty -echo igncr

o=o; [ "$(ls -do)" != '.' ] && o=O
CMMND=/bin/ls\ -AeFGhkl${o}
LNGLS=
ERASE=
FOUND=
USAGE=0
H=Headers
SLIST='	._*
	.svn
	.DS_Store
	info.nib
	classes.nib
	designable.nib
	data.dependency
	pbdevelopment.plist
	Resources Disabled
'

QuitHelp ()
{
	printf '\n\e[7m about: %s \e[0m\n\n' "$PROG" >&2
	printf 'Bash script to list or erase space-wasting nib files, p' >&2
	printf 'lists,\nand misc items *inside* Mac OS X bundles.  More' >&2
	printf ' specifically:\n\n%s\t(framework) %s\n' "$SLIST" $H >&2
	printf '\nUsage:\t\e[1m%s \e[0m [\e[1m-l\e[0m | ' "$PROG" >&2
	printf '\e[1m-E\e[0m]  [\e[4m/folder/path\e[0m  \e[4m...\e[0m]\n' >&2
	printf '\nWith no option, output summarizes the total count and ' >&2
	printf 'size of\nfound items. \e[1m-l\e[0m does a long ls -l ' >&2
	printf 'listing. \e[1m-E\e[0m erases the junk.\n\nexit codes:' >&2
	printf '\n    0       = CLEAN: no junk... or, junk erased without' >&2
	printf ' error.\n    1       = DIRTY: found junk, but *no* errors' >&2
	printf '.\n    2+      = ERROR: at least one error occurred.\n\n' >&2
	exit 2
}

PostErr ()
{
	(( XCOD+=1 ))
	printf '%s:\e[37;41m ERROR \e[0m %s\n' "$PROG" "$1" >&2
}

FlashMess ()
{
	local txt='please wait...'
	[[ $1 ]] && txt=$1
	printf '\e[5m %s \e[1m%s\e[0m\r' "$txt" "$2" >&2
}

ClearMess () { printf '\e[2K\e[0m' >&2; }

ScaleNum ()
{
	echo $1 $2 |
	awk '{	z=length($2)
		if ($1>1048575) { printf("%.3g", $1/1048576)
			if (z>0) print "GB"; else print " gigabytes"
		}
		else if ($1>1023) { printf("%.3g", $1/1024)
			if (z>0) print "MB"; else print " megabytes"
		}
		else { printf("%d", $1)
			if (z>0) print "KB"; else print " kilobytes"
		}
	}'
}

new2null () { echo "$1" |tr '\n' '\000'; }

FindJunk ()
{
	local -i ctr=0 sub=0 tot=0
	FlashMess
	tmp=$(du -sk); (( XCOD+=$? ))
	ClearMess
	local siz=$(echo $tmp |awk '{ print $1 }') j
	IFS=$'\n'
	for j in $SLIST $H
	do
		IFS=$' \t\n'
		local -i c=0
		j=$(echo "$j" |sed 's:^'$'\t''*::')
		FlashMess "looking for" "$j"
		case $j in
		  $H)	FOUND=$(find -xE . -regex '.*/Contents/.*\.framework/.*' \
				-regex ".*/(Private)?$j")
			(( XCOD+=$? ))
			;;
		   *)	FOUND=$(find -xE . -regex '.*(/Contents|\.framework)/.*' \
				-name "$j")
			(( XCOD+=$? ))
			;;
		esac
		ClearMess
		[[ $FOUND ]] && c=$(new2null "$FOUND" |xargs -0 ls -1d |wc -l) &&
			[ $ctr -eq 0 ] && printf 'got junk: \e[4m%s\e[0m\n\n' "$PWD"
		[ $c -gt 0 ] &&
			printf 'number of \e[1m%s\e[0m items found: %d\n' "$j" $c
		(( ctr+=$c ))
		if [[ $FOUND ]]
		then
			sub=$(new2null "$FOUND" |xargs -0 du -ck |sed '$!d;s:[^0-9]::g')
			(( XCOD+=$? ))
			printf '%dK total\n' $sub
			(( tot+=$sub ))
			if [[ $LNGLS || $ERASE ]]
			then
				if [[ $ERASE ]]
				then
					printf 'ERASING all %s items in %s...\n' "$j" "$PWD"
				else
					[ $c -eq 1 ] && [[ $j = 'Resources Disabled' ||
					$j = $H || $j = .svn ]] && printf '%s:\n' "$FOUND"
				fi
				new2null "$FOUND" |xargs -0 $CMMND
				(( XCOD+=$? ))
			fi
		fi
		[ $c -ne 0 ] && echo
	done
	if [ $ctr -ne 0 ]
	then
		(( USAGE+=$tot ))
		local s=s; [ $ctr -eq 1 ] && s=
		local t=found; [[ $ERASE ]] && t=ERASED
		printf '\e[7m%s: %d item%s, wasting %s of disk space.\e[0m\n' \
			$t $ctr "$s" "`ScaleNum $tot`"
		echo "$siz $tot" |
		awk '{	printf "a difference of %.1f%% ", 100*$2/$1
			printf "compared to the original " }'
		ScaleNum $siz -HI-
	fi
}

case $1 in
	-l)	LNGLS=true
		shift
		;;
	-E)	ERASE=true
		CMMND=/bin/rm\ -fR
		shift
		;;
	-[hH]*)	QuitHelp
		;;
	-*)	PostErr "invalid option '${1}'"
		sleep 2
		QuitHelp
		;;
esac

k=0
if [ $# -eq 0 ]
then
	FindJunk
	(( XCOD+=$? ))
else
	while [ $# -gt 0 ]
	do
		if [[ -d $1 ]]
		then
			if cd "$1" 2>/dev/null
			then
				(( k+=1 ))
				FindJunk
				(( XCOD+=$? ))
				cd "$OWD"
			else
				PostErr "directory '$1' <--access DENIED!"
			fi
		else
			PostErr "directory? '$1' <--can't get there from here."
		fi
		shift
		[ $USAGE -ne 0 ] && [ $# -gt 0 ] && printf '__\n\n'
	done
fi

[ $XCOD -ne 0 ] || [ $USAGE -eq 0 ] || [[ $ERASE ]] && exit2sh

[ $k -gt 1 ] &&
	printf '\n\e[4mdisk waste sum for all %d arguments was %s\e[0m\n' \
		$k "`ScaleNum $USAGE`"
exit 1