From 354ce326f059aa1a6a91e6c629e4279442423454 Mon Sep 17 00:00:00 2001
From: sjakie
Date: Wed, 20 Oct 1999 14:10:53 +0000
Subject: changed the CommandLoop back into the original version

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@28 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/main.icl | 16 ++--------------
 1 file changed, 2 insertions(+), 14 deletions(-)

(limited to 'frontend/main.icl')

diff --git a/frontend/main.icl b/frontend/main.icl
index 738c086..b51341d 100644
--- a/frontend/main.icl
+++ b/frontend/main.icl
@@ -3,8 +3,6 @@ module main
 import scanner, parse, postparse, check, type, trans, convertcases, utilities, convertDynamics
 
 import StdEnv
-// XXX
-import RWSDebug
 
 Start world
 	# (std_io, world) = stdio world
@@ -18,15 +16,6 @@ Start world
 					(ms.ms_out, ms.ms_files))) world
 	= fclose ms_out world
 
-CommandLoop proj ms=:{ms_io}
-	# answer = "c Menu0"
-	  (command, argument)	= SplitAtLayoutChar (dropWhile isSpace (fromString answer))
-	| command == []
-		= CommandLoop proj { ms & ms_io = ms_io}
-		# (ready, proj, ms) = DoCommand command argument proj { ms & ms_io = ms_io}
-		= ms
-
-/*
 CommandLoop proj ms=:{ms_io}
 	# (answer, ms_io)		= freadline (ms_io <<< "> ")
 	  (command, argument)	= SplitAtLayoutChar (dropWhile isSpace (fromString answer))
@@ -36,7 +25,6 @@ CommandLoop proj ms=:{ms_io}
 		| ready
 			= ms
 			= CommandLoop proj ms
-*/
 
 ::	MainStateDefs funs funtypes types conses classes instances members selectors =
 	{	msd_funs		:: !funs
@@ -179,9 +167,9 @@ loadModule mod_ident predef_symbols hash_table ms=:{ms_files,ms_error,ms_io,ms_o
 //	  (components, fun_defs, ms_out) = showComponents components 0 True fun_defs ms_out
 	  (cleanup_info, acc_args, components, fun_defs, var_heap, expression_heap)
 		 = analyseGroups (components ---> "Transform") fun_defs heaps.hp_var_heap heaps.hp_expression_heap
-	# (components, fun_defs, dcl_types, used_conses, var_heap, type_heaps, expression_heap)
+	  (components, fun_defs, dcl_types, used_conses, var_heap, type_heaps, expression_heap)
 	  		= transformGroups cleanup_info components fun_defs acc_args common_defs imported_funs var_heap heaps.hp_type_heaps expression_heap
-//	  (components, fun_defs, ms_error) = showComponents components 0 True fun_defs ms_error
+///	  (components, fun_defs, ms_error) = showComponents components 0 True fun_defs ms_error
 	  (dcl_types, used_conses, var_heap, type_heaps) = convertIclModule common_defs dcl_types used_conses var_heap type_heaps
 	  (dcl_types, used_conses, var_heap, type_heaps) = convertDclModule dcl_mods common_defs dcl_types used_conses var_heap type_heaps
 	  (components, fun_defs, predef_symbols, dcl_types, used_conses, var_heap, type_heaps, expression_heap)
-- 
cgit v1.2.3