Update of /cvsroot/foo/fooelk/lib/readline
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24845
Modified Files:
readline.c readline.h
Log Message:
added primitives for reading and writing history to a file
Index: readline.c
===================================================================
RCS file: /cvsroot/foo/fooelk/lib/readline/readline.c,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** readline.c 10 Aug 2004 01:44:56 -0000 1.3
--- readline.c 25 Aug 2004 23:12:09 -0000 1.4
***************
*** 161,164 ****
--- 161,186 ----
+ Object
+ P_Readline_Read_History (Object path)
+ {
+ int result;
+
+ result = read_history(Get_String(path));
+
+ return Make_Integer(result);
+ }
+
+
+ Object
+ P_Readline_Write_History (Object path)
+ {
+ int result;
+
+ result = write_history(Get_String(path));
+
+ return Make_Integer(result);
+ }
+
+
void
elk_init_readline_readline (void)
***************
*** 172,175 ****
--- 194,199 ----
Def_Prim(P_Readline_Add_History, "readline-add-history", 1, 1, EVAL);
Def_Prim(P_Readline_Set_Prompt, "readline-set-prompt", 1, 1, EVAL);
+ Def_Prim(P_Readline_Read_History, "readline-read-history",1, 1, EVAL);
+ Def_Prim(P_Readline_Write_History, "readline-write-history",1, 1, EVAL);
P_Provide(Intern("readline.la"));
Index: readline.h
===================================================================
RCS file: /cvsroot/foo/fooelk/lib/readline/readline.h,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** readline.h 7 Aug 2004 08:56:26 -0000 1.2
--- readline.h 25 Aug 2004 23:12:09 -0000 1.3
***************
*** 53,56 ****
--- 53,58 ----
extern Object P_Readline_Set_Prompt (Object prompt);
extern Object P_Readline_Completion (Object enable);
+ extern Object P_Readline_Read_History (Object path);
+ extern Object P_Readline_Write_History (Object path);
#define Def_Prim Define_Primitive
|
