This is tc.printf.c in view mode; [Download] [Up]
/* $Header: /u/christos/src/tcsh-6.06/RCS/tc.printf.c,v 3.14 1993/10/30 19:50:16 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. 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 3.14 1993/10/30 19:50:16 christos 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' && 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 - (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 = 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 - (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':
#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++) {
(*addchar) ((int) ((unsigned char)*Bp | attributes));
Bp++;
}
if (flush_left)
while (f_width-- > 0)
(*addchar) ((int) (' ' | attributes));
break;
#else
bp = va_arg(ap, Char *);
if (bp)
(void) strip((Char *) bp);
goto lcase_s;
#endif /* SHORT_STRINGS */
case 's':
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++) {
(*addchar) ((int) (((unsigned char) *bp) | 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;
static void
xaddchar(c)
int c;
{
*xstring++ = (char) c;
}
pret_t
/*VARARGS*/
#ifdef FUNCPROTO
xsprintf(char *str, const char *fmt, ...)
#else
xsprintf(va_alist)
va_dcl
#endif
{
va_list va;
#ifdef FUNCPROTO
va_start(va, fmt);
#else
char *str, *fmt;
va_start(va);
str = va_arg(va, char *);
fmt = va_arg(va, char *);
#endif
xstring = (char *) str;
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
xvsprintf(str, fmt, va)
char *str;
const char *fmt;
va_list va;
{
xstring = (char *) str;
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 */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.