Mercurial > octave-nkf
annotate liboctave/oct-shlib.cc @ 8920:eb63fbe60fab
update copyright notices
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Sat, 07 Mar 2009 10:41:27 -0500 |
| parents | ed5811a1ec8f |
| children | 9035e668ca96 |
| rev | line source |
|---|---|
| 3326 | 1 /* |
| 2 | |
| 8920 | 3 Copyright (C) 1999, 2000, 2002, 2003, 2005, 2006, 2007, 2008 John W. Eaton |
| 3326 | 4 |
| 5 This file is part of Octave. | |
| 6 | |
| 7 Octave is free software; you can redistribute it and/or modify it | |
| 8 under the terms of the GNU General Public License as published by the | |
| 7016 | 9 Free Software Foundation; either version 3 of the License, or (at your |
| 10 option) any later version. | |
| 3326 | 11 |
| 12 Octave is distributed in the hope that it will be useful, but WITHOUT | |
| 13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 7016 | 18 along with Octave; see the file COPYING. If not, see |
| 19 <http://www.gnu.org/licenses/>. | |
| 3326 | 20 |
| 21 */ | |
| 22 | |
| 23 #ifdef HAVE_CONFIG_H | |
| 24 #include <config.h> | |
| 25 #endif | |
| 26 | |
|
7749
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
27 #include <map> |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
28 |
| 4110 | 29 #if defined (HAVE_SHL_LOAD_API) |
| 3326 | 30 #include <cerrno> |
| 31 #include <cstring> | |
| 32 #endif | |
| 33 | |
| 4162 | 34 #if defined (HAVE_DYLD_API) |
| 4429 | 35 #include <mach-o/dyld.h> |
| 4162 | 36 #endif |
| 37 | |
| 3326 | 38 extern "C" |
| 39 { | |
| 4110 | 40 #if defined (HAVE_DLOPEN_API) |
| 3326 | 41 #if defined (HAVE_DLFCN_H) |
| 42 #include <dlfcn.h> | |
| 43 #else | |
| 44 extern void *dlopen (const char *, int); | |
| 45 extern const char *dlerror (void); | |
| 46 extern void *dlsym (void *, const char *); | |
| 47 extern int dlclose (void *); | |
| 48 #endif | |
| 4110 | 49 #elif defined (HAVE_SHL_LOAD_API) |
| 3326 | 50 #include <dl.h> |
| 5451 | 51 #elif defined (HAVE_LOADLIBRARY_API) |
| 52 #include <windows.h> | |
| 6123 | 53 #undef min |
| 54 #undef max | |
| 3326 | 55 #endif |
| 56 } | |
| 57 | |
| 58 #include "file-stat.h" | |
| 59 #include "lo-error.h" | |
| 60 #include "oct-shlib.h" | |
| 61 #include "str-vec.h" | |
| 62 | |
| 63 class | |
| 64 octave_base_shlib : public octave_shlib | |
| 65 { | |
| 66 public: | |
| 67 | |
| 68 octave_base_shlib (void) | |
| 69 : octave_shlib (octave_xshlib ()), file (), fcn_names (), | |
| 70 tm_loaded (static_cast<time_t> (0)) | |
| 71 { count = 1; } | |
| 72 | |
| 3504 | 73 octave_base_shlib (const std::string& f) |
| 3326 | 74 : octave_shlib (octave_xshlib ()), file (f), fcn_names (), |
| 75 tm_loaded (static_cast<time_t> (0)) | |
| 76 { count = 1; } | |
| 77 | |
| 78 ~octave_base_shlib (void) { } | |
| 79 | |
| 5781 | 80 void open (const std::string&) { } |
| 3326 | 81 |
|
7749
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
82 // FIXME -- instead of returning a direct pointer to a function, |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
83 // perhaps this should return an object containing the pointer. |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
84 // Then we could do the reference counting without relying on users |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
85 // of this class to call remove at the appropriate time. However, |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
86 // when users accessed the internal pointer, they would still need |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
87 // to know that the pointer is only valid while the container is |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
88 // valid (similar to the std::string::c_str method). |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
89 |
| 3504 | 90 void *search (const std::string&, name_mangler = 0) { return 0; } |
| 3326 | 91 |
| 92 void close (octave_shlib::close_hook = 0) { } | |
| 93 | |
| 3504 | 94 bool remove (const std::string& fcn_name); |
| 3326 | 95 |
| 96 bool is_open (void) const { return false; } | |
| 97 | |
| 98 bool is_out_of_date (void) const; | |
| 99 | |
|
7749
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
100 size_t number_of_functions_loaded (void) const { return fcn_names.size (); } |
| 3326 | 101 |
| 3504 | 102 std::string file_name (void) const { return file; } |
| 3326 | 103 |
| 104 octave_time time_loaded (void) const { return tm_loaded; } | |
| 105 | |
| 106 protected: | |
| 107 | |
|
7749
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
108 typedef std::map<std::string, size_t>::iterator fcn_names_iterator; |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
109 typedef std::map<std::string, size_t>::const_iterator fcn_names_const_iterator; |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
110 |
| 3504 | 111 std::string file; |
| 3326 | 112 |
|
7749
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
113 std::map<std::string, size_t> fcn_names; |
| 3326 | 114 |
| 115 octave_time tm_loaded; | |
| 116 | |
| 5781 | 117 void stamp_time (void); |
| 3326 | 118 |
| 3504 | 119 void add_to_fcn_names (const std::string& name); |
| 3326 | 120 |
| 121 void do_close_hook (octave_shlib::close_hook = 0); | |
| 122 | |
| 123 void tabula_rasa (void); | |
| 124 | |
| 125 // No copying! | |
| 126 | |
| 127 octave_base_shlib (const octave_base_shlib&); | |
| 128 | |
| 129 octave_base_shlib& operator = (const octave_base_shlib&); | |
| 130 }; | |
| 131 | |
| 132 bool | |
| 3504 | 133 octave_base_shlib::remove (const std::string& fcn_name) |
| 3326 | 134 { |
| 135 bool retval = false; | |
| 136 | |
|
7749
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
137 fcn_names_iterator p = fcn_names.find (fcn_name); |
| 3326 | 138 |
| 7872 | 139 if (p != fcn_names.end () && --(p->second) == 0) |
| 3326 | 140 { |
|
7749
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
141 fcn_names.erase (fcn_name); |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
142 retval = true; |
| 3326 | 143 } |
| 144 | |
| 145 return retval; | |
| 146 } | |
| 147 | |
| 148 bool | |
| 149 octave_base_shlib::is_out_of_date (void) const | |
| 150 { | |
| 151 file_stat fs (file); | |
| 152 | |
| 153 return fs.is_newer (tm_loaded); | |
| 154 } | |
| 155 | |
| 156 void | |
| 5781 | 157 octave_base_shlib::stamp_time (void) |
| 3326 | 158 { |
| 159 tm_loaded.stamp (); | |
| 160 | |
| 5781 | 161 file_stat fs (file); |
| 3326 | 162 |
| 5781 | 163 if (fs.is_newer (tm_loaded)) |
| 164 (*current_liboctave_warning_with_id_handler) | |
| 165 ("Octave:warn-future-time-stamp", | |
| 166 "timestamp on file %s is in the future", file.c_str ()); | |
| 3326 | 167 } |
| 168 | |
| 169 void | |
| 3504 | 170 octave_base_shlib::add_to_fcn_names (const std::string& name) |
| 3326 | 171 { |
|
7749
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
172 fcn_names_iterator p = fcn_names.find (name); |
| 3326 | 173 |
|
7749
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
174 if (p == fcn_names.end ()) |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
175 fcn_names[name] = 1; |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
176 else |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
177 ++(p->second); |
| 3326 | 178 } |
| 179 | |
| 180 void | |
| 181 octave_base_shlib::do_close_hook (octave_shlib::close_hook cl_hook) | |
| 182 { | |
|
7749
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
183 for (fcn_names_iterator p = fcn_names.begin (); p != fcn_names.end (); p++) |
|
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
184 cl_hook (p->first); |
| 3326 | 185 } |
| 186 | |
| 187 void | |
| 188 octave_base_shlib::tabula_rasa (void) | |
| 189 { | |
| 190 file = ""; | |
| 191 | |
|
7749
14e05160b99f
reference counting for functions loaded from shared libraries
John W. Eaton <jwe@octave.org>
parents:
7520
diff
changeset
|
192 fcn_names.clear (); |
| 3326 | 193 |
| 194 tm_loaded = static_cast<time_t> (0); | |
| 195 } | |
| 196 | |
| 4110 | 197 #if defined (HAVE_DLOPEN_API) |
| 3326 | 198 |
| 199 class | |
| 200 octave_dlopen_shlib : public octave_base_shlib | |
| 201 { | |
| 202 public: | |
| 203 | |
| 204 octave_dlopen_shlib (void); | |
| 205 | |
| 206 ~octave_dlopen_shlib (void); | |
| 207 | |
| 5781 | 208 void open (const std::string& f); |
| 3326 | 209 |
| 3504 | 210 void *search (const std::string& name, name_mangler mangler = 0); |
| 3326 | 211 |
| 212 void close (octave_shlib::close_hook cl_hook = 0); | |
| 213 | |
| 214 bool is_open (void) const { return (library != 0); } | |
| 215 | |
| 216 private: | |
| 217 | |
| 218 // No copying! | |
| 219 | |
| 220 octave_dlopen_shlib (const octave_dlopen_shlib&); | |
| 221 | |
| 222 octave_dlopen_shlib& operator = (const octave_dlopen_shlib&); | |
| 223 | |
| 224 void *library; | |
| 225 }; | |
| 226 | |
| 227 octave_dlopen_shlib::octave_dlopen_shlib (void) | |
| 228 : octave_base_shlib (), library (0) | |
| 229 { | |
| 230 } | |
| 231 | |
| 232 octave_dlopen_shlib::~octave_dlopen_shlib (void) | |
| 233 { | |
| 234 close (); | |
| 235 } | |
| 236 | |
| 237 void | |
| 5781 | 238 octave_dlopen_shlib::open (const std::string& f) |
| 3326 | 239 { |
| 240 if (! is_open ()) | |
| 241 { | |
| 242 file = f; | |
| 243 | |
| 4184 | 244 int flags = 0; |
| 245 | |
|
8271
095b3e4d64e9
oct-shlib.cc: use RTLD_NOW option for dlopen
John W. Eaton <jwe@octave.org>
parents:
7872
diff
changeset
|
246 // Use RTLD_NOW to resolve all symbols before dlopen returns. |
|
095b3e4d64e9
oct-shlib.cc: use RTLD_NOW option for dlopen
John W. Eaton <jwe@octave.org>
parents:
7872
diff
changeset
|
247 // By using this option, dlopen will detect errors and Octave |
|
095b3e4d64e9
oct-shlib.cc: use RTLD_NOW option for dlopen
John W. Eaton <jwe@octave.org>
parents:
7872
diff
changeset
|
248 // won't exit if there are unresolved symbols in the file we are |
|
095b3e4d64e9
oct-shlib.cc: use RTLD_NOW option for dlopen
John W. Eaton <jwe@octave.org>
parents:
7872
diff
changeset
|
249 // loading, and we may even get a useful diagnostic. |
|
095b3e4d64e9
oct-shlib.cc: use RTLD_NOW option for dlopen
John W. Eaton <jwe@octave.org>
parents:
7872
diff
changeset
|
250 #if defined (RTLD_NOW) |
|
095b3e4d64e9
oct-shlib.cc: use RTLD_NOW option for dlopen
John W. Eaton <jwe@octave.org>
parents:
7872
diff
changeset
|
251 flags |= RTLD_NOW; |
| 4184 | 252 #endif |
| 253 | |
| 254 #if defined (RTLD_GLOBAL) | |
| 4193 | 255 flags |= RTLD_GLOBAL; |
| 4184 | 256 #endif |
| 257 | |
| 258 library = dlopen (file.c_str (), flags); | |
| 3326 | 259 |
| 260 if (library) | |
| 5781 | 261 stamp_time (); |
| 3326 | 262 else |
| 263 { | |
| 264 const char *msg = dlerror (); | |
| 265 | |
| 266 if (msg) | |
| 267 (*current_liboctave_error_handler) ("%s", msg); | |
| 268 } | |
| 269 } | |
| 270 else | |
| 271 (*current_liboctave_error_handler) | |
| 272 ("shared library %s is already open", file.c_str ()); | |
| 273 } | |
| 274 | |
| 275 void * | |
| 3504 | 276 octave_dlopen_shlib::search (const std::string& name, |
| 3326 | 277 octave_shlib::name_mangler mangler) |
| 278 { | |
| 279 void *function = 0; | |
| 280 | |
| 281 if (is_open ()) | |
| 282 { | |
| 3504 | 283 std::string sym_name = name; |
| 3326 | 284 |
| 285 if (mangler) | |
| 286 sym_name = mangler (name); | |
| 287 | |
| 288 function = dlsym (library, sym_name.c_str ()); | |
| 289 | |
| 290 if (function) | |
| 291 add_to_fcn_names (name); | |
| 292 } | |
| 293 else | |
| 294 (*current_liboctave_error_handler) | |
| 295 ("shared library %s is not open", file.c_str ()); | |
| 296 | |
| 297 return function; | |
| 298 } | |
| 299 | |
| 300 void | |
| 301 octave_dlopen_shlib::close (octave_shlib::close_hook cl_hook) | |
| 302 { | |
| 303 if (is_open ()) | |
| 304 { | |
| 5864 | 305 if (cl_hook) |
| 306 do_close_hook (cl_hook); | |
| 3326 | 307 |
| 308 dlclose (library); | |
| 309 | |
| 310 library = 0; | |
| 311 | |
| 312 tabula_rasa (); | |
| 313 } | |
| 314 } | |
| 315 | |
| 4110 | 316 #elif defined (HAVE_SHL_LOAD_API) |
| 3326 | 317 |
| 318 class | |
| 319 octave_shl_load_shlib : public octave_base_shlib | |
| 320 { | |
| 321 public: | |
| 322 | |
| 323 octave_shl_load_shlib (void); | |
| 324 | |
| 325 ~octave_shl_load_shlib (void); | |
| 326 | |
| 5781 | 327 void open (const std::string& f); |
| 3326 | 328 |
| 3504 | 329 void *search (const std::string& name, name_mangler mangler = 0); |
| 3326 | 330 |
| 331 void close (octave_shlib::close_hook cl_hook = 0); | |
| 332 | |
| 3609 | 333 bool is_open (void) const { return (library != 0); } |
| 3326 | 334 |
| 335 private: | |
| 336 | |
| 337 // No copying! | |
| 338 | |
| 339 octave_shl_load_shlib (const octave_shl_load_shlib&); | |
| 340 | |
| 341 octave_shl_load_shlib& operator = (const octave_shl_load_shlib&); | |
| 342 | |
| 343 shl_t library; | |
| 344 }; | |
| 345 | |
| 346 octave_shl_load_shlib::octave_shl_load_shlib (void) | |
| 347 : octave_base_shlib (), library (0) | |
| 348 { | |
| 349 } | |
| 350 | |
| 351 octave_shl_load_shlib::~octave_shl_load_shlib (void) | |
| 352 { | |
| 353 close (); | |
| 354 } | |
| 355 | |
| 356 void | |
| 5781 | 357 octave_shl_load_shlib::open (const std::string& f) |
| 3326 | 358 { |
| 359 if (! is_open ()) | |
| 360 { | |
| 361 file = f; | |
| 362 | |
| 363 library = shl_load (file.c_str (), BIND_DEFERRED, 0L); | |
| 364 | |
| 365 if (library) | |
| 5781 | 366 stamp_time (); |
| 3326 | 367 else |
| 3504 | 368 { |
| 369 using namespace std; | |
| 370 (*current_liboctave_error_handler) ("%s", strerror (errno)); | |
| 371 } | |
| 3326 | 372 } |
| 373 else | |
| 374 (*current_liboctave_error_handler) | |
| 375 ("shared library %s is already open", file.c_str ()); | |
| 376 } | |
| 377 | |
| 378 void * | |
| 3504 | 379 octave_shl_load_shlib::search (const std::string& name, |
| 3326 | 380 octave_shlib::name_mangler mangler) |
| 381 { | |
| 382 void *function = 0; | |
| 383 | |
| 384 if (is_open ()) | |
| 385 { | |
| 3609 | 386 std::string sym_name = name; |
| 3326 | 387 |
| 388 if (mangler) | |
| 389 sym_name = mangler (name); | |
| 390 | |
| 391 int status = shl_findsym (&library, sym_name.c_str (), | |
| 392 TYPE_UNDEFINED, &function); | |
| 393 | |
| 394 if (status == 0) | |
| 395 add_to_fcn_names (name); | |
| 396 } | |
| 397 else | |
| 398 (*current_liboctave_error_handler) | |
| 399 ("shared library %s is not open", file.c_str ()); | |
| 400 | |
| 401 return function; | |
| 402 } | |
| 403 | |
| 404 void | |
| 405 octave_shl_load_shlib::close (octave_shlib::close_hook cl_hook) | |
| 406 { | |
| 407 if (is_open ()) | |
| 408 { | |
| 5864 | 409 if (cl_hook) |
| 410 do_close_hook (cl_hook); | |
| 3326 | 411 |
| 412 shl_unload (library); | |
| 413 | |
| 414 library = 0; | |
| 415 | |
| 416 tabula_rasa (); | |
| 417 } | |
| 418 } | |
| 419 | |
| 4110 | 420 #elif defined (HAVE_LOADLIBRARY_API) |
| 421 | |
| 422 class | |
| 423 octave_w32_shlib: public octave_base_shlib | |
| 424 { | |
| 425 public: | |
| 426 | |
| 427 octave_w32_shlib (void); | |
| 428 | |
| 429 ~octave_w32_shlib (void); | |
| 430 | |
| 5781 | 431 void open (const std::string& f); |
| 4110 | 432 |
| 433 void *search (const std::string& name, name_mangler mangler = 0); | |
| 434 | |
| 435 void close (octave_shlib::close_hook cl_hook = 0); | |
| 436 | |
| 437 bool is_open (void) const { return (handle != 0); } | |
| 438 | |
| 439 private: | |
| 440 | |
| 441 // No copying! | |
| 442 | |
| 443 octave_w32_shlib (const octave_w32_shlib&); | |
| 444 | |
| 445 octave_w32_shlib& operator = (const octave_w32_shlib&); | |
| 446 | |
| 447 HINSTANCE handle; | |
| 448 }; | |
| 449 | |
| 450 octave_w32_shlib::octave_w32_shlib (void) | |
| 451 : octave_base_shlib (), handle (0) | |
| 452 { | |
| 453 } | |
| 454 | |
| 455 octave_w32_shlib::~octave_w32_shlib (void) | |
| 456 { | |
| 457 close (); | |
| 458 } | |
| 459 | |
| 460 void | |
| 5781 | 461 octave_w32_shlib::open (const std::string& f) |
| 4110 | 462 { |
| 463 if (! is_open ()) | |
| 464 { | |
| 465 file = f; | |
| 466 | |
| 467 handle = LoadLibrary (file.c_str ()); | |
| 468 | |
| 7520 | 469 if (handle) |
| 5781 | 470 stamp_time (); |
| 4110 | 471 else |
| 472 { | |
| 473 DWORD lastError = GetLastError (); | |
| 474 char *msg; | |
| 475 | |
| 476 switch (lastError) | |
| 477 { | |
| 478 case ERROR_MOD_NOT_FOUND: | |
| 479 case ERROR_DLL_NOT_FOUND: | |
| 480 msg = "could not find library or dependents"; | |
| 481 break; | |
| 482 | |
| 483 case ERROR_INVALID_DLL: | |
| 484 msg = "library or its dependents are damaged"; | |
| 485 break; | |
| 486 | |
| 487 case ERROR_DLL_INIT_FAILED: | |
| 488 msg = "library initialization routine failed"; | |
| 489 break; | |
| 490 | |
| 491 default: | |
| 492 msg = "library open failed"; | |
| 493 } | |
| 494 | |
| 495 (*current_liboctave_error_handler) ("%s: %s", msg, file.c_str ()); | |
| 496 } | |
| 497 } | |
| 498 else | |
| 499 (*current_liboctave_error_handler) | |
| 500 ("shared library %s is already open", file.c_str ()); | |
| 501 } | |
| 502 | |
| 5451 | 503 extern "C" |
| 504 { | |
| 505 void * octave_w32_search (HINSTANCE handle, const char * name); | |
| 506 } | |
| 507 | |
| 4110 | 508 void * |
| 509 octave_w32_shlib::search (const std::string& name, | |
| 510 octave_shlib::name_mangler mangler) | |
| 511 { | |
| 512 void *function = 0; | |
| 513 | |
| 514 if (is_open ()) | |
| 515 { | |
| 516 std::string sym_name = name; | |
| 517 | |
| 518 if (mangler) | |
| 519 sym_name = mangler (name); | |
| 520 | |
| 5451 | 521 function = octave_w32_library_search (handle, sym_name.c_str ()); |
| 4110 | 522 |
| 523 if (function) | |
| 524 add_to_fcn_names (name); | |
| 525 } | |
| 526 else | |
| 527 (*current_liboctave_error_handler) | |
| 528 ("shared library %s is not open", file.c_str ()); | |
| 529 | |
| 530 return function; | |
| 531 } | |
| 532 | |
| 533 void | |
| 534 octave_w32_shlib::close (octave_shlib::close_hook cl_hook) | |
| 535 { | |
| 536 if (is_open ()) | |
| 537 { | |
| 5864 | 538 if (cl_hook) |
| 539 do_close_hook (cl_hook); | |
| 4110 | 540 |
| 541 FreeLibrary (handle); | |
| 542 | |
| 543 handle = 0; | |
| 544 | |
| 545 tabula_rasa (); | |
| 546 } | |
| 547 } | |
| 548 | |
| 4162 | 549 #elif defined (HAVE_DYLD_API) |
| 550 | |
| 551 class | |
| 552 octave_dyld_shlib : public octave_base_shlib | |
| 553 { | |
| 554 public: | |
| 555 | |
| 556 octave_dyld_shlib (void); | |
| 557 | |
| 558 ~octave_dyld_shlib (void); | |
| 559 | |
| 5781 | 560 void open (const std::string& f); |
| 4162 | 561 |
| 562 void *search (const std::string& name, name_mangler mangler = 0); | |
| 563 | |
| 564 void close (octave_shlib::close_hook cl_hook = 0); | |
| 565 | |
| 566 bool is_open (void) const {return (isOpen); } | |
| 567 | |
| 568 private: | |
| 569 | |
| 570 // No copying! | |
| 571 | |
| 572 octave_dyld_shlib (const octave_dyld_shlib&); | |
| 573 | |
| 574 octave_dyld_shlib& operator = (const octave_dyld_shlib&); | |
| 575 | |
| 576 bool isOpen; | |
| 577 NSObjectFileImage img; | |
| 578 NSModule handle; | |
| 579 }; | |
| 580 | |
| 581 octave_dyld_shlib::octave_dyld_shlib (void) | |
| 582 : octave_base_shlib (), isOpen (false), handle (0) | |
| 583 { | |
| 584 } | |
| 585 | |
| 586 octave_dyld_shlib::~octave_dyld_shlib (void) | |
| 587 { | |
| 588 close (); | |
| 589 } | |
| 590 | |
| 591 void | |
| 5781 | 592 octave_dyld_shlib::open (const std::string& f) |
| 4162 | 593 { |
| 594 int returnCode; | |
| 595 | |
| 596 if (! is_open ()) | |
| 597 { | |
| 598 file = f; | |
| 599 | |
| 600 returnCode = NSCreateObjectFileImageFromFile (file.c_str (), &img); | |
| 601 | |
| 602 if (NSObjectFileImageSuccess == returnCode) | |
| 603 { | |
| 604 handle = NSLinkModule (img, file.c_str (), | |
| 605 (NSLINKMODULE_OPTION_RETURN_ON_ERROR | |
| 606 | NSLINKMODULE_OPTION_PRIVATE)); | |
| 607 if (handle) | |
| 608 { | |
| 5781 | 609 stamp_time (); |
| 4162 | 610 isOpen = true; |
| 611 } | |
| 612 else | |
| 613 { | |
|
8272
ed5811a1ec8f
Added output about why a library load fails on OSX
jpswensen@compsci34-82-1651.compscidhcp.jhu.edu
parents:
8271
diff
changeset
|
614 NSLinkEditErrors ler; |
|
ed5811a1ec8f
Added output about why a library load fails on OSX
jpswensen@compsci34-82-1651.compscidhcp.jhu.edu
parents:
8271
diff
changeset
|
615 int lerno; |
|
ed5811a1ec8f
Added output about why a library load fails on OSX
jpswensen@compsci34-82-1651.compscidhcp.jhu.edu
parents:
8271
diff
changeset
|
616 const char *file2; |
|
ed5811a1ec8f
Added output about why a library load fails on OSX
jpswensen@compsci34-82-1651.compscidhcp.jhu.edu
parents:
8271
diff
changeset
|
617 const char *errstr = 0; |
|
ed5811a1ec8f
Added output about why a library load fails on OSX
jpswensen@compsci34-82-1651.compscidhcp.jhu.edu
parents:
8271
diff
changeset
|
618 |
|
ed5811a1ec8f
Added output about why a library load fails on OSX
jpswensen@compsci34-82-1651.compscidhcp.jhu.edu
parents:
8271
diff
changeset
|
619 NSLinkEditError (&ler, &lerno, &file2, &errstr); |
|
ed5811a1ec8f
Added output about why a library load fails on OSX
jpswensen@compsci34-82-1651.compscidhcp.jhu.edu
parents:
8271
diff
changeset
|
620 |
|
ed5811a1ec8f
Added output about why a library load fails on OSX
jpswensen@compsci34-82-1651.compscidhcp.jhu.edu
parents:
8271
diff
changeset
|
621 if (errstr) |
|
ed5811a1ec8f
Added output about why a library load fails on OSX
jpswensen@compsci34-82-1651.compscidhcp.jhu.edu
parents:
8271
diff
changeset
|
622 (*current_liboctave_error_handler) |
|
ed5811a1ec8f
Added output about why a library load fails on OSX
jpswensen@compsci34-82-1651.compscidhcp.jhu.edu
parents:
8271
diff
changeset
|
623 ("%s: %s", file.c_str (), errstr); |
| 4162 | 624 } |
| 625 } | |
| 626 else | |
| 627 { | |
| 628 (*current_liboctave_error_handler) | |
| 629 ("got NSObjectFileImageReturnCode %d", returnCode); | |
| 630 | |
| 5775 | 631 // FIXME -- should use NSLinkEditError () to get |
| 4162 | 632 // more info on what went wrong. |
| 633 } | |
| 634 } | |
| 635 else | |
| 636 { | |
| 637 (*current_liboctave_error_handler) | |
| 638 ("bundle %s is already open", file.c_str ()); | |
| 639 } | |
| 640 } | |
| 641 | |
| 642 void * | |
| 643 octave_dyld_shlib::search (const std::string& name, | |
| 644 octave_shlib::name_mangler mangler) | |
| 645 { | |
| 646 void *function = 0; | |
| 647 | |
| 648 if (is_open ()) | |
| 649 { | |
| 650 std::string sym_name = name; | |
| 651 | |
| 652 if (mangler) | |
| 653 sym_name = mangler (name); | |
| 654 | |
| 655 NSSymbol symbol = NSLookupSymbolInModule (handle, sym_name.c_str ()); | |
| 656 | |
| 657 if (symbol) | |
| 658 { | |
| 659 function = NSAddressOfSymbol (symbol); | |
| 660 add_to_fcn_names (name); | |
| 661 } | |
| 662 } | |
| 663 else | |
| 664 (*current_liboctave_error_handler) | |
| 665 ("bundle %s is not open", file.c_str ()); | |
| 666 | |
| 667 return function; | |
| 668 } | |
| 669 | |
| 670 void | |
| 671 octave_dyld_shlib::close (octave_shlib::close_hook cl_hook) | |
| 672 { | |
| 673 if (is_open ()) | |
| 674 { | |
| 675 do_close_hook (cl_hook); | |
| 676 | |
| 677 NSUnLinkModule (handle, NSUNLINKMODULE_OPTION_RESET_LAZY_REFERENCES); | |
| 678 | |
| 679 handle = 0; | |
| 680 | |
| 681 if (NSDestroyObjectFileImage (img)) | |
| 682 isOpen = false; | |
| 683 | |
| 684 tabula_rasa (); | |
| 685 } | |
| 686 } | |
| 687 | |
| 3326 | 688 #endif |
| 689 | |
| 690 octave_shlib * | |
| 691 octave_shlib::make_shlib (void) | |
| 692 { | |
| 4110 | 693 #if defined (HAVE_DLOPEN_API) |
| 3326 | 694 return new octave_dlopen_shlib (); |
| 4110 | 695 #elif defined (HAVE_SHL_LOAD_API) |
| 3326 | 696 return new octave_shl_load_shlib (); |
| 4110 | 697 #elif defined (HAVE_LOADLIBRARY_API) |
| 698 return new octave_w32_shlib (); | |
| 4162 | 699 #elif defined (HAVE_DYLD_API) |
| 700 return new octave_dyld_shlib (); | |
| 3326 | 701 #else |
| 702 return new octave_base_shlib (); | |
| 703 #endif | |
| 704 } | |
| 705 | |
| 706 /* | |
| 707 ;;; Local Variables: *** | |
| 708 ;;; mode: C++ *** | |
| 709 ;;; End: *** | |
| 710 */ |