1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
guile/examples/box-dynamic-module/box-module.scm
Martin Grabmüller 673509f84f * scripts/README, scripts/hello.scm, safe/untrusted.scm,
safe/evil.scm, safe/README, modules/README, modules/main,
	modules/module-0.scm, modules/module-1.scm, modules/module-2.scm:
	Minor cleanup.

	* README: Added intro stuff, restructured a bit.

	* box-dynamic/README, box-module/README, box/README: Cleanup and
	restructuring.

	* box-dynamic-module/box-mixed.scm: New file, demonstrating usage
	of extension library functionality, but without exporting
	procedures from the library.

	Thanks to Thomas Wawrzinek for the idea and example code!

	* box-dynamic-module/box-module.scm: Add comments, export
	make-box, box-ref, box-set!.

	* box-dynamic-module/README: Integrate new module (box-mixed),
	restructure and cleanup a bit.
2001-06-14 20:36:06 +00:00

25 lines
658 B
Scheme

;;; examples/box-dynamic-module/box-module.scm -- Scheme module exporting
;;; some functionality from the shared library libbox-module.
;;; Commentary:
;;; This is the Scheme part of the dynamic library module (box-module).
;;; When you do a (use-modules (box-module)) in this directory,
;;; this file gets loaded and will load the compiled extension.
;;; Code:
;;; Author: Martin Grabmueller
;;; Date: 2001-06-06
(define-module (box-module))
;; First, load the library.
;;
(load-extension "libbox-module" "scm_init_box")
;; Then export the procedures which should be visible to module users.
;;
(export make-box box-ref box-set!)
;;; End of file.