New inaddr-str and in6addr-str functions.

* lisplib.c (sock_set_entries): Register autoload entries for
inaddr-str and in6addr-str. Register prefix symbol to be
interned.

* share/txr/stdlib/socket.tl (sockaddr-in, sockaddr-in6): Both
structs get a new member, prefix, defaulting to the respective
number of bits in the address.
(inaddr-str, in6addr-str): New functions.

* tests/014/iaddr-str, tests/014/inaddr-str.expected,
tests/014/in6addr-str.tl, tests/014/in6addr-str.expected:
New files

* txr.1: Documented.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index 3478cd1c..6999efcd 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -343,6 +343,7 @@ static val sock_set_entries(val dlt, val fun)
     lit("ai-numericserv"),
     lit("str-inaddr"), lit("str-in6addr"),
     lit("str-inaddr-net"), lit("str-in6addr-net"),
+    lit("inaddr-str"), lit("in6addr-str"),
     lit("shut-rd"), lit("shut-wr"), lit("shut-rdwr"),
     lit("open-socket"), lit("open-socket-pair"),
     lit("sock-bind"), lit("sock-connect"), lit("sock-listen"),
@@ -352,7 +353,7 @@ static val sock_set_entries(val dlt, val fun)
   };
   val name_noload[] = {
     lit("family"), lit("addr"), lit("port"), lit("flow-info"),
-    lit("scope-id"), lit("path"), lit("flags"), lit("socktype"),
+    lit("scope-id"), lit("prefix"), lit("path"), lit("flags"), lit("socktype"),
     lit("protocol"), lit("canonname"), nil
   };
   set_dlt_entries(dlt, name, fun);