/* * 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. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Berkeley and its contributors. * 4. 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("$Id: tc.printf.c,v 1.1.1.1 2001/07/18 11:06:05 root Exp $") #ifdef lint #undef va_arg #define va_arg(a, b) (a ? (b) 0 : (b) 0) #endif #define INF 32766 /* should be bigger than any field to print */ static char buf[128]; static void xaddchar __P((int)); static void doprnt __P((void (*) __P((int)), const char *, va_list)); static void doprnt(addchar, sfmt, ap) void (*addchar) __P((int)); const char *sfmt; va_list ap; { register char *bp; register const char *f; #ifdef SHORT_STRINGS register Char *Bp; #endif /* SHORT_STRINGS */ register long l; register unsigned long u; register int i; register int fmt; register unsigned char pad = ' '; int flush_left = 0, f_width = 0, prec = INF, hash = 0, do_long = 0; int sign = 0; int attributes = 0; f = sfmt; for (; *f; f++) { if (*f != '%') { /* then just out the char */ (*addchar) ((int) (((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((char *) f); while (Isdigit((unsigned char) *f)) f++; /* skip the digits */ } } if (*f == '#') { /* alternate form */ hash = 1; f++; } if (*f == 'l') { /* long format */ do_long = 1; 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': if (do_long) l = va_arg(ap, long); else l = (long) (va_arg(ap, int)); 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) ((int) (pad | attributes)); for (bp--; bp >= buf; bp--) (*addchar) ((int) (((unsigned char) *bp) | attributes)); if (flush_left) while (f_width-- > 0) (*addchar) ((int) (' ' | attributes)); break; case 'o': case 'x': case 'u': if (do_long) u = va_arg(ap, unsigned long); else u = (unsigned long) (va_arg(ap, unsigned int)); 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) ((int) (pad | attributes)); for (bp--; bp >= buf; bp--) (*addchar) ((int) (((unsigned char) *bp) | attributes)); if (flush_left) while (i-- > 0) (*addchar) ((int) (' ' | attributes)); break; case 'c': i = va_arg(ap, int); (*addchar) ((int) (i | attributes)); break; case 'S': case 'Q': 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++) { if (fmt == 'Q' && *Bp & QUOTE) (*addchar) ((int) ('\\' | attributes)); (*addchar) ((int) ((*Bp & TRIM) | attributes)); Bp++; } if (flush_left) while (f_width-- > 0) (*addchar) ((int) (' ' | attributes)); break; case 's': case 'q': bp = va_arg(ap, char *); lcase_s: if (!bp) bp = "(nil)"; f_width = f_width - strlen((char *) bp); if (!flush_left) while (f_width-- > 0) (*addchar) ((int) (pad | attributes)); for (i = 0; *bp && i < prec; i++) { if (fmt == 'q' && *bp & QUOTE) (*addchar) ((int) ('\\' | attributes)); (*addchar) ((int) (((unsigned char) *bp & TRIM) | attributes)); bp++; } if (flush_left) while (f_width-- > 0) (*addchar) ((int) (' ' | attributes)); break; case 'a': attributes = va_arg(ap, int); break; case '%': (*addchar) ((int) ('%' | attributes)); break; default: break; } flush_left = 0, f_width = 0, prec = INF, hash = 0, do_long = 0; sign = 0; pad = ' '; } } } static char *xstring, *xestring; static void xaddchar(c) int c; { if (xestring == xstring) *xstring = '\0'; else *xstring++ = (char) c; } pret_t /*VARARGS*/ #ifdef FUNCPROTO xsnprintf(char *str, size_t size, const char *fmt, ...) #else xsnprintf(va_alist) va_dcl #endif { va_list va; #ifdef FUNCPROTO va_start(va, fmt); #else char *str, *fmt; size_t size; va_start(va); str = va_arg(va, char *); size = va_arg(va, size_t); fmt = va_arg(va, char *); #endif xstring = str; xestring = str + size - 1; doprnt(xaddchar, fmt, va); va_end(va); *xstring++ = '\0'; #ifdef PURIFY return 1; #endif } pret_t /*VARARGS*/ #ifdef FUNCPROTO xprintf(const char *fmt, ...) #else xprintf(va_alist) va_dcl #endif { va_list va; #ifdef FUNCPROTO va_start(va, fmt); #else char *fmt; va_start(va); fmt = va_arg(va, char *); #endif doprnt(xputchar, fmt, va); va_end(va); #ifdef PURIFY return 1; #endif } pret_t xvprintf(fmt, va) const char *fmt; va_list va; { doprnt(xputchar, fmt, va); #ifdef PURIFY return 1; #endif } pret_t xvsnprintf(str, size, fmt, va) 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 } #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 #ifdef FUNCPROTO fprintf(FILE *fp, const char* fmt, ...) #else fprintf(va_alist) va_dcl #endif { va_list va; #ifdef FUNCPROTO va_start(va, fmt); #else FILE *fp; const char *fmt; va_start(va); fp = va_arg(va, FILE *); fmt = va_arg(va, const char *); #endif doprnt(xputchar, fmt, va); va_end(va); return 1; } int vfprintf(fp, fmt, va) FILE *fp; const char *fmt; va_list va; { doprnt(xputchar, fmt, va); return 1; } #endif /* PURIFY */