1515 lines
50 KiB
C
1515 lines
50 KiB
C
/***
|
|
*output.c - printf style output to a FILE
|
|
*
|
|
* Copyright (c) 1989-2001, Microsoft Corporation. All rights reserved.
|
|
*
|
|
*Purpose:
|
|
* This file contains the code that does all the work for the
|
|
* printf family of functions. It should not be called directly, only
|
|
* by the *printf functions. We don't make any assumtions about the
|
|
* sizes of ints, longs, shorts, or long doubles, but if types do overlap,
|
|
* we also try to be efficient. We do assume that pointers are the same
|
|
* size as either ints or longs.
|
|
* If CPRFLAG is defined, defines _cprintf instead.
|
|
* **** DOESN'T CURRENTLY DO MTHREAD LOCKING ****
|
|
*
|
|
*Revision History:
|
|
* 06-01-89 PHG Module created
|
|
* 08-28-89 JCR Added cast to get rid of warning (no object changes)
|
|
* 02-15-90 GJF Fixed copyright
|
|
* 03-19-90 GJF Made calling type _CALLTYPE1 and added #include
|
|
* <cruntime.h>.
|
|
* 03-26-90 GJF Changed LOCAL macro to incorporate _CALLTYPE4. Placed
|
|
* prototype for _output() in internal.h and #include-d
|
|
* it.
|
|
* 08-01-90 SBM Compiles cleanly with -W3, moved _cfltcvt_tab and
|
|
* typedefs DOUBLE and LONGDOUBLE to new header
|
|
* <fltintrn.h>, formerly named <struct.h>
|
|
* 09-05-90 SBM First attempt at adding CPRFLAG and code to generate
|
|
* cprintf. Anything in #ifdef CPRFLAG untested.
|
|
* Still needs to have locking added for MTHREAD case.
|
|
* 10-03-90 GJF New-style function declarators.
|
|
* 01-02-91 SRW Added _WIN32_ conditional for 'C' and 'S' format chars.
|
|
* 01-16-91 GJF ANSI naming.
|
|
* 01-16-91 SRW Added #include of maketabc.out (_WIN32_)
|
|
* 04-09-91 PNT Use the _CRUISER_ mapping for _MAC_
|
|
* 04-16-91 SRW Fixed #include of maketabc.out (_WIN32_)
|
|
* 04-25-91 SRW Made nullstring static
|
|
* 05-20-91 GJF Moved state table for Win32 inline (_WIN32_).
|
|
* 09-12-91 JCR Bumped conversion buffer size to be ANSI-compliant
|
|
* 09-17-91 IHJ Add partial UNICODE (%ws, %wc) support
|
|
* 09-28-91 GJF Merged with crt32 and crtdll versions. For now, 9-17-91
|
|
* change is built only for Win32, not Dosx32 (_WIN32_).
|
|
* 10-22-91 ETC Complete wchar_t/mb support under _INTL. For now,
|
|
* 9-28-91 change is additionally under !_INTL. Bug fix:
|
|
* ints and pointers are longs.
|
|
* 11-19-91 ETC Added support for _wsprintf, _vwsprintf with WPRFLAG;
|
|
* added %tc %ts (generic string handling).
|
|
* 12-05-91 GDP Bug fix: va_arg was used inconsistently for double
|
|
* 12-19-91 ETC Added some comments on wsprintf optimization, undones;
|
|
* check return on malloc.
|
|
* 03-25-92 DJM POSIX support
|
|
* 04-16-92 KRS Support new ISO {s|f}wprintf with Unicode format string.
|
|
* 06-08-92 SRW Modified to not use free and malloc for mbtowc conversion.
|
|
* 06-10-92 KRS Fix glitch in previous change.
|
|
* 07-17-92 KRS Fix typo which broke WPRFLAG support.
|
|
* 04-06-93 SKS Replace _CRTAPI* with __cdecl
|
|
* 04-16-93 SKS Fix bug in 'S' option logic.
|
|
* 04-26-93 CFW Wide char enable.
|
|
* 07-14-93 TVB Added Alpha support (quad stuff).
|
|
* 07-16-93 SRW ALPHA Merge
|
|
* 07-26-93 GJF Fixed write_multichar and write_string so that they
|
|
* stop looping when an error occurs. This generalizes
|
|
* and supplants the fix MattBr made for POSIX only.
|
|
* 08-17-93 CFW Avoid mapping tchar macros incorrectly if _MBCS
|
|
* defined.
|
|
* 11-10-93 GJF Merged in NT SDK version. Deleted Cruiser support
|
|
* and references to _WIN32_ (the former is obsolete and
|
|
* the later is assumed).
|
|
* 03-10-94 GJF Added support for I64 size modifier.
|
|
* 03-25-94 GJF Rebuilt __lookuptable[].
|
|
* 09-05-94 SKS Change "#ifdef" inside comments to "*ifdef" to avoid
|
|
* problems with CRTL source release process.
|
|
* 10-02-94 BWT Add _M_PPC definition.
|
|
* 10-19-94 BWT Reenable %Z and %ws/%wc for NT_BUILD only.
|
|
* 02-06-94 CFW assert -> _ASSERTE.
|
|
* 02-23-95 GJF Appended Mac version of source file (somewhat cleaned
|
|
* up), with appropriate #ifdef-s. Also, replaced
|
|
* WPRFLAG with _UNICODE.
|
|
* 05-03-96 GJF Removed NT_BUILD. The extensions for NT (i.e., the 'Z'
|
|
* descriptor and 'w' modifier) are now in the retail
|
|
* build. Fixed textlen calculation for %ws. Also,
|
|
* detab-ed.
|
|
* 07-25-96 SKS Added initialization of textlen for cases where no valid
|
|
* format character is found after the % character.
|
|
* 08-01-96 RDK Add support for %I64 for PMac.
|
|
* 09-09-96 JWM Local struct "string" renamed to "_count_string" (Orion
|
|
* 8710).
|
|
* 02-27-98 RKP Added 64 bit support.
|
|
* 03-05-98 RKP Expanded pointers to 64 bits on AXP64 and IA64.
|
|
* 09-17-98 GJF Added support for %I32 and %I modifiers.
|
|
* 01-04-99 GJF Changes for 64-bit size_t.
|
|
* 05-17-99 PML Remove all Macintosh support.
|
|
* 11-03-99 GB VS7#5431. Fixed output() for the case when L format
|
|
* specifier is used with wprintf
|
|
* 11-30-99 PML Compile /Wp64 clean.
|
|
* 02-11-00 GB Added support for unicode console output function
|
|
* (_cwprintf).
|
|
* 03-10-00 GB Modified write_char for NULL pointer string in
|
|
* sprintf.
|
|
* 11-22-00 PML Wide-char *putwc* functions take a wchar_t, not wint_t.
|
|
* 07-05-01 BWT Turn off %n formatting for NTSUBSET - it's a security hole
|
|
* waiting to happen.
|
|
* 07-15-01 PML Remove all ALPHA, MIPS, and PPC code
|
|
* 08-11-01 PML Cap precision to fix overrun of 'buffer' (vs7#298618)
|
|
*
|
|
*******************************************************************************/
|
|
|
|
/* temporary work-around for compiler without 64-bit support */
|
|
|
|
#ifndef _INTEGRAL_MAX_BITS
|
|
#define _INTEGRAL_MAX_BITS 64
|
|
#endif
|
|
|
|
|
|
#include <cruntime.h>
|
|
#include <limits.h>
|
|
#include <string.h>
|
|
#include <stddef.h>
|
|
#include <stdio.h>
|
|
#include <stdarg.h>
|
|
#include <cvt.h>
|
|
#include <conio.h>
|
|
#include <internal.h>
|
|
#include <fltintrn.h>
|
|
#include <stdlib.h>
|
|
#include <ctype.h>
|
|
#include <dbgint.h>
|
|
|
|
/* inline keyword is non-ANSI C7 extension */
|
|
#if !defined(_MSC_VER) || defined(__STDC__)
|
|
#define __inline static
|
|
#else
|
|
/* UNDONE: compiler is broken */
|
|
#define __inline static
|
|
#endif
|
|
|
|
#ifdef _MBCS /* always want either Unicode or SBCS for tchar.h */
|
|
#undef _MBCS
|
|
#endif
|
|
#include <tchar.h>
|
|
|
|
/* this macro defines a function which is private and as fast as possible: */
|
|
/* for example, in C 6.0, it might be static _fastcall <type> near. */
|
|
#define LOCAL(x) static x __cdecl
|
|
|
|
/* int/long/short/pointer sizes */
|
|
|
|
/* the following should be set depending on the sizes of various types */
|
|
#define LONG_IS_INT 1 /* 1 means long is same size as int */
|
|
#define SHORT_IS_INT 0 /* 1 means short is same size as int */
|
|
#define LONGDOUBLE_IS_DOUBLE 1 /* 1 means long double is same as double */
|
|
#if defined (_WIN64)
|
|
#define PTR_IS_INT 0 /* 1 means ptr is same size as int */
|
|
#define PTR_IS_LONG 0 /* 1 means ptr is same size as long */
|
|
#define PTR_IS_INT64 1 /* 1 means ptr is same size as int64 */
|
|
#else
|
|
#define PTR_IS_INT 1 /* 1 means ptr is same size as int */
|
|
#define PTR_IS_LONG 1 /* 1 means ptr is same size as long */
|
|
#define PTR_IS_INT64 0 /* 1 means ptr is same size as int64 */
|
|
#endif
|
|
|
|
#if LONG_IS_INT
|
|
#define get_long_arg(x) (long)get_int_arg(x)
|
|
#endif
|
|
|
|
#ifndef _UNICODE
|
|
#if SHORT_IS_INT
|
|
#define get_short_arg(x) (short)get_int_arg(x)
|
|
#endif
|
|
#endif
|
|
|
|
#if PTR_IS_INT
|
|
#define get_ptr_arg(x) (void *)(intptr_t)get_int_arg(x)
|
|
#elif PTR_IS_LONG
|
|
#define get_ptr_arg(x) (void *)(intptr_t)get_long_arg(x)
|
|
#elif PTR_IS_INT64
|
|
#define get_ptr_arg(x) (void *)get_int64_arg(x)
|
|
#else
|
|
#error Size of pointer must be same as size of int or long
|
|
#endif
|
|
|
|
|
|
|
|
/* CONSTANTS */
|
|
|
|
/* size of conversion buffer (ANSI-specified minimum is 509) */
|
|
|
|
#define BUFFERSIZE 512
|
|
#define MAXPRECISION BUFFERSIZE
|
|
|
|
#if BUFFERSIZE < CVTBUFSIZE + 6 /*IFSTRIP=IGN*/
|
|
/*
|
|
* Buffer needs to be big enough for default minimum precision
|
|
* when converting floating point needs bigger buffer, and malloc
|
|
* fails
|
|
*/
|
|
#error Conversion buffer too small for max double.
|
|
#endif
|
|
|
|
/* flag definitions */
|
|
#define FL_SIGN 0x00001 /* put plus or minus in front */
|
|
#define FL_SIGNSP 0x00002 /* put space or minus in front */
|
|
#define FL_LEFT 0x00004 /* left justify */
|
|
#define FL_LEADZERO 0x00008 /* pad with leading zeros */
|
|
#define FL_LONG 0x00010 /* long value given */
|
|
#define FL_SHORT 0x00020 /* short value given */
|
|
#define FL_SIGNED 0x00040 /* signed data given */
|
|
#define FL_ALTERNATE 0x00080 /* alternate form requested */
|
|
#define FL_NEGATIVE 0x00100 /* value is negative */
|
|
#define FL_FORCEOCTAL 0x00200 /* force leading '0' for octals */
|
|
#define FL_LONGDOUBLE 0x00400 /* long double value given */
|
|
#define FL_WIDECHAR 0x00800 /* wide characters */
|
|
#define FL_I64 0x08000 /* __int64 value given */
|
|
|
|
/* state definitions */
|
|
enum STATE {
|
|
ST_NORMAL, /* normal state; outputting literal chars */
|
|
ST_PERCENT, /* just read '%' */
|
|
ST_FLAG, /* just read flag character */
|
|
ST_WIDTH, /* just read width specifier */
|
|
ST_DOT, /* just read '.' */
|
|
ST_PRECIS, /* just read precision specifier */
|
|
ST_SIZE, /* just read size specifier */
|
|
ST_TYPE /* just read type specifier */
|
|
};
|
|
#define NUMSTATES (ST_TYPE + 1)
|
|
|
|
/* character type values */
|
|
enum CHARTYPE {
|
|
CH_OTHER, /* character with no special meaning */
|
|
CH_PERCENT, /* '%' */
|
|
CH_DOT, /* '.' */
|
|
CH_STAR, /* '*' */
|
|
CH_ZERO, /* '0' */
|
|
CH_DIGIT, /* '1'..'9' */
|
|
CH_FLAG, /* ' ', '+', '-', '#' */
|
|
CH_SIZE, /* 'h', 'l', 'L', 'N', 'F', 'w' */
|
|
CH_TYPE /* type specifying character */
|
|
};
|
|
|
|
/* static data (read only, since we are re-entrant) */
|
|
#if defined(_UNICODE) || defined(CPRFLAG)
|
|
extern char *__nullstring; /* string to print on null ptr */
|
|
extern wchar_t *__wnullstring; /* string to print on null ptr */
|
|
#else /* _UNICODE || CPRFLAG */
|
|
char *__nullstring = "(null)"; /* string to print on null ptr */
|
|
wchar_t *__wnullstring = L"(null)";/* string to print on null ptr */
|
|
#endif /* _UNICODE || CPRFLAG */
|
|
|
|
/* The state table. This table is actually two tables combined into one. */
|
|
/* The lower nybble of each byte gives the character class of any */
|
|
/* character; while the uper nybble of the byte gives the next state */
|
|
/* to enter. See the macros below the table for details. */
|
|
/* */
|
|
/* The table is generated by maketabc.c -- use this program to make */
|
|
/* changes. */
|
|
|
|
#if defined(_UNICODE) || defined(CPRFLAG)
|
|
|
|
extern const char __lookuptable[];
|
|
|
|
#else /* _UNICODE/CPRFLAG */
|
|
|
|
const char __lookuptable[] = {
|
|
/* ' ' */ 0x06,
|
|
/* '!' */ 0x00,
|
|
/* '"' */ 0x00,
|
|
/* '#' */ 0x06,
|
|
/* '$' */ 0x00,
|
|
/* '%' */ 0x01,
|
|
/* '&' */ 0x00,
|
|
/* ''' */ 0x00,
|
|
/* ('' */ 0x10,
|
|
/* ')' */ 0x00,
|
|
/* '*' */ 0x03,
|
|
/* '+' */ 0x06,
|
|
/* ',' */ 0x00,
|
|
/* '-' */ 0x06,
|
|
/* '.' */ 0x02,
|
|
/* '/' */ 0x10,
|
|
/* '0' */ 0x04,
|
|
/* '1' */ 0x45,
|
|
/* '2' */ 0x45,
|
|
/* '3' */ 0x45,
|
|
/* '4' */ 0x05,
|
|
/* '5' */ 0x05,
|
|
/* '6' */ 0x05,
|
|
/* '7' */ 0x05,
|
|
/* '8' */ 0x05,
|
|
/* '9' */ 0x35,
|
|
/* ':' */ 0x30,
|
|
/* ';' */ 0x00,
|
|
/* '<' */ 0x50,
|
|
/* '=' */ 0x00,
|
|
/* '>' */ 0x00,
|
|
/* '?' */ 0x00,
|
|
/* '@' */ 0x00,
|
|
/* 'A' */ 0x20,
|
|
/* 'B' */ 0x28,
|
|
/* 'C' */ 0x38,
|
|
/* 'D' */ 0x50,
|
|
/* 'E' */ 0x58,
|
|
/* 'F' */ 0x07,
|
|
/* 'G' */ 0x08,
|
|
/* 'H' */ 0x00,
|
|
/* 'I' */ 0x37,
|
|
/* 'J' */ 0x30,
|
|
/* 'K' */ 0x30,
|
|
/* 'L' */ 0x57,
|
|
/* 'M' */ 0x50,
|
|
/* 'N' */ 0x07,
|
|
/* 'O' */ 0x00,
|
|
/* 'P' */ 0x00,
|
|
/* 'Q' */ 0x20,
|
|
/* 'R' */ 0x20,
|
|
/* 'S' */ 0x08,
|
|
/* 'T' */ 0x00,
|
|
/* 'U' */ 0x00,
|
|
/* 'V' */ 0x00,
|
|
/* 'W' */ 0x00,
|
|
/* 'X' */ 0x08,
|
|
/* 'Y' */ 0x60,
|
|
/* 'Z' */ 0x68,
|
|
/* '[' */ 0x60,
|
|
/* '\' */ 0x60,
|
|
/* ']' */ 0x60,
|
|
/* '^' */ 0x60,
|
|
/* '_' */ 0x00,
|
|
/* '`' */ 0x00,
|
|
/* 'a' */ 0x70,
|
|
/* 'b' */ 0x70,
|
|
/* 'c' */ 0x78,
|
|
/* 'd' */ 0x78,
|
|
/* 'e' */ 0x78,
|
|
/* 'f' */ 0x78,
|
|
/* 'g' */ 0x08,
|
|
/* 'h' */ 0x07,
|
|
/* 'i' */ 0x08,
|
|
/* 'j' */ 0x00,
|
|
/* 'k' */ 0x00,
|
|
/* 'l' */ 0x07,
|
|
/* 'm' */ 0x00,
|
|
#ifdef _NTSUBSET_
|
|
/* 'n' */ 0x00, // Disable %n format for kernel (ST_NORMAL|CH_OTHER)
|
|
#else
|
|
/* 'n' */ 0x08,
|
|
#endif
|
|
/* 'o' */ 0x08,
|
|
/* 'p' */ 0x08,
|
|
/* 'q' */ 0x00,
|
|
/* 'r' */ 0x00,
|
|
/* 's' */ 0x08,
|
|
/* 't' */ 0x00,
|
|
/* 'u' */ 0x08,
|
|
/* 'v' */ 0x00,
|
|
/* 'w' */ 0x07,
|
|
/* '*' */ 0x08
|
|
};
|
|
|
|
#endif /* _UNICODE || CPRFLAG */
|
|
|
|
#define find_char_class(c) \
|
|
((c) < _T(' ') || (c) > _T('x') ? \
|
|
CH_OTHER \
|
|
: \
|
|
__lookuptable[(c)-_T(' ')] & 0xF)
|
|
|
|
#define find_next_state(class, state) \
|
|
(__lookuptable[(class) * NUMSTATES + (state)] >> 4)
|
|
|
|
|
|
/*
|
|
* Note: CPRFLAG and _UNICODE cases are currently mutually exclusive.
|
|
*/
|
|
|
|
/* prototypes */
|
|
|
|
#ifdef CPRFLAG
|
|
|
|
#define WRITE_CHAR(ch, pnw) write_char(ch, pnw)
|
|
#define WRITE_MULTI_CHAR(ch, num, pnw) write_multi_char(ch, num, pnw)
|
|
#define WRITE_STRING(s, len, pnw) write_string(s, len, pnw)
|
|
#define WRITE_WSTRING(s, len, pnw) write_wstring(s, len, pnw)
|
|
|
|
LOCAL(void) write_char(_TCHAR ch, int *pnumwritten);
|
|
LOCAL(void) write_multi_char(_TCHAR ch, int num, int *pnumwritten);
|
|
LOCAL(void) write_string(_TCHAR *string, int len, int *numwritten);
|
|
LOCAL(void) write_wstring(wchar_t *string, int len, int *numwritten);
|
|
|
|
#else
|
|
|
|
#define WRITE_CHAR(ch, pnw) write_char(ch, stream, pnw)
|
|
#define WRITE_MULTI_CHAR(ch, num, pnw) write_multi_char(ch, num, stream, pnw)
|
|
#define WRITE_STRING(s, len, pnw) write_string(s, len, stream, pnw)
|
|
#define WRITE_WSTRING(s, len, pnw) write_wstring(s, len, stream, pnw)
|
|
|
|
LOCAL(void) write_char(_TCHAR ch, FILE *f, int *pnumwritten);
|
|
LOCAL(void) write_multi_char(_TCHAR ch, int num, FILE *f, int *pnumwritten);
|
|
LOCAL(void) write_string(_TCHAR *string, int len, FILE *f, int *numwritten);
|
|
LOCAL(void) write_wstring(wchar_t *string, int len, FILE *f, int *numwritten);
|
|
|
|
#endif
|
|
|
|
__inline int __cdecl get_int_arg(va_list *pargptr);
|
|
|
|
#ifndef _UNICODE
|
|
#if !SHORT_IS_INT
|
|
__inline short __cdecl get_short_arg(va_list *pargptr);
|
|
#endif
|
|
#endif
|
|
|
|
#if !LONG_IS_INT
|
|
__inline long __cdecl get_long_arg(va_list *pargptr);
|
|
#endif
|
|
|
|
#if _INTEGRAL_MAX_BITS >= 64 /*IFSTRIP=IGN*/
|
|
__inline __int64 __cdecl get_int64_arg(va_list *pargptr);
|
|
#endif
|
|
|
|
#ifdef CPRFLAG
|
|
LOCAL(int) output(const _TCHAR *, va_list);
|
|
|
|
/***
|
|
*int _cprintf(format, arglist) - write formatted output directly to console
|
|
*
|
|
*Purpose:
|
|
* Writes formatted data like printf, but uses console I/O functions.
|
|
*
|
|
*Entry:
|
|
* char *format - format string to determine data formats
|
|
* arglist - list of POINTERS to where to put data
|
|
*
|
|
*Exit:
|
|
* returns number of characters written
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
#ifdef _UNICODE
|
|
int __cdecl _cwprintf (
|
|
#else
|
|
int __cdecl _cprintf (
|
|
#endif
|
|
const _TCHAR * format,
|
|
...
|
|
)
|
|
{
|
|
va_list arglist;
|
|
|
|
va_start(arglist, format);
|
|
|
|
return output(format, arglist);
|
|
}
|
|
|
|
#endif /* CPRFLAG */
|
|
|
|
|
|
/***
|
|
*int _output(stream, format, argptr), static int output(format, argptr)
|
|
*
|
|
*Purpose:
|
|
* Output performs printf style output onto a stream. It is called by
|
|
* printf/fprintf/sprintf/vprintf/vfprintf/vsprintf to so the dirty
|
|
* work. In multi-thread situations, _output assumes that the given
|
|
* stream is already locked.
|
|
*
|
|
* Algorithm:
|
|
* The format string is parsed by using a finite state automaton
|
|
* based on the current state and the current character read from
|
|
* the format string. Thus, looping is on a per-character basis,
|
|
* not a per conversion specifier basis. Once the format specififying
|
|
* character is read, output is performed.
|
|
*
|
|
*Entry:
|
|
* FILE *stream - stream for output
|
|
* char *format - printf style format string
|
|
* va_list argptr - pointer to list of subsidiary arguments
|
|
*
|
|
*Exit:
|
|
* Returns the number of characters written, or -1 if an output error
|
|
* occurs.
|
|
*ifdef _UNICODE
|
|
* The wide-character flavour returns the number of wide-characters written.
|
|
*endif
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#ifdef CPRFLAG
|
|
LOCAL(int) output (
|
|
#else
|
|
|
|
#ifdef _UNICODE
|
|
int __cdecl _woutput (
|
|
FILE *stream,
|
|
#else
|
|
int __cdecl _output (
|
|
FILE *stream,
|
|
#endif
|
|
|
|
#endif
|
|
const _TCHAR *format,
|
|
va_list argptr
|
|
)
|
|
{
|
|
int hexadd; /* offset to add to number to get 'a'..'f' */
|
|
TCHAR ch; /* character just read */
|
|
int flags; /* flag word -- see #defines above for flag values */
|
|
enum STATE state; /* current state */
|
|
enum CHARTYPE chclass; /* class of current character */
|
|
int radix; /* current conversion radix */
|
|
int charsout; /* characters currently written so far, -1 = IO error */
|
|
int fldwidth; /* selected field width -- 0 means default */
|
|
int precision; /* selected precision -- -1 means default */
|
|
TCHAR prefix[2]; /* numeric prefix -- up to two characters */
|
|
int prefixlen; /* length of prefix -- 0 means no prefix */
|
|
int capexp; /* non-zero = 'E' exponent signifient, zero = 'e' */
|
|
int no_output; /* non-zero = prodcue no output for this specifier */
|
|
union {
|
|
char *sz; /* pointer text to be printed, not zero terminated */
|
|
wchar_t *wz;
|
|
} text;
|
|
|
|
int textlen; /* length of the text in bytes/wchars to be printed.
|
|
textlen is in multibyte or wide chars if _UNICODE */
|
|
union {
|
|
char sz[BUFFERSIZE];
|
|
#ifdef _UNICODE
|
|
wchar_t wz[BUFFERSIZE];
|
|
#endif
|
|
} buffer;
|
|
wchar_t wchar; /* temp wchar_t */
|
|
int bufferiswide; /* non-zero = buffer contains wide chars already */
|
|
#if !defined(_NTSUBSET_) && !defined(_POSIX_)
|
|
char *heapbuf = NULL; /* non-zero = test.sz using heap buffer to be freed */
|
|
#endif
|
|
|
|
textlen = 0; /* no text yet */
|
|
charsout = 0; /* no characters written yet */
|
|
state = ST_NORMAL; /* starting state */
|
|
|
|
/* main loop -- loop while format character exist and no I/O errors */
|
|
while ((ch = *format++) != _T('\0') && charsout >= 0) {
|
|
chclass = find_char_class(ch); /* find character class */
|
|
state = find_next_state(chclass, state); /* find next state */
|
|
|
|
/* execute code for each state */
|
|
switch (state) {
|
|
|
|
case ST_NORMAL:
|
|
|
|
NORMAL_STATE:
|
|
|
|
/* normal state -- just write character */
|
|
#ifdef _UNICODE
|
|
bufferiswide = 1;
|
|
#else
|
|
bufferiswide = 0;
|
|
if (isleadbyte((int)(unsigned char)ch)) {
|
|
WRITE_CHAR(ch, &charsout);
|
|
ch = *format++;
|
|
_ASSERTE (ch != _T('\0')); /* UNDONE: don't fall off format string */
|
|
}
|
|
#endif /* !_UNICODE */
|
|
WRITE_CHAR(ch, &charsout);
|
|
break;
|
|
|
|
case ST_PERCENT:
|
|
/* set default value of conversion parameters */
|
|
prefixlen = fldwidth = no_output = capexp = 0;
|
|
flags = 0;
|
|
precision = -1;
|
|
bufferiswide = 0; /* default */
|
|
break;
|
|
|
|
case ST_FLAG:
|
|
/* set flag based on which flag character */
|
|
switch (ch) {
|
|
case _T('-'):
|
|
flags |= FL_LEFT; /* '-' => left justify */
|
|
break;
|
|
case _T('+'):
|
|
flags |= FL_SIGN; /* '+' => force sign indicator */
|
|
break;
|
|
case _T(' '):
|
|
flags |= FL_SIGNSP; /* ' ' => force sign or space */
|
|
break;
|
|
case _T('#'):
|
|
flags |= FL_ALTERNATE; /* '#' => alternate form */
|
|
break;
|
|
case _T('0'):
|
|
flags |= FL_LEADZERO; /* '0' => pad with leading zeros */
|
|
break;
|
|
}
|
|
break;
|
|
|
|
case ST_WIDTH:
|
|
/* update width value */
|
|
if (ch == _T('*')) {
|
|
/* get width from arg list */
|
|
fldwidth = get_int_arg(&argptr);
|
|
if (fldwidth < 0) {
|
|
/* ANSI says neg fld width means '-' flag and pos width */
|
|
flags |= FL_LEFT;
|
|
fldwidth = -fldwidth;
|
|
}
|
|
}
|
|
else {
|
|
/* add digit to current field width */
|
|
fldwidth = fldwidth * 10 + (ch - _T('0'));
|
|
}
|
|
break;
|
|
|
|
case ST_DOT:
|
|
/* zero the precision, since dot with no number means 0
|
|
not default, according to ANSI */
|
|
precision = 0;
|
|
break;
|
|
|
|
case ST_PRECIS:
|
|
/* update precison value */
|
|
if (ch == _T('*')) {
|
|
/* get precision from arg list */
|
|
precision = get_int_arg(&argptr);
|
|
if (precision < 0)
|
|
precision = -1; /* neg precision means default */
|
|
}
|
|
else {
|
|
/* add digit to current precision */
|
|
precision = precision * 10 + (ch - _T('0'));
|
|
}
|
|
break;
|
|
|
|
case ST_SIZE:
|
|
/* just read a size specifier, set the flags based on it */
|
|
switch (ch) {
|
|
case _T('l'):
|
|
flags |= FL_LONG; /* 'l' => long int or wchar_t */
|
|
break;
|
|
|
|
case _T('I'):
|
|
/*
|
|
* In order to handle the I, I32, and I64 size modifiers, we
|
|
* depart from the simple deterministic state machine. The
|
|
* code below scans for characters following the 'I',
|
|
* and defaults to 64 bit on WIN64 and 32 bit on WIN32
|
|
*/
|
|
#if PTR_IS_INT64
|
|
flags |= FL_I64; /* 'I' => __int64 on WIN64 systems */
|
|
#endif
|
|
if ( (*format == _T('6')) && (*(format + 1) == _T('4')) )
|
|
{
|
|
format += 2;
|
|
flags |= FL_I64; /* I64 => __int64 */
|
|
}
|
|
else if ( (*format == _T('3')) && (*(format + 1) == _T('2')) )
|
|
{
|
|
format += 2;
|
|
flags &= ~FL_I64; /* I32 => __int32 */
|
|
}
|
|
else if ( (*format == _T('d')) ||
|
|
(*format == _T('i')) ||
|
|
(*format == _T('o')) ||
|
|
(*format == _T('u')) ||
|
|
(*format == _T('x')) ||
|
|
(*format == _T('X')) )
|
|
{
|
|
/*
|
|
* Nothing further needed. %Id (et al) is
|
|
* handled just like %d, except that it defaults to 64 bits
|
|
* on WIN64. Fall through to the next iteration.
|
|
*/
|
|
}
|
|
else {
|
|
state = ST_NORMAL;
|
|
goto NORMAL_STATE;
|
|
}
|
|
break;
|
|
|
|
case _T('h'):
|
|
flags |= FL_SHORT; /* 'h' => short int or char */
|
|
break;
|
|
|
|
/* UNDONE: support %wc and %ws for now only for compatibility */
|
|
case _T('w'):
|
|
flags |= FL_WIDECHAR; /* 'w' => wide character */
|
|
break;
|
|
|
|
}
|
|
break;
|
|
|
|
case ST_TYPE:
|
|
/* we have finally read the actual type character, so we */
|
|
/* now format and "print" the output. We use a big switch */
|
|
/* statement that sets 'text' to point to the text that should */
|
|
/* be printed, and 'textlen' to the length of this text. */
|
|
/* Common code later on takes care of justifying it and */
|
|
/* other miscellaneous chores. Note that cases share code, */
|
|
/* in particular, all integer formatting is done in one place. */
|
|
/* Look at those funky goto statements! */
|
|
|
|
switch (ch) {
|
|
|
|
case _T('C'): /* ISO wide character */
|
|
if (!(flags & (FL_SHORT|FL_LONG|FL_WIDECHAR)))
|
|
#ifdef _UNICODE
|
|
flags |= FL_SHORT;
|
|
#else
|
|
flags |= FL_WIDECHAR; /* ISO std. */
|
|
#endif
|
|
/* fall into 'c' case */
|
|
|
|
case _T('c'): {
|
|
/* print a single character specified by int argument */
|
|
#ifdef _UNICODE
|
|
bufferiswide = 1;
|
|
wchar = (wchar_t) get_int_arg(&argptr);
|
|
if (flags & FL_SHORT) {
|
|
/* format multibyte character */
|
|
/* this is an extension of ANSI */
|
|
char tempchar[2];
|
|
#ifdef _OUT
|
|
if (isleadbyte(wchar >> 8)) {
|
|
tempchar[0] = (wchar >> 8);
|
|
tempchar[1] = (wchar & 0x00ff);
|
|
}
|
|
else
|
|
#endif /* _OUT */
|
|
{
|
|
tempchar[0] = (char)(wchar & 0x00ff);
|
|
tempchar[1] = '\0';
|
|
}
|
|
|
|
if (mbtowc(buffer.wz,tempchar,MB_CUR_MAX) < 0) {
|
|
/* ignore if conversion was unsuccessful */
|
|
no_output = 1;
|
|
}
|
|
} else {
|
|
buffer.wz[0] = wchar;
|
|
}
|
|
text.wz = buffer.wz;
|
|
textlen = 1; /* print just a single character */
|
|
#else /* _UNICODE */
|
|
if (flags & (FL_LONG|FL_WIDECHAR)) {
|
|
wchar = (wchar_t) get_short_arg(&argptr);
|
|
/* convert to multibyte character */
|
|
textlen = wctomb(buffer.sz, wchar);
|
|
|
|
/* check that conversion was successful */
|
|
if (textlen < 0)
|
|
no_output = 1;
|
|
} else {
|
|
/* format multibyte character */
|
|
/* this is an extension of ANSI */
|
|
unsigned short temp;
|
|
temp = (unsigned short) get_int_arg(&argptr);
|
|
#ifdef _OUT
|
|
if (isleadbyte(temp >> 8)) {
|
|
buffer.sz[0] = temp >> 8;
|
|
buffer.sz[1] = temp & 0x00ff;
|
|
textlen = 2;
|
|
} else
|
|
#endif /* _OUT */
|
|
{
|
|
buffer.sz[0] = (char) temp;
|
|
textlen = 1;
|
|
}
|
|
}
|
|
text.sz = buffer.sz;
|
|
#endif /* _UNICODE */
|
|
}
|
|
break;
|
|
|
|
case _T('Z'): {
|
|
/* print a Counted String
|
|
|
|
int i;
|
|
char *p; /* temps */
|
|
struct _count_string {
|
|
short Length;
|
|
short MaximumLength;
|
|
char *Buffer;
|
|
} *pstr;
|
|
|
|
pstr = get_ptr_arg(&argptr);
|
|
if (pstr == NULL || pstr->Buffer == NULL) {
|
|
/* null ptr passed, use special string */
|
|
text.sz = __nullstring;
|
|
textlen = (int)strlen(text.sz);
|
|
} else {
|
|
if (flags & FL_WIDECHAR) {
|
|
text.wz = (wchar_t *)pstr->Buffer;
|
|
textlen = pstr->Length / (int)sizeof(wchar_t);
|
|
bufferiswide = 1;
|
|
} else {
|
|
bufferiswide = 0;
|
|
text.sz = pstr->Buffer;
|
|
textlen = pstr->Length;
|
|
}
|
|
}
|
|
}
|
|
break;
|
|
|
|
case _T('S'): /* ISO wide character string */
|
|
#ifndef _UNICODE
|
|
if (!(flags & (FL_SHORT|FL_LONG|FL_WIDECHAR)))
|
|
flags |= FL_WIDECHAR;
|
|
#else
|
|
if (!(flags & (FL_SHORT|FL_LONG|FL_WIDECHAR)))
|
|
flags |= FL_SHORT;
|
|
#endif
|
|
|
|
case _T('s'): {
|
|
/* print a string -- */
|
|
/* ANSI rules on how much of string to print: */
|
|
/* all if precision is default, */
|
|
/* min(precision, length) if precision given. */
|
|
/* prints '(null)' if a null string is passed */
|
|
|
|
int i;
|
|
char *p; /* temps */
|
|
wchar_t *pwch;
|
|
|
|
/* At this point it is tempting to use strlen(), but */
|
|
/* if a precision is specified, we're not allowed to */
|
|
/* scan past there, because there might be no null */
|
|
/* at all. Thus, we must do our own scan. */
|
|
|
|
i = (precision == -1) ? INT_MAX : precision;
|
|
text.sz = get_ptr_arg(&argptr);
|
|
|
|
/* UNDONE: handle '#' case properly */
|
|
/* scan for null upto i characters */
|
|
#ifdef _UNICODE
|
|
if (flags & FL_SHORT) {
|
|
if (text.sz == NULL) /* NULL passed, use special string */
|
|
text.sz = __nullstring;
|
|
p = text.sz;
|
|
for (textlen=0; textlen<i && *p; textlen++) {
|
|
if (isleadbyte((int)*p))
|
|
++p;
|
|
++p;
|
|
}
|
|
/* textlen now contains length in multibyte chars */
|
|
} else {
|
|
if (text.wz == NULL) /* NULL passed, use special string */
|
|
text.wz = __wnullstring;
|
|
bufferiswide = 1;
|
|
pwch = text.wz;
|
|
while (i-- && *pwch)
|
|
++pwch;
|
|
textlen = (int)(pwch - text.wz); /* in wchar_ts */
|
|
/* textlen now contains length in wide chars */
|
|
}
|
|
#else /* _UNICODE */
|
|
if (flags & (FL_LONG|FL_WIDECHAR)) {
|
|
if (text.wz == NULL) /* NULL passed, use special string */
|
|
text.wz = __wnullstring;
|
|
bufferiswide = 1;
|
|
pwch = text.wz;
|
|
while ( i-- && *pwch )
|
|
++pwch;
|
|
textlen = (int)(pwch - text.wz);
|
|
/* textlen now contains length in wide chars */
|
|
} else {
|
|
if (text.sz == NULL) /* NULL passed, use special string */
|
|
text.sz = __nullstring;
|
|
p = text.sz;
|
|
while (i-- && *p)
|
|
++p;
|
|
textlen = (int)(p - text.sz); /* length of the string */
|
|
}
|
|
|
|
#endif /* _UNICODE */
|
|
}
|
|
break;
|
|
|
|
|
|
case _T('n'): {
|
|
/* write count of characters seen so far into */
|
|
/* short/int/long thru ptr read from args */
|
|
|
|
void *p; /* temp */
|
|
|
|
p = get_ptr_arg(&argptr);
|
|
|
|
/* store chars out into short/long/int depending on flags */
|
|
#if !LONG_IS_INT
|
|
if (flags & FL_LONG)
|
|
*(long *)p = charsout;
|
|
else
|
|
#endif
|
|
|
|
#if !SHORT_IS_INT
|
|
if (flags & FL_SHORT)
|
|
*(short *)p = (short) charsout;
|
|
else
|
|
#endif
|
|
*(int *)p = charsout;
|
|
|
|
no_output = 1; /* force no output */
|
|
}
|
|
break;
|
|
|
|
|
|
case _T('E'):
|
|
case _T('G'):
|
|
capexp = 1; /* capitalize exponent */
|
|
ch += _T('a') - _T('A'); /* convert format char to lower */
|
|
/* DROP THROUGH */
|
|
case _T('e'):
|
|
case _T('f'):
|
|
case _T('g'): {
|
|
/* floating point conversion -- we call cfltcvt routines */
|
|
/* to do the work for us. */
|
|
flags |= FL_SIGNED; /* floating point is signed conversion */
|
|
text.sz = buffer.sz; /* put result in buffer */
|
|
|
|
/* compute the precision value */
|
|
if (precision < 0)
|
|
precision = 6; /* default precision: 6 */
|
|
else if (precision == 0 && ch == _T('g'))
|
|
precision = 1; /* ANSI specified */
|
|
else if (precision > MAXPRECISION)
|
|
precision = MAXPRECISION;
|
|
|
|
if (precision > BUFFERSIZE - CVTBUFSIZE) {
|
|
#if !defined(_NTSUBSET_) && !defined(_POSIX_)
|
|
/* conversion will potentially overflow local buffer */
|
|
/* so we need to use a heap-allocated buffer. */
|
|
heapbuf = (char *)_malloc_crt(CVTBUFSIZE + precision);
|
|
if (heapbuf != NULL)
|
|
text.sz = heapbuf;
|
|
else
|
|
/* malloc failed, cap precision further */
|
|
#endif
|
|
precision = BUFFERSIZE - CVTBUFSIZE;
|
|
}
|
|
|
|
#if !LONGDOUBLE_IS_DOUBLE
|
|
/* do the conversion */
|
|
if (flags & FL_LONGDOUBLE) {
|
|
LONGDOUBLE tmp;
|
|
tmp=va_arg(argptr, LONGDOUBLE);
|
|
/* Note: assumes ch is in ASCII range */
|
|
_cldcvt(&tmp, text.sz, (char)ch, precision, capexp);
|
|
} else
|
|
#endif
|
|
{
|
|
DOUBLE tmp;
|
|
tmp=va_arg(argptr, DOUBLE);
|
|
/* Note: assumes ch is in ASCII range */
|
|
_cfltcvt(&tmp,text.sz, (char)ch, precision, capexp);
|
|
}
|
|
|
|
/* '#' and precision == 0 means force a decimal point */
|
|
if ((flags & FL_ALTERNATE) && precision == 0)
|
|
_forcdecpt(text.sz);
|
|
|
|
/* 'g' format means crop zero unless '#' given */
|
|
if (ch == _T('g') && !(flags & FL_ALTERNATE))
|
|
_cropzeros(text.sz);
|
|
|
|
/* check if result was negative, save '-' for later */
|
|
/* and point to positive part (this is for '0' padding) */
|
|
if (*text.sz == '-') {
|
|
flags |= FL_NEGATIVE;
|
|
++text.sz;
|
|
}
|
|
|
|
textlen = (int)strlen(text.sz); /* compute length of text */
|
|
}
|
|
break;
|
|
|
|
case _T('d'):
|
|
case _T('i'):
|
|
/* signed decimal output */
|
|
flags |= FL_SIGNED;
|
|
radix = 10;
|
|
goto COMMON_INT;
|
|
|
|
case _T('u'):
|
|
radix = 10;
|
|
goto COMMON_INT;
|
|
|
|
case _T('p'):
|
|
/* write a pointer -- this is like an integer or long */
|
|
/* except we force precision to pad with zeros and */
|
|
/* output in big hex. */
|
|
|
|
precision = 2 * sizeof(void *); /* number of hex digits needed */
|
|
#if PTR_IS_INT64
|
|
flags |= FL_I64; /* assume we're converting an int64 */
|
|
#elif !PTR_IS_INT
|
|
flags |= FL_LONG; /* assume we're converting a long */
|
|
#endif
|
|
/* DROP THROUGH to hex formatting */
|
|
|
|
case _T('X'):
|
|
/* unsigned upper hex output */
|
|
hexadd = _T('A') - _T('9') - 1; /* set hexadd for uppercase hex */
|
|
goto COMMON_HEX;
|
|
|
|
case _T('x'):
|
|
/* unsigned lower hex output */
|
|
hexadd = _T('a') - _T('9') - 1; /* set hexadd for lowercase hex */
|
|
/* DROP THROUGH TO COMMON_HEX */
|
|
|
|
COMMON_HEX:
|
|
radix = 16;
|
|
if (flags & FL_ALTERNATE) {
|
|
/* alternate form means '0x' prefix */
|
|
prefix[0] = _T('0');
|
|
prefix[1] = (TCHAR)(_T('x') - _T('a') + _T('9') + 1 + hexadd); /* 'x' or 'X' */
|
|
prefixlen = 2;
|
|
}
|
|
goto COMMON_INT;
|
|
|
|
case _T('o'):
|
|
/* unsigned octal output */
|
|
radix = 8;
|
|
if (flags & FL_ALTERNATE) {
|
|
/* alternate form means force a leading 0 */
|
|
flags |= FL_FORCEOCTAL;
|
|
}
|
|
/* DROP THROUGH to COMMON_INT */
|
|
|
|
COMMON_INT: {
|
|
/* This is the general integer formatting routine. */
|
|
/* Basically, we get an argument, make it positive */
|
|
/* if necessary, and convert it according to the */
|
|
/* correct radix, setting text and textlen */
|
|
/* appropriately. */
|
|
|
|
#if _INTEGRAL_MAX_BITS >= 64 /*IFSTRIP=IGN*/
|
|
unsigned __int64 number; /* number to convert */
|
|
int digit; /* ascii value of digit */
|
|
__int64 l; /* temp long value */
|
|
#else
|
|
unsigned long number; /* number to convert */
|
|
int digit; /* ascii value of digit */
|
|
long l; /* temp long value */
|
|
#endif
|
|
|
|
/* 1. read argument into l, sign extend as needed */
|
|
#if _INTEGRAL_MAX_BITS >= 64 /*IFSTRIP=IGN*/
|
|
if (flags & FL_I64)
|
|
l = get_int64_arg(&argptr);
|
|
else
|
|
#endif
|
|
|
|
#if !LONG_IS_INT
|
|
if (flags & FL_LONG)
|
|
l = get_long_arg(&argptr);
|
|
else
|
|
#endif
|
|
|
|
#if !SHORT_IS_INT
|
|
if (flags & FL_SHORT) {
|
|
if (flags & FL_SIGNED)
|
|
l = (short) get_int_arg(&argptr); /* sign extend */
|
|
else
|
|
l = (unsigned short) get_int_arg(&argptr); /* zero-extend*/
|
|
} else
|
|
#endif
|
|
{
|
|
if (flags & FL_SIGNED)
|
|
l = get_int_arg(&argptr); /* sign extend */
|
|
else
|
|
l = (unsigned int) get_int_arg(&argptr); /* zero-extend*/
|
|
}
|
|
|
|
/* 2. check for negative; copy into number */
|
|
if ( (flags & FL_SIGNED) && l < 0) {
|
|
number = -l;
|
|
flags |= FL_NEGATIVE; /* remember negative sign */
|
|
} else {
|
|
number = l;
|
|
}
|
|
|
|
#if _INTEGRAL_MAX_BITS >= 64 /*IFSTRIP=IGN*/
|
|
if ( (flags & FL_I64) == 0 ) {
|
|
/*
|
|
* Unless printing a full 64-bit value, insure values
|
|
* here are not in cananical longword format to prevent
|
|
* the sign extended upper 32-bits from being printed.
|
|
*/
|
|
number &= 0xffffffff;
|
|
}
|
|
#endif
|
|
|
|
/* 3. check precision value for default; non-default */
|
|
/* turns off 0 flag, according to ANSI. */
|
|
if (precision < 0)
|
|
precision = 1; /* default precision */
|
|
else {
|
|
flags &= ~FL_LEADZERO;
|
|
if (precision > MAXPRECISION)
|
|
precision = MAXPRECISION;
|
|
}
|
|
|
|
/* 4. Check if data is 0; if so, turn off hex prefix */
|
|
if (number == 0)
|
|
prefixlen = 0;
|
|
|
|
/* 5. Convert data to ASCII -- note if precision is zero */
|
|
/* and number is zero, we get no digits at all. */
|
|
|
|
text.sz = &buffer.sz[BUFFERSIZE-1]; /* last digit at end of buffer */
|
|
|
|
while (precision-- > 0 || number != 0) {
|
|
digit = (int)(number % radix) + '0';
|
|
number /= radix; /* reduce number */
|
|
if (digit > '9') {
|
|
/* a hex digit, make it a letter */
|
|
digit += hexadd;
|
|
}
|
|
*text.sz-- = (char)digit; /* store the digit */
|
|
}
|
|
|
|
textlen = (int)((char *)&buffer.sz[BUFFERSIZE-1] - text.sz); /* compute length of number */
|
|
++text.sz; /* text points to first digit now */
|
|
|
|
|
|
/* 6. Force a leading zero if FORCEOCTAL flag set */
|
|
if ((flags & FL_FORCEOCTAL) && (text.sz[0] != '0' || textlen == 0)) {
|
|
*--text.sz = '0';
|
|
++textlen; /* add a zero */
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
|
|
/* At this point, we have done the specific conversion, and */
|
|
/* 'text' points to text to print; 'textlen' is length. Now we */
|
|
/* justify it, put on prefixes, leading zeros, and then */
|
|
/* print it. */
|
|
|
|
if (!no_output) {
|
|
int padding; /* amount of padding, negative means zero */
|
|
|
|
if (flags & FL_SIGNED) {
|
|
if (flags & FL_NEGATIVE) {
|
|
/* prefix is a '-' */
|
|
prefix[0] = _T('-');
|
|
prefixlen = 1;
|
|
}
|
|
else if (flags & FL_SIGN) {
|
|
/* prefix is '+' */
|
|
prefix[0] = _T('+');
|
|
prefixlen = 1;
|
|
}
|
|
else if (flags & FL_SIGNSP) {
|
|
/* prefix is ' ' */
|
|
prefix[0] = _T(' ');
|
|
prefixlen = 1;
|
|
}
|
|
}
|
|
|
|
/* calculate amount of padding -- might be negative, */
|
|
/* but this will just mean zero */
|
|
padding = fldwidth - textlen - prefixlen;
|
|
|
|
/* put out the padding, prefix, and text, in the correct order */
|
|
|
|
if (!(flags & (FL_LEFT | FL_LEADZERO))) {
|
|
/* pad on left with blanks */
|
|
WRITE_MULTI_CHAR(_T(' '), padding, &charsout);
|
|
}
|
|
|
|
/* write prefix */
|
|
WRITE_STRING(prefix, prefixlen, &charsout);
|
|
|
|
if ((flags & FL_LEADZERO) && !(flags & FL_LEFT)) {
|
|
/* write leading zeros */
|
|
WRITE_MULTI_CHAR(_T('0'), padding, &charsout);
|
|
}
|
|
|
|
/* write text */
|
|
#ifndef _UNICODE
|
|
if (bufferiswide && (textlen > 0)) {
|
|
wchar_t *p;
|
|
int retval, count;
|
|
char buffer[MB_LEN_MAX+1];
|
|
|
|
p = text.wz;
|
|
count = textlen;
|
|
while (count--) {
|
|
retval = wctomb(buffer, *p++);
|
|
if (retval <= 0)
|
|
break;
|
|
WRITE_STRING(buffer, retval, &charsout);
|
|
}
|
|
} else {
|
|
WRITE_STRING(text.sz, textlen, &charsout);
|
|
}
|
|
#else
|
|
if (!bufferiswide && textlen > 0) {
|
|
char *p;
|
|
int retval, count;
|
|
|
|
p = text.sz;
|
|
count = textlen;
|
|
while (count-- > 0) {
|
|
retval = mbtowc(&wchar, p, MB_CUR_MAX);
|
|
if (retval <= 0)
|
|
break;
|
|
WRITE_CHAR(wchar, &charsout);
|
|
p += retval;
|
|
}
|
|
} else {
|
|
WRITE_STRING(text.wz, textlen, &charsout);
|
|
}
|
|
#endif /* _UNICODE */
|
|
|
|
if (flags & FL_LEFT) {
|
|
/* pad on right with blanks */
|
|
WRITE_MULTI_CHAR(_T(' '), padding, &charsout);
|
|
}
|
|
|
|
/* we're done! */
|
|
}
|
|
#if !defined(_NTSUBSET_) && !defined(_POSIX_)
|
|
if (heapbuf) {
|
|
_free_crt(heapbuf);
|
|
heapbuf = NULL;
|
|
}
|
|
#endif
|
|
break;
|
|
}
|
|
}
|
|
|
|
return charsout; /* return value = number of characters written */
|
|
}
|
|
|
|
/*
|
|
* Future Optimizations for swprintf:
|
|
* - Don't free the memory used for converting the buffer to wide chars.
|
|
* Use realloc if the memory is not sufficient. Free it at the end.
|
|
*/
|
|
|
|
/***
|
|
*void write_char(char ch, int *pnumwritten)
|
|
*ifdef _UNICODE
|
|
*void write_char(wchar_t ch, FILE *f, int *pnumwritten)
|
|
*endif
|
|
*void write_char(char ch, FILE *f, int *pnumwritten)
|
|
*
|
|
*Purpose:
|
|
* Writes a single character to the given file/console. If no error occurs,
|
|
* then *pnumwritten is incremented; otherwise, *pnumwritten is set
|
|
* to -1.
|
|
*
|
|
*Entry:
|
|
* _TCHAR ch - character to write
|
|
* FILE *f - file to write to
|
|
* int *pnumwritten - pointer to integer to update with total chars written
|
|
*
|
|
*Exit:
|
|
* No return value.
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#ifdef CPRFLAG
|
|
|
|
LOCAL(void) write_char (
|
|
_TCHAR ch,
|
|
int *pnumwritten
|
|
)
|
|
{
|
|
#ifdef _UNICODE
|
|
if (_putwch_lk(ch) == WEOF)
|
|
#else
|
|
if (_putch_lk(ch) == EOF)
|
|
#endif //_UNICODE
|
|
*pnumwritten = -1;
|
|
else
|
|
++(*pnumwritten);
|
|
}
|
|
|
|
#else
|
|
|
|
LOCAL(void) write_char (
|
|
_TCHAR ch,
|
|
FILE *f,
|
|
int *pnumwritten
|
|
)
|
|
{
|
|
if ( (f->_flag & _IOSTRG) && f->_base == NULL)
|
|
{
|
|
++(*pnumwritten);
|
|
return;
|
|
}
|
|
#ifdef _UNICODE
|
|
if (_putwc_lk(ch, f) == WEOF)
|
|
#else
|
|
if (_putc_lk(ch, f) == EOF)
|
|
#endif //_UNICODE
|
|
*pnumwritten = -1;
|
|
else
|
|
++(*pnumwritten);
|
|
}
|
|
|
|
#endif
|
|
|
|
/***
|
|
*void write_multi_char(char ch, int num, int *pnumwritten)
|
|
*ifdef _UNICODE
|
|
*void write_multi_char(wchar_t ch, int num, FILE *f, int *pnumwritten)
|
|
*endif
|
|
*void write_multi_char(char ch, int num, FILE *f, int *pnumwritten)
|
|
*
|
|
*Purpose:
|
|
* Writes num copies of a character to the given file/console. If no error occurs,
|
|
* then *pnumwritten is incremented by num; otherwise, *pnumwritten is set
|
|
* to -1. If num is negative, it is treated as zero.
|
|
*
|
|
*Entry:
|
|
* _TCHAR ch - character to write
|
|
* int num - number of times to write the characters
|
|
* FILE *f - file to write to
|
|
* int *pnumwritten - pointer to integer to update with total chars written
|
|
*
|
|
*Exit:
|
|
* No return value.
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#ifdef CPRFLAG
|
|
LOCAL(void) write_multi_char (
|
|
_TCHAR ch,
|
|
int num,
|
|
int *pnumwritten
|
|
)
|
|
{
|
|
while (num-- > 0) {
|
|
write_char(ch, pnumwritten);
|
|
if (*pnumwritten == -1)
|
|
break;
|
|
}
|
|
}
|
|
|
|
#else /* CPRFLAG */
|
|
|
|
LOCAL(void) write_multi_char (
|
|
_TCHAR ch,
|
|
int num,
|
|
FILE *f,
|
|
int *pnumwritten
|
|
)
|
|
{
|
|
while (num-- > 0) {
|
|
write_char(ch, f, pnumwritten);
|
|
if (*pnumwritten == -1)
|
|
break;
|
|
}
|
|
}
|
|
|
|
#endif /* CPRFLAG */
|
|
|
|
/***
|
|
*void write_string(char *string, int len, int *pnumwritten)
|
|
*void write_string(char *string, int len, FILE *f, int *pnumwritten)
|
|
*ifdef _UNICODE
|
|
*void write_string(wchar_t *string, int len, FILE *f, int *pnumwritten)
|
|
*endif
|
|
*void write_wstring(wchar_t *string, int len, int *pnumwritten)
|
|
*void write_wstring(wchar_t *string, int len, FILE *f, int *pnumwritten)
|
|
*
|
|
*Purpose:
|
|
* Writes a string of the given length to the given file. If no error occurs,
|
|
* then *pnumwritten is incremented by len; otherwise, *pnumwritten is set
|
|
* to -1. If len is negative, it is treated as zero.
|
|
*
|
|
*Entry:
|
|
* _TCHAR *string - string to write (NOT null-terminated)
|
|
* int len - length of string
|
|
* FILE *f - file to write to
|
|
* int *pnumwritten - pointer to integer to update with total chars written
|
|
*
|
|
*Exit:
|
|
* No return value.
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#ifdef CPRFLAG
|
|
|
|
LOCAL(void) write_string (
|
|
_TCHAR *string,
|
|
int len,
|
|
int *pnumwritten
|
|
)
|
|
{
|
|
while (len-- > 0) {
|
|
write_char(*string++, pnumwritten);
|
|
if (*pnumwritten == -1)
|
|
break;
|
|
}
|
|
}
|
|
|
|
#else /* CPRFLAG */
|
|
|
|
LOCAL(void) write_string (
|
|
_TCHAR *string,
|
|
int len,
|
|
FILE *f,
|
|
int *pnumwritten
|
|
)
|
|
{
|
|
if ( (f->_flag & _IOSTRG) && f->_base == NULL)
|
|
{
|
|
(*pnumwritten) += len;
|
|
return;
|
|
}
|
|
while (len-- > 0) {
|
|
write_char(*string++, f, pnumwritten);
|
|
if (*pnumwritten == -1)
|
|
break;
|
|
}
|
|
}
|
|
#endif /* CPRFLAG */
|
|
|
|
|
|
/***
|
|
*int get_int_arg(va_list *pargptr)
|
|
*
|
|
*Purpose:
|
|
* Gets an int argument off the given argument list and updates *pargptr.
|
|
*
|
|
*Entry:
|
|
* va_list *pargptr - pointer to argument list; updated by function
|
|
*
|
|
*Exit:
|
|
* Returns the integer argument read from the argument list.
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
__inline int __cdecl get_int_arg (
|
|
va_list *pargptr
|
|
)
|
|
{
|
|
return va_arg(*pargptr, int);
|
|
}
|
|
|
|
/***
|
|
*long get_long_arg(va_list *pargptr)
|
|
*
|
|
*Purpose:
|
|
* Gets an long argument off the given argument list and updates *pargptr.
|
|
*
|
|
*Entry:
|
|
* va_list *pargptr - pointer to argument list; updated by function
|
|
*
|
|
*Exit:
|
|
* Returns the long argument read from the argument list.
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#if !LONG_IS_INT
|
|
__inline long __cdecl get_long_arg (
|
|
va_list *pargptr
|
|
)
|
|
{
|
|
return va_arg(*pargptr, long);
|
|
}
|
|
#endif
|
|
|
|
#if _INTEGRAL_MAX_BITS >= 64 /*IFSTRIP=IGN*/
|
|
__inline __int64 __cdecl get_int64_arg (
|
|
va_list *pargptr
|
|
)
|
|
{
|
|
return va_arg(*pargptr, __int64);
|
|
}
|
|
#endif
|
|
|
|
#ifndef _UNICODE
|
|
/***
|
|
*short get_short_arg(va_list *pargptr)
|
|
*
|
|
*Purpose:
|
|
* Gets a short argument off the given argument list and updates *pargptr.
|
|
* *** CURRENTLY ONLY USED TO GET A WCHAR_T, IFDEF _INTL ***
|
|
*
|
|
*Entry:
|
|
* va_list *pargptr - pointer to argument list; updated by function
|
|
*
|
|
*Exit:
|
|
* Returns the short argument read from the argument list.
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#if !SHORT_IS_INT
|
|
__inline short __cdecl get_short_arg (
|
|
va_list *pargptr
|
|
)
|
|
{
|
|
return va_arg(*pargptr, short);
|
|
}
|
|
#endif
|
|
#endif
|