Libc-498.tar.gz

[apple/libc.git] / stdio / vswprintf-fbsd.c

diff --git a/stdio/vswprintf-fbsd.c b/stdio/vswprintf-fbsd.c
new file mode 100644 (file)
index 0000000..c955981
--- /dev/null
+++ b/stdio/vswprintf-fbsd.c
@@ -0,0 +1,156 @@
+/*     $OpenBSD: vasprintf.c,v 1.4 1998/06/21 22:13:47 millert Exp $   */
+
+/*
+ * Copyright (c) 1997 Todd C. Miller <Todd.Miller@courtesan.com>
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
+ * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
+ * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
+ * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
+ * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+ * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+ * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#include <sys/cdefs.h>
+#if 0
+__FBSDID("FreeBSD: src/lib/libc/stdio/vasprintf.c,v 1.16 2002/08/21 16:19:57 mike Exp ");
+#endif
+__FBSDID("$FreeBSD: src/lib/libc/stdio/vswprintf.c,v 1.5 2004/04/07 09:55:05 tjr Exp $");
+
+#include "xlocale_private.h"
+
+#include <errno.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <wchar.h>
+#include "local.h"
+
+int
+vswprintf(wchar_t * __restrict s, size_t n, const wchar_t * __restrict fmt,
+    __va_list ap)
+{
+       static const mbstate_t initial;
+       mbstate_t mbs;
+       FILE f;
+       struct __sFILEX ext;
+       char *mbp;
+       int ret, sverrno;
+       size_t conv;
+       locale_t loc = __current_locale();
+
+       if (n == 0) {
+               errno = EINVAL;
+               return (-1);
+       }
+
+       f._file = -1;
+       f._flags = __SWR | __SSTR | __SALC;
+       f._bf._base = f._p = (unsigned char *)malloc(128);
+       if (f._bf._base == NULL) {
+               errno = ENOMEM;
+               return (-1);
+       }
+       f._bf._size = f._w = 127;               /* Leave room for the NUL */
+       f._extra = &ext;
+       INITEXTRA(&f);
+       ret = __vfwprintf(&f, loc, fmt, ap);
+       if (ret < 0) {
+               sverrno = errno;
+               free(f._bf._base);
+               errno = sverrno;
+               return (-1);
+       }
+       *f._p = '\0';
+       mbp = (char *)f._bf._base;
+       /*
+        * XXX Undo the conversion from wide characters to multibyte that
+        * fputwc() did in __vfwprintf().
+        */
+       mbs = initial;
+       if ((conv = mbsrtowcs_l(s, (const char **)&mbp, n, &mbs, loc)) == (size_t)-1) {
+               free(f._bf._base);
+               errno = EILSEQ;
+               return (-1);
+       }
+       free(f._bf._base);
+       if (conv >= n) {
+               s[n - 1] = L'\0';
+               errno = EOVERFLOW;
+               return (-1);
+       }
+
+       return (ret);
+}
+
+int
+vswprintf_l(wchar_t * __restrict s, size_t n, locale_t loc,
+    const wchar_t * __restrict fmt, __va_list ap)
+{
+       static const mbstate_t initial;
+       mbstate_t mbs;
+       FILE f;
+       struct __sFILEX ext;
+       char *mbp;
+       int ret, sverrno;
+       size_t conv;
+
+       NORMALIZE_LOCALE(loc);
+       if (n == 0) {
+               errno = EINVAL;
+               return (-1);
+       }
+
+       f._file = -1;
+       f._flags = __SWR | __SSTR | __SALC;
+       f._bf._base = f._p = (unsigned char *)malloc(128);
+       if (f._bf._base == NULL) {
+               errno = ENOMEM;
+               return (-1);
+       }
+       f._bf._size = f._w = 127;               /* Leave room for the NUL */
+       f._extra = &ext;
+       INITEXTRA(&f);
+       ret = __vfwprintf(&f, loc, fmt, ap);
+       if (ret < 0) {
+               sverrno = errno;
+               free(f._bf._base);
+               errno = sverrno;
+               return (-1);
+       }
+       *f._p = '\0';
+       mbp = (char *)f._bf._base;
+       /*
+        * XXX Undo the conversion from wide characters to multibyte that
+        * fputwc() did in __vfwprintf().
+        */
+       mbs = initial;
+       if ((conv = mbsrtowcs_l(s, (const char **)&mbp, n, &mbs, loc)) == (size_t)-1) {
+               free(f._bf._base);
+               errno = EILSEQ;
+               return (-1);
+       }
+       free(f._bf._base);
+       if (conv >= n) {
+               s[n - 1] = L'\0';
+               errno = EOVERFLOW;
+               return (-1);
+       }
+
+       return (ret);
+}