use snprintf

git-svn-id: https://svn.r-project.org/R-packages/trunk@8166 694ef91d-65df-0310-b7bb-92e67a308ead

Author: ripley

XML/DESCRIPTION

@@ -1,5 +1,5 @@
 Package: XML
-Version: 3.99-0.12
+Version: 3.99-0.13
 Authors@R: c(person("CRAN Team", role = c('ctb', 'cre'),
                     email = "CRAN@r-project.org",
                     comment = "de facto maintainer since 2013"),

XML/src/DocParse.c

@@ -1447,7 +1447,7 @@ RS_XML(AttributeList)(xmlNodePtr node, R_XMLSettings *parserSettings)
          if(atts->name) {
            if(addNSPrefix && atts->ns && atts->ns->prefix) {
              char buf[400];
-             sprintf(buf, "%s:%s", atts->ns->prefix, atts->name);
+             snprintf(buf, 400, "%s:%s", atts->ns->prefix, atts->name);
              SET_STRING_ELT(ans_names, i, ENC_COPY_TO_USER_STRING(buf));
 	   } else
              SET_STRING_ELT(ans_names, i, ENC_COPY_TO_USER_STRING(XMLCHAR_TO_CHAR(atts->name)));

XML/src/Utils.c

@@ -106,7 +106,7 @@ RS_XML(treeApply)(USER_OBJECT_ rtree, USER_OBJECT_ function, USER_OBJECT_ args)
 
 #include <stdarg.h>
 
-void localXmlParserPrintFileInfo(xmlParserInputPtr input, char *buf);
+void localXmlParserPrintFileInfo(xmlParserInputPtr input, char *buf, int nbuf);
 
 
 #ifndef USE_LINKED_ERROR_HANDLER
@@ -128,7 +128,7 @@ void xmlParserError(void *ctx, const char *msg, ...)
   memset(buf , '\0', sizeof(buf)/sizeof(buf[0]));
 
     /* Insert the file and line number. */
-  localXmlParserPrintFileInfo(ctxt->input, buf);
+  localXmlParserPrintFileInfo(ctxt->input, buf, 3000);
     /* Move to the end of the buffer's contents. */
   tmp = buf + strlen(buf);
 
@@ -169,13 +169,13 @@ RSXML_setErrorHandlers(void)
     Write the file name and the current line number into the specified 
     string.
  */
-void localXmlParserPrintFileInfo(xmlParserInputPtr input, char *buf) {
+void localXmlParserPrintFileInfo(xmlParserInputPtr input, char *buf, int nbuf) {
     if (input != NULL) {
 	if (input->filename)
-	    sprintf(buf, "%s:%d: ", input->filename,
+	    snprintf(buf, nbuf, "%s:%d: ", input->filename,
 		    input->line);
 	else
-	    sprintf(buf, "Entity: line %d: ", input->line);
+	    snprintf(buf, nbuf, "Entity: line %d: ", input->line);
     }
 }
 

XML/src/XMLHashTree.c

@@ -63,7 +63,7 @@ static const char * const nodeElementNames[] =  {
    uniqueness.  Ignore the next definition in the comment!
 #define SET_NODE_NAME(x, id) sprintf(x, "%d", id)
 */
-#define SET_NODE_NAME(x, id, node) sprintf(x, "%p", (void *)node)
+#define SET_NODE_NAME(x, id, node) snprintf(x, 20, "%p", (void *)node)
 
 
 SEXP

boot/ChangeLog

@@ -1,3 +1,7 @@
+version 1.3-28.1 2022-11-21
+
+	Update URL in man/EEF.profile.Rd at KH's request.
+
 version 1.3-28 2021-04-17
 
 	Update fr translations.

boot/DESCRIPTION

@@ -1,7 +1,7 @@
 Package: boot
 Priority: recommended
-Version: 1.3-28
-Date: 2021-04-16
+Version: 1.3-28.1
+Date: 2022-11-21
 Authors@R: c(person("Angelo", "Canty", role = "aut",
 	             email = "cantya@mcmaster.ca"),
              person("Brian", "Ripley", role = c("aut", "trl", "cre"),

boot/man/EEF.profile.Rd

@@ -33,7 +33,7 @@ The functions are not intended for general use and are not supported
 as part of the \code{boot}package.  For more general and more robust
 code to calculate empirical likelihoods see Professor A. B. Owen's 
 empirical likelihood home page at the URL
-\url{https://statweb.stanford.edu/~owen/empirical/}.
+\url{https://artowen.su.domains/empirical/}
 }
 \value{
 A matrix with \code{n.t} rows.  The first column contains the