diff options
Diffstat (limited to 'contrib/tcsh/tc.printf.c')
-rw-r--r-- | contrib/tcsh/tc.printf.c | 452 |
1 files changed, 452 insertions, 0 deletions
diff --git a/contrib/tcsh/tc.printf.c b/contrib/tcsh/tc.printf.c new file mode 100644 index 0000000..8db69d5 --- /dev/null +++ b/contrib/tcsh/tc.printf.c @@ -0,0 +1,452 @@ +/* $Header: /p/tcsh/cvsroot/tcsh/tc.printf.c,v 3.35 2006/03/02 18:46:45 christos Exp $ */ +/* + * 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" + +RCSID("$tcsh: tc.printf.c,v 3.35 2006/03/02 18:46:45 christos Exp $") + +#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 void doprnt (void (*) (int), const char *, va_list); + +static void +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; + int sign = 0; + int attributes = 0; + + + f = sfmt; + for (; *f; f++) { + if (*f != '%') { /* then just out the char */ + (*addchar) (((unsigned char)*f) | attributes); + } + 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++; + } + + 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); + for (bp--; bp >= buf; bp--) + (*addchar) (((unsigned char) *bp) | attributes); + if (flush_left) + while (f_width-- > 0) + (*addchar) (' ' | attributes); + 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 + 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); + for (bp--; bp >= buf; bp--) + (*addchar) (((unsigned char) *bp) | attributes); + if (flush_left) + while (i-- > 0) + (*addchar) (' ' | attributes); + break; + + + case 'c': + i = va_arg(ap, int); + (*addchar) (i | attributes); + 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)); + for (i = 0; *Bp && i < prec; i++) { + char cbuf[MB_LEN_MAX]; + size_t pos, len; + + if (fmt == 'Q' && *Bp & QUOTE) + (*addchar) ('\\' | attributes); + len = one_wctomb(cbuf, *Bp & CHAR); + for (pos = 0; pos < len; pos++) + (*addchar) ((unsigned char)cbuf[pos] | attributes + | (*Bp & ATTRIBUTES)); + Bp++; + } + if (flush_left) + while (f_width-- > 0) + (*addchar) (' ' | attributes); + 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); + for (i = 0; *bp && i < prec; i++) { + if (fmt == 'q' && *bp & QUOTE) + (*addchar) ('\\' | attributes); + (*addchar) (((unsigned char) *bp & TRIM) | attributes); + bp++; + } + if (flush_left) + while (f_width-- > 0) + (*addchar) (' ' | attributes); + break; + + case 'a': + attributes = va_arg(ap, int); + break; + + case '%': + (*addchar) ('%' | attributes); + break; + + default: + break; + } + flush_left = 0, f_width = 0, prec = INF, hash = 0; + do_size_t = 0, do_long = 0; + sign = 0; + pad = ' '; + } + } +} + + +static char *xstring, *xestring; +static void +xaddchar(int c) +{ + if (xestring == xstring) + *xstring = '\0'; + else + *xstring++ = (char) c; +} + + +pret_t +/*VARARGS*/ +xsnprintf(char *str, size_t size, const char *fmt, ...) +{ + va_list va; + va_start(va, fmt); + + xstring = str; + xestring = str + size - 1; + doprnt(xaddchar, fmt, va); + va_end(va); + *xstring++ = '\0'; +#ifdef PURIFY + return 1; +#endif +} + +pret_t +/*VARARGS*/ +xprintf(const char *fmt, ...) +{ + va_list va; + va_start(va, fmt); + doprnt(xputchar, fmt, va); + va_end(va); +#ifdef PURIFY + return 1; +#endif +} + + +pret_t +xvprintf(const char *fmt, va_list va) +{ + doprnt(xputchar, fmt, va); +#ifdef PURIFY + return 1; +#endif +} + +pret_t +xvsnprintf(char *str, size_t size, const char *fmt, va_list va) +{ + xstring = str; + xestring = str + size - 1; + doprnt(xaddchar, fmt, va); + *xstring++ = '\0'; +#ifdef PURIFY + return 1; +#endif +} + +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, ...) +{ + va_list va; + va_start(va, fmt); + doprnt(xputchar, fmt, va); + va_end(va); + return 1; +} + +int +vfprintf(FILE *fp, const char *fmt, va_list va) +{ + doprnt(xputchar, fmt, va); + return 1; +} + +#endif /* PURIFY */ |