Mercurial > hg > xemacs-beta

comparison src/emodules.c @ 2078:0bcc1e4dfd91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-05-14 15:34:36 by james] Add support for loading modules with LTDL, the libtool library.
author james
date Fri, 14 May 2004 15:34:40 +0000
parents 3fe1a35b705d
children ecf1ebac70d8
comparison
equal deleted inserted replaced
2077:8f6c15382b31 2078:0bcc1e4dfd91
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, 18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */ 19 Boston, MA 02111-1307, USA. */
20 20
21 #include "emodules.h" 21 #include "emodules.h"
22 #include "sysdll.h" 22 #include "sysdll.h"
23 #ifdef HAVE_LTDL
24 #include <ltdl.h>
25 #endif
23 26
24 /* Load path */ 27 /* Load path */
25 static Lisp_Object Vmodule_load_path; 28 static Lisp_Object Vmodule_load_path;
26 29
27 /* Module lFile extensions */ 30 /* Module lFile extensions */
585 #ifdef HAVE_SHLIB 588 #ifdef HAVE_SHLIB
586 Fprovide (intern ("modules")); 589 Fprovide (intern ("modules"));
587 590
588 reinit_vars_of_module (); 591 reinit_vars_of_module ();
589 592
593 #ifdef HAVE_LTDL
594 lt_dlinit ();
595 lt_dlmalloc = (lt_ptr (*) (size_t)) xmalloc;
596 lt_dlrealloc = (lt_ptr (*) (lt_ptr, size_t)) xrealloc;
597 lt_dlfree = (void (*) (lt_ptr)) xfree_1;
598 #endif
599
590 DEFVAR_LISP ("module-version", &Vmodule_version /* 600 DEFVAR_LISP ("module-version", &Vmodule_version /*
591 Emacs dynamic loading mechanism version, as a string. 601 Emacs dynamic loading mechanism version, as a string.
592 602
593 This string is in the form XX.YY.ppp, where XX is the major version 603 This string is in the form XX.YY.ppp, where XX is the major version
594 number, YY is the minor version number, and ppp is the patch level. 604 number, YY is the minor version number, and ppp is the patch level.