New function: rlink.

This uses the linkat function to implement a variant of
link which resolves the source object if it is a symlink.

* configure: test for linkat.

* sysif.c (link_wrap_common): New static function, used
by both link_wrap and rlink_wrap.
(link_wrap): Now a one-liner which calls link_wrap_common.
(rlink_wrap): New static function.
(sysif_init): Register rlink intrinsic.

* txr.1: Documented.

1 files changed, 21 insertions, 2 deletions

diff --git a/sysif.c b/sysif.c
index e8fa1dac..b02ec607 100644
--- a/sysif.c
+++ b/sysif.c
@@ -957,14 +957,18 @@ static val symlink_wrap(val target, val to)
   return t;
 }
 
-static val link_wrap(val target, val to)
+static val link_wrap_common(val target, val to, val follow_link, val self)
 {
-  val self = lit("link");
   const wchar_t *wtarget = c_str(target, self);
   const wchar_t *wto = c_str(to, self);
   char *u8target = utf8_dup_to(wtarget);
   char *u8to = utf8_dup_to(wto);
+#if HAVE_LINKAT
+  int err = linkat(AT_FDCWD, u8target, AT_FDCWD, u8to,
+                   if3(follow_link, AT_SYMLINK_FOLLOW, 0));
+#else
   int err = link(u8target, u8to);
+#endif
   free(u8target);
   free(u8to);
 
@@ -977,6 +981,18 @@ static val link_wrap(val target, val to)
   return t;
 }
 
+static val link_wrap(val target, val to)
+{
+  return link_wrap_common(target, to, nil, lit("link"));
+}
+
+#if HAVE_LINKAT
+static val rlink_wrap(val target, val to)
+{
+  return link_wrap_common(target, to, t, lit("rlink"));
+}
+#endif
+
 static val readlink_wrap(val path)
 {
   val self = lit("readlink");
@@ -2783,6 +2799,9 @@ void sysif_init(void)
   reg_fun(intern(lit("symlink"), user_package), func_n2(symlink_wrap));
   reg_fun(intern(lit("link"), user_package), func_n2(link_wrap));
   reg_fun(intern(lit("readlink"), user_package), func_n1(readlink_wrap));
+#if HAVE_LINKAT
+  reg_fun(intern(lit("rlink"), user_package), func_n2(rlink_wrap));
+#endif
 #endif
 
 #if HAVE_FCNTL