readline & history

["Markus Friedl (CIP 92)" <msfriedl@cip.informatik.uni-erlangen.de>]

Hi!

With the current version of rc I am not able to use the $history-
file with the readline-interface (i.e. CTRL-p, CTRL-r, ...).
The following patch forces rc to add the contents of the file
to the history list.

any comments?

cu
--markus

===================================================================
RCS file: RCS/input.c,v
retrieving revision 1.3
diff -u -r1.3 input.c
--- 1.3	1994/06/22 08:31:07
+++ input.c	1994/08/07 21:39:33
@@ -23,6 +23,8 @@
 #ifdef READLINE
 extern char *readline(char *);
 extern void add_history(char *);
+extern int  read_history(char *);
+extern void using_history(void);
 static char *rlinebuf;
 #endif
 
@@ -256,6 +258,9 @@
 
 extern Node *doit(bool execit) {
 	bool eof;
+#ifdef READLINE
+	bool doinithist = TRUE;
+#endif
 	Jbwrap j;
 	Estack e1, e2;
 	Edata jerror;
@@ -277,6 +282,18 @@
 			dashell = FALSE;
 			b_dot(fname);
 		}
+#ifdef READLINE
+		if (doinithist && interactive) {
+			List *hist;
+			if (hist = varlookup("history")){
+				using_history();
+				read_history(hist->w);
+			} else {
+				fprint(2, "history not defined\n");
+			}
+			doinithist = FALSE;
+		}
+#endif
 		if (interactive) {
 			List *s;
 			if (!dashen && fnlookup("prompt") != NULL) {
-- 
Markus Friedl
msfriedl@cip.informatik.uni-erlangen.de