annotate src/emodules.c @ 428:3ecd8885ac67 r21-2-22

Import from CVS: tag r21-2-22
author cvs
date Mon, 13 Aug 2007 11:28:15 +0200
parents
children 8de8e3f6228a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* emodules.c - Support routines for dynamic module loading
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 (C) Copyright 1998, 1999 J. Kean Johnston. All rights reserved.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
5
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 under the terms of the GNU General Public License as published by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 #include "emodules.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 #include "sysdll.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
24 #ifdef HAVE_SHLIB
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 /* CE-Emacs version number */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 Lisp_Object Vmodule_version;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29 /* Do we do our work quietly? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
30 int load_modules_quietly;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
31
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
32 /* Load path */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 Lisp_Object Vmodule_load_path;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 typedef struct _emodules_list
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 int used; /* Is this slot used? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38 char *soname; /* Name of the shared object loaded (full path) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 char *modname; /* The name of the module */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40 char *modver; /* The version that the module is at */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 char *modtitle; /* How the module announces itself */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 dll_handle dlhandle; /* Dynamic lib handle */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 } emodules_list;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 static Lisp_Object Vmodule_extensions;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 static int emodules_depth;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 static dll_handle dlhandle;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 static emodules_list *modules;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 static int modnum;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52 static int find_make_module (CONST char *mod, CONST char *name, CONST char *ver, int make_or_find);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 static Lisp_Object module_load_unwind (Lisp_Object);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
54 static void attempt_module_delete (int mod);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 DEFUN ("load-module", Fload_module, 1, 3, "FLoad dynamic module: ", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 Load in a C Emacs Extension module named FILE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 The optional NAME and VERSION are used to identify specific modules.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 This function is similar in intent to `load' except that it loads in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61 pre-compiled C or C++ code, using dynamic shared objects. If NAME is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
62 specified, then the module is only loaded if its internal name matches
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
63 the NAME specified. If VERSION is specified, then the module is only
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
64 loaded if it matches that VERSION. This function will check to make
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65 sure that the same module is not loaded twice. Modules are searched
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
66 for in the same way as Lisp files, except that the valid file
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
67 extensions are `.so', `.dll' or `.ell'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
68
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
69 All symbols in the shared module must be completely resolved in order
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
70 for this function to be successful. Any modules which the specified
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 FILE depends on will be automatically loaded. You can determine which
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 modules have been loaded as dynamic shared objects by examining the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 return value of the function `list-modules'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 It is possible, although unwise, to unload modules using `unload-module'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 The prefered mechanism for unloading or reloading modules is to quit
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 XEmacs, and then reload those new or changed modules that are required.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 Messages informing you of the progress of the load are displayed unless
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 the variable `load-modules-quietly' is non-NIL.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
81 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
82 (file,name,version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
83 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 char *mod, *mname, *mver;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 int speccount = specpdl_depth();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 CHECK_STRING(file);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 mod = (char *)XSTRING_DATA (file);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 if (NILP (name))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92 mname = "";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
93 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94 mname = (char *)XSTRING_DATA (name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96 if (NILP (version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 mver = "";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 mver = (char *)XSTRING_DATA (version);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 dlhandle = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 record_unwind_protect (module_load_unwind, make_int(modnum));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 emodules_load (mod, mname, mver);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 unbind_to (speccount, Qnil);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 return Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 #ifdef DANGEROUS_NASTY_SCARY_MONSTER
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 DEFUN ("unload-module", Fmodule_unload, 1, 3, 0, /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
112 Unload a module previously loaded with load-module.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
114 As with load-module, this function requires at least the module FILE, and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 optionally the module NAME and VERSION to unload. It may not be possible
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 for the module to be unloaded from memory, as there may be Lisp objects
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 refering to variables inside the module code. However, once you have
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118 requested a module to be unloaded, it will be unloaded from memory as
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 soon as the last reference to symbols within the module is destroyed.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 (file,name,version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
123 int x;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 char *mod, *mname, *mver;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 CHECK_STRING(file);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 mod = (char *)XSTRING_DATA (file);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 if (NILP (name))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131 mname = "";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
133 mname = (char *)XSTRING_DATA (name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
135 if (NILP (version))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
136 mver = "";
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
137 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
138 mver = (char *)XSTRING_DATA (version);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
139
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
140 x = find_make_module (mod, mname, mver, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
141 if (x != -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 attempt_module_delete (x);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 return Qt;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 #endif /* DANGEROUS_NASTY_SCARY_MONSTER */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 DEFUN ("list-modules", Flist_modules, 0, 0, "", /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 Produce a list of loaded dynamic modules.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150 This function will return a list of all the loaded dynamic modules.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 Each element in the list is a list in the form (SONAME NAME VER DESC),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 where SONAME is the name of the shared object that was loaded, NAME
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 is the internal module name, VER is the version of the module, and DESC
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 is how the module describes itself.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 This function returns a list, so you will need to assign the return value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 to a variable and then examine the variable with `describe-variable'.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158 For example:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
159
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
160 (setq mylist (list-modules))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
161 (describe-variable 'mylist)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
162
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
163
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
164 NOTE: It is possible for the same module to be loaded more than once,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
165 at different versions. However, you should never see the same module,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
166 with the same name and version, loaded more than once. If you do, this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
167 is a bug, and you are encouraged to report it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
168 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
169 ())
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 Lisp_Object mlist = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 for (i = 0; i < modnum; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 if (modules[i].used == 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 mlist = Fcons (list4 (build_string (modules[i].soname),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 build_string (modules[i].modname),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 build_string (modules[i].modver),
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180 build_string (modules[i].modtitle)), mlist);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 return mlist;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
186 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
187 find_make_module (CONST char *mod, CONST char *name, CONST char *ver, int mof)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 int i, fs = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191 for (i = 0; i < modnum; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 if (fs == -1 && modules[i].used == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
194 fs = i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
195 if (strcmp (modules[i].soname, mod) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197 if (name && name[0] && strcmp (modules[i].modname, name))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
198 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199 if (ver && ver[0] && strcmp (modules[i].modver, ver))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 return i; /* Found a match */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
203 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
204
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
205 if (mof)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
206 return fs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
207
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
208 if (fs != -1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
209 return fs; /* First free slot */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 * We only get here if we havent found a free slot and the module was
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 * not previously loaded.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
214 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215 if (modules == (emodules_list *)0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 modules = (emodules_list *)xmalloc (sizeof(emodules_list));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 modnum++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 modules = (emodules_list *) xrealloc (modules, modnum * sizeof(emodules_list));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
219
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
220 fs = modnum - 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
221 memset (&modules[fs], 0, sizeof(emodules_list));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
222 return fs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
223 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
224
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
225 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
226 attempt_module_delete (int mod)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
227 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
228 if (dll_close (modules[mod].dlhandle) == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
229 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
230 xfree (modules[mod].soname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
231 xfree (modules[mod].modname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
232 xfree (modules[mod].modver);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
233 xfree (modules[mod].modtitle);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
234 modules[mod].dlhandle = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
235 modules[mod].used = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
236 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
237 else if (modules[mod].used > 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
238 modules[mod].used = 1; /* We couldn't delete it - it stays */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
239 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
240
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
241 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
242 module_load_unwind (Lisp_Object upto)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
243 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
244 int x,l=0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
245
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
246 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
247 * First close off the current handle if it is open.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
248 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
249 if (dlhandle != 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
250 dll_close (dlhandle);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
251 dlhandle = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
252
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
253 if (CONSP (upto))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
254 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
255 if (INTP (XCAR (upto)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
256 l = XINT (XCAR (upto));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
257 free_cons (XCONS (upto));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
258 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
259 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
260 l = XINT (upto);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
261
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
262 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
263 * Here we need to go through and dlclose() (IN REVERSE ORDER!) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
264 * modules that were loaded as part of this load chain. We only mark
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
265 * the slots as closed if the dlclose() succeeds.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
266 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
267 for (x = modnum-1; x >= l; x--)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
268 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
269 if (modules[x].used > 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
270 attempt_module_delete (x);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
271 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
272 emodules_depth = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
273
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
274 return Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
275 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
276
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
277 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
278 * Do the actual grunt-work of loading in a module. We first try and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
279 * dlopen() the module. If that fails, we have an error and we bail
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
280 * out immediately. If the dlopen() succeeds, we need to check for the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
281 * existance of certain special symbols.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
282 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
283 * All modules will have complete access to the variables and functions
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
284 * defined within XEmacs itself. It is up to the module to declare any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
285 * variables or functions it uses, however. Modules will also have access
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
286 * to other functions and variables in other loaded modules, unless they
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
287 * are defined as STATIC.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
288 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
289 * We need to be very careful with how we load modules. If we encounter an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
290 * error along the way, we need to back out completely to the point at
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
291 * which the user started. Since we can be called resursively, we need to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
292 * take care with marking modules as loaded. When we first start loading
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
293 * modules, we set the counter to zero. As we enter the function each time,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
294 * we incremement the counter, and before we leave we decrement it. When
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
295 * we get back down to 0, we know we are at the end of the chain and we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
296 * can mark all the modules in the list as loaded.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
297 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
298 * When we signal an error, we need to be sure to unwind all modules loaded
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
299 * thus far (but only for this module chain). It is assumed that if any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
300 * modules in a chain fail, then they all do. This is logical, considering
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
301 * that the only time we recurse is when we have dependant modules. So in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
302 * the error handler we take great care to close off the module chain before
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
303 * we call "error" and let the Fmodule_load unwind_protect() function handle
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
304 * the cleaning up.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
305 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
306 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
307 emodules_load(CONST char *module, CONST char *modname, CONST char *modver)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
308 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
309 Lisp_Object filename;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
310 Lisp_Object foundname;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
311 int fd, x, mpx;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
312 char *soname, *tmod;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
313 CONST char **f;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
314 CONST long *ellcc_rev;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
315 char *mver, *mname, *mtitle, *symname;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
316 void (*modload)(void) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
317 void (*modsyms)(void) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
318 void (*modvars)(void) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
319 void (*moddocs)(void) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
320 emodules_list *mp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
321 struct gcpro gcpro1,gcpro2;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
322
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
323 filename = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
324 foundname = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
325
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
326 emodules_depth++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
327 dlhandle = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
328
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
329 if ((module == (CONST char *)0) || (module[0] == '\0'))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
330 error ("Empty module name");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
331
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
332 /* This is to get around the fact that build_string() is not declared
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
333 as taking a const char * as an argument. I HATE compiler warnings. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
334 tmod = (char *)alloca (strlen (module) + 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
335 strcpy (tmod, module);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
336
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
337 GCPRO2(filename, foundname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
338 filename = build_string (tmod);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
339 fd = locate_file(Vmodule_load_path, filename, Vmodule_extensions,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
340 &foundname, -1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
341 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
342
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
343 if (fd < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
344 signal_simple_error ("Cannot open dynamic module", filename);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
345
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
346 soname = (char *)alloca (XSTRING_LENGTH (foundname) + 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
347 strcpy (soname, (char *)XSTRING_DATA (foundname));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
348
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
349 dlhandle = dll_open (soname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
350 if (dlhandle == (dll_handle)0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
351 error ("Opening dynamic module: %s", dll_error (dlhandle));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
352
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
353 ellcc_rev = (CONST long *)dll_variable (dlhandle, "emodule_compiler");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
354 if ((ellcc_rev == (CONST long *)0) || (*ellcc_rev <= 0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
355 error ("Missing symbol `emodule_compiler': Invalid dynamic module");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
356 if (*ellcc_rev > EMODULES_REVISION)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
357 error ("Unsupported version `%ld(%ld)': Invalid dynamic module",
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
358 *ellcc_rev, EMODULES_REVISION);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
359
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
360 f = (CONST char **)dll_variable (dlhandle, "emodule_name");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
361 if ((f == (CONST char **)0) || (*f == (CONST char *)0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
362 error ("Missing symbol `emodule_name': Invalid dynamic module");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
363
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
364 mname = (char *)alloca (strlen (*f) + 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
365 strcpy (mname, *f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
366 if (mname[0] == '\0')
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
367 error ("Empty value for `emodule_name': Invalid dynamic module");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
368
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
369 f = (CONST char **)dll_variable (dlhandle, "emodule_version");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
370 if ((f == (CONST char **)0) || (*f == (CONST char *)0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
371 error ("Missing symbol `emodule_version': Invalid dynamic module");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373 mver = (char *)alloca (strlen (*f) + 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 strcpy (mver, *f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 f = (CONST char **)dll_variable (dlhandle, "emodule_title");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 if ((f == (CONST char **)0) || (*f == (CONST char *)0))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 error ("Missing symbol `emodule_title': Invalid dynamic module");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 mtitle = (char *)alloca (strlen (*f) + 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 strcpy (mtitle, *f);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383 symname = (char *)alloca (strlen (mname) + 15);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 strcpy (symname, "modules_of_");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 strcat (symname, mname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
387 modload = (void (*)(void))dll_function (dlhandle, symname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
388 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
389 * modload is optional. If the module doesnt require other modules it can
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 * be left out.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
392
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
393 strcpy (symname, "syms_of_");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 strcat (symname, mname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 modsyms = (void (*)(void))dll_function (dlhandle, symname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 if (modsyms == (void (*)(void))0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 error ("Missing symbol `%s': Invalid dynamic module", symname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
398
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 strcpy (symname, "vars_of_");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400 strcat (symname, mname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
401 modvars = (void (*)(void))dll_function (dlhandle, symname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 if (modvars == (void (*)(void))0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
403 error ("Missing symbol `%s': Invalid dynamic module", symname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
404
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 strcpy (symname, "docs_of_");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 strcat (symname, mname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 moddocs = (void (*)(void))dll_function (dlhandle, symname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
408 if (moddocs == (void (*)(void))0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409 error ("Missing symbol `%s': Invalid dynamic module", symname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 if (modname && modname[0] && strcmp (modname, mname))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412 error ("Module name mismatch");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 if (modver && modver[0] && strcmp (modver, mver))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
415 error ("Module version mismatch");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
417 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 * Attempt to make a new slot for this module. If this really is the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
419 * first time we are loading this module, the used member will be 0.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
420 * If that is non-zero, we know that we have a previously loaded module
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 * of the same name and version, and we dont need to go any further.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
422 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 mpx = find_make_module (soname, mname, mver, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
424 mp = &modules[mpx];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 if (mp->used > 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427 emodules_depth--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 dll_close (dlhandle);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 if (!load_modules_quietly)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433 message ("Loading %s v%s (%s)", mname, mver, mtitle);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 * We have passed the basic initialization, and can now add this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 * module to the list of modules.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 mp->used = emodules_depth + 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 mp->soname = xstrdup (soname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 mp->modname = xstrdup (mname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 mp->modver = xstrdup (mver);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 mp->modtitle = xstrdup (mtitle);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 mp->dlhandle = dlhandle;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445 dlhandle = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 * Now we need to call the module init function and perform the various
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 * startup tasks.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 if (modload != 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452 (*modload)();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455 * Now we can get the module to initialize its symbols, and then its
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
456 * variables, and lastly the documentation strings.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 (*modsyms)();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
459 (*modvars)();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460 (*moddocs)();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 if (!load_modules_quietly)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 message ("Loaded module %s v%s (%s)", mname, mver, mtitle);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 emodules_depth--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467 if (emodules_depth == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
470 * We have reached the end of the load chain. We now go through the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
471 * list of loaded modules and mark all the valid modules as just
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472 * that.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474 for (x = 0; x < modnum; x++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 if (modules[x].used > 1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
476 modules[x].used = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
477 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
478 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
479
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 emodules_doc_subr(CONST char *symname, CONST char *doc)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
482 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 Bytecount len = strlen (symname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 Lisp_Object sym = oblookup (Vobarray, (CONST Bufbyte *)symname, len);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 struct Lisp_Subr *subr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 if (SYMBOLP(sym))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 subr = XSUBR( XSYMBOL(sym)->function);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 subr->doc = xstrdup (doc);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
493 * FIXME: I wish there was some way to avoid the xstrdup(). Is it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
494 * possible to just set a pointer to the string, or somehow create a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 * symbol whose value we can point to the constant string? Can someone
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 * look into this?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 emodules_doc_sym (CONST char *symname, CONST char *doc)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
503 Bytecount len = strlen (symname);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
504 Lisp_Object sym = oblookup (Vobarray, (CONST Bufbyte *)symname, len);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 Lisp_Object docstr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 struct gcpro gcpro1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 if (SYMBOLP(sym))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 docstr = build_string (doc);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 GCPRO1(docstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 Fput (sym, Qvariable_documentation, docstr);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 UNGCPRO;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
517
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 syms_of_module (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
520 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 DEFSUBR(Fload_module);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 DEFSUBR(Flist_modules);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 #ifdef DANGEROUS_NASTY_SCARY_MONSTER
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524 DEFSUBR(Funload_module);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529 reinit_vars_of_module (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 emodules_depth = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
532 modules = (emodules_list *)0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
533 modnum = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
535
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
536 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
537 vars_of_module (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
538 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 reinit_vars_of_module ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 DEFVAR_LISP ("module-version", &Vmodule_version /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542 Emacs dynamic loading mechanism version, as a string.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 This string is in the form XX.YY.ppp, where XX is the major version
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545 number, YY is the minor version number, and ppp is the patch level.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546 This variable can be used to distinquish between different versions of
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547 the dynamic loading technology used in Emacs, if required. It is not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548 a given that this value will be the same as the Emacs version number.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 */ );
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 Vmodule_version = build_string (EMODULES_VERSION);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 DEFVAR_BOOL ("load-modules-quietly", &load_modules_quietly /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 *Set to t if module loading is to be silent.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
555 Normally, when loading dynamic modules, Emacs will inform you of its
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556 progress, and will display the module name and version if the module
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 is loaded correctly. Setting this variable to `t' will suppress these
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558 messages. This would normally only be done if `load-module' was being
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559 called by a Lisp function.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560 */);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
562 DEFVAR_LISP ("module-load-path", &Vmodule_load_path /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
563 *List of directories to search for dynamic modules to load.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
564 Each element is a string (directory name) or nil (try default directory).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 Note that elements of this list *may not* begin with "~", so you must
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567 call `expland-file-name' on them before adding them to this list.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 Initialized based on EMACSMODULEPATH environment variable, if any, otherwise
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 to default specified the file `paths.h' when XEmacs was built. If there
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 were no paths specified in `paths.h', then XEmacs chooses a default
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 value for this variable by looking around in the file-system near the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 directory in which the XEmacs executable resides.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 Due to the nature of dynamic modules, the path names should almost always
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576 refer to architecture-dependant directories. It is unwise to attempt to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 store dynamic modules in a hetrogenous environment. Some environments
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 are similar enough to each other that XEmacs will be unable to determine
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 the correctness of a dynamic module, which can have unpredictable results
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 when a dynamic module is loaded.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 */);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 /* #### Export this to Lisp */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584 Vmodule_extensions = build_string (":.ell:.so:.dll");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585 staticpro (&Vmodule_extensions);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 load_modules_quietly = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 Vmodule_load_path = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 Fprovide (intern ("modules"));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592 #endif /* HAVE_SHLIB */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593