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 e0f703c..f43b47d 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)
@@ -125,7 +125,7 @@ next()
return
fi
while :; do
- #dbg "parsing char '$c' at lineno $lineno"
+ dbg "parsing char '$c' at lineno $lineno"
case "${c}" in
'')
lgetc
@@ -204,7 +204,7 @@ next()
return
;;
esac
- #dbg T_SEMI
+ dbg T_SEMI
tok=T_SEMI
return
;;
@@ -427,7 +427,7 @@ scan_word()
quoted=false
while :; do
- #dbg "parsing word char '$c' at lineno $lineno"
+ dbg "parsing word char '$c' at lineno $lineno"
case "${c}" in
'')
break
@@ -482,10 +482,10 @@ scan_word()
break
;;
\\)
- #dbg 'first backslash in word'
+ dbg 'first backslash in word'
word="${word}${c}"
lgetc
- #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
@@ -717,7 +717,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.
@@ -927,13 +927,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.
@@ -1034,7 +1034,7 @@ accept()
;;
esac
- #dbg "accept $t"
+ dbg "accept $t"
printf '%s' "${tok}${RS}"
next
return 0