|
From: Martin R. <ru...@us...> - 2004-08-25 23:12:18
|
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 |