eshtrans/frontend: Comment out ptrace stuff

1 files changed, 111 insertions, 111 deletions

diff --git a/eshtrans/frontend/parser.esh b/eshtrans/frontend/parser.esh
index ee02eca..57c4b63 100644
--- a/eshtrans/frontend/parser.esh
+++ b/eshtrans/frontend/parser.esh
@@ -18,41 +18,41 @@
 # along with the Eggshell Compiler.  If not, see
 # <http://www.gnu.org/licenses/>.
 
-ptrace=false
+#ptrace=false
 
 #
 # Function tracing
 #
 
-ptrace_begn()
-{
-	local fn="${1}"
-	shift 1
-
-	if ${ptrace}; then
-		printf 'TRACE: BEGN %s()\n' "${fn}" >&2
-	fi
-}
-
-ptrace_pass()
-{
-	local fn="${1}"
-	shift 1
-
-	if ${ptrace}; then
-		printf 'TRACE: PASS %s()\n' "${fn}" >&2
-	fi
-}
-
-ptrace_fail()
-{
-	local fn="${1}"
-	shift 1
-
-	if ${ptrace}; then
-		printf 'TRACE: FAIL %s()\n' "${fn}" >&2
-	fi
-}
+#ptrace_begn()
+#{
+#	local fn="${1}"
+#	shift 1
+#
+#	if ${ptrace}; then
+#		printf 'TRACE: BEGN %s()\n' "${fn}" >&2
+#	fi
+#}
+
+#ptrace_pass()
+#{
+#	local fn="${1}"
+#	shift 1
+#
+#	if ${ptrace}; then
+#		printf 'TRACE: PASS %s()\n' "${fn}" >&2
+#	fi
+#}
+
+#ptrace_fail()
+#{
+#	local fn="${1}"
+#	shift 1
+#
+#	if ${ptrace}; then
+#		printf 'TRACE: FAIL %s()\n' "${fn}" >&2
+#	fi
+#}
 
 #
 # Parser
