[bpt/guile.git] / examples / box-dynamic-module / box-module.scm

;;; 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.
Commit	Line	Data
673509f8 MG	1	;;; examples/box-dynamic-module/box-module.scm -- Scheme module exporting
673509f8 MG	2	;;; some functionality from the shared library libbox-module.
5b33ed3d MG	3
	4	;;; Commentary:
	5
	6	;;; This is the Scheme part of the dynamic library module (box-module).
	7	;;; When you do a (use-modules (box-module)) in this directory,
	8	;;; this file gets loaded and will load the compiled extension.
	9
	10	;;; Code:
	11
	12	;;; Author: Martin Grabmueller
	13	;;; Date: 2001-06-06
	14
	15	(define-module (box-module))
	16
673509f8 MG	17	;; First, load the library.
673509f8 MG	18	;;
5b33ed3d	19	(load-extension "libbox-module" "scm_init_box")
673509f8 MG	20
	21	;; Then export the procedures which should be visible to module users.
	22	;;
	23	(export make-box box-ref box-set!)
	24
	25	;;; End of file.