summaryrefslogtreecommitdiffstats
path: root/eshtrans/frontend
diff options
context:
space:
mode:
Diffstat (limited to 'eshtrans/frontend')
-rw-r--r--eshtrans/frontend/lexer.esh32
1 files changed, 16 insertions, 16 deletions
diff --git a/eshtrans/frontend/lexer.esh b/eshtrans/frontend/lexer.esh
index 5a8bd56..224cef0 100644
--- a/eshtrans/frontend/lexer.esh
+++ b/eshtrans/frontend/lexer.esh
@@ -18,7 +18,7 @@
# along with the Eggshell Compiler. If not, see
# <http://www.gnu.org/licenses/>.
-dbg=false
+#dbg=false
fname=
lineno=
@@ -32,12 +32,12 @@ here_awaiting_word=
tok=
tokens=
-dbg()
-{
- if ${dbg}; then
- printf 'DEBUG: %s\n' "${@}" >&2
- fi
-}
+#dbg()
+#{
+# if ${dbg}; then
+# printf 'DEBUG: %s\n' "${@}" >&2
+# fi
+#}
#
# Error handling (used by scanning and interface functions)
@@ -104,7 +104,7 @@ next()
return
fi
while :; do
- dbg "parsing char '$c' at lineno $lineno"
+ #dbg "parsing char '$c' at lineno $lineno"
case "${c}" in
'')
lgetc
@@ -182,7 +182,7 @@ next()
return
;;
esac
- dbg T_SEMI
+ #dbg T_SEMI
tok=T_SEMI
return
;;
@@ -414,7 +414,7 @@ scan_word()
esac
while :; do
- dbg "parsing word char '$c' at lineno $lineno"
+ #dbg "parsing word char '$c' at lineno $lineno"
case "${c}" in
'')
break
@@ -471,13 +471,13 @@ scan_word()
break
;;
\\)
- dbg 'first backslash in word'
+ #dbg 'first backslash in word'
word="${word}${c}"
case "${prev_c}" in
'') lgetc;;
*) c="${tmp_c}"; prev_c='';;
esac
- dbg "next char: '$c'"
+ #dbg "next char: '$c'"
case "${c}" in '')
# Bash, ksh93, mksh, and zsh ignore a
# backslash at the end of a file, but
@@ -713,7 +713,7 @@ scan_wordexp_param_brace()
# subshell.
lineno=$((${lineno} + ${ln_off}))
wordexp="${wordexp}${res}"
- dbg "param mod word: '$res'"
+ #dbg "param mod word: '$res'"
fi
# Check for right brace.
@@ -911,13 +911,13 @@ accept()
shift 1
local rw=
- dbg "looking for $t, current tok ${tok%%${US}*}"
+ #dbg "looking for $t, current tok ${tok%%${US}*}"
case "${t}" in
T_IF|T_THEN|T_ELSE|T_ELIF|T_FI|T_DO|T_DONE|\
T_CASE|T_ESAC|T_WHILE|T_UNTIL|T_FOR|\
T_LBRACE|T_RBRACE|T_BANG|T_IN|\
T_STATIC|T_LOCAL|T_RETURN)
- dbg "looking for reserved word $t, have '$tok'"
+ #dbg "looking for reserved word $t, have '$tok'"
if ! [ "x${tok%%${US}*}" = "x${t}" ]; then
# Reserved words are recognized as literal
# T_WORDs.
@@ -1018,7 +1018,7 @@ accept()
;;
esac
- dbg "accept $t"
+ #dbg "accept $t"
tokens="${tokens}${tok}${RS}"
next
return 0