@@ -70,177 +70,177 @@ complete_command()
 
 list()
 {
-	ptrace_begn list
+	#ptrace_begn list
 	if and_or; then
 		while separator && and_or; do
 			:
 		done
-		ptrace_pass list
+		#ptrace_pass list
 		return 0
 	fi
-	ptrace_fail list
+	#ptrace_fail list
 	return 1
 }
 
 and_or()
 {
-	ptrace_begn and_or
+	#ptrace_begn and_or
 	if pipeline; then
 		while accept T_AND_IF || accept T_OR_IF; do
 			if ! linebreak || ! pipeline; then
-				ptrace_fail and_or
+				#ptrace_fail and_or
 				return 1
 			fi
 		done
-		ptrace_pass and_or
+		#ptrace_pass and_or
 		return 0
 	fi
-	ptrace_fail and_or
+	#ptrace_fail and_or
 	return 1
 }
 
 pipeline()
 {
-	ptrace_begn pipeline
+	#ptrace_begn pipeline
 	accept T_BANG
 	if pipe_sequence; then
-		ptrace_pass pipeline
+		#ptrace_pass pipeline
 		return 0
 	fi
-	ptrace_fail pipeline
+	#ptrace_fail pipeline
 	return 1
 }
 
 pipe_sequence()
 {
-	ptrace_begn pipe_sequence
+	#ptrace_begn pipe_sequence
 	if command; then
 		while accept T_PIPE; do
 			if ! linebreak || ! command; then
-				ptrace_fail pipe_sequence
+				#ptrace_fail pipe_sequence
 				return 1
 			fi
 		done
-		ptrace_pass pipe_sequence
+		#ptrace_pass pipe_sequence
 		return 0
 	fi
-	ptrace_fail pipe_sequence
+	#ptrace_fail pipe_sequence
 	return 1
 }
 
 command()
 {
-	ptrace_begn command
+	#ptrace_begn command
 	if simple_command; then
-		ptrace_pass command
+		#ptrace_pass command
 		return 0
 	elif compound_command; then
 		redirect_list
-		ptrace_pass command
+		#ptrace_pass command
 		return 0
 	fi
-	ptrace_fail command
+	#ptrace_fail command
 	return 1
 }
 
 compound_command()
 {
-	ptrace_begn compound_command
+	#ptrace_begn compound_command
 	if brace_group; then
-		ptrace_pass compound_command
+		#ptrace_pass compound_command
 		return 0
 	elif subshell; then
-		ptrace_pass compound_command
+		#ptrace_pass compound_command
 		return 0
 	elif for_clause; then
-		ptrace_pass compound_command
+		#ptrace_pass compound_command
 		return 0
 	elif case_clause; then
-		ptrace_pass compound_command
+		#ptrace_pass compound_command
 		return 0
 	elif if_clause; then
-		ptrace_pass compound_command
+		#ptrace_pass compound_command
 		return 0
 	elif while_clause; then
-		ptrace_pass compound_command
+		#ptrace_pass compound_command
 		return 0
 	elif until_clause; then
-		ptrace_pass compound_command
+		#ptrace_pass compound_command
 		return 0
 	fi
-	ptrace_fail compound_command
+	#ptrace_fail compound_command
 	return 1
 }
 
 subshell()
 {
-	ptrace_begn subshell
+	#ptrace_begn subshell
 	if accept T_LPAREN && compound_list && expect T_RPAREN; then
-		ptrace_pass subshell
+		#ptrace_pass subshell
 		return 0
 	fi
-	ptrace_fail subshell
+	#ptrace_fail subshell
 	return 1
 }
 
 compound_list()
 {
-	ptrace_begn compound_list
+	#ptrace_begn compound_list
 	newline_list
 	if term; then
 		separator
-		ptrace_pass compound_list
+		#ptrace_pass compound_list
 		return 0
 	fi
-	ptrace_fail compound_list
+	#ptrace_fail compound_list
 	return 1
 }
 
 term()
 {
-	ptrace_begn term
+	#ptrace_begn term
 	if and_or; then
 		while separator; do
 			and_or
 		done
-		ptrace_pass term
+		#ptrace_pass term
 		return 0
 	fi
-	ptrace_fail term
+	#ptrace_fail term
 	return 1
 }
 
 for_clause()
 {
-	ptrace_begn for_clause
+	#ptrace_begn for_clause
 	if accept T_FOR; then
 		if expect T_NAME && linebreak; then
 			if accept T_IN; then
 				wordlist
 				if ! sequential_sep; then
-					ptrace_fail for_clause
+					#ptrace_fail for_clause
 					return 1
 				fi
 			fi
 			if do_group; then
-				ptrace_pass for_clause
+				#ptrace_pass for_clause
 				return 0
 			fi
 		fi
 	fi
-	ptrace_fail for_clause
+	#ptrace_fail for_clause
 	return 1
 }
 
 wordlist()
 {
-	ptrace_begn wordlist
+	#ptrace_begn wordlist
 	if accept T_WORD; then
 		while accept T_WORD; do :; done
-		ptrace_pass wordlist
+		#ptrace_pass wordlist
 		return 0
 	fi
-	ptrace_fail wordlist
+	#ptrace_fail wordlist
 	return 1
 }
 
