code for loading libscshyp.so

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

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")