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 8bba0e0..4e66091 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)
@@ -124,7 +124,7 @@ next()
return
fi
while :; do
- dbg "parsing char '$c' at lineno $lineno"
+ #dbg "parsing char '$c' at lineno $lineno"
case "${c}" in
'')
lgetc
@@ -203,7 +203,7 @@ next()
return
;;
esac
- dbg T_SEMI
+ #dbg T_SEMI
tok=T_SEMI
return
;;
@@ -425,7 +425,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
@@ -480,10 +480,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
@@ -715,7 +715,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.
@@ -925,13 +925,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.
@@ -1032,7 +1032,7 @@ accept()
;;
esac
- dbg "accept $t"
+ #dbg "accept $t"
printf '%s' "${tok}${RS}"
next
return 0