From 3ea600b0840239c38e4b4014c6e5f4249042843d Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 24 Jun 2005 17:48:07 +0000
Subject: [PATCH] (read_from_c_string): New function.

---
 src/lread.c |   20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/src/lread.c b/src/lread.c
index 3e71469..0d6b06c 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1632,6 +1632,26 @@ START and END optionally delimit a substring of STRING from which to read;
   return tem;
 }
 
+Lisp_Object
+read_from_c_string (const unsigned char* str, size_t size)
+{
+  Lisp_Object tem;
+  Lisp_Object lispstream = Qnil;
+  struct gcpro gcpro1;
+
+#ifdef COMPILED_FUNCTION_ANNOTATION_HACK
+  Vcurrent_compiled_function_annotation = Qnil;
+#endif
+  GCPRO1 (lispstream);
+  lispstream = make_fixed_buffer_input_stream (str, size);
+
+  Vread_objects = Qnil;
+
+  tem = read0 (lispstream);
+  Lstream_delete (XLSTREAM (lispstream));
+  UNGCPRO;
+  return tem;
+}
 
 #ifdef LISP_BACKQUOTES
 
-- 
1.7.10.4