Mercurial > hg > xemacs-beta

comparison src/emodules.c @ 1733:5903b079bee1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-10-07 21:52:12 by james] Use module-extensions instead of an explicit list of module extensions.
author james
date Tue, 07 Oct 2003 21:52:26 +0000
parents a8d8f419b459
children 7580e52a8218
comparison
equal deleted inserted replaced
1732:2efe1d771c94 1733:5903b079bee1
599 progress, and will display the module name and version if the module 599 progress, and will display the module name and version if the module
600 is loaded correctly. Setting this variable to `t' will suppress these 600 is loaded correctly. Setting this variable to `t' will suppress these
601 messages. This would normally only be done if `load-module' was being 601 messages. This would normally only be done if `load-module' was being
602 called by a Lisp function. 602 called by a Lisp function.
603 */); 603 */);
604 load_modules_quietly = 0;
604 605
605 DEFVAR_LISP ("module-load-path", &Vmodule_load_path /* 606 DEFVAR_LISP ("module-load-path", &Vmodule_load_path /*
606 *List of directories to search for dynamic modules to load. 607 *List of directories to search for dynamic modules to load.
607 Each element is a string (directory name) or nil (try default directory). 608 Each element is a string (directory name) or nil (try default directory).
608 609
620 store dynamic modules in a heterogenous environment. Some environments 621 store dynamic modules in a heterogenous environment. Some environments
621 are similar enough to each other that XEmacs will be unable to determine 622 are similar enough to each other that XEmacs will be unable to determine
622 the correctness of a dynamic module, which can have unpredictable results 623 the correctness of a dynamic module, which can have unpredictable results
623 when a dynamic module is loaded. 624 when a dynamic module is loaded.
624 */); 625 */);
626 Vmodule_load_path = Qnil;
625 627
626 DEFVAR_BOOL ("unloading-module", &unloading_module /* 628 DEFVAR_BOOL ("unloading-module", &unloading_module /*
627 Used internally by `unload-feature'. Do not set this variable. 629 Used internally by `unload-feature'. Do not set this variable.
628 Danger, danger, Will Robinson! 630 Danger, danger, Will Robinson!
629 */); 631 */);
630 632 unloading_module = 0;
631 /* #### Export this to Lisp */ 633
632 Vmodule_extensions = list4 (build_string (".ell"), 634 DEFVAR_LISP ("module-extensions", &Vmodule_extensions /*
635 *List of filename extensions to use when searching for dynamic modules.
636 */);
637 Vmodule_extensions = list5 (build_string (".ell"),
633 build_string (".so"), 638 build_string (".so"),
634 build_string (".dll"), 639 build_string (".dll"),
635 build_string (".dylib")); 640 build_string (".dylib"),
636 staticpro (&Vmodule_extensions); 641 build_string (""));
637 642
638 load_modules_quietly = 0;
639 Vmodule_load_path = Qnil;
640 Fprovide (intern ("modules")); 643 Fprovide (intern ("modules"));
641 } 644 }
642 645
643 #endif /* HAVE_SHLIB */ 646 #endif /* HAVE_SHLIB */