[foo-cvs] fooelk/lib/readline readline.c,1.3,1.4 readline.h,1.2,1.3

[Martin R. <ru...@us...>]

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