mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-04-30 20:00:19 +02:00
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.
25 lines
658 B
Scheme
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.
|