| /*************************************************************************** |
| * _ _ ____ _ |
| * Project ___| | | | _ \| | |
| * / __| | | | |_) | | |
| * | (__| |_| | _ <| |___ |
| * \___|\___/|_| \_\_____| |
| * |
| * Copyright (C) Daniel Stenberg, <daniel@haxx.se>, et al. |
| * |
| * This software is licensed as described in the file COPYING, which |
| * you should have received as part of this distribution. The terms |
| * are also available at https://curl.se/docs/copyright.html. |
| * |
| * You may opt to use, copy, modify, merge, publish, distribute and/or sell |
| * copies of the Software, and permit persons to whom the Software is |
| * furnished to do so, under the terms of the COPYING file. |
| * |
| * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY |
| * KIND, either express or implied. |
| * |
| * SPDX-License-Identifier: curl |
| * |
| */ |
| |
| #include "curl_setup.h" |
| #include "dynbuf.h" |
| #include "curl_printf.h" |
| #include <curl/mprintf.h> |
| |
| #include "curl_memory.h" |
| /* The last #include file should be: */ |
| #include "memdebug.h" |
| |
| /* |
| * If SIZEOF_SIZE_T has not been defined, default to the size of long. |
| */ |
| |
| #ifdef HAVE_LONGLONG |
| # define LONG_LONG_TYPE long long |
| # define HAVE_LONG_LONG_TYPE |
| #else |
| # if defined(_MSC_VER) && (_MSC_VER >= 900) && (_INTEGRAL_MAX_BITS >= 64) |
| # define LONG_LONG_TYPE __int64 |
| # define HAVE_LONG_LONG_TYPE |
| # else |
| # undef LONG_LONG_TYPE |
| # undef HAVE_LONG_LONG_TYPE |
| # endif |
| #endif |
| |
| /* |
| * Max integer data types that mprintf.c is capable |
| */ |
| |
| #ifdef HAVE_LONG_LONG_TYPE |
| # define mp_intmax_t LONG_LONG_TYPE |
| # define mp_uintmax_t unsigned LONG_LONG_TYPE |
| #else |
| # define mp_intmax_t long |
| # define mp_uintmax_t unsigned long |
| #endif |
| |
| #define BUFFSIZE 326 /* buffer for long-to-str and float-to-str calcs, should |
| fit negative DBL_MAX (317 letters) */ |
| #define MAX_PARAMETERS 128 /* number of input arguments */ |
| #define MAX_SEGMENTS 128 /* number of output segments */ |
| |
| #ifdef __AMIGA__ |
| # undef FORMAT_INT |
| #endif |
| |
| /* Lower-case digits. */ |
| static const char lower_digits[] = "0123456789abcdefghijklmnopqrstuvwxyz"; |
| |
| /* Upper-case digits. */ |
| static const char upper_digits[] = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"; |
| |
| #define OUTCHAR(x) \ |
| do { \ |
| if(!stream(x, userp)) \ |
| done++; \ |
| else \ |
| return done; /* return on failure */ \ |
| } while(0) |
| |
| /* Data type to read from the arglist */ |
| typedef enum { |
| FORMAT_STRING, |
| FORMAT_PTR, |
| FORMAT_INTPTR, |
| FORMAT_INT, |
| FORMAT_LONG, |
| FORMAT_LONGLONG, |
| FORMAT_INTU, |
| FORMAT_LONGU, |
| FORMAT_LONGLONGU, |
| FORMAT_DOUBLE, |
| FORMAT_LONGDOUBLE, |
| FORMAT_WIDTH, |
| FORMAT_PRECISION |
| } FormatType; |
| |
| /* conversion and display flags */ |
| enum { |
| FLAGS_SPACE = 1<<0, |
| FLAGS_SHOWSIGN = 1<<1, |
| FLAGS_LEFT = 1<<2, |
| FLAGS_ALT = 1<<3, |
| FLAGS_SHORT = 1<<4, |
| FLAGS_LONG = 1<<5, |
| FLAGS_LONGLONG = 1<<6, |
| FLAGS_LONGDOUBLE = 1<<7, |
| FLAGS_PAD_NIL = 1<<8, |
| FLAGS_UNSIGNED = 1<<9, |
| FLAGS_OCTAL = 1<<10, |
| FLAGS_HEX = 1<<11, |
| FLAGS_UPPER = 1<<12, |
| FLAGS_WIDTH = 1<<13, /* '*' or '*<num>$' used */ |
| FLAGS_WIDTHPARAM = 1<<14, /* width PARAMETER was specified */ |
| FLAGS_PREC = 1<<15, /* precision was specified */ |
| FLAGS_PRECPARAM = 1<<16, /* precision PARAMETER was specified */ |
| FLAGS_CHAR = 1<<17, /* %c story */ |
| FLAGS_FLOATE = 1<<18, /* %e or %E */ |
| FLAGS_FLOATG = 1<<19, /* %g or %G */ |
| FLAGS_SUBSTR = 1<<20 /* no input, only substring */ |
| }; |
| |
| enum { |
| DOLLAR_UNKNOWN, |
| DOLLAR_NOPE, |
| DOLLAR_USE |
| }; |
| |
| /* |
| * Describes an input va_arg type and hold its value. |
| */ |
| struct va_input { |
| FormatType type; /* FormatType */ |
| union { |
| char *str; |
| void *ptr; |
| mp_intmax_t nums; /* signed */ |
| mp_uintmax_t numu; /* unsigned */ |
| double dnum; |
| } val; |
| }; |
| |
| /* |
| * Describes an output segment. |
| */ |
| struct outsegment { |
| int width; /* width OR width parameter number */ |
| int precision; /* precision OR precision parameter number */ |
| unsigned int flags; |
| unsigned int input; /* input argument array index */ |
| char *start; /* format string start to output */ |
| size_t outlen; /* number of bytes from the format string to output */ |
| }; |
| |
| struct nsprintf { |
| char *buffer; |
| size_t length; |
| size_t max; |
| }; |
| |
| struct asprintf { |
| struct dynbuf *b; |
| char merr; |
| }; |
| |
| /* the provided input number is 1-based but this returns the number 0-based. |
| |
| returns -1 if no valid number was provided. |
| */ |
| static int dollarstring(char *input, char **end) |
| { |
| if(ISDIGIT(*input)) { |
| int number = 0; |
| do { |
| if(number < MAX_PARAMETERS) { |
| number *= 10; |
| number += *input - '0'; |
| } |
| input++; |
| } while(ISDIGIT(*input)); |
| |
| if(number && (number <= MAX_PARAMETERS) && ('$' == *input)) { |
| *end = ++input; |
| return number - 1; |
| } |
| } |
| return -1; |
| } |
| |
| /* |
| * Parse the format string. |
| * |
| * Create two arrays. One describes the inputs, one describes the outputs. |
| * |
| * Returns zero on success. |
| */ |
| |
| #define PFMT_OK 0 |
| #define PFMT_DOLLAR 1 /* bad dollar for main param */ |
| #define PFMT_DOLLARWIDTH 2 /* bad dollar use for width */ |
| #define PFMT_DOLLARPREC 3 /* bad dollar use for precision */ |
| #define PFMT_MANYARGS 4 /* too many input arguments used */ |
| #define PFMT_PREC 5 /* precision overflow */ |
| #define PFMT_PRECMIX 6 /* bad mix of precision specifiers */ |
| #define PFMT_WIDTH 7 /* width overflow */ |
| #define PFMT_INPUTGAP 8 /* gap in arguments */ |
| #define PFMT_WIDTHARG 9 /* attempted to use same arg twice, for width */ |
| #define PFMT_PRECARG 10 /* attempted to use same arg twice, for prec */ |
| #define PFMT_MANYSEGS 11 /* maxed out output segments */ |
| |
| static int parsefmt(const char *format, |
| struct outsegment *out, |
| struct va_input *in, |
| int *opieces, |
| int *ipieces, va_list arglist) |
| { |
| char *fmt = (char *)format; |
| int param_num = 0; |
| int param; |
| int width; |
| int precision; |
| unsigned int flags; |
| FormatType type; |
| int max_param = -1; |
| int i; |
| int ocount = 0; |
| unsigned char usedinput[MAX_PARAMETERS/8]; |
| size_t outlen = 0; |
| struct outsegment *optr; |
| int use_dollar = DOLLAR_UNKNOWN; |
| char *start = fmt; |
| |
| /* clear, set a bit for each used input */ |
| memset(usedinput, 0, sizeof(usedinput)); |
| |
| while(*fmt) { |
| if(*fmt == '%') { |
| struct va_input *iptr; |
| bool loopit = TRUE; |
| fmt++; |
| outlen = fmt - start - 1; |
| if(*fmt == '%') { |
| /* this means a %% that should be output only as %. Create an output |
| segment. */ |
| if(outlen) { |
| optr = &out[ocount++]; |
| if(ocount > MAX_SEGMENTS) |
| return PFMT_MANYSEGS; |
| optr->input = 0; |
| optr->flags = FLAGS_SUBSTR; |
| optr->start = start; |
| optr->outlen = outlen; |
| } |
| start = fmt; |
| fmt++; |
| continue; /* while */ |
| } |
| |
| flags = width = precision = 0; |
| |
| if(use_dollar != DOLLAR_NOPE) { |
| param = dollarstring(fmt, &fmt); |
| if(param < 0) { |
| if(use_dollar == DOLLAR_USE) |
| /* illegal combo */ |
| return PFMT_DOLLAR; |
| |
| /* we got no positional, just get the next arg */ |
| param = -1; |
| use_dollar = DOLLAR_NOPE; |
| } |
| else |
| use_dollar = DOLLAR_USE; |
| } |
| else |
| param = -1; |
| |
| /* Handle the flags */ |
| while(loopit) { |
| switch(*fmt++) { |
| case ' ': |
| flags |= FLAGS_SPACE; |
| break; |
| case '+': |
| flags |= FLAGS_SHOWSIGN; |
| break; |
| case '-': |
| flags |= FLAGS_LEFT; |
| flags &= ~FLAGS_PAD_NIL; |
| break; |
| case '#': |
| flags |= FLAGS_ALT; |
| break; |
| case '.': |
| if('*' == *fmt) { |
| /* The precision is picked from a specified parameter */ |
| flags |= FLAGS_PRECPARAM; |
| fmt++; |
| |
| if(use_dollar == DOLLAR_USE) { |
| precision = dollarstring(fmt, &fmt); |
| if(precision < 0) |
| /* illegal combo */ |
| return PFMT_DOLLARPREC; |
| } |
| else |
| /* get it from the next argument */ |
| precision = -1; |
| } |
| else { |
| bool is_neg = FALSE; |
| flags |= FLAGS_PREC; |
| precision = 0; |
| if('-' == *fmt) { |
| is_neg = TRUE; |
| fmt++; |
| } |
| while(ISDIGIT(*fmt)) { |
| if(precision > INT_MAX/10) |
| return PFMT_PREC; |
| precision *= 10; |
| precision += *fmt - '0'; |
| fmt++; |
| } |
| if(is_neg) |
| precision = -precision; |
| } |
| if((flags & (FLAGS_PREC | FLAGS_PRECPARAM)) == |
| (FLAGS_PREC | FLAGS_PRECPARAM)) |
| /* it is not permitted to use both kinds of precision for the same |
| argument */ |
| return PFMT_PRECMIX; |
| break; |
| case 'h': |
| flags |= FLAGS_SHORT; |
| break; |
| #if defined(_WIN32) || defined(_WIN32_WCE) |
| case 'I': |
| /* Non-ANSI integer extensions I32 I64 */ |
| if((fmt[0] == '3') && (fmt[1] == '2')) { |
| flags |= FLAGS_LONG; |
| fmt += 2; |
| } |
| else if((fmt[0] == '6') && (fmt[1] == '4')) { |
| flags |= FLAGS_LONGLONG; |
| fmt += 2; |
| } |
| else { |
| #if (SIZEOF_CURL_OFF_T > SIZEOF_LONG) |
| flags |= FLAGS_LONGLONG; |
| #else |
| flags |= FLAGS_LONG; |
| #endif |
| } |
| break; |
| #endif /* _WIN32 || _WIN32_WCE */ |
| case 'l': |
| if(flags & FLAGS_LONG) |
| flags |= FLAGS_LONGLONG; |
| else |
| flags |= FLAGS_LONG; |
| break; |
| case 'L': |
| flags |= FLAGS_LONGDOUBLE; |
| break; |
| case 'q': |
| flags |= FLAGS_LONGLONG; |
| break; |
| case 'z': |
| /* the code below generates a warning if -Wunreachable-code is |
| used */ |
| #if (SIZEOF_SIZE_T > SIZEOF_LONG) |
| flags |= FLAGS_LONGLONG; |
| #else |
| flags |= FLAGS_LONG; |
| #endif |
| break; |
| case 'O': |
| #if (SIZEOF_CURL_OFF_T > SIZEOF_LONG) |
| flags |= FLAGS_LONGLONG; |
| #else |
| flags |= FLAGS_LONG; |
| #endif |
| break; |
| case '0': |
| if(!(flags & FLAGS_LEFT)) |
| flags |= FLAGS_PAD_NIL; |
| FALLTHROUGH(); |
| case '1': case '2': case '3': case '4': |
| case '5': case '6': case '7': case '8': case '9': |
| flags |= FLAGS_WIDTH; |
| width = 0; |
| fmt--; |
| do { |
| if(width > INT_MAX/10) |
| return PFMT_WIDTH; |
| width *= 10; |
| width += *fmt - '0'; |
| fmt++; |
| } while(ISDIGIT(*fmt)); |
| break; |
| case '*': /* read width from argument list */ |
| flags |= FLAGS_WIDTHPARAM; |
| if(use_dollar == DOLLAR_USE) { |
| width = dollarstring(fmt, &fmt); |
| if(width < 0) |
| /* illegal combo */ |
| return PFMT_DOLLARWIDTH; |
| } |
| else |
| /* pick from the next argument */ |
| width = -1; |
| break; |
| default: |
| loopit = FALSE; |
| fmt--; |
| break; |
| } /* switch */ |
| } /* while */ |
| |
| switch(*fmt) { |
| case 'S': |
| flags |= FLAGS_ALT; |
| FALLTHROUGH(); |
| case 's': |
| type = FORMAT_STRING; |
| break; |
| case 'n': |
| type = FORMAT_INTPTR; |
| break; |
| case 'p': |
| type = FORMAT_PTR; |
| break; |
| case 'd': |
| case 'i': |
| if(flags & FLAGS_LONGLONG) |
| type = FORMAT_LONGLONG; |
| else if(flags & FLAGS_LONG) |
| type = FORMAT_LONG; |
| else |
| type = FORMAT_INT; |
| break; |
| case 'u': |
| if(flags & FLAGS_LONGLONG) |
| type = FORMAT_LONGLONGU; |
| else if(flags & FLAGS_LONG) |
| type = FORMAT_LONGU; |
| else |
| type = FORMAT_INTU; |
| flags |= FLAGS_UNSIGNED; |
| break; |
| case 'o': |
| type = FORMAT_INT; |
| flags |= FLAGS_OCTAL; |
| break; |
| case 'x': |
| type = FORMAT_INTU; |
| flags |= FLAGS_HEX|FLAGS_UNSIGNED; |
| break; |
| case 'X': |
| type = FORMAT_INTU; |
| flags |= FLAGS_HEX|FLAGS_UPPER|FLAGS_UNSIGNED; |
| break; |
| case 'c': |
| type = FORMAT_INT; |
| flags |= FLAGS_CHAR; |
| break; |
| case 'f': |
| type = FORMAT_DOUBLE; |
| break; |
| case 'e': |
| type = FORMAT_DOUBLE; |
| flags |= FLAGS_FLOATE; |
| break; |
| case 'E': |
| type = FORMAT_DOUBLE; |
| flags |= FLAGS_FLOATE|FLAGS_UPPER; |
| break; |
| case 'g': |
| type = FORMAT_DOUBLE; |
| flags |= FLAGS_FLOATG; |
| break; |
| case 'G': |
| type = FORMAT_DOUBLE; |
| flags |= FLAGS_FLOATG|FLAGS_UPPER; |
| break; |
| default: |
| /* invalid instruction, disregard and continue */ |
| continue; |
| } /* switch */ |
| |
| if(flags & FLAGS_WIDTHPARAM) { |
| if(width < 0) |
| width = param_num++; |
| else { |
| /* if this identifies a parameter already used, this |
| is illegal */ |
| if(usedinput[width/8] & (1 << (width&7))) |
| return PFMT_WIDTHARG; |
| } |
| if(width >= MAX_PARAMETERS) |
| return PFMT_MANYARGS; |
| if(width >= max_param) |
| max_param = width; |
| |
| in[width].type = FORMAT_WIDTH; |
| /* mark as used */ |
| usedinput[width/8] |= (unsigned char)(1 << (width&7)); |
| } |
| |
| if(flags & FLAGS_PRECPARAM) { |
| if(precision < 0) |
| precision = param_num++; |
| else { |
| /* if this identifies a parameter already used, this |
| is illegal */ |
| if(usedinput[precision/8] & (1 << (precision&7))) |
| return PFMT_PRECARG; |
| } |
| if(precision >= MAX_PARAMETERS) |
| return PFMT_MANYARGS; |
| if(precision >= max_param) |
| max_param = precision; |
| |
| in[precision].type = FORMAT_PRECISION; |
| usedinput[precision/8] |= (unsigned char)(1 << (precision&7)); |
| } |
| |
| /* Handle the specifier */ |
| if(param < 0) |
| param = param_num++; |
| if(param >= MAX_PARAMETERS) |
| return PFMT_MANYARGS; |
| if(param >= max_param) |
| max_param = param; |
| |
| iptr = &in[param]; |
| iptr->type = type; |
| |
| /* mark this input as used */ |
| usedinput[param/8] |= (unsigned char)(1 << (param&7)); |
| |
| fmt++; |
| optr = &out[ocount++]; |
| if(ocount > MAX_SEGMENTS) |
| return PFMT_MANYSEGS; |
| optr->input = param; |
| optr->flags = flags; |
| optr->width = width; |
| optr->precision = precision; |
| optr->start = start; |
| optr->outlen = outlen; |
| start = fmt; |
| } |
| else |
| fmt++; |
| } |
| |
| /* is there a trailing piece */ |
| outlen = fmt - start; |
| if(outlen) { |
| optr = &out[ocount++]; |
| if(ocount > MAX_SEGMENTS) |
| return PFMT_MANYSEGS; |
| optr->input = 0; |
| optr->flags = FLAGS_SUBSTR; |
| optr->start = start; |
| optr->outlen = outlen; |
| } |
| |
| /* Read the arg list parameters into our data list */ |
| for(i = 0; i < max_param + 1; i++) { |
| struct va_input *iptr = &in[i]; |
| if(!(usedinput[i/8] & (1 << (i&7)))) |
| /* bad input */ |
| return PFMT_INPUTGAP; |
| |
| /* based on the type, read the correct argument */ |
| switch(iptr->type) { |
| case FORMAT_STRING: |
| iptr->val.str = va_arg(arglist, char *); |
| break; |
| |
| case FORMAT_INTPTR: |
| case FORMAT_PTR: |
| iptr->val.ptr = va_arg(arglist, void *); |
| break; |
| |
| case FORMAT_LONGLONGU: |
| iptr->val.numu = (mp_uintmax_t)va_arg(arglist, mp_uintmax_t); |
| break; |
| |
| case FORMAT_LONGLONG: |
| iptr->val.nums = (mp_intmax_t)va_arg(arglist, mp_intmax_t); |
| break; |
| |
| case FORMAT_LONGU: |
| iptr->val.numu = (mp_uintmax_t)va_arg(arglist, unsigned long); |
| break; |
| |
| case FORMAT_LONG: |
| iptr->val.nums = (mp_intmax_t)va_arg(arglist, long); |
| break; |
| |
| case FORMAT_INTU: |
| iptr->val.numu = (mp_uintmax_t)va_arg(arglist, unsigned int); |
| break; |
| |
| case FORMAT_INT: |
| case FORMAT_WIDTH: |
| case FORMAT_PRECISION: |
| iptr->val.nums = (mp_intmax_t)va_arg(arglist, int); |
| break; |
| |
| case FORMAT_DOUBLE: |
| iptr->val.dnum = va_arg(arglist, double); |
| break; |
| |
| default: |
| DEBUGASSERT(NULL); /* unexpected */ |
| break; |
| } |
| } |
| *ipieces = max_param + 1; |
| *opieces = ocount; |
| |
| return PFMT_OK; |
| } |
| |
| /* |
| * formatf() - the general printf function. |
| * |
| * It calls parsefmt() to parse the format string. It populates two arrays; |
| * one that describes the input arguments and one that describes a number of |
| * output segments. |
| * |
| * On success, the input array describes the type of all arguments and their |
| * values. |
| * |
| * The function then iterates over the output segments and outputs them one |
| * by one until done. Using the appropriate input arguments (if any). |
| * |
| * All output is sent to the 'stream()' callback, one byte at a time. |
| */ |
| |
| static int formatf( |
| void *userp, /* untouched by format(), just sent to the stream() function in |
| the second argument */ |
| /* function pointer called for each output character */ |
| int (*stream)(unsigned char, void *), |
| const char *format, /* %-formatted string */ |
| va_list ap_save) /* list of parameters */ |
| { |
| static const char nilstr[] = "(nil)"; |
| const char *digits = lower_digits; /* Base-36 digits for numbers. */ |
| int done = 0; /* number of characters written */ |
| int i; |
| int ocount = 0; /* number of output segments */ |
| int icount = 0; /* number of input arguments */ |
| |
| struct outsegment output[MAX_SEGMENTS]; |
| struct va_input input[MAX_PARAMETERS]; |
| char work[BUFFSIZE]; |
| |
| /* 'workend' points to the final buffer byte position, but with an extra |
| byte as margin to avoid the (false?) warning Coverity gives us |
| otherwise */ |
| char *workend = &work[sizeof(work) - 2]; |
| |
| /* Parse the format string */ |
| if(parsefmt(format, output, input, &ocount, &icount, ap_save)) |
| return 0; |
| |
| for(i = 0; i < ocount; i++) { |
| struct outsegment *optr = &output[i]; |
| struct va_input *iptr; |
| bool is_alt; /* Format spec modifiers. */ |
| int width; /* Width of a field. */ |
| int prec; /* Precision of a field. */ |
| bool is_neg; /* Decimal integer is negative. */ |
| unsigned long base; /* Base of a number to be written. */ |
| mp_uintmax_t num; /* Integral values to be written. */ |
| mp_intmax_t signed_num; /* Used to convert negative in positive. */ |
| char *w; |
| size_t outlen = optr->outlen; |
| int flags = optr->flags; |
| |
| if(outlen) { |
| char *str = optr->start; |
| for(; outlen && *str; outlen--) |
| OUTCHAR(*str++); |
| if(optr->flags & FLAGS_SUBSTR) |
| /* this is just a substring */ |
| continue; |
| } |
| |
| /* pick up the specified width */ |
| if(flags & FLAGS_WIDTHPARAM) { |
| width = (int)input[optr->width].val.nums; |
| if(width < 0) { |
| /* "A negative field width is taken as a '-' flag followed by a |
| positive field width." */ |
| if(width == INT_MIN) |
| width = INT_MAX; |
| else |
| width = -width; |
| flags |= FLAGS_LEFT; |
| flags &= ~FLAGS_PAD_NIL; |
| } |
| } |
| else |
| width = optr->width; |
| |
| /* pick up the specified precision */ |
| if(flags & FLAGS_PRECPARAM) { |
| prec = (int)input[optr->precision].val.nums; |
| if(prec < 0) |
| /* "A negative precision is taken as if the precision were |
| omitted." */ |
| prec = -1; |
| } |
| else if(flags & FLAGS_PREC) |
| prec = optr->precision; |
| else |
| prec = -1; |
| |
| is_alt = (flags & FLAGS_ALT) ? 1 : 0; |
| iptr = &input[optr->input]; |
| |
| switch(iptr->type) { |
| case FORMAT_INTU: |
| case FORMAT_LONGU: |
| case FORMAT_LONGLONGU: |
| flags |= FLAGS_UNSIGNED; |
| FALLTHROUGH(); |
| case FORMAT_INT: |
| case FORMAT_LONG: |
| case FORMAT_LONGLONG: |
| num = iptr->val.numu; |
| if(flags & FLAGS_CHAR) { |
| /* Character. */ |
| if(!(flags & FLAGS_LEFT)) |
| while(--width > 0) |
| OUTCHAR(' '); |
| OUTCHAR((char) num); |
| if(flags & FLAGS_LEFT) |
| while(--width > 0) |
| OUTCHAR(' '); |
| break; |
| } |
| if(flags & FLAGS_OCTAL) { |
| /* Octal unsigned integer */ |
| base = 8; |
| is_neg = FALSE; |
| } |
| else if(flags & FLAGS_HEX) { |
| /* Hexadecimal unsigned integer */ |
| digits = (flags & FLAGS_UPPER)? upper_digits : lower_digits; |
| base = 16; |
| is_neg = FALSE; |
| } |
| else if(flags & FLAGS_UNSIGNED) { |
| /* Decimal unsigned integer */ |
| base = 10; |
| is_neg = FALSE; |
| } |
| else { |
| /* Decimal integer. */ |
| base = 10; |
| |
| is_neg = (iptr->val.nums < (mp_intmax_t)0); |
| if(is_neg) { |
| /* signed_num might fail to hold absolute negative minimum by 1 */ |
| signed_num = iptr->val.nums + (mp_intmax_t)1; |
| signed_num = -signed_num; |
| num = (mp_uintmax_t)signed_num; |
| num += (mp_uintmax_t)1; |
| } |
| } |
| number: |
| /* Supply a default precision if none was given. */ |
| if(prec == -1) |
| prec = 1; |
| |
| /* Put the number in WORK. */ |
| w = workend; |
| switch(base) { |
| case 10: |
| while(num > 0) { |
| *w-- = (char)('0' + (num % 10)); |
| num /= 10; |
| } |
| break; |
| default: |
| while(num > 0) { |
| *w-- = digits[num % base]; |
| num /= base; |
| } |
| break; |
| } |
| width -= (int)(workend - w); |
| prec -= (int)(workend - w); |
| |
| if(is_alt && base == 8 && prec <= 0) { |
| *w-- = '0'; |
| --width; |
| } |
| |
| if(prec > 0) { |
| width -= prec; |
| while(prec-- > 0 && w >= work) |
| *w-- = '0'; |
| } |
| |
| if(is_alt && base == 16) |
| width -= 2; |
| |
| if(is_neg || (flags & FLAGS_SHOWSIGN) || (flags & FLAGS_SPACE)) |
| --width; |
| |
| if(!(flags & FLAGS_LEFT) && !(flags & FLAGS_PAD_NIL)) |
| while(width-- > 0) |
| OUTCHAR(' '); |
| |
| if(is_neg) |
| OUTCHAR('-'); |
| else if(flags & FLAGS_SHOWSIGN) |
| OUTCHAR('+'); |
| else if(flags & FLAGS_SPACE) |
| OUTCHAR(' '); |
| |
| if(is_alt && base == 16) { |
| OUTCHAR('0'); |
| if(flags & FLAGS_UPPER) |
| OUTCHAR('X'); |
| else |
| OUTCHAR('x'); |
| } |
| |
| if(!(flags & FLAGS_LEFT) && (flags & FLAGS_PAD_NIL)) |
| while(width-- > 0) |
| OUTCHAR('0'); |
| |
| /* Write the number. */ |
| while(++w <= workend) { |
| OUTCHAR(*w); |
| } |
| |
| if(flags & FLAGS_LEFT) |
| while(width-- > 0) |
| OUTCHAR(' '); |
| break; |
| |
| case FORMAT_STRING: { |
| const char *str; |
| size_t len; |
| |
| str = (char *)iptr->val.str; |
| if(!str) { |
| /* Write null string if there's space. */ |
| if(prec == -1 || prec >= (int) sizeof(nilstr) - 1) { |
| str = nilstr; |
| len = sizeof(nilstr) - 1; |
| /* Disable quotes around (nil) */ |
| flags &= (~FLAGS_ALT); |
| } |
| else { |
| str = ""; |
| len = 0; |
| } |
| } |
| else if(prec != -1) |
| len = (size_t)prec; |
| else if(*str == '\0') |
| len = 0; |
| else |
| len = strlen(str); |
| |
| width -= (len > INT_MAX) ? INT_MAX : (int)len; |
| |
| if(flags & FLAGS_ALT) |
| OUTCHAR('"'); |
| |
| if(!(flags&FLAGS_LEFT)) |
| while(width-- > 0) |
| OUTCHAR(' '); |
| |
| for(; len && *str; len--) |
| OUTCHAR(*str++); |
| if(flags&FLAGS_LEFT) |
| while(width-- > 0) |
| OUTCHAR(' '); |
| |
| if(flags & FLAGS_ALT) |
| OUTCHAR('"'); |
| break; |
| } |
| |
| case FORMAT_PTR: |
| /* Generic pointer. */ |
| if(iptr->val.ptr) { |
| /* If the pointer is not NULL, write it as a %#x spec. */ |
| base = 16; |
| digits = (flags & FLAGS_UPPER)? upper_digits : lower_digits; |
| is_alt = TRUE; |
| num = (size_t) iptr->val.ptr; |
| is_neg = FALSE; |
| goto number; |
| } |
| else { |
| /* Write "(nil)" for a nil pointer. */ |
| const char *point; |
| |
| width -= (int)(sizeof(nilstr) - 1); |
| if(flags & FLAGS_LEFT) |
| while(width-- > 0) |
| OUTCHAR(' '); |
| for(point = nilstr; *point != '\0'; ++point) |
| OUTCHAR(*point); |
| if(!(flags & FLAGS_LEFT)) |
| while(width-- > 0) |
| OUTCHAR(' '); |
| } |
| break; |
| |
| case FORMAT_DOUBLE: { |
| char formatbuf[32]="%"; |
| char *fptr = &formatbuf[1]; |
| size_t left = sizeof(formatbuf)-strlen(formatbuf); |
| int len; |
| |
| if(flags & FLAGS_WIDTH) |
| width = optr->width; |
| |
| if(flags & FLAGS_PREC) |
| prec = optr->precision; |
| |
| if(flags & FLAGS_LEFT) |
| *fptr++ = '-'; |
| if(flags & FLAGS_SHOWSIGN) |
| *fptr++ = '+'; |
| if(flags & FLAGS_SPACE) |
| *fptr++ = ' '; |
| if(flags & FLAGS_ALT) |
| *fptr++ = '#'; |
| |
| *fptr = 0; |
| |
| if(width >= 0) { |
| if(width >= (int)sizeof(work)) |
| width = sizeof(work)-1; |
| /* RECURSIVE USAGE */ |
| len = curl_msnprintf(fptr, left, "%d", width); |
| fptr += len; |
| left -= len; |
| } |
| if(prec >= 0) { |
| /* for each digit in the integer part, we can have one less |
| precision */ |
| size_t maxprec = sizeof(work) - 2; |
| double val = iptr->val.dnum; |
| if(width > 0 && prec <= width) |
| maxprec -= width; |
| while(val >= 10.0) { |
| val /= 10; |
| maxprec--; |
| } |
| |
| if(prec > (int)maxprec) |
| prec = (int)maxprec-1; |
| if(prec < 0) |
| prec = 0; |
| /* RECURSIVE USAGE */ |
| len = curl_msnprintf(fptr, left, ".%d", prec); |
| fptr += len; |
| } |
| if(flags & FLAGS_LONG) |
| *fptr++ = 'l'; |
| |
| if(flags & FLAGS_FLOATE) |
| *fptr++ = (char)((flags & FLAGS_UPPER) ? 'E':'e'); |
| else if(flags & FLAGS_FLOATG) |
| *fptr++ = (char)((flags & FLAGS_UPPER) ? 'G' : 'g'); |
| else |
| *fptr++ = 'f'; |
| |
| *fptr = 0; /* and a final null-termination */ |
| |
| #ifdef __clang__ |
| #pragma clang diagnostic push |
| #pragma clang diagnostic ignored "-Wformat-nonliteral" |
| #endif |
| /* NOTE NOTE NOTE!! Not all sprintf implementations return number of |
| output characters */ |
| #ifdef HAVE_SNPRINTF |
| (snprintf)(work, sizeof(work), formatbuf, iptr->val.dnum); |
| #else |
| (sprintf)(work, formatbuf, iptr->val.dnum); |
| #endif |
| #ifdef __clang__ |
| #pragma clang diagnostic pop |
| #endif |
| DEBUGASSERT(strlen(work) <= sizeof(work)); |
| for(fptr = work; *fptr; fptr++) |
| OUTCHAR(*fptr); |
| break; |
| } |
| |
| case FORMAT_INTPTR: |
| /* Answer the count of characters written. */ |
| #ifdef HAVE_LONG_LONG_TYPE |
| if(flags & FLAGS_LONGLONG) |
| *(LONG_LONG_TYPE *) iptr->val.ptr = (LONG_LONG_TYPE)done; |
| else |
| #endif |
| if(flags & FLAGS_LONG) |
| *(long *) iptr->val.ptr = (long)done; |
| else if(!(flags & FLAGS_SHORT)) |
| *(int *) iptr->val.ptr = (int)done; |
| else |
| *(short *) iptr->val.ptr = (short)done; |
| break; |
| |
| default: |
| break; |
| } |
| } |
| return done; |
| } |
| |
| /* fputc() look-alike */ |
| static int addbyter(unsigned char outc, void *f) |
| { |
| struct nsprintf *infop = f; |
| if(infop->length < infop->max) { |
| /* only do this if we haven't reached max length yet */ |
| *infop->buffer++ = outc; /* store */ |
| infop->length++; /* we are now one byte larger */ |
| return 0; /* fputc() returns like this on success */ |
| } |
| return 1; |
| } |
| |
| int curl_mvsnprintf(char *buffer, size_t maxlength, const char *format, |
| va_list ap_save) |
| { |
| int retcode; |
| struct nsprintf info; |
| |
| info.buffer = buffer; |
| info.length = 0; |
| info.max = maxlength; |
| |
| retcode = formatf(&info, addbyter, format, ap_save); |
| if(info.max) { |
| /* we terminate this with a zero byte */ |
| if(info.max == info.length) { |
| /* we're at maximum, scrap the last letter */ |
| info.buffer[-1] = 0; |
| DEBUGASSERT(retcode); |
| retcode--; /* don't count the nul byte */ |
| } |
| else |
| info.buffer[0] = 0; |
| } |
| return retcode; |
| } |
| |
| int curl_msnprintf(char *buffer, size_t maxlength, const char *format, ...) |
| { |
| int retcode; |
| va_list ap_save; /* argument pointer */ |
| va_start(ap_save, format); |
| retcode = curl_mvsnprintf(buffer, maxlength, format, ap_save); |
| va_end(ap_save); |
| return retcode; |
| } |
| |
| /* fputc() look-alike */ |
| static int alloc_addbyter(unsigned char outc, void *f) |
| { |
| struct asprintf *infop = f; |
| CURLcode result = Curl_dyn_addn(infop->b, &outc, 1); |
| if(result) { |
| infop->merr = result == CURLE_TOO_LARGE ? MERR_TOO_LARGE : MERR_MEM; |
| return 1 ; /* fail */ |
| } |
| return 0; |
| } |
| |
| /* appends the formatted string, returns MERR error code */ |
| int Curl_dyn_vprintf(struct dynbuf *dyn, const char *format, va_list ap_save) |
| { |
| struct asprintf info; |
| info.b = dyn; |
| info.merr = MERR_OK; |
| |
| (void)formatf(&info, alloc_addbyter, format, ap_save); |
| if(info.merr) { |
| Curl_dyn_free(info.b); |
| return info.merr; |
| } |
| return 0; |
| } |
| |
| char *curl_mvaprintf(const char *format, va_list ap_save) |
| { |
| struct asprintf info; |
| struct dynbuf dyn; |
| info.b = &dyn; |
| Curl_dyn_init(info.b, DYN_APRINTF); |
| info.merr = MERR_OK; |
| |
| (void)formatf(&info, alloc_addbyter, format, ap_save); |
| if(info.merr) { |
| Curl_dyn_free(info.b); |
| return NULL; |
| } |
| if(Curl_dyn_len(info.b)) |
| return Curl_dyn_ptr(info.b); |
| return strdup(""); |
| } |
| |
| char *curl_maprintf(const char *format, ...) |
| { |
| va_list ap_save; |
| char *s; |
| va_start(ap_save, format); |
| s = curl_mvaprintf(format, ap_save); |
| va_end(ap_save); |
| return s; |
| } |
| |
| static int storebuffer(unsigned char outc, void *f) |
| { |
| char **buffer = f; |
| **buffer = outc; |
| (*buffer)++; |
| return 0; |
| } |
| |
| int curl_msprintf(char *buffer, const char *format, ...) |
| { |
| va_list ap_save; /* argument pointer */ |
| int retcode; |
| va_start(ap_save, format); |
| retcode = formatf(&buffer, storebuffer, format, ap_save); |
| va_end(ap_save); |
| *buffer = 0; /* we terminate this with a zero byte */ |
| return retcode; |
| } |
| |
| static int fputc_wrapper(unsigned char outc, void *f) |
| { |
| int out = outc; |
| FILE *s = f; |
| int rc = fputc(out, s); |
| if(rc == out) |
| return 0; |
| return 1; |
| } |
| |
| int curl_mprintf(const char *format, ...) |
| { |
| int retcode; |
| va_list ap_save; /* argument pointer */ |
| va_start(ap_save, format); |
| |
| retcode = formatf(stdout, fputc_wrapper, format, ap_save); |
| va_end(ap_save); |
| return retcode; |
| } |
| |
| int curl_mfprintf(FILE *whereto, const char *format, ...) |
| { |
| int retcode; |
| va_list ap_save; /* argument pointer */ |
| va_start(ap_save, format); |
| retcode = formatf(whereto, fputc_wrapper, format, ap_save); |
| va_end(ap_save); |
| return retcode; |
| } |
| |
| int curl_mvsprintf(char *buffer, const char *format, va_list ap_save) |
| { |
| int retcode = formatf(&buffer, storebuffer, format, ap_save); |
| *buffer = 0; /* we terminate this with a zero byte */ |
| return retcode; |
| } |
| |
| int curl_mvprintf(const char *format, va_list ap_save) |
| { |
| return formatf(stdout, fputc_wrapper, format, ap_save); |
| } |
| |
| int curl_mvfprintf(FILE *whereto, const char *format, va_list ap_save) |
| { |
| return formatf(whereto, fputc_wrapper, format, ap_save); |
| } |
