Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / guile-readline / readline-activator.scm

diff --git a/guile18/guile-readline/readline-activator.scm b/guile18/guile-readline/readline-activator.scm
new file mode 100644 (file)
index 0000000..42ed113
--- /dev/null
+++ b/guile18/guile-readline/readline-activator.scm
@@ -0,0 +1,17 @@
+(define-module (readline-activator))
+
+(define-public (activate-readline)
+  (if (not (provided? 'readline))
+      (scm-error 'misc-error
+                'activate-readline
+                "readline is not provided in this Guile installation"
+                '()
+                '()))
+  (save-module-excursion
+   (lambda ()
+     (define-module (guile))
+     (dynamic-call "scm_init_readline" (dynamic-link "libguilereadline.so"))
+     (if (isatty? (current-input-port))
+        (begin
+          (define-module (guile) :use-module (ice-9 readline))
+          (define-module (guile-user) :use-module (ice-9 readline)))))))