From c9b9e578ed90b5421ae77f7e55941be09f17bdab Mon Sep 17 00:00:00 2001
From: P. J. McDermott <pj@pehjota.net>
Date: Fri, 26 Feb 2016 02:01:49 -0500
Subject: eshtrans/frontend: Comment out dbg() and its calls

---
(limited to 'eshtrans/frontend')

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