lib/compat: add strmode() and xbps_strmode()

for printing file permissions and type

Author: classabbyamp

configure

@@ -549,6 +549,28 @@ else
 fi
 rm -f _$func.c _$func
 
+#
+# Check for strmode().
+func=strmode
+printf "Checking for $func() ... "
+cat <<EOF > _$func.c
+#include <unistd.h>
+
+int main(void) {
+	const char dest[] = "";
+	strmode(0104644, dest);
+	return 0;
+}
+EOF
+if $XCC _$func.c -o _$func 2>/dev/null; then
+	echo yes.
+	echo "CPPFLAGS+= -DHAVE_STRMODE" >>$CONFIG_MK
+else
+	echo no.
+	echo "COMPAT_OBJS+=	compat/strmode.o" >>$CONFIG_MK
+fi
+rm -f _$func.c _$func
+
 #
 # Check for rbtree_ininit().
 #

include/compat.h

@@ -37,4 +37,8 @@ int HIDDEN vasprintf(char **, const char *, va_list);
 int HIDDEN humanize_number(char *, size_t, int64_t, const char *, int, int);
 #endif
 
+#ifndef HAVE_STRMODE
+void HIDDEN strmode(mode_t, char *);
+#endif
+
 #endif /* COMPAT_H */

include/xbps.h.in

@@ -2213,6 +2213,14 @@ size_t xbps_strlcat(char *dst, const char *src, size_t dstsize);
  */
 size_t xbps_strlcpy(char *dst, const char *src, size_t dstsize);
 
+/**
+ * Convert a \a mode from stat to a string in \a buf.
+ *
+ * @param[in] mode Mode to convert.
+ * @param[out] buf Buffer to store the resulting string.
+ */
+void xbps_strmode(mode_t mode, char *buf);
+
 /**
  * Tests if pkgver is reverted by pkg
  *

lib/compat/strmode.c

@@ -0,0 +1,75 @@
+/*-
+ * Copyright (c) 2023 classabbyamp.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <sys/types.h>
+#include <sys/stat.h>
+
+#include "compat.h"
+
+void HIDDEN
+strmode(mode_t mode, char *buf) {
+	switch (mode & S_IFMT) {
+		// many of these are not currently packageable, but why not keep them for future compat?
+		case S_IFSOCK: *buf++ = 's'; break;
+		case S_IFLNK: *buf++ = 'l'; break;
+		case S_IFREG: *buf++ = '-'; break;
+		case S_IFBLK: *buf++ = 'b'; break;
+		case S_IFDIR: *buf++ = 'd'; break;
+		case S_IFCHR: *buf++ = 'c'; break;
+		case S_IFIFO: *buf++ = 'p'; break;
+#ifdef S_IFWHT
+		case S_IFWHT: *buf++ = 'w'; break;
+#endif
+		default: *buf++ = '?'; break;
+	}
+	*buf++ = (mode & S_IRUSR) ? 'r' : '-';
+	*buf++ = (mode & S_IWUSR) ? 'w' : '-';
+	switch (mode & (S_IXUSR | S_ISUID)) {
+		case (S_IXUSR | S_ISUID): *buf++ = 's'; break;
+		case S_ISUID: *buf++ = 'S'; break;
+		case S_IXUSR: *buf++ = 'x'; break;
+		default: *buf++ = '-'; break;
+	}
+
+	*buf++ = (mode & S_IRGRP) ? 'r' : '-';
+	*buf++ = (mode & S_IWGRP) ? 'w' : '-';
+	switch (mode & (S_IXGRP | S_ISGID)) {
+		case S_IXGRP | S_ISGID: *buf++ = 's'; break;
+		case S_ISUID: *buf++ = 'S'; break;
+		case S_IXGRP: *buf++ = 'x'; break;
+		default: *buf++ = '-'; break;
+	}
+
+	*buf++ = (mode & S_IROTH) ? 'r' : '-';
+	*buf++ = (mode & S_IWOTH) ? 'w' : '-';
+	switch (mode & (S_IXOTH | S_ISVTX)) {
+		case S_IXOTH | S_ISVTX: *buf++ = 't'; break;
+		case S_ISVTX: *buf++ = 'T'; break;
+		case S_IXOTH: *buf++ = 'x'; break;
+		default: *buf++ = '-'; break;
+	}
+
+	*buf = '\0';
+}

lib/util.c

@@ -532,6 +532,14 @@ xbps_strlcpy(char *dest, const char *src, size_t siz)
 	return strlcpy(dest, src, siz);
 }
 
+void
+xbps_strmode(mode_t mode, char *buf) {
+	assert(mode);
+	assert(buf);
+
+	return strmode(mode, buf);
+}
+
 /*
  * Check if pkg is explicitly marked to replace a specific installed version.
  */