summaryrefslogtreecommitdiffstats
path: root/eshtrans/main.esh
blob: 0a0b9294113ae018becf11624aa76a10a86e1ccb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
# 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 "`"'
#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

#	sh_codegen "$(esh_parse "${1}" <"${1}")"
}