# getopt like parser
parse_options() {
	local short_options=$1; shift;
	local long_options=$1; shift;
	local ret=0;
	local unused_options=""
	local i

	while [[ -n $1 ]]; do
		if [[ ${1:0:2} = '--' ]]; then
			if [[ -n ${1:2} ]]; then
				local match=""
				for i in ${long_options//,/ }; do
					if [[ ${1:2} = ${i//:} ]]; then
						match=$i
						break
					fi
				done
				if [[ -n $match ]]; then
					local needsargument=0

					[[ ${match} = ${1:2}: ]] && needsargument=1
					[[ ${match} = ${1:2}:: && -n $2 && ${2:0:1} != "-" ]] && needsargument=1

					if (( ! needsargument )); then
						printf ' %s' "$1"
					else
						if [[ -n $2 ]]; then
							printf ' %s ' "$1"
							shift
							printf "'%q" "$1"
							while [[ -n $2 && ${2:0:1} != "-" ]]; do
								shift
								printf " %q" "$1"
							done
							printf "'"
						else
							printf "@SCRIPTNAME@: $(gettext "option %s requires an argument\n")" "'$1'" >&2
							ret=1
						fi
					fi
				else
					echo "@SCRIPTNAME@: $(gettext "unrecognized option") '$1'" >&2
					ret=1
				fi
			else
				shift
				break
			fi
		elif [[ ${1:0:1} = '-' ]]; then
			for ((i=1; i<${#1}; i++)); do
				if [[ $short_options =~ ${1:i:1} ]]; then
					local needsargument=0

					[[ $short_options =~ ${1:i:1}: && ! $short_options =~ ${1:i:1}:: ]] && needsargument=1
					[[ $short_options =~ ${1:i:1}:: && \
						( -n ${1:$i+1} || ( -n $2 && ${2:0:1} != "-" ) ) ]] && needsargument=1

					if (( ! needsargument )); then
						printf ' -%s' "${1:i:1}"
					else
						if [[ -n ${1:$i+1} ]]; then
							printf ' -%s ' "${1:i:1}"
							printf "'%q" "${1:$i+1}"
							while [[ -n $2 && ${2:0:1} != "-" ]]; do
								shift
								printf " %q" "$1"
							done
							printf "'"
						else
							if [[ -n $2 ]]; then
								printf ' -%s ' "${1:i:1}"
								shift
								printf "'%q" "$1"
								while [[ -n $2 && ${2:0:1} != "-" ]]; do
									shift
									printf " %q" "$1"
								done
								printf "'"

							else
								printf "@SCRIPTNAME@: $(gettext "option %s requires an argument\n")" "'-${1:i:1}'" >&2
								ret=1
							fi
						fi
						break
					fi
				else
					echo "@SCRIPTNAME@: $(gettext "unrecognized option") '-${1:i:1}'" >&2
					ret=1
				fi
			done
		else
			unused_options="${unused_options} '$1'"
		fi
		shift
	done

	printf " --"
	[[ $unused_options ]] && printf ' %s' "${unused_options[@]}"
	[[ $1 ]] && printf " '%s'" "$@"
	printf "\n"

	return $ret
}