@@ -363,48 +363,48 @@ until_clause()
 
 function_body()
 {
-	ptrace_begn function_body
+	#ptrace_begn function_body
 	inject T_LBRACE
 	inject T_FN_START
 	if compound_command; then
 		inject T_SEMI
 		inject T_FN_END
 		inject T_RBRACE
-		ptrace_pass function_body
+		#ptrace_pass function_body
 		return 0
 	fi
-	ptrace_fail function_body
+	#ptrace_fail function_body
 	return 1
 }
 
 brace_group()
 {
-	ptrace_begn brace_group
+	#ptrace_begn brace_group
 	if accept T_LBRACE && compound_list && expect T_RBRACE; then
-		ptrace_pass brace_group
+		#ptrace_pass brace_group
 		return 0
 	fi
-	ptrace_fail brace_group
+	#ptrace_fail brace_group
 	return 1
 }
 
 do_group()
 {
-	ptrace_begn do_group
+	#ptrace_begn do_group
 	if accept T_DO && compound_list && expect T_DONE; then
-		ptrace_pass do_group
+		#ptrace_pass do_group
 		return 0
 	fi
-	ptrace_fail do_group
+	#ptrace_fail do_group
 	return 1
 }
 
 simple_command()
 {
-	ptrace_begn simple_command
+	#ptrace_begn simple_command
 	if accept T_LOCAL || accept T_RETURN; then
 		cmd_suffix
-		ptrace_pass simple_command
+		#ptrace_pass simple_command
 		return 0
 	fi
 	accept T_STATIC
@@ -412,104 +412,104 @@ simple_command()
 		if cmd_word; then
 			cmd_suffix
 		fi
-		ptrace_pass simple_command
+		#ptrace_pass simple_command
 		return 0
 	elif accept T_FNAME; then
 		if accept T_LPAREN; then
 			expect T_RPAREN
 			if linebreak && function_body; then
-				ptrace_pass simple_command
+				#ptrace_pass simple_command
 				return 0
 			fi
 		else
 			cmd_suffix
-			ptrace_pass simple_command
+			#ptrace_pass simple_command
 			return 0
 		fi
 	elif cmd_name; then
 		cmd_suffix
-		ptrace_pass simple_command
+		#ptrace_pass simple_command
 		return 0
 	fi
-	ptrace_fail simple_command
+	#ptrace_fail simple_command
 	return 1
 }
 
 cmd_name()
 {
-	ptrace_begn cmd_name
+	#ptrace_begn cmd_name
 	# TODO: Assignment
 	if accept T_CMDNAME; then
-		ptrace_pass cmd_name
+		#ptrace_pass cmd_name
 		return 0
 	fi
-	ptrace_fail cmd_name
+	#ptrace_fail cmd_name
 	return 1
 }
 
 cmd_word()
 {
-	ptrace_begn cmd_word
+	#ptrace_begn cmd_word
 	# TODO: Assignment
 	if accept T_WORD; then
-		ptrace_pass cmd_word
+		#ptrace_pass cmd_word
 		return 0
 	fi
-	ptrace_fail cmd_word
+	#ptrace_fail cmd_word
 	return 1
 }
 
 cmd_prefix()
 {
-	ptrace_begn cmd_prefix
+	#ptrace_begn cmd_prefix
 	if io_redirect || accept T_ASSIGNMENT_WORD; then
 		while io_redirect || accept T_ASSIGNMENT_WORD; do
 			:
 		done
-		ptrace_pass cmd_prefix
+		#ptrace_pass cmd_prefix
 		return 0
 	fi
-	ptrace_fail cmd_prefix
+	#ptrace_fail cmd_prefix
 	return 1
 }
 
 cmd_suffix()
 {
-	ptrace_begn cmd_suffix
+	#ptrace_begn cmd_suffix
 	if io_redirect || accept T_WORD; then
 		while io_redirect || accept T_WORD; do
 			:
 		done
-		ptrace_pass cmd_suffix
+		#ptrace_pass cmd_suffix
 		return 0
 	fi
-	ptrace_fail cmd_suffix
+	#ptrace_fail cmd_suffix
 	return 1
 }
 
 redirect_list()
 {
-	ptrace_begn redirect_list
+	#ptrace_begn redirect_list
 	if io_redirect; then
 		while io_redirect; do
 			:
 		done
-		ptrace_pass redirect_list
+		#ptrace_pass redirect_list
 		return 0
 	fi
-	ptrace_fail redirect_list
+	#ptrace_fail redirect_list
 	return 1
 }
 
 io_redirect()
 {
-	ptrace_begn io_redirect
+	#ptrace_begn io_redirect
 	accept T_IO_NUMBER
 	if io_file || io_here; then
-		ptrace_pass io_redirect
+		#ptrace_pass io_redirect
 		return 0
 	fi
-	ptrace_fail io_redirect
+	#ptrace_fail io_redirect
 	return 1
 }
 
@@ -588,16 +588,16 @@ separator()
 
 sequential_sep()
 {
-	ptrace_begn sequential_sep
+	#ptrace_begn sequential_sep
 	if accept T_SEMI; then
 		if linebreak; then
-			ptrace_pass sequential_sep
+			#ptrace_pass sequential_sep
 			return 0
 		fi
 	elif newline_list; then
-		ptrace_pass sequential_sep
+		#ptrace_pass sequential_sep
 		return 0
 	fi
-	ptrace_fail sequential_sep
+	#ptrace_fail sequential_sep
 	return 1
 }