From 3ea600b0840239c38e4b4014c6e5f4249042843d Mon Sep 17 00:00:00 2001 From: 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