# Eggshell Compiler entry point
#
# Copyright (C) 2016  Patrick "P. J." McDermott
#
# This file is part of the Eggshell Compiler.
#
# The Eggshell Compiler is free software: you can redistribute it
# and/or modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation, either version 3 of
# the License, or (at your option) any later version.
#
# The Eggshell Compiler is distributed in the hope that it will be
# useful, but WITHOUT ANY WARRANTY; without even the implied warranty
# of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with the Eggshell Compiler.  If not, see
# <http://www.gnu.org/licenses/>.

try()
{
	local tokens=
	local t=

	printf 'Trying script:\n'
	printf '\t%s\n' "${@}"
	if tokens="$(printf '%s\n' "${@}" | esh_parse -)"; then
		printf 'Tokens: %s\n' "${tokens}" | sed "
			s/${SOH}/<SOH>/g; s/${STX}/<STX>/g; s/${ETX}/<ETX>/g;
			s/${RS}/<RS>/g; s/${US}/<US>/g;
			"
		IFS="${RS}"
		for t in ${tokens}; do
			printf 'Token: %s\n' "$(tokname "${t}")"
			case "${t%${US}*}" in T_NAME|T_FNAME|T_CMDNAME|T_WORD)
				printf '       "%s"\n' "${t#*${US}}"
				;;
			esac
		done
		printf 'Generated code:\n'
		IFS="${LF}"
		printf '\t%s\n' $(sh_codegen "${tokens}")
		unset IFS
	else
		printf 'FAIL\n'
	fi
	printf '\n\n'
}

main()
{
#try '"foo bar" && $baz || qux' '${quux%uux  quuux'
#try '"foo bar" && $baz || qux' '${quux%uux } quuux'
#try 'foo ${bar}'
#try 'foo ${#bar}'
#try 'foo ${bar#baz}'
#try 'foo ${#bar#}'
#try 'foo ${^}'
#try 'foo `bar`'
#try 'foo &&'
#try '{ foo; }'
#try '( foo )'
#try 'for i in 1 2 3; do stuff; done'
#try 'if foo; then bar; fi'
#try 'if foo; then bar; elif baz; then qux; else quux; fi'
#try 'if ; then ; fi'
#try 'while foo; do bar; done'
#try 'while ; do ; done'
#try 'foo(){ bar; }'
#try 'case foo in bar) baz;; (qux) quux;; quux);; esac'
#try 'foo bar ( baz )'
#try 'foo $(bar)'
#try 'foo $(bar); baz'
#try 'foo $(bar)' 'baz'
#try 'foo $(bar) baz'
#try 'foo$(bar$(baz))qux'
#try 'foo $((1 + 1))'
#try '$((1 + 1))'
#try '$((1 + (1 + 1)))'
#try '$((1 + $(foo) + 1))'
#try '$((1'
#try 'foo <<EOF' 'bar' 'EOF'
#try 'foo <<-EOF' "${HT}bar" "${HT}EOF"
#try 'foo <<EOF' '$(bar)' 'EOF'
#try 'foo <<E"O"F' '$(bar)' 'EOF'
#try 'foo <<"EOF"' '$(bar)' 'EOF'
#try 'foo <<E\OF' '$(bar)' 'EOF'
#try 'foo <<\EOF' '$(bar)' 'EOF'
#try 'foo <<EOF1; bar <<EOF2' 'baz' 'EOF1' 'qux' 'EOF2'
#try '\foo'
#try '"foo bar" baz'
#try '"foo'
#try 'foo\" bar'
#try 'foo\'
#try "foo'"
#try 'foo\' 'bar'
#try 'v=foo'
#try 'if &&'
#try 'if true; do'
#try 'foo' '#bar'
#try '# foo' 'bar'
#try '' 'foo'
#try '\\ foo'
#try '$(($foo + 1))'
#try '$((1 + $foo))'
#try "foo '\`'"
#try 'foo "`"'
#dbg=true
#try "\"'\""
try "foo 'bar" "baz' &&"
}