*** empty log message ***

[bpt/guile.git] / libguile / readline.c

diff --git a/libguile/readline.c b/libguile/readline.c
index 1c06893..7861e0d 100644 (file)
--- a/libguile/readline.c
+++ b/libguile/readline.c
@@ -50,6 +50,29 @@
 #include <readline/readline.h>
 #include <readline/history.h>
 
+scm_option scm_readline_opts[] = {
+  { SCM_OPTION_BOOLEAN, "history-file", 1,
+    "Use history file." },
+  { SCM_OPTION_INTEGER, "history-length", 200,
+    "History length." }
+};
+
+extern void stifle_history (int max);
+
+SCM_PROC (s_readline_options, "readline-options-interface", 0, 1, 0, scm_readline_options);
+
+SCM
+scm_readline_options (setting)
+     SCM setting;
+{
+  SCM ans = scm_options (setting,
+                        scm_readline_opts,
+                        SCM_N_READLINE_OPTIONS,
+                        s_readline_options);
+  stifle_history (SCM_HISTORY_LENGTH);
+  return ans;
+}
+
 #ifndef HAVE_STRDUP
 static char *
 strdup (char *s)
@@ -271,7 +294,7 @@ scm_read_history (SCM file)
 {
   SCM_ASSERT (SCM_NIMP (file) && SCM_STRINGP (file),
              file, SCM_ARG1, s_read_history);
-  return read_history (SCM_CHARS (file)) ? SCM_BOOL_F : SCM_BOOL_T;
+  return read_history (SCM_ROCHARS (file)) ? SCM_BOOL_F : SCM_BOOL_T;
 }
 
 
@@ -282,7 +305,7 @@ scm_write_history (SCM file)
 {
   SCM_ASSERT (SCM_NIMP (file) && SCM_STRINGP (file),
              file, SCM_ARG1, s_write_history);
-  return write_history (SCM_CHARS (file)) ? SCM_BOOL_F : SCM_BOOL_T;
+  return write_history (SCM_ROCHARS (file)) ? SCM_BOOL_F : SCM_BOOL_T;
 }
 
 
@@ -350,6 +373,9 @@ scm_init_readline ()
 #ifdef USE_THREADS
   scm_mutex_init (&reentry_barrier_mutex);
 #endif
+  scm_init_opts (scm_readline_options,
+                scm_readline_opts,
+                SCM_N_READLINE_OPTIONS);
   scm_add_feature ("readline");
 }