summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--eshtrans/main.esh164
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
}