summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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 a9aaa6d..4c835cc 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=
@@ -31,12 +31,12 @@ here_awaiting_end=
here_awaiting_word=
tok=
-#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)
@@ -103,7 +103,7 @@ next()
return
fi
while :; do
- #dbg "parsing char '$c' at lineno $lineno"
+ dbg "parsing char '$c' at lineno $lineno"
case "${c}" in
'')
lgetc
@@ -181,7 +181,7 @@ next()
return
;;
esac
- #dbg T_SEMI
+ dbg T_SEMI
tok=T_SEMI
return
;;
@@ -413,7 +413,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
@@ -470,13 +470,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
@@ -712,7 +712,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.
@@ -905,13 +905,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.
@@ -1012,7 +1012,7 @@ accept()
;;
esac
- #dbg "accept $t"
+ dbg "accept $t"
printf '%s' "${tok}${RS}"
next
return 0