Figure out shared module extension with automake/autoconf/libtool/whatever

Makefile.am

@@ -1 +1,9 @@
-SUBDIRS= c
+SUBDIRS = c
+
+BUILT_SOURCES = config-data.scm
+CLEANFILES = $(BUILT_SOURCES)
+
+config-data.scm: config-data.scm.in
+	module=yes;					\
+	eval shared_module_ext="@shrext@";		\
+	sed -e s/@module_extension@/$$shared_module_ext/g < $< > $@

config-data.scm.in

@@ -0,0 +1 @@
+((shared-module-extension "@module_extension@"))

configure.in

@@ -41,6 +41,7 @@ libsysdir='${prefix}'
 AC_SUBST(libdir)
 AC_SUBST(libsysdir)
 AC_SUBST(schemedir)
+AC_SUBST(shrext)
 AC_SUBST(LIBS)
 AC_SUBST(CC)
 AC_OUTPUT([Makefile c/Makefile])

load.scm.in

@@ -4,7 +4,8 @@
 (open 'external-calls)
 (open 'configure)	
 (run '(let ((initializer-name "scsh_yp_main")
-            (module-file (string-append "@yplibsysdir@/" @yphost@ "/libscshyp.so")))
+            (module-file (string-append "@yplibdir@/" @yphost@ 
+                                        "/libscshyp" "@sharedmoduleext@")))
         (dynamic-load module-file)
         (call-external (get-external initializer-name))))
 (config)

pkg-def.scm

@@ -20,26 +20,32 @@
 	  (display make)
 	  (newline))
 	(and (zero? (run ,configure)) (zero? (run ,make)) (exit))))
-    
+
   (if (not (get-option-value 'non-shared-only))
       (begin
 	(display "creating load.scm")
 	(newline)
-	(let ((schemedir (get-directory 'scheme #f))
-	      (libdir (get-directory 'lib #f))
-	      (target-dir (get-directory 'base #t))
-	      (sed-replace (lambda (from to)
+	(let ((config-data 
+	       (call-with-input-file "config-data.scm" read)))
+	  (let ((schemedir (get-directory 'scheme #f))
+		(libdir (get-directory 'lib #f))
+		(target-dir (get-directory 'base #t))
+		(shared-ext (cdr (assoc 'shared-lib-extension config-data.scm)))
+		(sed-replace (lambda (from to)
 			       (string-append "s|" from "|" to "|g"))))
-	  (let ((cmd `(sed -e ,(sed-replace "@ypschemedir@" schemedir)
-			   -e ,(sed-replace "@yphost@" "(host)")
-			   -e ,(sed-replace "@yplibdir@" libdir)
-			   "load.scm.in"))
-		(tgt (string-append target-dir "/load.scm")))
-	    (if (get-option-value 'dry-run)
-		(begin
-		  (display cmd) (display " > ") (display tgt)
-		  (newline))
-		(or (zero? (run ,cmd (> ,tgt))) (exit)))))))
+	    (let ((cmd `(sed -e ,(sed-replace "@ypschemedir@" schemedir)
+			     -e ,(sed-replace "@yphost@" "(host)")
+			     -e ,(sed-replace "@yplibdir@" libdir)
+			     -e ,(sed-replace "@sharedmoduleext@" 
+					      (cdr (assoc 'shared-module-extension
+							  config-data.scm)))
+			     "load.scm.in"))
+		  (tgt (string-append target-dir "/load.scm")))
+	      (if (get-option-value 'dry-run)
+		  (begin
+		    (display cmd) (display " > ") (display tgt)
+		    (newline))
+		  (or (zero? (run ,cmd (> ,tgt))) (exit)))))))
 
   (install-directory-contents "scheme" 'scheme)
 )