diff options
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 87 |
1 files changed, 60 insertions, 27 deletions
diff --git a/src/lread.c b/src/lread.c index c4456f37f6d..74a5fdfe67b 100644 --- a/src/lread.c +++ b/src/lread.c @@ -975,9 +975,20 @@ This uses the variables `load-suffixes' and `load-file-rep-suffixes'. */) return Fnreverse (lst); } +/* Returns true if STRING ends with SUFFIX */ +static bool +suffix_p (Lisp_Object string, const char *suffix) +{ + ptrdiff_t suffix_len = strlen (suffix); + ptrdiff_t string_len = SBYTES (string); + + return string_len >= suffix_len && !strcmp (SSDATA (string) + string_len - suffix_len, suffix); +} + DEFUN ("load", Fload, Sload, 1, 5, 0, doc: /* Execute a file of Lisp code named FILE. -First try FILE with `.elc' appended, then try with `.el', +First try FILE with `.elc' appended, then try with `.el', then try +with a system-dependent suffix of dynamic modules (see `load-suffixes'), then try FILE unmodified (the exact suffixes in the exact order are determined by `load-suffixes'). Environment variable references in FILE are replaced with their values by calling `substitute-in-file-name'. @@ -989,10 +1000,10 @@ Print messages at start and end of loading unless optional third arg NOMESSAGE is non-nil (but `force-load-messages' overrides that). If optional fourth arg NOSUFFIX is non-nil, don't try adding -suffixes `.elc' or `.el' to the specified name FILE. +suffixes to the specified name FILE. If optional fifth arg MUST-SUFFIX is non-nil, insist on -the suffix `.elc' or `.el'; don't accept just FILE unless -it ends in one of those suffixes or includes a directory name. +the suffix `.elc' or `.el' or the module suffix; don't accept just +FILE unless it ends in one of those suffixes or includes a directory name. If NOSUFFIX is nil, then if a file could not be found, try looking for a different representation of the file by adding non-empty suffixes to @@ -1074,12 +1085,12 @@ Return t if the file exists and loads successfully. */) if (! NILP (must_suffix)) { /* Don't insist on adding a suffix if FILE already ends with one. */ - ptrdiff_t size = SBYTES (file); - if (size > 3 - && !strcmp (SSDATA (file) + size - 3, ".el")) - must_suffix = Qnil; - else if (size > 4 - && !strcmp (SSDATA (file) + size - 4, ".elc")) + if (suffix_p (file, ".el") + || suffix_p (file, ".elc") +#ifdef HAVE_MODULES + || suffix_p (file, MODULES_SUFFIX) +#endif + ) must_suffix = Qnil; /* Don't insist on adding a suffix if the argument includes a directory name. */ @@ -1151,6 +1162,11 @@ Return t if the file exists and loads successfully. */) record_unwind_protect_int (close_file_unwind, fd); } +#ifdef HAVE_MODULES + if (suffix_p (found, MODULES_SUFFIX)) + return unbind_to (count, Fmodule_load (found)); +#endif + /* Check if we're stuck in a recursive load cycle. 2000-09-21: It's not possible to just check for the file loaded @@ -1189,8 +1205,7 @@ Return t if the file exists and loads successfully. */) specbind (Qold_style_backquotes, Qnil); record_unwind_protect (load_warn_old_style_backquotes, file); - if (!memcmp (SDATA (found) + SBYTES (found) - 4, ".elc", 4) - || (fd >= 0 && (version = safe_to_load_version (fd)) > 0)) + if (suffix_p (found, ".elc") || (fd >= 0 && (version = safe_to_load_version (fd)) > 0)) /* Load .elc files directly, but not when they are remote and have no handler! */ { @@ -1926,17 +1941,22 @@ readevalloop (Lisp_Object readcharfun, } DEFUN ("eval-buffer", Feval_buffer, Seval_buffer, 0, 5, "", - doc: /* Execute the current buffer as Lisp code. + doc: /* Execute the accessible portion of current buffer as Lisp code. +You can use \\[narrow-to-region] to limit the part of buffer to be evaluated. When called from a Lisp program (i.e., not interactively), this function accepts up to five optional arguments: -BUFFER is the buffer to evaluate (nil means use current buffer). -PRINTFLAG controls printing of output: - A value of nil means discard it; anything else is stream for print. +BUFFER is the buffer to evaluate (nil means use current buffer), + or a name of a buffer (a string). +PRINTFLAG controls printing of output by any output functions in the + evaluated code, such as `print', `princ', and `prin1': + a value of nil means discard it; anything else is the stream to print to. + See Info node `(elisp)Output Streams' for details on streams. FILENAME specifies the file name to use for `load-history'. UNIBYTE, if non-nil, specifies `load-convert-to-unibyte' for this invocation. -DO-ALLOW-PRINT, if non-nil, specifies that `print' and related - functions should work normally even if PRINTFLAG is nil. +DO-ALLOW-PRINT, if non-nil, specifies that output functions in the + evaluated code should work normally even if PRINTFLAG is nil, in + which case the output is displayed in the echo area. This function preserves the position of point. */) (Lisp_Object buffer, Lisp_Object printflag, Lisp_Object filename, Lisp_Object unibyte, Lisp_Object do_allow_print) @@ -1977,7 +1997,8 @@ When called from programs, expects two arguments, giving starting and ending indices in the current buffer of the text to be executed. Programs can pass third argument PRINTFLAG which controls output: -A value of nil means discard it; anything else is stream for printing it. + a value of nil means discard it; anything else is stream for printing it. + See Info node `(elisp)Output Streams' for details on streams. Also the fourth argument READ-FUNCTION, if non-nil, is used instead of `read' to read each expression. It gets one argument which is the input stream for reading characters. @@ -3926,10 +3947,8 @@ oblookup (Lisp_Object obarray, register const char *ptr, ptrdiff_t size, ptrdiff Lisp_Object bucket, tem; obarray = check_obarray (obarray); - obsize = ASIZE (obarray); - /* This is sometimes needed in the middle of GC. */ - obsize &= ~ARRAY_MARK_FLAG; + obsize = gc_asize (obarray); hash = hash_string (ptr, size_byte) % obsize; bucket = AREF (obarray, hash); oblookup_last_bucket_number = hash; @@ -4334,7 +4353,7 @@ init_lread (void) load_path_check (default_lpath); /* Add the site-lisp directories to the front of the default. */ - if (!no_site_lisp) + if (!no_site_lisp && PATH_SITELOADSEARCH[0] != '\0') { Lisp_Object sitelisp; sitelisp = decode_env_path (0, PATH_SITELOADSEARCH, 0); @@ -4365,7 +4384,7 @@ init_lread (void) load_path_check (Vload_path); /* Add the site-lisp directories at the front. */ - if (initialized && !no_site_lisp) + if (initialized && !no_site_lisp && PATH_SITELOADSEARCH[0] != '\0') { Lisp_Object sitelisp; sitelisp = decode_env_path (0, PATH_SITELOADSEARCH, 0); @@ -4436,7 +4455,7 @@ to find all the symbols in an obarray, use `mapatoms'. */); DEFVAR_LISP ("values", Vvalues, doc: /* List of values of all expressions which were read, evaluated and printed. - Order is reverse chronological. */); +Order is reverse chronological. */); XSYMBOL (intern ("values"))->declared_special = 0; DEFVAR_LISP ("standard-input", Vstandard_input, @@ -4487,12 +4506,26 @@ programs that process this list should tolerate directories both with and without trailing slashes. */); DEFVAR_LISP ("load-suffixes", Vload_suffixes, - doc: /* List of suffixes for (compiled or source) Emacs Lisp files. + doc: /* List of suffixes for Emacs Lisp files and dynamic modules. +This list includes suffixes for both compiled and source Emacs Lisp files. This list should not include the empty string. `load' and related functions try to append these suffixes, in order, -to the specified file name if a Lisp suffix is allowed or required. */); +to the specified file name if a suffix is allowed or required. */); +#ifdef HAVE_MODULES + Vload_suffixes = list3 (build_pure_c_string (".elc"), + build_pure_c_string (".el"), + build_pure_c_string (MODULES_SUFFIX)); +#else Vload_suffixes = list2 (build_pure_c_string (".elc"), build_pure_c_string (".el")); +#endif + DEFVAR_LISP ("module-file-suffix", Vmodule_file_suffix, + doc: /* Suffix of loadable module file, or nil of modules are not supported. */); +#ifdef HAVE_MODULES + Vmodule_file_suffix = build_pure_c_string (MODULES_SUFFIX); +#else + Vmodule_file_suffix = Qnil; +#endif DEFVAR_LISP ("load-file-rep-suffixes", Vload_file_rep_suffixes, doc: /* List of suffixes that indicate representations of \ the same file. |