From 828c0c183a7514f30c3c86c6b421059d5c43ff61 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Tue, 25 Nov 2003 22:09:52 +0000
Subject: [PATCH] code for loading libscshyp.so

---
 scheme/Makefile.am    | 17 +++++++++++++++++
 scheme/load-yp.scm.in | 11 +++++++++++
 2 files changed, 28 insertions(+)
 create mode 100644 scheme/Makefile.am
 create mode 100644 scheme/load-yp.scm.in

diff --git a/scheme/Makefile.am b/scheme/Makefile.am
new file mode 100644
index 0000000..0a217ea
--- /dev/null
+++ b/scheme/Makefile.am
@@ -0,0 +1,17 @@
+scheme_SCRIPTS=load-yp.scm
+
+nobase_scheme_SCRIPTS= \
+	yp.scm yp-interfaces.scm yp-packages.scm
+
+EXTRA_DIST= $(scheme_SCRIPTS) $(nobase_scheme_SCRIPTS)
+CLEANFILES= load-yp.scm
+
+load-yp.scm: $(srcdir)/load-yp.scm.in
+	sed -e "s|@ypschemedir@|`pwd`/$(srcdir)|g" \
+	    -e "s|@yplibsysdir@|`pwd`/../c/.libs|g" $< > $@
+
+install-data-hook:
+	sed -e "s|@ypschemedir@|$(schemedir)|g" \
+	    -e "s|@yplibsysdir@|$(libsysdir)|g" \
+		$(srcdir)/load-yp.scm.in \
+		> $(DESTDIR)/$(schemedir)/load-yp.scm
diff --git a/scheme/load-yp.scm.in b/scheme/load-yp.scm.in
new file mode 100644
index 0000000..5951eed
--- /dev/null
+++ b/scheme/load-yp.scm.in
@@ -0,0 +1,11 @@
+(user)
+(load-package 'dynamic-externals)
+(open 'dynamic-externals)
+(open 'external-calls)
+(run '(let ((initializer-name "scsh_yp_main")
+            (module-file "@yplibsysdir@/libscshyp.so"))
+        (dynamic-load module-file)
+        (call-external (get-external initializer-name))))
+(config)
+(load "@ypschemedir@/yp-interfaces.scm")
+(load "@ypschemedir@/yp-packages.scm")