summaryrefslogtreecommitdiffstats
path: root/contrib/tcsh/tc.printf.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/tcsh/tc.printf.c')
-rw-r--r--contrib/tcsh/tc.printf.c452
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 */
OpenPOWER on IntegriCloud