json: convenience I/O routines.

* lisplib.c (getput_set_entries): Register autoload for
get-jsons, put-jsons, file-get-json, file-put-json,
file-append-json, file-get-jsons, file-put-jsons,
file-append-jsons, command-get-json, command-put-json,
command-get-jsons and command-put-jsons.

* share/txr/stdlib/getput.tl (get-jsons, put-jsons,
file-get-json, file-put-json, file-append-json,
file-get-jsons, file-put-jsons, file-append-jsons,
command-get-json, command-put-json, command-get-jsons and
command-put-jsons): New functions.

1 files changed, 5 insertions, 0 deletions

diff --git a/lisplib.c b/lisplib.c
index a58a8972..26367cba 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -517,15 +517,20 @@ static val package_instantiate(val set_fun)
 static val getput_set_entries(val dlt, val fun)
 {
   val name[] = {
+    lit("get-jsons"), lit("put-jsons"),
     lit("file-get"), lit("file-put"), lit("file-append"),
     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"),
     lit("file-place-buf"), lit("file-append-buf"),
+    lit("file-get-json"), lit("file-put-json"), lit("file-append-json"),
+    lit("file-get-jsons"), lit("file-put-jsons"), lit("file-append-jsons"),
     lit("command-get"), lit("command-put"),
     lit("command-get-string"), lit("command-put-string"),
     lit("command-get-lines"), lit("command-put-lines"),
     lit("command-get-buf"), lit("command-put-buf"),
+    lit("command-get-json"), lit("command-put-json"),
+    lit("command-get-jsons"), lit("command-put-jsons"),
     nil
   };
   set_dlt_entries(dlt, name, fun);