comparison src/lread.c @ 851:9620f7edf04d

entered into RCS

850:0bc61321ba50


/* get a character from the tty */

DEFUN ("read-char", Fread_char, Sread_char, 0, 0, 0,
  "Read a character from the command input (keyboard or macro).\n\
It is returned as a number.")
  ()
{
  register Lisp_Object val;

#ifndef standalone

#endif

  return val;
}

#ifdef HAVE_X_WINDOWS
DEFUN ("read-event", Fread_event, Sread_event, 0, 0, 0,
  "Read an event object from the input stream.")
  ()
{
  register Lisp_Object val;

  val = read_char (0);
  return val;
}
#endif

DEFUN ("read-char-exclusive", Fread_char_exclusive, Sread_char_exclusive, 0, 0, 0,
  "Read a character from the command input (keyboard or macro).\n\
It is returned as a number.  Non character events are ignored.")
  ()
{
  register Lisp_Object val;

#ifndef standalone
  val = read_char (0);
  while (XTYPE (val) != Lisp_Int)
    val = read_char (0);
#else
  val = getchar ();
#endif

  return val;

  defsubr (&Sload);
  defsubr (&Seval_buffer);
  defsubr (&Seval_region);
  defsubr (&Sread_char);
  defsubr (&Sread_char_exclusive);
#ifdef HAVE_X_WINDOWS
  defsubr (&Sread_event);
#endif /* HAVE_X_WINDOWS */
  defsubr (&Sget_file_char);
  defsubr (&Smapatoms);

  DEFVAR_LISP ("obarray", &Vobarray,
    "Symbol table for use by `intern' and `read'.\n\

851:9620f7edf04d


/* get a character from the tty */

DEFUN ("read-char", Fread_char, Sread_char, 0, 0, 0,
  "Read a character from the command input (keyboard or macro).\n\
It is returned as a number.\n\
If the user generates an event which is not a character (i.e. a mouse\n\
click or function key event), `read-char' signals an error.  If you\n\
want to read non-character events, or ignore them, call `read-event'\n\
or `read-char-exclusive' instead.")
  ()
{
  register Lisp_Object val;

#ifndef standalone

#endif

  return val;
}

DEFUN ("read-event", Fread_event, Sread_event, 0, 0, 0,
  "Read an event object from the input stream.")
  ()
{
  register Lisp_Object val;

  val = read_char (0);
  return val;
}

DEFUN ("read-char-exclusive", Fread_char_exclusive, Sread_char_exclusive, 0, 0, 0,
  "Read a character from the command input (keyboard or macro).\n\
It is returned as a number.  Non character events are ignored.")
  ()
{
  register Lisp_Object val;

#ifndef standalone
  do
    {
      val = read_char (0);
    }
  while (XTYPE (val) != Lisp_Int);
#else
  val = getchar ();
#endif

  return val;

  defsubr (&Sload);
  defsubr (&Seval_buffer);
  defsubr (&Seval_region);
  defsubr (&Sread_char);
  defsubr (&Sread_char_exclusive);
  defsubr (&Sread_event);
  defsubr (&Sget_file_char);
  defsubr (&Smapatoms);

  DEFVAR_LISP ("obarray", &Vobarray,
    "Symbol table for use by `intern' and `read'.\n\