port/locale/strfmon.c

4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore/*
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore * Copyright 2013 Garrett D'Amore <garrett@damore.org>
6b5e5868e7ebf1aff3a5abd7d0c4ef0e5fbf3648Garrett D'Amore * Copyright 2010 Nexenta Systems, Inc.  All rights reserved.
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * Copyright (c) 2001 Alexey Zelkin <phantom@FreeBSD.org>
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * All rights reserved.
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore *
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * Redistribution and use in source and binary forms, with or without
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * modification, are permitted provided that the following conditions
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * are met:
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * 1. Redistributions of source code must retain the above copyright
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore *    notice, this list of conditions and the following disclaimer.
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * 2. Redistributions in binary form must reproduce the above copyright
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore *    notice, this list of conditions and the following disclaimer in the
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore *    documentation and/or other materials provided with the distribution.
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore *
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore * SUCH DAMAGE.
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore *
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#ifndef _LCONV_C99
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define _LCONV_C99
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#endif
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#include "lint.h"
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#include <sys/types.h>
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#include <ctype.h>
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#include <errno.h>
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#include <limits.h>
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#include <locale.h>
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#include <monetary.h>
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#include <stdarg.h>
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#include <stdio.h>
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#include <stdlib.h>
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#include <string.h>
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore#include "localeimpl.h"
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore#include "lmonetary.h"
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore#include "lnumeric.h"
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore/* internal flags */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define NEED_GROUPING       0x01    /* print digits grouped (default) */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define SIGN_POSN_USED      0x02    /* '+' or '(' usage flag */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define LOCALE_POSN     0x04    /* use locale defined +/- (default) */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define PARENTH_POSN        0x08    /* enclose negative amount in () */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define SUPRESS_CURR_SYMBOL 0x10    /* supress the currency from output */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define LEFT_JUSTIFY        0x20    /* left justify */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define USE_INTL_CURRENCY   0x40    /* use international currency symbol */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define IS_NEGATIVE     0x80    /* is argument value negative ? */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore/* internal macros */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define PRINT(CH) {                     \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (dst >= s + maxsize)                 \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        goto e2big_error;               \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    *dst++ = CH;                        \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore}
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define PRINTS(STR) {                       \
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const char *tmps = STR;                 \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    while (*tmps != '\0')                   \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        PRINT(*tmps++);                 \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore}
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define GET_NUMBER(VAR) {                   \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    VAR = 0;                        \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    while (isdigit((unsigned char)*fmt)) {          \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (VAR > INT_MAX / 10)             \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            goto e2big_error;           \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        VAR *= 10;                  \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        VAR += *fmt - '0';              \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (VAR < 0)                    \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            goto e2big_error;           \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        fmt++;                      \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    }                           \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore}
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define GRPCPY(howmany) {                   \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    int i = howmany;                    \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    while (i-- > 0) {                   \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        avalue_size--;                  \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        *--bufend = *(avalue+avalue_size+padded);   \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    }                           \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore}
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore#define GRPSEP {                        \
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    bufend -= thousands_len;                \
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    (void) memcpy(bufend, thousands_sep, thousands_len);    \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    groups++;                       \
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore}
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amorestatic void setup_vars(const struct lc_monetary *, int, char *, char *, char *,
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const char **);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amorestatic int calc_left_pad(const struct lc_monetary *, int, const char *);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amorestatic char *format_grouped_double(const struct lc_monetary *,
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const struct lc_numeric *, double, int *, int, int, int);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amoressize_t
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amorestrfmon_impl(char *_RESTRICT_KYWD s, size_t maxsize, locale_t loc,
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const char *_RESTRICT_KYWD format, va_list ap)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore{
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    char        *dst;       /* output destination pointer */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    const char  *fmt;       /* current format poistion pointer */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    char        *asciivalue;    /* formatted double pointer */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    int     flags;      /* formatting options */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    int     pad_char;   /* padding character */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    int     pad_size;   /* pad size */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    int     width;      /* field width */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    int     left_prec;  /* left precision */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    int     right_prec; /* right precision */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    double      value;      /* just value */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    char        space_char = ' '; /* space after currency */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    char        cs_precedes;    /* values from struct lc_monetary */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    char        sep_by_space;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    char        sign_posn;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const char  *signstr;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const char  *currency_symbol;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    char        *tmpptr;    /* temporary vars */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    int     sverrno;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const struct lc_monetary *lmon;     /* monetary structure */
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const struct lc_numeric *lnum;      /* numeric structure */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    lmon = loc->monetary;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    lnum = loc->numeric;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    dst = s;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    fmt = format;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    asciivalue = NULL;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    currency_symbol = NULL;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    pad_size = 0;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    while (*fmt) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* pass nonformating characters AS IS */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (*fmt != '%')
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            goto literal;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* '%' found ! */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* "%%" mean just '%' */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (*(fmt+1) == '%') {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            fmt++;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    literal:
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            PRINT(*fmt++);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            continue;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* set up initial values */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        flags = (NEED_GROUPING|LOCALE_POSN);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        pad_char = ' ';     /* padding character is "space" */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        left_prec = -1;     /* no left precision specified */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        right_prec = -1;    /* no right precision specified */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        width = -1;     /* no width specified */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        value = 0;      /* we have no value to print now */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* Flags */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        for (;;) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            switch (*++fmt) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                case '=':   /* fill character */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    pad_char = *++fmt;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    if (pad_char == '\0')
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                        goto format_error;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    continue;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                case '^':   /* not group currency  */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    flags &= ~(NEED_GROUPING);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    continue;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                case '+':   /* use locale defined signs */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    if (flags & SIGN_POSN_USED)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                        goto format_error;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    flags |= (SIGN_POSN_USED|LOCALE_POSN);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    continue;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                case '(':   /* enclose negatives with () */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    if (flags & SIGN_POSN_USED)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                        goto format_error;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    flags |= (SIGN_POSN_USED|PARENTH_POSN);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    continue;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                case '!':   /* suppress currency symbol */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    flags |= SUPRESS_CURR_SYMBOL;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    continue;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                case '-':   /* alignment (left)  */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    flags |= LEFT_JUSTIFY;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    continue;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                default:
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    break;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            break;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* field Width */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (isdigit((unsigned char)*fmt)) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            GET_NUMBER(width);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            /*
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore             * Do we have enough space to put number with
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore             * required width ?
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore             */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if ((unsigned int)width >= maxsize - (dst - s))
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                goto e2big_error;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* Left precision */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (*fmt == '#') {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if (!isdigit((unsigned char)*++fmt))
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                goto format_error;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            GET_NUMBER(left_prec);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if ((unsigned int)left_prec >= maxsize - (dst - s))
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                goto e2big_error;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* Right precision */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (*fmt == '.') {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if (!isdigit((unsigned char)*++fmt))
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                goto format_error;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            GET_NUMBER(right_prec);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if ((unsigned int)right_prec >= maxsize - (dst - s) -
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                left_prec)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                goto e2big_error;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* Conversion Characters */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        switch (*fmt++) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            case 'i':   /* use internaltion currency format */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                flags |= USE_INTL_CURRENCY;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                break;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            case 'n':   /* use national currency format */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                flags &= ~(USE_INTL_CURRENCY);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                break;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            default:
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                /* required char missing or premature EOS */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                goto format_error;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (flags & USE_INTL_CURRENCY) {
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore            currency_symbol = lmon->int_curr_symbol;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore            /* by definition three letters followed by a space */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if (currency_symbol != NULL)
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore                space_char = currency_symbol[3];
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        } else
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore            currency_symbol = lmon->currency_symbol;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* value itself */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        value = va_arg(ap, double);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* detect sign */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (value < 0) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            flags |= IS_NEGATIVE;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            value = -value;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* fill left_prec with amount of padding chars */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (left_prec >= 0) {
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore            pad_size = calc_left_pad(lmon, (flags ^ IS_NEGATIVE),
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                currency_symbol) -
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore                calc_left_pad(lmon, flags, currency_symbol);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if (pad_size < 0)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                pad_size = 0;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (asciivalue != NULL)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            free(asciivalue);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        asciivalue = format_grouped_double(lmon, lnum, value, &flags,
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            left_prec, right_prec, pad_char);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (asciivalue == NULL)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            goto end_error;     /* errno already set */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                        /* to ENOMEM by malloc() */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* set some variables for later use */
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        setup_vars(lmon, flags, &cs_precedes, &sep_by_space,
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore            &sign_posn, &signstr);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /*
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * Description of some LC_MONETARY's values:
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * p_cs_precedes & n_cs_precedes
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * = 1 - $currency_symbol precedes the value
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *   for a monetary quantity with a non-negative value
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * = 0 - symbol succeeds the value
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * p_sep_by_space & n_sep_by_space
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * = 0 - no space separates $currency_symbol
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *   from the value for a monetary quantity with a
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *   non-negative value
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * = 1 - space separates the symbol from the value
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * = 2 - space separates the symbol and the sign string,
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *   if adjacent.
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * p_sign_posn & n_sign_posn
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * = 0 - parentheses enclose the quantity and the
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *   $currency_symbol
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * = 1 - the sign string precedes the quantity and the
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *   $currency_symbol
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * = 2 - the sign string succeeds the quantity and the
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *   $currency_symbol
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * = 3 - the sign string precedes the $currency_symbol
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         * = 4 - the sign string succeeds the $currency_symbol
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         *
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore         */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        tmpptr = dst;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        while (pad_size-- > 0)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            PRINT(' ');
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (sign_posn == 0 && (flags & IS_NEGATIVE))
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            PRINT('(');
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (cs_precedes == 1) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if (sign_posn == 1 || sign_posn == 3) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                PRINTS(signstr);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore                if (sep_by_space == 2)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    PRINT(' ');
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if (!(flags & SUPRESS_CURR_SYMBOL)) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                PRINTS(currency_symbol);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                if (sign_posn == 4) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    if (sep_by_space == 2)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                        PRINT(space_char);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    PRINTS(signstr);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    if (sep_by_space == 1)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                        PRINT(' ');
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                } else if (sep_by_space == 1)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    PRINT(space_char);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        } else if (sign_posn == 1)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            PRINTS(signstr);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        PRINTS(asciivalue);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (cs_precedes == 0) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if (sign_posn == 3) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                if (sep_by_space == 1)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    PRINT(' ');
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                PRINTS(signstr);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if (!(flags & SUPRESS_CURR_SYMBOL)) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                if ((sign_posn == 3 && sep_by_space == 2) ||
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    (sep_by_space == 1 && (sign_posn == 0 ||
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    sign_posn == 1 || sign_posn == 2 ||
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    sign_posn == 4)))
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    PRINT(space_char);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                PRINTS(currency_symbol); /* XXX: len */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                if (sign_posn == 4) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    if (sep_by_space == 2)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                        PRINT(' ');
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    PRINTS(signstr);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (sign_posn == 2) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if (sep_by_space == 2)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                PRINT(' ');
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            PRINTS(signstr);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (sign_posn == 0 && (flags & IS_NEGATIVE))
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            PRINT(')');
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (dst - tmpptr < width) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if (flags & LEFT_JUSTIFY) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                while (dst - tmpptr < width)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    PRINT(' ');
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            } else {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                pad_size = dst-tmpptr;
eda71b4a8fb1d0b34d0f08c47b43af49428d24c3Garrett D'Amore                (void) memmove(tmpptr + width-pad_size, tmpptr,
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    pad_size);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                (void) memset(tmpptr, ' ', width-pad_size);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                dst += width-pad_size;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    PRINT('\0');
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    free(asciivalue);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    return (dst - s - 1);   /* size of put data except trailing '\0' */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amoree2big_error:
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    errno = E2BIG;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    goto end_error;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amoreformat_error:
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    errno = EINVAL;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amoreend_error:
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    sverrno = errno;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (asciivalue != NULL)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        free(asciivalue);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    errno = sverrno;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    return (-1);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore}
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amoressize_t
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amorestrfmon(char *_RESTRICT_KYWD s, size_t maxsize,
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const char *_RESTRICT_KYWD format, ...)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore{
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    va_list ap;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    ssize_t ret;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    va_start(ap, format);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    ret = strfmon_impl(s, maxsize, uselocale(NULL), format, ap);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    va_end(ap);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    return (ret);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore}
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amoressize_t
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amorestrfmon_l(char *_RESTRICT_KYWD s, size_t maxsize, locale_t loc,
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const char *_RESTRICT_KYWD format, ...)
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore{
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    ssize_t ret;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    va_list ap;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    va_start(ap, format);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    ret = strfmon_impl(s, maxsize, loc, format, ap);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    va_end(ap);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    return (ret);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore}
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amorestatic void
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amoresetup_vars(const struct lc_monetary *lmon, int flags, char *cs_precedes,
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    char *sep_by_space, char *sign_posn, const char **signstr)
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore{
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if ((flags & IS_NEGATIVE) && (flags & USE_INTL_CURRENCY)) {
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *cs_precedes = lmon->int_n_cs_precedes[0];
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *sep_by_space = lmon->int_n_sep_by_space[0];
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *sign_posn = (flags & PARENTH_POSN) ? 0 :
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore            lmon->int_n_sign_posn[0];
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *signstr = (lmon->negative_sign[0] == '\0') ? "-" :
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore            lmon->negative_sign;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    } else if (flags & USE_INTL_CURRENCY) {
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *cs_precedes = lmon->int_p_cs_precedes[0];
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *sep_by_space = lmon->int_p_sep_by_space[0];
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *sign_posn = (flags & PARENTH_POSN) ? 0 :
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore            lmon->int_p_sign_posn[0];
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *signstr = lmon->positive_sign;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    } else if (flags & IS_NEGATIVE) {
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *cs_precedes = lmon->n_cs_precedes[0];
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *sep_by_space = lmon->n_sep_by_space[0];
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *sign_posn = (flags & PARENTH_POSN) ? 0 : lmon->n_sign_posn[0];
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *signstr = (lmon->negative_sign[0] == '\0') ? "-" :
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore            lmon->negative_sign;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    } else {
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *cs_precedes = lmon->p_cs_precedes[0];
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *sep_by_space = lmon->p_sep_by_space[0];
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *sign_posn = (flags & PARENTH_POSN) ? 0 : lmon->p_sign_posn[0];
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        *signstr = lmon->positive_sign;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    /* Set default values for unspecified information. */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (*cs_precedes != 0)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        *cs_precedes = 1;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (*sep_by_space == CHAR_MAX)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        *sep_by_space = 0;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (*sign_posn == CHAR_MAX)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        *sign_posn = 0;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore}
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amorestatic int
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amorecalc_left_pad(const struct lc_monetary *lmon, int flags, const char *cur_symb)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore{
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    char cs_precedes, sep_by_space, sign_posn;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const char *signstr;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    int left_chars = 0;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    setup_vars(lmon, flags, &cs_precedes, &sep_by_space, &sign_posn,
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        &signstr);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (cs_precedes != 0) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        left_chars += strlen(cur_symb);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (sep_by_space != 0)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            left_chars++;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    switch (sign_posn) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        case 1:
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            left_chars += strlen(signstr);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            break;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        case 3:
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        case 4:
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if (cs_precedes != 0)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                left_chars += strlen(signstr);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    return (left_chars);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore}
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amorestatic int
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amoreget_groups(int size, const char *grouping)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore{
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    int chars = 0;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (*grouping == CHAR_MAX || *grouping <= 0)    /* no grouping ? */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        return (0);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    while (size > (int)*grouping) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        chars++;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        size -= (int)*grouping++;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* no more grouping ? */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (*grouping == CHAR_MAX)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            break;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        /* rest grouping with same value ? */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (*grouping == 0) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            chars += (size - 1) / *(grouping - 1);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            break;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    return (chars);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore}
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore/* convert double to ASCII */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amorestatic char *
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amoreformat_grouped_double(const struct lc_monetary *lmon,
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const struct lc_numeric *lnum,
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    double value, int *flags, int left_prec, int right_prec, int pad_char)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore{
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    char        *rslt;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    char        *avalue;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    int     avalue_size;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    char        fmt[32];
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    size_t      bufsize;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    char        *bufend;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    int     padded;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const char  *grouping;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const char  *decimal_point;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    const char  *thousands_sep;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    int     decimal_len;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    int     thousands_len;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    int groups = 0;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    grouping = lmon->mon_grouping;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    decimal_point = lmon->mon_decimal_point;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    if (*decimal_point == '\0')
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        decimal_point = lnum->decimal_point;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    thousands_sep = lmon->mon_thousands_sep;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    if (*thousands_sep == '\0')
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        thousands_sep = lnum->thousands_sep;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    decimal_len = strlen(decimal_point);    /* usually 1 */
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    thousands_len = strlen(thousands_sep);  /* 0 or 1 usually */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    /* fill left_prec with default value */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (left_prec == -1)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        left_prec = 0;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    /* fill right_prec with default value */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (right_prec == -1) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (*flags & USE_INTL_CURRENCY)
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore            right_prec = lmon->int_frac_digits[0];
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        else
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore            right_prec = lmon->frac_digits[0];
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (right_prec == CHAR_MAX) /* POSIX locale ? */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            right_prec = 2;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (*flags & NEED_GROUPING)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        left_prec += get_groups(left_prec, grouping);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    /* convert to string */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    (void) snprintf(fmt, sizeof (fmt), "%%%d.%df",
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        left_prec + right_prec + 1, right_prec);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    avalue_size = asprintf(&avalue, fmt, value);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (avalue_size < 0)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        return (NULL);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    /*
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore     * Make sure that we've enough space for result string.
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore     * This assumes that digits take up at least much space as
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore     * grouping and radix characters.  The worst case currently known
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore     * is for Arabic, where two-byte UTF-8 sequences are used for both
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore     * decimal and thousands seperators, and groups can be a small as two
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore     * decimal digits.  This will do no worse than doubling the storage
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore     * requirement.
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore     */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    bufsize = strlen(avalue)*2+1;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    rslt = calloc(1, bufsize);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (rslt == NULL) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        free(avalue);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        return (NULL);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    bufend = rslt + bufsize - 1;    /* reserve space for trailing '\0' */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore    /* skip spaces at beginning */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    padded = 0;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    while (avalue[padded] == ' ') {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        padded++;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        avalue_size--;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (right_prec > 0) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        bufend -= right_prec;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        (void) memcpy(bufend, avalue + avalue_size+padded-right_prec,
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            right_prec);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        bufend -= decimal_len;
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        (void) memcpy(bufend, decimal_point, decimal_len);
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        avalue_size -= (right_prec + decimal_len);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if ((*flags & NEED_GROUPING) &&
2d08521bd15501c8370ba2153b9cca4f094979d0Garrett D'Amore        thousands_len != 0 &&
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        *grouping != CHAR_MAX &&
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        *grouping > 0) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        while (avalue_size > (int)*grouping) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            GRPCPY(*grouping);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            GRPSEP;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            grouping++;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            /* no more grouping ? */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if (*grouping == CHAR_MAX)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                break;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            /* rest grouping with same value ? */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            if (*grouping == 0) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                grouping--;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                while (avalue_size > *grouping) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    GRPCPY(*grouping);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                    GRPSEP;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore                }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (avalue_size != 0)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            GRPCPY(avalue_size);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        padded -= groups;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    } else {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        bufend -= avalue_size;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        (void) memcpy(bufend, avalue+padded, avalue_size);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        if (right_prec == 0)
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore            padded--;   /* decrease assumed $decimal_point */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    /* do padding with pad_char */
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    if (padded > 0) {
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        bufend -= padded;
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore        (void) memset(bufend, pad_char, padded);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    }
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    bufsize = bufsize - (bufend - rslt) + 1;
eda71b4a8fb1d0b34d0f08c47b43af49428d24c3Garrett D'Amore    (void) memmove(rslt, bufend, bufsize);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    free(avalue);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore    return (rslt);
4297a3b0d0a35d80f86fff155e288e885a100e6dGarrett D'Amore}