Make acl_entries work reliably.

diff --git a/ChangeLog b/ChangeLog
index 4aff8f4..3398391 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2008-06-02  Bruno Haible  <bruno@clisp.org>
 
+       * lib/acl_entries.c (acl_entries): Rewrite to use acl_get_entry.
+       * lib/copy-acl.c (qcopy_acl): Update comment.
+
+2008-06-02  Bruno Haible  <bruno@clisp.org>
+
        * lib/acl-entries.h: Enclose most definitions in #ifs for POSIX-draft
        like ACL APIs.
 

diff --git a/lib/acl_entries.c b/lib/acl_entries.c
index cd3c38b..a931fff 100644 (file)
--- a/lib/acl_entries.c
+++ b/lib/acl_entries.c
@@ -21,18 +21,38 @@
 
 #include "acl-internal.h"
 
+/* This file assumes POSIX-draft like ACLs
+   (Linux, FreeBSD, MacOS X, IRIX, Tru64).  */
+
 /* Return the number of entries in ACL.  */
 
 int
 acl_entries (acl_t acl)
 {
-  char *t;
-  int entries = 0;
-  char *text = acl_to_text (acl, NULL);
-  if (! text)
-    return -1;
-  for (t = text; *t; t++)
-    entries += (*t == '\n');
-  acl_free_text (text);
-  return entries;
+  int count = 0;
+
+  if (acl != NULL)
+    {
+#if HAVE_ACL_FIRST_ENTRY /* Linux, FreeBSD, MacOS X */
+      acl_entry_t ace;
+      int at_end;
+
+      for (at_end = acl_get_entry (acl, ACL_FIRST_ENTRY, &ace);
+          !at_end;
+          at_end = acl_get_entry (acl, ACL_NEXT_ENTRY, &ace))
+       count++;
+#else /* IRIX, Tru64 */
+# if HAVE_ACL_TO_SHORT_TEXT /* IRIX */
+      /* Don't use acl_get_entry: it is undocumented.  */
+      count = acl->acl_cnt;
+# endif
+# if HAVE_ACL_FREE_TEXT /* Tru64 */
+      /* Don't use acl_get_entry: it takes only one argument and does not
+        work.  */
+      count = acl->acl_num;
+# endif
+#endif
+    }
+
+  return count;
 }

diff --git a/lib/copy-acl.c b/lib/copy-acl.c
index c9b8935..2a32f7d 100644 (file)
--- a/lib/copy-acl.c
+++ b/lib/copy-acl.c
@@ -72,8 +72,7 @@ qcopy_acl (const char *src_name, int source_desc, const char *dst_name,
 
          acl_free (acl);
          /* On most hosts with MODE_INSIDE_ACL an ACL is trivial if n == 3,
-            and it cannot be less than 3.  On IRIX 6.5 it is also trivial if
-            n == -1.
+            and it cannot be less than 3.
             For simplicity and safety, assume the ACL is trivial if n <= 3.
             Also see file-has-acl.c for some of the other possibilities;
             it's not clear whether that complexity is needed here.  */