===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/debug.c,v
retrieving revision 1.6
retrieving revision 1.8
diff -u -p -r1.6 -r1.8
--- OpenXM_contrib2/asir2000/parse/debug.c	2000/12/05 01:24:56	1.6
+++ OpenXM_contrib2/asir2000/parse/debug.c	2001/08/20 09:03:27	1.8
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/parse/debug.c,v 1.5 2000/08/22 05:04:26 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/parse/debug.c,v 1.7 2000/12/22 10:03:31 saito Exp $ 
 */
 #include "ca.h"
 #include "parse.h"
@@ -227,9 +227,9 @@ SNODE f;
 #endif
 	char buf[BUFSIZ];
 	char prompt[BUFSIZ];
-	char *p,*pe;
+	char *p,*pe,*line;
 	NODE tn;
-	extern int kernelmode,do_fep;
+	extern int do_fep;
 	NODE pvss;
 
 #if !MPI && !defined(VISUAL)
@@ -247,15 +247,22 @@ SNODE f;
 	if ( do_server_in_X11 )
 #endif
 		show_debug_window(1);
-	sprintf(prompt,"(debug)%c",kernelmode?0xfe:' ');
-	if ( kernelmode )
-		fputc('\0',stderr);
+	sprintf(prompt,"(debug) ");
 	setjmp(debug_env);
 	while ( 1 ) {
-		if ( !do_server_in_X11 )
-			fputs(prompt,stderr);
+#if FEP
+		if ( !do_fep )
+#endif
+			if ( !do_server_in_X11 )
+				fputs(prompt,stderr);
 		bzero(buf,BUFSIZ);
 		while ( 1 ) {
+#if FEP
+			if ( do_fep ) {
+				line = (char *)readline_console(prompt);
+				strcpy(buf,line); free(line);
+			} else
+#endif
 			{
 				int len;
 
@@ -351,8 +358,6 @@ SNODE f;
 		}
 	}
 LAST:
-	if ( kernelmode )
-		fputc('\0',stderr);
 	debug_mode = 0;
 #if !defined(VISUAL)
 	if ( do_server_in_X11 )