eshtrans: Add proper user interface

1 files changed, 69 insertions, 95 deletions

diff --git a/eshtrans/main.esh b/eshtrans/main.esh
index 0a0b929..7e0cb8c 100644
--- a/eshtrans/main.esh
+++ b/eshtrans/main.esh
@@ -18,106 +18,80 @@
 # along with the Eggshell Compiler.  If not, see
 # <http://www.gnu.org/licenses/>.
 
-try()
+set -u
+
+usage()
 {
-	local tokens=
-	local t=
+	printf 'Usage: %s [-o <output>] <input>...\n' "${0}"
+}
 
-	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'
+version()
+{
+	cat <<EOF
+eshtrans 0.1.0
+Copyright (C) 2016  Patrick "P. J." McDermott
+License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>.
+This is free software: you are free to change and redistribute it.
+There is NO WARRANTY, to the extent permitted by law.
+EOF
+}
+
+err()
+{
+	local fmt="${1}"
+	shift 1
+
+	printf "eshtrans: Error: ${fmt}\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 "`"'
-#try "\"'\""
-#try "foo 'bar" "baz' &&"
-#try '$(foo bar)'
-#try 'foo <<EOF' '$(bar baz)' 'EOF'
-#try '$foo'
-#try '${foo%bar baz}'
-#try '$(($(foo bar) + 1))'
-#try 'foo 2>bar'
-#try '2>bar'
-#try '2 foo'
-dbg=true
-try 'foo $(bar \' 'baz \' 'qux) &&'  # Line number testing
+	local opt=
+	local input=
+	local output=
+
+	output=''
+	unset OPTARG
+	while getopts 'V:o:' opt; do
+		case "${opt}" in
+			'V')
+				version
+				exit
+				;;
+			'o')
+				output="${OPTARG}"
+				;;
+			'?')
+				usage >&2
+				return 1
+				;;
+		esac
+		unset OPTARG
+	done
+	shift $(($OPTIND - 1))
 
-#	sh_codegen "$(esh_parse "${1}" <"${1}")"
+	if [ ${#} -eq 0 ]; then
+		err 'No input files'
+		return 1
+	fi
+
+	if [ "x${output}" = 'x' ]; then
+		for input in "${@}"; do
+			output="${input%.esh}.sh"
+			sh_codegen "$(esh_parse "${input}" <"${input}")" \
+				>"${output}"
+		done
+	else
+		if [ ${#} -gt 1 ]; then
+			err 'Cannot specify -o with multiple input files'
+			return 1
+		fi
+		input="${1}"
+		if [ "x${output}" = 'x-' ]; then
+			sh_codegen "$(esh_parse "${input}" <"${input}")"
+		else
+			sh_codegen "$(esh_parse "${input}" <"${input}")" \
+				>"${output}"
+		fi
+	fi
 }