New functions: read-objects, file-get-objects, ...

* parser.c (read_objects_common): New static function, formed
from read_objects_from-string.
(read_objects_from_string): Now wrapper for read_objects_common.
(read_objects): New function.

* parser.h (read_objects): Declared.

* eval.c (eval_init): Register read-objects intrinsic.

* autoload.c (getput_set_entries): Add three new symbols:
file-get-objects, file-put-objects and file-append-objects.

* stdlib/getput.tl (put-objects): New system function.
(file-get-objects, file-put-objects, file-append-objects):
New functions.

* txr.1: Documented.

* tests/018/getput.tl: New file.

1 files changed, 1 insertions, 0 deletions

diff --git a/autoload.c b/autoload.c
index 2b2b8f27..6d6deb4a 100644
--- a/autoload.c
+++ b/autoload.c
@@ -464,6 +464,7 @@ static val getput_set_entries(val fun)
   val name[] = {
     lit("get-jsons"), lit("put-jsons"),
     lit("file-get"), lit("file-put"), lit("file-append"),
+    lit("file-get-objects"), lit("file-put-objects"), lit("file-append-objects"),
     lit("file-get-string"), lit("file-put-string"), lit("file-append-string"),
     lit("file-get-lines"), lit("file-put-lines"), lit("file-append-lines"),
     lit("file-get-buf"), lit("file-put-buf"),