octave-nkf/gnulib-hg: lib/vasnprintf.c annotate

annotate lib/vasnprintf.c @ 6583:eb8d54cb67a4

Fix an incorrect estimation of the sprintf result size.

author	Bruno Haible <bruno@clisp.org>
date	Mon, 23 Jan 2006 15:01:57 +0000
parents	a48fb0e98c8c
children	0fd12ba5cfc6

rev	line source
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	1 /* vsprintf with automatic memory allocation.
6583 eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	2 Copyright (C) 1999, 2002-2006 Free Software Foundation, Inc.
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	3
4440 e58a1c05a6ba Update gettext source files from gettext automatically, using srclist-update. Paul Eggert <eggert@cs.ucla.edu> parents: 4428 diff changeset	4 This program is free software; you can redistribute it and/or modify
e58a1c05a6ba Update gettext source files from gettext automatically, using srclist-update. Paul Eggert <eggert@cs.ucla.edu> parents: 4428 diff changeset	5 it under the terms of the GNU General Public License as published by
e58a1c05a6ba Update gettext source files from gettext automatically, using srclist-update. Paul Eggert <eggert@cs.ucla.edu> parents: 4428 diff changeset	6 the Free Software Foundation; either version 2, or (at your option)
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	7 any later version.
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	8
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	9 This program is distributed in the hope that it will be useful,
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	10 but WITHOUT ANY WARRANTY; without even the implied warranty of
4440 e58a1c05a6ba Update gettext source files from gettext automatically, using srclist-update. Paul Eggert <eggert@cs.ucla.edu> parents: 4428 diff changeset	11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
e58a1c05a6ba Update gettext source files from gettext automatically, using srclist-update. Paul Eggert <eggert@cs.ucla.edu> parents: 4428 diff changeset	12 GNU General Public License for more details.
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	13
4440 e58a1c05a6ba Update gettext source files from gettext automatically, using srclist-update. Paul Eggert <eggert@cs.ucla.edu> parents: 4428 diff changeset	14 You should have received a copy of the GNU General Public License along
e58a1c05a6ba Update gettext source files from gettext automatically, using srclist-update. Paul Eggert <eggert@cs.ucla.edu> parents: 4428 diff changeset	15 with this program; if not, write to the Free Software Foundation,
5848 a48fb0e98c8c * empty log message * Paul Eggert <eggert@cs.ucla.edu> parents: 5670 diff changeset	16 Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	17
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	18 /* Tell glibc's <stdio.h> to provide a prototype for snprintf().
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	19 This must come before <config.h> because <config.h> may include
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	20 <features.h>, and once <features.h> has been included, it's too late. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	21 #ifndef _GNU_SOURCE
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	22 # define _GNU_SOURCE 1
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	23 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	24
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	25 #ifdef HAVE_CONFIG_H
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	26 # include <config.h>
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	27 #endif
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	28 #ifndef IN_LIBINTL
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	29 # include <alloca.h>
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	30 #endif
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	31
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	32 /* Specification. */
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	33 #if WIDE_CHAR_VERSION
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	34 # include "vasnwprintf.h"
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	35 #else
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	36 # include "vasnprintf.h"
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	37 #endif
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	38
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	39 #include <stdio.h> /* snprintf(), sprintf() */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	40 #include <stdlib.h> /* abort(), malloc(), realloc(), free() */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	41 #include <string.h> /* memcpy(), strlen() */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	42 #include <errno.h> /* errno */
5217 dfed7854bcf3 Improve handling of the case length > INT_MAX. Bruno Haible <bruno@clisp.org> parents: 5066 diff changeset	43 #include <limits.h> /* CHAR_BIT, INT_MAX */
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	44 #include <float.h> /* DBL_MAX_EXP, LDBL_MAX_EXP */
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	45 #if WIDE_CHAR_VERSION
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	46 # include "wprintf-parse.h"
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	47 #else
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	48 # include "printf-parse.h"
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	49 #endif
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	50
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	51 /* Checked size_t computations. */
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	52 #include "xsize.h"
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	53
5664 13311bdb333d Update from gettext 0.14.2. Bruno Haible <bruno@clisp.org> parents: 5217 diff changeset	54 /* Some systems, like OSF/1 4.0 and Woe32, don't have EOVERFLOW. */
13311bdb333d Update from gettext 0.14.2. Bruno Haible <bruno@clisp.org> parents: 5217 diff changeset	55 #ifndef EOVERFLOW
13311bdb333d Update from gettext 0.14.2. Bruno Haible <bruno@clisp.org> parents: 5217 diff changeset	56 # define EOVERFLOW E2BIG
13311bdb333d Update from gettext 0.14.2. Bruno Haible <bruno@clisp.org> parents: 5217 diff changeset	57 #endif
13311bdb333d Update from gettext 0.14.2. Bruno Haible <bruno@clisp.org> parents: 5217 diff changeset	58
4523 6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	59 #ifdef HAVE_WCHAR_T
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	60 # ifdef HAVE_WCSLEN
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	61 # define local_wcslen wcslen
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	62 # else
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	63 /* Solaris 2.5.1 has wcslen() in a separate library libw.so. To avoid
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	64 a dependency towards this library, here is a local substitute.
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	65 Define this substitute only once, even if this file is included
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	66 twice in the same compilation unit. */
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	67 # ifndef local_wcslen_defined
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	68 # define local_wcslen_defined 1
4523 6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	69 static size_t
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	70 local_wcslen (const wchar_t *s)
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	71 {
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	72 const wchar_t *ptr;
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	73
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	74 for (ptr = s; *ptr != (wchar_t) 0; ptr++)
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	75 ;
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	76 return ptr - s;
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	77 }
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	78 # endif
4523 6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	79 # endif
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	80 #endif
6cc4874a100b Work around the lack of wcslen() on Solaris 2.5.1. Bruno Haible <bruno@clisp.org> parents: 4444 diff changeset	81
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	82 #if WIDE_CHAR_VERSION
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	83 # define VASNPRINTF vasnwprintf
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	84 # define CHAR_T wchar_t
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	85 # define DIRECTIVE wchar_t_directive
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	86 # define DIRECTIVES wchar_t_directives
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	87 # define PRINTF_PARSE wprintf_parse
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	88 # define USE_SNPRINTF 1
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	89 # if HAVE_DECL__SNWPRINTF
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	90 /* On Windows, the function swprintf() has a different signature than
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	91 on Unix; we use the _snwprintf() function instead. */
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	92 # define SNPRINTF _snwprintf
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	93 # else
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	94 /* Unix. */
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	95 # define SNPRINTF swprintf
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	96 # endif
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	97 #else
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	98 # define VASNPRINTF vasnprintf
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	99 # define CHAR_T char
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	100 # define DIRECTIVE char_directive
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	101 # define DIRECTIVES char_directives
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	102 # define PRINTF_PARSE printf_parse
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	103 # define USE_SNPRINTF (HAVE_DECL__SNPRINTF \|\| HAVE_SNPRINTF)
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	104 # if HAVE_DECL__SNPRINTF
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	105 /* Windows. */
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	106 # define SNPRINTF _snprintf
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	107 # else
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	108 /* Unix. */
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	109 # define SNPRINTF snprintf
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	110 # endif
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	111 #endif
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	112
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	113 CHAR_T *
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	114 VASNPRINTF (CHAR_T resultbuf, size_t lengthp, const CHAR_T *format, va_list args)
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	115 {
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	116 DIRECTIVES d;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	117 arguments a;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	118
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	119 if (PRINTF_PARSE (format, &d, &a) < 0)
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	120 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	121 errno = EINVAL;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	122 return NULL;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	123 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	124
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	125 #define CLEANUP() \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	126 free (d.dir); \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	127 if (a.arg) \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	128 free (a.arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	129
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	130 if (printf_fetchargs (args, &a) < 0)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	131 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	132 CLEANUP ();
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	133 errno = EINVAL;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	134 return NULL;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	135 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	136
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	137 {
4879 9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	138 size_t buf_neededlength;
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	139 CHAR_T *buf;
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	140 CHAR_T *buf_malloced;
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	141 const CHAR_T *cp;
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	142 size_t i;
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	143 DIRECTIVE *dp;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	144 /* Output string accumulator. */
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	145 CHAR_T *result;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	146 size_t allocated;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	147 size_t length;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	148
4879 9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	149 /* Allocate a small buffer that will hold a directive passed to
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	150 sprintf or snprintf. */
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	151 buf_neededlength =
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	152 xsum4 (7, d.max_width_length, d.max_precision_length, 6);
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	153 #if HAVE_ALLOCA
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	154 if (buf_neededlength < 4000 / sizeof (CHAR_T))
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	155 {
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	156 buf = (CHAR_T ) alloca (buf_neededlength sizeof (CHAR_T));
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	157 buf_malloced = NULL;
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	158 }
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	159 else
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	160 #endif
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	161 {
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	162 size_t buf_memsize = xtimes (buf_neededlength, sizeof (CHAR_T));
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	163 if (size_overflow_p (buf_memsize))
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	164 goto out_of_memory_1;
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	165 buf = (CHAR_T *) malloc (buf_memsize);
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	166 if (buf == NULL)
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	167 goto out_of_memory_1;
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	168 buf_malloced = buf;
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	169 }
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	170
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	171 if (resultbuf != NULL)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	172 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	173 result = resultbuf;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	174 allocated = *lengthp;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	175 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	176 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	177 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	178 result = NULL;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	179 allocated = 0;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	180 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	181 length = 0;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	182 /* Invariants:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	183 result is either == resultbuf or == NULL or malloc-allocated.
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	184 If length > 0, then result != NULL. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	185
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	186 /* Ensures that allocated >= needed. Aborts through a jump to
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	187 out_of_memory if needed is SIZE_MAX or otherwise too big. */
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	188 #define ENSURE_ALLOCATION(needed) \
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	189 if ((needed) > allocated) \
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	190 { \
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	191 size_t memory_size; \
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	192 CHAR_T *memory; \
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	193 \
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	194 allocated = (allocated > 0 ? xtimes (allocated, 2) : 12); \
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	195 if ((needed) > allocated) \
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	196 allocated = (needed); \
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	197 memory_size = xtimes (allocated, sizeof (CHAR_T)); \
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	198 if (size_overflow_p (memory_size)) \
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	199 goto out_of_memory; \
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	200 if (result == resultbuf \|\| result == NULL) \
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	201 memory = (CHAR_T *) malloc (memory_size); \
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	202 else \
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	203 memory = (CHAR_T *) realloc (result, memory_size); \
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	204 if (memory == NULL) \
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	205 goto out_of_memory; \
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	206 if (result == resultbuf && length > 0) \
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	207 memcpy (memory, result, length * sizeof (CHAR_T)); \
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	208 result = memory; \
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	209 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	210
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	211 for (cp = format, i = 0, dp = &d.dir[0]; ; cp = dp->dir_end, i++, dp++)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	212 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	213 if (cp != dp->dir_start)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	214 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	215 size_t n = dp->dir_start - cp;
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	216 size_t augmented_length = xsum (length, n);
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	217
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	218 ENSURE_ALLOCATION (augmented_length);
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	219 memcpy (result + length, cp, n * sizeof (CHAR_T));
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	220 length = augmented_length;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	221 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	222 if (i == d.count)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	223 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	224
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	225 /* Execute a single directive. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	226 if (dp->conversion == '%')
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	227 {
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	228 size_t augmented_length;
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	229
4886 e4317f1f2e2c Use size_t instead of ssize_t. Bruno Haible <bruno@clisp.org> parents: 4879 diff changeset	230 if (!(dp->arg_index == ARG_NONE))
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	231 abort ();
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	232 augmented_length = xsum (length, 1);
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	233 ENSURE_ALLOCATION (augmented_length);
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	234 result[length] = '%';
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	235 length = augmented_length;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	236 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	237 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	238 {
4886 e4317f1f2e2c Use size_t instead of ssize_t. Bruno Haible <bruno@clisp.org> parents: 4879 diff changeset	239 if (!(dp->arg_index != ARG_NONE))
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	240 abort ();
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	241
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	242 if (dp->conversion == 'n')
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	243 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	244 switch (a.arg[dp->arg_index].type)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	245 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	246 case TYPE_COUNT_SCHAR_POINTER:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	247 *a.arg[dp->arg_index].a.a_count_schar_pointer = length;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	248 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	249 case TYPE_COUNT_SHORT_POINTER:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	250 *a.arg[dp->arg_index].a.a_count_short_pointer = length;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	251 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	252 case TYPE_COUNT_INT_POINTER:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	253 *a.arg[dp->arg_index].a.a_count_int_pointer = length;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	254 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	255 case TYPE_COUNT_LONGINT_POINTER:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	256 *a.arg[dp->arg_index].a.a_count_longint_pointer = length;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	257 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	258 #ifdef HAVE_LONG_LONG
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	259 case TYPE_COUNT_LONGLONGINT_POINTER:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	260 *a.arg[dp->arg_index].a.a_count_longlongint_pointer = length;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	261 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	262 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	263 default:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	264 abort ();
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	265 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	266 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	267 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	268 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	269 arg_type type = a.arg[dp->arg_index].type;
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	270 CHAR_T *p;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	271 unsigned int prefix_count;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	272 int prefixes[2];
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	273 #if !USE_SNPRINTF
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	274 size_t tmp_length;
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	275 CHAR_T tmpbuf[700];
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	276 CHAR_T *tmp;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	277
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	278 /* Allocate a temporary buffer of sufficient size for calling
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	279 sprintf. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	280 {
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	281 size_t width;
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	282 size_t precision;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	283
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	284 width = 0;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	285 if (dp->width_start != dp->width_end)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	286 {
4886 e4317f1f2e2c Use size_t instead of ssize_t. Bruno Haible <bruno@clisp.org> parents: 4879 diff changeset	287 if (dp->width_arg_index != ARG_NONE)
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	288 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	289 int arg;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	290
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	291 if (!(a.arg[dp->width_arg_index].type == TYPE_INT))
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	292 abort ();
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	293 arg = a.arg[dp->width_arg_index].a.a_int;
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	294 width = (arg < 0 ? (unsigned int) (-arg) : arg);
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	295 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	296 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	297 {
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	298 const CHAR_T *digitp = dp->width_start;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	299
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	300 do
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	301 width = xsum (xtimes (width, 10), *digitp++ - '0');
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	302 while (digitp != dp->width_end);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	303 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	304 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	305
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	306 precision = 6;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	307 if (dp->precision_start != dp->precision_end)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	308 {
4886 e4317f1f2e2c Use size_t instead of ssize_t. Bruno Haible <bruno@clisp.org> parents: 4879 diff changeset	309 if (dp->precision_arg_index != ARG_NONE)
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	310 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	311 int arg;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	312
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	313 if (!(a.arg[dp->precision_arg_index].type == TYPE_INT))
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	314 abort ();
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	315 arg = a.arg[dp->precision_arg_index].a.a_int;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	316 precision = (arg < 0 ? 0 : arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	317 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	318 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	319 {
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	320 const CHAR_T *digitp = dp->precision_start + 1;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	321
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	322 precision = 0;
5066 a2cb70e482fc Fix for format strings like "%2.f". Bruno Haible <bruno@clisp.org> parents: 4886 diff changeset	323 while (digitp != dp->precision_end)
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	324 precision = xsum (xtimes (precision, 10), *digitp++ - '0');
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	325 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	326 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	327
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	328 switch (dp->conversion)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	329 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	330
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	331 case 'd': case 'i': case 'u':
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	332 # ifdef HAVE_LONG_LONG
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	333 if (type == TYPE_LONGLONGINT \|\| type == TYPE_ULONGLONGINT)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	334 tmp_length =
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	335 (unsigned int) (sizeof (unsigned long long) * CHAR_BIT
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	336 * 0.30103 /* binary -> decimal */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	337 )
6583 eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	338 + 1; /* turn floor into ceil */
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	339 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	340 # endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	341 if (type == TYPE_LONGINT \|\| type == TYPE_ULONGINT)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	342 tmp_length =
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	343 (unsigned int) (sizeof (unsigned long) * CHAR_BIT
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	344 * 0.30103 /* binary -> decimal */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	345 )
6583 eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	346 + 1; /* turn floor into ceil */
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	347 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	348 tmp_length =
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	349 (unsigned int) (sizeof (unsigned int) * CHAR_BIT
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	350 * 0.30103 /* binary -> decimal */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	351 )
6583 eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	352 + 1; /* turn floor into ceil */
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	353 if (tmp_length < precision)
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	354 tmp_length = precision;
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	355 /* Multiply by 2, as an estimate for FLAG_GROUP. */
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	356 tmp_length = xsum (tmp_length, tmp_length);
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	357 /* Add 1, to account for a leading sign. */
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	358 tmp_length = xsum (tmp_length, 1);
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	359 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	360
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	361 case 'o':
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	362 # ifdef HAVE_LONG_LONG
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	363 if (type == TYPE_LONGLONGINT \|\| type == TYPE_ULONGLONGINT)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	364 tmp_length =
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	365 (unsigned int) (sizeof (unsigned long long) * CHAR_BIT
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	366 * 0.333334 /* binary -> octal */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	367 )
6583 eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	368 + 1; /* turn floor into ceil */
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	369 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	370 # endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	371 if (type == TYPE_LONGINT \|\| type == TYPE_ULONGINT)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	372 tmp_length =
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	373 (unsigned int) (sizeof (unsigned long) * CHAR_BIT
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	374 * 0.333334 /* binary -> octal */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	375 )
6583 eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	376 + 1; /* turn floor into ceil */
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	377 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	378 tmp_length =
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	379 (unsigned int) (sizeof (unsigned int) * CHAR_BIT
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	380 * 0.333334 /* binary -> octal */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	381 )
6583 eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	382 + 1; /* turn floor into ceil */
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	383 if (tmp_length < precision)
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	384 tmp_length = precision;
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	385 /* Add 1, to account for a leading sign. */
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	386 tmp_length = xsum (tmp_length, 1);
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	387 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	388
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	389 case 'x': case 'X':
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	390 # ifdef HAVE_LONG_LONG
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	391 if (type == TYPE_LONGLONGINT \|\| type == TYPE_ULONGLONGINT)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	392 tmp_length =
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	393 (unsigned int) (sizeof (unsigned long long) * CHAR_BIT
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	394 * 0.25 /* binary -> hexadecimal */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	395 )
6583 eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	396 + 1; /* turn floor into ceil */
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	397 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	398 # endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	399 if (type == TYPE_LONGINT \|\| type == TYPE_ULONGINT)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	400 tmp_length =
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	401 (unsigned int) (sizeof (unsigned long) * CHAR_BIT
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	402 * 0.25 /* binary -> hexadecimal */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	403 )
6583 eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	404 + 1; /* turn floor into ceil */
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	405 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	406 tmp_length =
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	407 (unsigned int) (sizeof (unsigned int) * CHAR_BIT
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	408 * 0.25 /* binary -> hexadecimal */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	409 )
6583 eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	410 + 1; /* turn floor into ceil */
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	411 if (tmp_length < precision)
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	412 tmp_length = precision;
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	413 /* Add 2, to account for a leading sign or alternate form. */
eb8d54cb67a4 Fix an incorrect estimation of the sprintf result size. Bruno Haible <bruno@clisp.org> parents: 5848 diff changeset	414 tmp_length = xsum (tmp_length, 2);
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	415 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	416
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	417 case 'f': case 'F':
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	418 # ifdef HAVE_LONG_DOUBLE
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	419 if (type == TYPE_LONGDOUBLE)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	420 tmp_length =
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	421 (unsigned int) (LDBL_MAX_EXP
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	422 * 0.30103 /* binary -> decimal */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	423 * 2 /* estimate for FLAG_GROUP */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	424 )
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	425 + 1 /* turn floor into ceil */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	426 + 10; /* sign, decimal point etc. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	427 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	428 # endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	429 tmp_length =
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	430 (unsigned int) (DBL_MAX_EXP
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	431 * 0.30103 /* binary -> decimal */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	432 * 2 /* estimate for FLAG_GROUP */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	433 )
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	434 + 1 /* turn floor into ceil */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	435 + 10; /* sign, decimal point etc. */
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	436 tmp_length = xsum (tmp_length, precision);
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	437 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	438
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	439 case 'e': case 'E': case 'g': case 'G':
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	440 case 'a': case 'A':
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	441 tmp_length =
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	442 12; /* sign, decimal point, exponent etc. */
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	443 tmp_length = xsum (tmp_length, precision);
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	444 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	445
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	446 case 'c':
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	447 # if defined HAVE_WINT_T && !WIDE_CHAR_VERSION
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	448 if (type == TYPE_WIDE_CHAR)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	449 tmp_length = MB_CUR_MAX;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	450 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	451 # endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	452 tmp_length = 1;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	453 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	454
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	455 case 's':
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	456 # ifdef HAVE_WCHAR_T
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	457 if (type == TYPE_WIDE_STRING)
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	458 {
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	459 tmp_length =
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	460 local_wcslen (a.arg[dp->arg_index].a.a_wide_string);
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	461
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	462 # if !WIDE_CHAR_VERSION
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	463 tmp_length = xtimes (tmp_length, MB_CUR_MAX);
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	464 # endif
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	465 }
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	466 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	467 # endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	468 tmp_length = strlen (a.arg[dp->arg_index].a.a_string);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	469 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	470
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	471 case 'p':
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	472 tmp_length =
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	473 (unsigned int) (sizeof (void ) CHAR_BIT
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	474 * 0.25 /* binary -> hexadecimal */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	475 )
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	476 + 1 /* turn floor into ceil */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	477 + 2; /* account for leading 0x */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	478 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	479
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	480 default:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	481 abort ();
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	482 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	483
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	484 if (tmp_length < width)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	485 tmp_length = width;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	486
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	487 tmp_length = xsum (tmp_length, 1); /* account for trailing NUL */
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	488 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	489
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	490 if (tmp_length <= sizeof (tmpbuf) / sizeof (CHAR_T))
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	491 tmp = tmpbuf;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	492 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	493 {
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	494 size_t tmp_memsize = xtimes (tmp_length, sizeof (CHAR_T));
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	495
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	496 if (size_overflow_p (tmp_memsize))
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	497 /* Overflow, would lead to out of memory. */
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	498 goto out_of_memory;
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	499 tmp = (CHAR_T *) malloc (tmp_memsize);
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	500 if (tmp == NULL)
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	501 /* Out of memory. */
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	502 goto out_of_memory;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	503 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	504 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	505
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	506 /* Construct the format string for calling snprintf or
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	507 sprintf. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	508 p = buf;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	509 *p++ = '%';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	510 if (dp->flags & FLAG_GROUP)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	511 *p++ = '\'';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	512 if (dp->flags & FLAG_LEFT)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	513 *p++ = '-';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	514 if (dp->flags & FLAG_SHOWSIGN)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	515 *p++ = '+';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	516 if (dp->flags & FLAG_SPACE)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	517 *p++ = ' ';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	518 if (dp->flags & FLAG_ALT)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	519 *p++ = '#';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	520 if (dp->flags & FLAG_ZERO)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	521 *p++ = '0';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	522 if (dp->width_start != dp->width_end)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	523 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	524 size_t n = dp->width_end - dp->width_start;
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	525 memcpy (p, dp->width_start, n * sizeof (CHAR_T));
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	526 p += n;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	527 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	528 if (dp->precision_start != dp->precision_end)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	529 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	530 size_t n = dp->precision_end - dp->precision_start;
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	531 memcpy (p, dp->precision_start, n * sizeof (CHAR_T));
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	532 p += n;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	533 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	534
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	535 switch (type)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	536 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	537 #ifdef HAVE_LONG_LONG
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	538 case TYPE_LONGLONGINT:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	539 case TYPE_ULONGLONGINT:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	540 *p++ = 'l';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	541 /FALLTHROUGH/
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	542 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	543 case TYPE_LONGINT:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	544 case TYPE_ULONGINT:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	545 #ifdef HAVE_WINT_T
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	546 case TYPE_WIDE_CHAR:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	547 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	548 #ifdef HAVE_WCHAR_T
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	549 case TYPE_WIDE_STRING:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	550 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	551 *p++ = 'l';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	552 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	553 #ifdef HAVE_LONG_DOUBLE
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	554 case TYPE_LONGDOUBLE:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	555 *p++ = 'L';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	556 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	557 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	558 default:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	559 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	560 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	561 *p = dp->conversion;
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	562 #if USE_SNPRINTF
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	563 p[1] = '%';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	564 p[2] = 'n';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	565 p[3] = '\0';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	566 #else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	567 p[1] = '\0';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	568 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	569
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	570 /* Construct the arguments for calling snprintf or sprintf. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	571 prefix_count = 0;
4886 e4317f1f2e2c Use size_t instead of ssize_t. Bruno Haible <bruno@clisp.org> parents: 4879 diff changeset	572 if (dp->width_arg_index != ARG_NONE)
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	573 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	574 if (!(a.arg[dp->width_arg_index].type == TYPE_INT))
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	575 abort ();
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	576 prefixes[prefix_count++] = a.arg[dp->width_arg_index].a.a_int;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	577 }
4886 e4317f1f2e2c Use size_t instead of ssize_t. Bruno Haible <bruno@clisp.org> parents: 4879 diff changeset	578 if (dp->precision_arg_index != ARG_NONE)
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	579 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	580 if (!(a.arg[dp->precision_arg_index].type == TYPE_INT))
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	581 abort ();
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	582 prefixes[prefix_count++] = a.arg[dp->precision_arg_index].a.a_int;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	583 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	584
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	585 #if USE_SNPRINTF
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	586 /* Prepare checking whether snprintf returns the count
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	587 via %n. */
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	588 ENSURE_ALLOCATION (xsum (length, 1));
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	589 result[length] = '\0';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	590 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	591
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	592 for (;;)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	593 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	594 size_t maxlen;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	595 int count;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	596 int retcount;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	597
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	598 maxlen = allocated - length;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	599 count = -1;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	600 retcount = 0;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	601
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	602 #if USE_SNPRINTF
4704 b7a1b14802c8 Correct cpp indentation. Jim Meyering <jim@meyering.net> parents: 4589 diff changeset	603 # define SNPRINTF_BUF(arg) \
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	604 switch (prefix_count) \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	605 { \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	606 case 0: \
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	607 retcount = SNPRINTF (result + length, maxlen, buf, \
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	608 arg, &count); \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	609 break; \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	610 case 1: \
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	611 retcount = SNPRINTF (result + length, maxlen, buf, \
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	612 prefixes[0], arg, &count); \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	613 break; \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	614 case 2: \
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	615 retcount = SNPRINTF (result + length, maxlen, buf, \
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	616 prefixes[0], prefixes[1], arg, \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	617 &count); \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	618 break; \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	619 default: \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	620 abort (); \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	621 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	622 #else
4704 b7a1b14802c8 Correct cpp indentation. Jim Meyering <jim@meyering.net> parents: 4589 diff changeset	623 # define SNPRINTF_BUF(arg) \
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	624 switch (prefix_count) \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	625 { \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	626 case 0: \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	627 count = sprintf (tmp, buf, arg); \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	628 break; \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	629 case 1: \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	630 count = sprintf (tmp, buf, prefixes[0], arg); \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	631 break; \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	632 case 2: \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	633 count = sprintf (tmp, buf, prefixes[0], prefixes[1],\
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	634 arg); \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	635 break; \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	636 default: \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	637 abort (); \
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	638 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	639 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	640
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	641 switch (type)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	642 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	643 case TYPE_SCHAR:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	644 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	645 int arg = a.arg[dp->arg_index].a.a_schar;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	646 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	647 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	648 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	649 case TYPE_UCHAR:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	650 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	651 unsigned int arg = a.arg[dp->arg_index].a.a_uchar;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	652 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	653 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	654 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	655 case TYPE_SHORT:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	656 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	657 int arg = a.arg[dp->arg_index].a.a_short;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	658 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	659 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	660 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	661 case TYPE_USHORT:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	662 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	663 unsigned int arg = a.arg[dp->arg_index].a.a_ushort;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	664 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	665 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	666 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	667 case TYPE_INT:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	668 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	669 int arg = a.arg[dp->arg_index].a.a_int;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	670 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	671 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	672 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	673 case TYPE_UINT:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	674 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	675 unsigned int arg = a.arg[dp->arg_index].a.a_uint;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	676 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	677 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	678 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	679 case TYPE_LONGINT:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	680 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	681 long int arg = a.arg[dp->arg_index].a.a_longint;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	682 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	683 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	684 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	685 case TYPE_ULONGINT:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	686 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	687 unsigned long int arg = a.arg[dp->arg_index].a.a_ulongint;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	688 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	689 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	690 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	691 #ifdef HAVE_LONG_LONG
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	692 case TYPE_LONGLONGINT:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	693 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	694 long long int arg = a.arg[dp->arg_index].a.a_longlongint;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	695 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	696 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	697 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	698 case TYPE_ULONGLONGINT:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	699 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	700 unsigned long long int arg = a.arg[dp->arg_index].a.a_ulonglongint;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	701 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	702 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	703 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	704 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	705 case TYPE_DOUBLE:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	706 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	707 double arg = a.arg[dp->arg_index].a.a_double;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	708 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	709 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	710 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	711 #ifdef HAVE_LONG_DOUBLE
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	712 case TYPE_LONGDOUBLE:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	713 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	714 long double arg = a.arg[dp->arg_index].a.a_longdouble;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	715 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	716 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	717 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	718 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	719 case TYPE_CHAR:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	720 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	721 int arg = a.arg[dp->arg_index].a.a_char;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	722 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	723 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	724 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	725 #ifdef HAVE_WINT_T
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	726 case TYPE_WIDE_CHAR:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	727 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	728 wint_t arg = a.arg[dp->arg_index].a.a_wide_char;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	729 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	730 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	731 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	732 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	733 case TYPE_STRING:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	734 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	735 const char *arg = a.arg[dp->arg_index].a.a_string;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	736 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	737 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	738 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	739 #ifdef HAVE_WCHAR_T
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	740 case TYPE_WIDE_STRING:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	741 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	742 const wchar_t *arg = a.arg[dp->arg_index].a.a_wide_string;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	743 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	744 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	745 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	746 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	747 case TYPE_POINTER:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	748 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	749 void *arg = a.arg[dp->arg_index].a.a_pointer;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	750 SNPRINTF_BUF (arg);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	751 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	752 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	753 default:
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	754 abort ();
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	755 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	756
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	757 #if USE_SNPRINTF
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	758 /* Portability: Not all implementations of snprintf()
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	759 are ISO C 99 compliant. Determine the number of
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	760 bytes that snprintf() has produced or would have
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	761 produced. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	762 if (count >= 0)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	763 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	764 /* Verify that snprintf() has NUL-terminated its
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	765 result. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	766 if (count < maxlen && result[length + count] != '\0')
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	767 abort ();
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	768 /* Portability hack. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	769 if (retcount > count)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	770 count = retcount;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	771 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	772 else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	773 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	774 /* snprintf() doesn't understand the '%n'
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	775 directive. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	776 if (p[1] != '\0')
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	777 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	778 /* Don't use the '%n' directive; instead, look
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	779 at the snprintf() return value. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	780 p[1] = '\0';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	781 continue;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	782 }
4801 83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	783 else
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	784 {
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	785 /* Look at the snprintf() return value. */
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	786 if (retcount < 0)
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	787 {
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	788 /* HP-UX 10.20 snprintf() is doubly deficient:
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	789 It doesn't understand the '%n' directive,
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	790 and it returns -1 (rather than the length
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	791 that would have been required) when the
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	792 buffer is too small. */
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	793 size_t bigger_need =
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	794 xsum (xtimes (allocated, 2), 12);
4801 83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	795 ENSURE_ALLOCATION (bigger_need);
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	796 continue;
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	797 }
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	798 else
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	799 count = retcount;
83746ec4d74a Portability to HP-UX 10, found by Jim Meyering. Bruno Haible <bruno@clisp.org> parents: 4704 diff changeset	800 }
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	801 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	802 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	803
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	804 /* Attempt to handle failure. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	805 if (count < 0)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	806 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	807 if (!(result == resultbuf \|\| result == NULL))
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	808 free (result);
4879 9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	809 if (buf_malloced != NULL)
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	810 free (buf_malloced);
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	811 CLEANUP ();
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	812 errno = EINVAL;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	813 return NULL;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	814 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	815
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	816 #if !USE_SNPRINTF
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	817 if (count >= tmp_length)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	818 /* tmp_length was incorrectly calculated - fix the
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	819 code above! */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	820 abort ();
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	821 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	822
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	823 /* Make room for the result. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	824 if (count >= maxlen)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	825 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	826 /* Need at least count bytes. But allocate
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	827 proportionally, to avoid looping eternally if
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	828 snprintf() reports a too small count. */
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	829 size_t n =
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	830 xmax (xsum (length, count), xtimes (allocated, 2));
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	831
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	832 ENSURE_ALLOCATION (n);
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	833 #if USE_SNPRINTF
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	834 continue;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	835 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	836 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	837
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	838 #if USE_SNPRINTF
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	839 /* The snprintf() result did fit. */
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	840 #else
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	841 /* Append the sprintf() result. */
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	842 memcpy (result + length, tmp, count * sizeof (CHAR_T));
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	843 if (tmp != tmpbuf)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	844 free (tmp);
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	845 #endif
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	846
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	847 length += count;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	848 break;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	849 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	850 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	851 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	852 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	853
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	854 /* Add the final NUL. */
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	855 ENSURE_ALLOCATION (xsum (length, 1));
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	856 result[length] = '\0';
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	857
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	858 if (result != resultbuf && length + 1 < allocated)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	859 {
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	860 /* Shrink the allocated memory if possible. */
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	861 CHAR_T *memory;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	862
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	863 memory = (CHAR_T ) realloc (result, (length + 1) sizeof (CHAR_T));
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	864 if (memory != NULL)
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	865 result = memory;
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	866 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	867
4879 9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	868 if (buf_malloced != NULL)
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	869 free (buf_malloced);
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	870 CLEANUP ();
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	871 *lengthp = length;
5217 dfed7854bcf3 Improve handling of the case length > INT_MAX. Bruno Haible <bruno@clisp.org> parents: 5066 diff changeset	872 if (length > INT_MAX)
dfed7854bcf3 Improve handling of the case length > INT_MAX. Bruno Haible <bruno@clisp.org> parents: 5066 diff changeset	873 goto length_overflow;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	874 return result;
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	875
5217 dfed7854bcf3 Improve handling of the case length > INT_MAX. Bruno Haible <bruno@clisp.org> parents: 5066 diff changeset	876 length_overflow:
dfed7854bcf3 Improve handling of the case length > INT_MAX. Bruno Haible <bruno@clisp.org> parents: 5066 diff changeset	877 /* We could produce such a big string, but its length doesn't fit into
dfed7854bcf3 Improve handling of the case length > INT_MAX. Bruno Haible <bruno@clisp.org> parents: 5066 diff changeset	878 an 'int'. POSIX says that snprintf() fails with errno = EOVERFLOW in
dfed7854bcf3 Improve handling of the case length > INT_MAX. Bruno Haible <bruno@clisp.org> parents: 5066 diff changeset	879 this case. */
dfed7854bcf3 Improve handling of the case length > INT_MAX. Bruno Haible <bruno@clisp.org> parents: 5066 diff changeset	880 if (result != resultbuf)
dfed7854bcf3 Improve handling of the case length > INT_MAX. Bruno Haible <bruno@clisp.org> parents: 5066 diff changeset	881 free (result);
dfed7854bcf3 Improve handling of the case length > INT_MAX. Bruno Haible <bruno@clisp.org> parents: 5066 diff changeset	882 errno = EOVERFLOW;
dfed7854bcf3 Improve handling of the case length > INT_MAX. Bruno Haible <bruno@clisp.org> parents: 5066 diff changeset	883 return NULL;
dfed7854bcf3 Improve handling of the case length > INT_MAX. Bruno Haible <bruno@clisp.org> parents: 5066 diff changeset	884
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	885 out_of_memory:
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	886 if (!(result == resultbuf \|\| result == NULL))
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	887 free (result);
4879 9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	888 if (buf_malloced != NULL)
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	889 free (buf_malloced);
9b96adbed643 Avoid alloca with too large size. Bruno Haible <bruno@clisp.org> parents: 4872 diff changeset	890 out_of_memory_1:
4872 c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	891 CLEANUP ();
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	892 errno = ENOMEM;
c5afc99b8ce5 Use xsize.h to protect against memory size overflows. Bruno Haible <bruno@clisp.org> parents: 4871 diff changeset	893 return NULL;
4224 83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	894 }
83eabea25586 New modules vasnprintf and vasprintf. Bruno Haible <bruno@clisp.org> parents: diff changeset	895 }
4871 87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	896
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	897 #undef SNPRINTF
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	898 #undef USE_SNPRINTF
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	899 #undef PRINTF_PARSE
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	900 #undef DIRECTIVES
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	901 #undef DIRECTIVE
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	902 #undef CHAR_T
87df35000dab Merge support for wide characters, from GNU gettext. Bruno Haible <bruno@clisp.org> parents: 4801 diff changeset	903 #undef VASNPRINTF

Mercurial > hg > octave-nkf > gnulib-hg

annotate lib/vasnprintf.c @ 6583:eb8d54cb67a4