From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 7 Oct 1995 22:01:39 +0000 (+0000)
Subject: (read1): Handle chartables and boolvectors.
X-Git-Tag: emacs-19.34~2714
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/c239093310e6bed6ffdf192e9515371e0135ccaa

(read1): Handle chartables and boolvectors.
---

diff --git a/src/lread.c b/src/lread.c
index 8a85d84159..f281c92aba 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1180,6 +1180,46 @@ read1 (readcharfun, pch, first_in_list)
 
     case '#':
       c = READCHAR;
+      if (c == '^')
+	{
+	  c = READCHAR;
+	  if (c == '[')
+	    {
+	      Lisp_Object tmp;
+	      tmp = read_vector (readcharfun);
+	      if (XVECTOR (tmp)->size < CHAR_TABLE_STANDARD_SLOTS
+		  || XVECTOR (tmp)->size > CHAR_TABLE_STANDARD_SLOTS + 10)
+		error ("Invalid size char-table");
+	      XSETCHAR_TABLE (tmp, XCHAR_TABLE (tmp));
+	      return tmp;
+	    }
+	  Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#^", 2), Qnil));
+	}
+      if (c == '&')
+	{
+	  Lisp_Object length;
+	  length = read1 (readcharfun, pch, first_in_list);
+	  c = READCHAR;
+	  if (c == '"')
+	    {
+	      Lisp_Object tmp, val;
+	      int bits_per_char = INTBITS / sizeof (int);
+	      int size_in_chars = ((XFASTINT (length) + bits_per_char)
+				   / bits_per_char);
+
+	      UNREAD (c);
+	      tmp = read1 (readcharfun, pch, first_in_list);
+	      if (size_in_chars != XSTRING (tmp)->size)
+		Fsignal (Qinvalid_read_syntax,
+			 Fcons (make_string ("#&", 2), Qnil));
+		
+	      val = Fmake_bool_vector (length, Qnil);
+	      bcopy (XSTRING (tmp)->data, XBOOL_VECTOR (val)->data,
+		     size_in_chars);
+	      return val;
+	    }
+	  Fsignal (Qinvalid_read_syntax, Fcons (make_string ("#&", 2), Qnil));
+	}
       if (c == '[')
 	{
 	  /* Accept compiled functions at read-time so that we don't have to