freebsd-dev/contrib/tcsh/tc.printf.c
Dmitry Chagin 6560ac57ce tcsh: update to version 6.22.04.
Merge commit '174d8b60324d7e8754709f7155e13ca95220b48c' into main.

MFC After:	2 weeks
2021-05-20 00:12:27 +03:00

478 lines
10 KiB
C

/*
* tc.printf.c: A public-domain, minimal printf/sprintf routine that prints
* through the putchar() routine. Feel free to use for
* anything... -- 7/17/87 Paul Placeway
*/
/*-
* Copyright (c) 1980, 1991 The Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
#include "sh.h"
#ifdef lint
#undef va_arg
#define va_arg(a, b) (a ? (b) 0 : (b) 0)
#endif
#define INF INT_MAX /* should be bigger than any field to print */
static char snil[] = "(nil)";
static void xaddchar (int);
static int doprnt (void (*) (int), const char *, va_list);
static int
doprnt(void (*addchar) (int), const char *sfmt, va_list ap)
{
char *bp;
const char *f;
#ifdef SHORT_STRINGS
const Char *Bp;
#endif /* SHORT_STRINGS */
#ifdef HAVE_LONG_LONG
long long l;
unsigned long long u;
#else
long l;
unsigned long u;
#endif
char buf[(CHAR_BIT * sizeof (l) + 2) / 3 + 1]; /* Octal: 3 bits per char */
int i;
int fmt;
unsigned char pad = ' ';
int flush_left = 0, f_width = 0, prec = INF, hash = 0;
int do_long = 0, do_size_t = 0, do_ptrdiff_t = 0;
int sign = 0, count = 0;
int attributes = 0;
f = sfmt;
for (; *f; f++) {
if (*f != '%') { /* then just out the char */
(*addchar) (((unsigned char)*f) | attributes);
count++;
}
else {
f++; /* skip the % */
if (*f == '-') { /* minus: flush left */
flush_left = 1;
f++;
}
if (*f == '0' || *f == '.') {
/* padding with 0 rather than blank */
pad = '0';
f++;
}
if (*f == '*') { /* field width */
f_width = va_arg(ap, int);
f++;
}
else if (isdigit((unsigned char) *f)) {
f_width = atoi(f);
while (isdigit((unsigned char) *f))
f++; /* skip the digits */
}
if (*f == '.') { /* precision */
f++;
if (*f == '*') {
prec = va_arg(ap, int);
f++;
}
else if (isdigit((unsigned char) *f)) {
prec = atoi(f);
while (isdigit((unsigned char) *f))
f++; /* skip the digits */
}
}
if (*f == '#') { /* alternate form */
hash = 1;
f++;
}
if (*f == 'l') { /* long format */
do_long++;
f++;
if (*f == 'l') {
do_long++;
f++;
}
}
if (*f == 'z') { /* size_t format */
do_size_t++;
f++;
}
if (*f == 't') { /* ptrdiff_t format */
do_ptrdiff_t++;
f++;
}
fmt = (unsigned char) *f;
if (fmt != 'S' && fmt != 'Q' && isupper(fmt)) {
do_long = 1;
fmt = tolower(fmt);
}
bp = buf;
switch (fmt) { /* do the format */
case 'd':
switch (do_long) {
case 0:
if (do_size_t)
l = (long) (va_arg(ap, size_t));
else
l = (long) (va_arg(ap, int));
break;
case 1:
#ifndef HAVE_LONG_LONG
default:
#endif
l = va_arg(ap, long);
break;
#ifdef HAVE_LONG_LONG
default:
l = va_arg(ap, long long);
break;
#endif
}
if (l < 0) {
sign = 1;
l = -l;
}
do {
*bp++ = (char) (l % 10) + '0';
} while ((l /= 10) > 0);
if (sign)
*bp++ = '-';
f_width = f_width - (int) (bp - buf);
if (!flush_left)
while (f_width-- > 0) {
(*addchar) (pad | attributes);
count++;
}
for (bp--; bp >= buf; bp--) {
(*addchar) (((unsigned char) *bp) | attributes);
count++;
}
if (flush_left)
while (f_width-- > 0) {
(*addchar) (' ' | attributes);
count++;
}
break;
case 'p':
do_long = 1;
hash = 1;
fmt = 'x';
/*FALLTHROUGH*/
case 'o':
case 'x':
case 'u':
switch (do_long) {
case 0:
if (do_size_t)
u = va_arg(ap, size_t);
else if (do_ptrdiff_t)
u = va_arg(ap, ptrdiff_t);
else
u = va_arg(ap, unsigned int);
break;
case 1:
#ifndef HAVE_LONG_LONG
default:
#endif
u = va_arg(ap, unsigned long);
break;
#ifdef HAVE_LONG_LONG
default:
u = va_arg(ap, unsigned long long);
break;
#endif
}
if (fmt == 'u') { /* unsigned decimal */
do {
*bp++ = (char) (u % 10) + '0';
} while ((u /= 10) > 0);
}
else if (fmt == 'o') { /* octal */
do {
*bp++ = (char) (u % 8) + '0';
} while ((u /= 8) > 0);
if (hash)
*bp++ = '0';
}
else if (fmt == 'x') { /* hex */
do {
i = (int) (u % 16);
if (i < 10)
*bp++ = i + '0';
else
*bp++ = i - 10 + 'a';
} while ((u /= 16) > 0);
if (hash) {
*bp++ = 'x';
*bp++ = '0';
}
}
i = f_width - (int) (bp - buf);
if (!flush_left)
while (i-- > 0) {
(*addchar) (pad | attributes);
count++;
}
for (bp--; bp >= buf; bp--)
(*addchar) (((unsigned char) *bp) | attributes);
if (flush_left)
while (i-- > 0) {
(*addchar) (' ' | attributes);
count++;
}
break;
case 'c':
i = va_arg(ap, int);
(*addchar) (i | attributes);
count++;
break;
case 'S':
case 'Q':
#ifdef SHORT_STRINGS
Bp = va_arg(ap, Char *);
if (!Bp) {
bp = NULL;
goto lcase_s;
}
f_width = f_width - Strlen(Bp);
if (!flush_left)
while (f_width-- > 0) {
(*addchar) ((int) (pad | attributes));
count++;
}
for (i = 0; *Bp && i < prec; i++) {
char cbuf[MB_LEN_MAX];
size_t pos, len;
if (fmt == 'Q' && *Bp & QUOTE) {
(*addchar) ('\\' | attributes);
count++;
}
len = one_wctomb(cbuf, *Bp);
for (pos = 0; pos < len; pos++) {
(*addchar) ((unsigned char)cbuf[pos] | attributes
| (*Bp & ATTRIBUTES));
count++;
}
Bp++;
}
if (flush_left)
while (f_width-- > 0) {
(*addchar) (' ' | attributes);
count++;
}
break;
#endif /* SHORT_STRINGS */
case 's':
case 'q':
bp = va_arg(ap, char *);
lcase_s:
if (!bp)
bp = snil;
f_width = f_width - strlen(bp);
if (!flush_left)
while (f_width-- > 0) {
(*addchar) (pad | attributes);
count++;
}
for (i = 0; *bp && i < prec; i++) {
if (fmt == 'q' && *bp & QUOTE) {
(*addchar) ('\\' | attributes);
count++;
}
(*addchar) (((unsigned char) *bp & TRIM) | attributes);
count++;
bp++;
}
if (flush_left)
while (f_width-- > 0) {
(*addchar) (' ' | attributes);
count++;
}
break;
case 'a':
attributes = va_arg(ap, int);
break;
case '%':
(*addchar) ('%' | attributes);
count++;
break;
default:
break;
}
flush_left = 0, f_width = 0, prec = INF, hash = 0;
do_ptrdiff_t = 0, do_size_t = 0, do_long = 0;
sign = 0;
pad = ' ';
}
}
return count;
}
static char *xstring, *xestring;
static void
xaddchar(int c)
{
if (xestring == xstring)
*xstring = '\0';
else
*xstring++ = (char) c;
}
int
/*VARARGS*/
xsnprintf(char *str, size_t size, const char *fmt, ...)
{
int count;
va_list va;
va_start(va, fmt);
xstring = str;
xestring = str + size - 1;
count = doprnt(xaddchar, fmt, va);
va_end(va);
*xstring++ = '\0';
return count;
}
int
/*VARARGS*/
xprintf(const char *fmt, ...)
{
int count;
va_list va;
va_start(va, fmt);
count = doprnt(xputchar, fmt, va);
va_end(va);
return count;
}
int
xvprintf(const char *fmt, va_list va)
{
return doprnt(xputchar, fmt, va);
}
int
xvsnprintf(char *str, size_t size, const char *fmt, va_list va)
{
int count;
xstring = str;
xestring = str + size - 1;
count = doprnt(xaddchar, fmt, va);
*xstring++ = '\0';
return count;
}
char *
xvasprintf(const char *fmt, va_list va)
{
size_t size;
char *buf;
buf = NULL;
size = 2048; /* Arbitrary */
for (;;) {
va_list copy;
buf = xrealloc(buf, size);
xstring = buf;
xestring = buf + size - 1;
va_copy(copy, va);
doprnt(xaddchar, fmt, copy);
va_end(copy);
if (xstring < xestring)
break;
size *= 2;
}
*xstring++ = '\0';
return xrealloc(buf, xstring - buf);
}
char *
xasprintf(const char *fmt, ...)
{
va_list va;
char *ret;
va_start (va, fmt);
ret = xvasprintf(fmt, va);
va_end(va);
return ret;
}
#ifdef PURIFY
/* Purify uses (some of..) the following functions to output memory-use
* debugging info. Given all the messing with file descriptors that
* tcsh does, the easiest way I could think of to get it (Purify) to
* print anything was by replacing some standard functions with
* ones that do tcsh output directly - see dumb hook in doreaddirs()
* (sh.dir.c) -sg
*/
#ifndef FILE
#define FILE int
#endif
int
fprintf(FILE *fp, const char* fmt, ...)
{
int count;
va_list va;
va_start(va, fmt);
count = doprnt(xputchar, fmt, va);
va_end(va);
return count;
}
int
vfprintf(FILE *fp, const char *fmt, va_list va)
{
return doprnt(xputchar, fmt, va);
}
#endif /* PURIFY */