comparison src/lread.c @ 17038:f7a1e78fe210

Include charset.h. (Vload_source_file_function): New variable. (Fload): Call Vload_source_file_function if defined while loading an Emacs Lisp source file. */ (read_multibyte): New function. (read_escape): Handle multibyte characters. (read1): Correct the value of size_in_chars of a bool vector. Handle the case `?' is followed by a multibyte character. (Vload_source_file_function): New variable.

17037:af637c0168ad

#include <errno.h>
#include "lisp.h"

#ifndef standalone
#include "buffer.h"
#include <paths.h>
#include "commands.h"
#include "keyboard.h"
#include "termhooks.h"
#endif

   It must be set to nil before all top-level calls to read0.  */
Lisp_Object read_objects;

/* Nonzero means load should forcibly load all dynamic doc strings.  */
static int load_force_doc_strings;

/* List of descriptors now open for Fload.  */
static Lisp_Object load_descriptor_list;

/* File for get_file_char to read from.  Use by load.  */

   or worry about what happens to it when there is an error.  */
static int new_backquote_flag;

/* Handle unreading and rereading of characters.
   Write READCHAR to read a character,
   UNREAD(c) to unread c to be read again. */

#define READCHAR readchar (readcharfun)
#define UNREAD(c) unreadchar (readcharfun, c)

static int

	    message ("Source file `%s' newer than byte-compiled file",
		     XSTRING (found)->data);
	}
      XSTRING (found)->data[XSTRING (found)->size - 1] = 'c';
    }

#ifdef DOS_NT
  close (fd);
  stream = fopen ((char *) XSTRING (found)->data, dosmode);
#else  /* not DOS_NT */

  return val;
}

static int read_buffer_size;
static char *read_buffer;

static int
read_escape (readcharfun)
     Lisp_Object readcharfun;
{

	  }
	return i;
      }

    default:
      return c;
    }
}

/* If the next token is ')' or ']' or '.', we store that character

	c = READCHAR;
	if (c < 0) return Fsignal (Qend_of_file, Qnil);

	if (c == '\\')
	  XSETINT (val, read_escape (readcharfun));
	else
	  XSETINT (val, c);

	return val;
      }

    case '\"':

  DEFVAR_LISP ("load-read-function", &Vload_read_function,
    "Function used by `load' and `eval-region' for reading expressions.\n\
The default is nil, which means use the function `read'.");
  Vload_read_function = Qnil;

  DEFVAR_BOOL ("load-force-doc-strings", &load_force_doc_strings,
     "Non-nil means `load' should force-load all dynamic doc strings.\n\
This is useful when the file being loaded is a temporary copy.");
  load_force_doc_strings = 0;

17038:f7a1e78fe210

#include <errno.h>
#include "lisp.h"

#ifndef standalone
#include "buffer.h"
#include "charset.h"
#include <paths.h>
#include "commands.h"
#include "keyboard.h"
#include "termhooks.h"
#endif

   It must be set to nil before all top-level calls to read0.  */
Lisp_Object read_objects;

/* Nonzero means load should forcibly load all dynamic doc strings.  */
static int load_force_doc_strings;

/* Function to use for loading an Emacs lisp source file (not
   compiled) instead of readevalloop.  */
Lisp_Object Vload_source_file_function;

/* List of descriptors now open for Fload.  */
static Lisp_Object load_descriptor_list;

/* File for get_file_char to read from.  Use by load.  */

   or worry about what happens to it when there is an error.  */
static int new_backquote_flag;

/* Handle unreading and rereading of characters.
   Write READCHAR to read a character,
   UNREAD(c) to unread c to be read again.

   These macros actually read/unread a byte code, multibyte characters
   are not handled here.  The caller should manage them if necessary.
 */

#define READCHAR readchar (readcharfun)
#define UNREAD(c) unreadchar (readcharfun, c)

static int

	    message ("Source file `%s' newer than byte-compiled file",
		     XSTRING (found)->data);
	}
      XSTRING (found)->data[XSTRING (found)->size - 1] = 'c';
    }
  else
    {
      /* We are loading a source file (*.el).  */
      if (!NILP (Vload_source_file_function))
	{
	  close (fd);
	  return call3 (Vload_source_file_function, found, file,
			NILP (noerror) ? Qnil : Qt,
			NILP (nomessage) ? Qnil : Qt);
	}
    }

#ifdef DOS_NT
  close (fd);
  stream = fopen ((char *) XSTRING (found)->data, dosmode);
#else  /* not DOS_NT */

  return val;
}

static int read_buffer_size;
static char *read_buffer;

/* Read multibyte form and return it as a character.  C is a first
   byte of multibyte form, and rest of them are read from
   READCHARFUN.  */
static int
read_multibyte (c, readcharfun)
     register int c;
     Lisp_Object readcharfun;
{
  /* We need the actual character code of this multibyte
     characters.  */
  unsigned char str[MAX_LENGTH_OF_MULTI_BYTE_FORM];
  int len = 0;

  str[len++] = c;
  while ((c = READCHAR) >= 0xA0
	 && len < MAX_LENGTH_OF_MULTI_BYTE_FORM)
    str[len++] = c;
  UNREAD (c);
  return STRING_CHAR (str, len);
}

static int
read_escape (readcharfun)
     Lisp_Object readcharfun;
{

	  }
	return i;
      }

    default:
      if (BASE_LEADING_CODE_P (c))
	c = read_multibyte (c, readcharfun);
      return c;
    }
}

/* If the next token is ')' or ']' or '.', we store that character

	c = READCHAR;
	if (c < 0) return Fsignal (Qend_of_file, Qnil);

	if (c == '\\')
	  c = read_escape (readcharfun);
	else if (BASE_LEADING_CODE_P (c))
	  c = read_multibyte (c, readcharfun);
	XSETINT (val, c);

	return val;
      }

    case '\"':

  DEFVAR_LISP ("load-read-function", &Vload_read_function,
    "Function used by `load' and `eval-region' for reading expressions.\n\
The default is nil, which means use the function `read'.");
  Vload_read_function = Qnil;

  DEFVAR_LISP ("load-source-file-function", &Vload_source_file_function,
    "Function called in `load' for loading an Emacs lisp source file.\n\
This function is for doing code conversion before reading the source file.\n\
If nil, loading is done without any code conversion.\n\
Arguments are FULLNAME, FILE, NOERROR, NOMESSAGE, where\n\
 FULLNAME is the full name of FILE.\n\
See `load' for the meaning of the remaining arguments.");
  Vload_source_file_function = Qnil;

  DEFVAR_BOOL ("load-force-doc-strings", &load_force_doc_strings,
     "Non-nil means `load' should force-load all dynamic doc strings.\n\
This is useful when the file being loaded is a temporary copy.");
  load_force_doc_strings = 0;