extSoftVersion() now reports "zstd"`s version when available

git-svn-id: https://svn.r-project.org/R/trunk@88373 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: maechler

doc/NEWS.Rd

@@ -50,6 +50,10 @@
       \item \code{untar(tar = "internal")} supports \code{extras =
 	"-P"} to use unchanged the recorded file paths (as many external
       \command{tar} programs do).
+
+      \item \code{extSoftVersion()[["zstd"]]} now reports the version of
+      the \command{zstd} compression library if available, thanks to
+      \I{Trevor Davis}' patch proposal in \PR{18914}.
     }
   }
 
@@ -151,7 +155,7 @@
 
       \item \code{<Date> \%in\% set} is again as fast as it was
       before \R 4.3.0, \emph{via} a new S3 method \code{mtfrm.Date}.
-      
+
       \code{<character> \%in\% <Date>} and vice versa are now
       documented to work in concordance with \code{==} and as an exception
       to the typical \code{match()} behaviour which relies on

src/library/base/man/extSoftVersion.Rd

@@ -1,6 +1,6 @@
 % File src/library/base/man/extSoftVersion.Rd
 % Part of the R package, https://www.R-project.org
-% Copyright 2014-2023 R Core Team
+% Copyright 2014-2025 R Core Team
 % Distributed under GPL 2 or later
 
 \name{extSoftVersion}
@@ -30,7 +30,7 @@ extSoftVersion()
   \item{libdeflate}{The version of \code{libdeflate} (if any otherwise
     \code{""}) used when \R was built.}
   \item{PCRE}{The version of \code{PCRE} in use. PCRE1 has versions < 10.00,
-  PCRE2 has versions >= 10.00.}
+    PCRE2 has versions >= 10.00.}
   \item{ICU}{The version of \code{ICU} in use (if any, otherwise \code{""}).}
   \item{TRE}{The version of \code{libtre} in use.}
   \item{iconv}{The implementation and version of the \code{iconv}
@@ -42,7 +42,9 @@ extSoftVersion()
     seen on macOS.
   }
   \item{BLAS}{Name of the binary/executable file with the implementation of
-  \code{BLAS} in use (if known, otherwise \code{""}).}
+    \code{BLAS} in use (if known, otherwise \code{""}).}
+  \item{zstd}{The version of \code{zstd} (from \command{zstd}) in use (if
+    any, otherwise \code{""}).}
 
   Note that the values for \code{bzlib} and \code{pcre} normally contain
   a date as well as the version number, and that for \code{tre} includes
@@ -68,16 +70,20 @@ extSoftVersion()
 }
 \seealso{
   \code{\link{libcurlVersion}} for the version of \code{libCurl}.
-  
+
   \code{\link{La_version}} for the version of LAPACK in use.
 
   \code{\link{La_library}} for binary/executable file with LAPACK in use.
 
   \code{\link{grSoftVersion}} for third-party graphics software.
 
   \code{\link{tclVersion}} in package \pkg{tcltk} for the version of Tcl/Tk.
-  
+
   \code{\link{pcre_config}} for PCRE configuration options.
+
+  \code{\link{connection}} for how to use the file and connection
+  compression methods \code{"zlib"}, \code{"bzlib"}, \code{"xz"},
+  \code{"libdeflate"}, and \code{"zstd"}.
 }
 \examples{
 extSoftVersion()

src/main/platform.c

@@ -3644,12 +3644,13 @@ extern void *dlsym(void *handle, const char *symbol);
    without loading any modules; libraries available via modules are
    treated individually (libcurlVersion(), La_version(), etc)
 */
+#define nr_softVersion 11
 attribute_hidden SEXP
 do_eSoftVersion(SEXP call, SEXP op, SEXP args, SEXP rho)
 {
     checkArity(op, args);
-    SEXP ans = PROTECT(allocVector(STRSXP, 10));
-    SEXP nms = PROTECT(allocVector(STRSXP, 10));
+    SEXP ans = PROTECT(allocVector(STRSXP, nr_softVersion));
+    SEXP nms = PROTECT(allocVector(STRSXP, nr_softVersion));
     setAttrib(ans, R_NamesSymbol, nms);
     unsigned int i = 0;
     char p[256];
@@ -3669,6 +3670,15 @@ do_eSoftVersion(SEXP call, SEXP op, SEXP args, SEXP rho)
     SET_STRING_ELT(ans, i, mkChar(""));
 #endif
     SET_STRING_ELT(nms, i++, mkChar("libdeflate"));
+
+#ifdef HAVE_ZSTD
+#include <zstd.h>
+    SET_STRING_ELT(ans, i, mkChar(ZSTD_versionString()));
+#else
+    SET_STRING_ELT(ans, i, mkChar(""));
+#endif
+    SET_STRING_ELT(nms, i++, mkChar("zstd"));
+
 #ifdef HAVE_PCRE2
     pcre2_config(PCRE2_CONFIG_VERSION, p);
 #else