From 7b6f8f93c7a91ab6a265b19986c569d98ad0982c Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pj@pehjota.net>
Date: Sun, 28 Feb 2016 01:48:05 -0500
Subject: Revert "Revert "eshtrans/frontend: Comment out dbg() and its calls""

This reverts commit caa19db7c11ee3c53833614e66a2b8d1a0d31668.
---
(limited to 'eshtrans')

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
--
cgit v0.9.1