Logo Search packages:      
Sourcecode: kbuild version File versions  Download package

printf.c

/*    $NetBSD: printf.c,v 1.31 2005/03/22 23:55:46 dsl Exp $      */

/*
 * Copyright (c) 1989, 1993
 *    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 <sys/cdefs.h>
#ifndef lint
#if !defined(BUILTIN) && !defined(SHELL)
__COPYRIGHT("@(#) Copyright (c) 1989, 1993\n\
      The Regents of the University of California.  All rights reserved.\n");
#endif
#endif

#ifndef lint
#if 0
static char sccsid[] = "@(#)printf.c      8.2 (Berkeley) 3/22/95";
#else
__RCSID("$NetBSD: printf.c,v 1.31 2005/03/22 23:55:46 dsl Exp $");
#endif
#endif*/ /* not lint */

#include <sys/types.h>

#include <ctype.h>
#include "err.h"
#include <errno.h>
#include <inttypes.h>
#include <limits.h>
#include <locale.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include "getopt.h"
#ifdef __sun__
# include "solfakes.h"
#endif
#ifdef _MSC_VER
# include "mscfakes.h"
#endif

#include "kmkbuiltin.h"


#ifdef __GNUC__
#define ESCAPE '\e'
#else
#define ESCAPE 033
#endif


static size_t     b_length;
static char *b_fmt;
static int  rval;
static char  **gargv;
static struct option long_options[] =
{
    { "help",                             no_argument, 0, 261 },
    { "version",                                no_argument, 0, 262 },
    { 0, 0, 0, 0 },
};


static void  conv_escape_str(char *, void (*)(int));
static char *conv_escape(char *, char *);
static char *conv_expand(const char *);
static int   getchr(void);
static double      getdouble(void);
static int   getwidth(void);
static intmax_t    getintmax(void);
static uintmax_t getuintmax(void);
static char *getstr(void);
static char *mklong(const char *, int);
static void      check_conversion(const char *, const char *);
static int   usage(FILE *);

static void b_count(int);
static void b_output(int);

#ifdef BUILTIN          /* csh builtin */
#define kmk_builtin_printf progprintf
#endif

#ifdef SHELL            /* sh (aka ash) builtin */
#define kmk_builtin_printf printfcmd
#include "../../bin/sh/bltin/bltin.h"
#endif /* SHELL */

#define PF(f, func) { \
      if (fieldwidth != -1) { \
            if (precision != -1) \
                  (void)printf(f, fieldwidth, precision, func); \
            else \
                  (void)printf(f, fieldwidth, func); \
      } else if (precision != -1) \
            (void)printf(f, precision, func); \
      else \
            (void)printf(f, func); \
}

#define APF(cpp, f, func) { \
      if (fieldwidth != -1) { \
            if (precision != -1) \
                  (void)asprintf(cpp, f, fieldwidth, precision, func); \
            else \
                  (void)asprintf(cpp, f, fieldwidth, func); \
      } else if (precision != -1) \
            (void)asprintf(cpp, f, precision, func); \
      else \
            (void)asprintf(cpp, f, func); \
}

int kmk_builtin_printf(int argc, char *argv[], char **envp)
{
      char *fmt, *start;
      int fieldwidth, precision;
      char nextch;
      char *format;
      int ch;

      /* kmk: reinitialize globals */
      b_length = 0;
      b_fmt = NULL;
      rval = 0;
      gargv = NULL;

      /* kmk: reset getopt and set progname */
      g_progname = argv[0];
      opterr = 1;
      optarg = NULL;
      optopt = 0;
      optind = 0; /* init */

#if !defined(SHELL) && !defined(BUILTIN) && !defined(kmk_builtin_printf) /* kmk did this already. */
      (void)setlocale (LC_ALL, "");
#endif

      while ((ch = getopt_long(argc, argv, "", long_options, NULL)) != -1) {
            switch (ch) {
            case 261:
                  usage(stdout);
                  return 0;
            case 262:
                  return kbuild_version(argv[0]);
            case '?':
            default:
                  return usage(stderr);
            }
      }
      argc -= optind;
      argv += optind;

      if (argc < 1) {
            return usage(stderr);
      }

      format = *argv;
      gargv = ++argv;

#define SKIP1     "#-+ 0"
#define SKIP2     "*0123456789"
      do {
            /*
             * Basic algorithm is to scan the format string for conversion
             * specifications -- once one is found, find out if the field
             * width or precision is a '*'; if it is, gather up value.
             * Note, format strings are reused as necessary to use up the
             * provided arguments, arguments of zero/null string are
             * provided to use up the format string.
             */

            /* find next format specification */
            for (fmt = format; (ch = *fmt++) != '\0';) {
                  if (ch == '\\') {
                        char c_ch;
                        fmt = conv_escape(fmt, &c_ch);
                        putchar(c_ch);
                        continue;
                  }
                  if (ch != '%' || (*fmt == '%' && ++fmt)) {
                        (void)putchar(ch);
                        continue;
                  }

                  /* Ok - we've found a format specification,
                     Save its address for a later printf(). */
                  start = fmt - 1;

                  /* skip to field width */
                  fmt += strspn(fmt, SKIP1);
                  fieldwidth = *fmt == '*' ? getwidth() : -1;

                  /* skip to possible '.', get following precision */
                  fmt += strspn(fmt, SKIP2);
                  if (*fmt == '.')
                        ++fmt;
                  precision = *fmt == '*' ? getwidth() : -1;

                  fmt += strspn(fmt, SKIP2);

                  ch = *fmt;
                  if (!ch) {
                        warnx("missing format character");
                        return (1);
                  }
                  /* null terminate format string to we can use it
                     as an argument to printf. */
                  nextch = fmt[1];
                  fmt[1] = 0;
                  switch (ch) {

                  case 'B': {
                        const char *p = conv_expand(getstr());
                        *fmt = 's';
                        PF(start, p);
                        break;
                  }
                  case 'b': {
                        /* There has to be a better way to do this,
                         * but the string we generate might have
                         * embedded nulls. */
                        static char *a, *t;
                        char *cp = getstr();
                        /* Free on entry in case shell longjumped out */
                        if (a != NULL)
                              free(a);
                        a = NULL;
                        if (t != NULL)
                              free(t);
                        t = NULL;
                        /* Count number of bytes we want to output */
                        b_length = 0;
                        conv_escape_str(cp, b_count);
                        t = malloc(b_length + 1);
                        if (t == NULL)
                              break;
                        memset(t, 'x', b_length);
                        t[b_length] = 0;
                        /* Get printf to calculate the lengths */
                        *fmt = 's';
                        APF(&a, start, t);
                        b_fmt = a;
                        /* Output leading spaces and data bytes */
                        conv_escape_str(cp, b_output);
                        /* Add any trailing spaces */
                        printf("%s", b_fmt);
                        break;
                  }
                  case 'c': {
                        char p = getchr();
                        PF(start, p);
                        break;
                  }
                  case 's': {
                        char *p = getstr();
                        PF(start, p);
                        break;
                  }
                  case 'd':
                  case 'i': {
                        intmax_t p = getintmax();
                        char *f = mklong(start, ch);
                        PF(f, p);
                        break;
                  }
                  case 'o':
                  case 'u':
                  case 'x':
                  case 'X': {
                        uintmax_t p = getuintmax();
                        char *f = mklong(start, ch);
                        PF(f, p);
                        break;
                  }
                  case 'e':
                  case 'E':
                  case 'f':
                  case 'g':
                  case 'G': {
                        double p = getdouble();
                        PF(start, p);
                        break;
                  }
                  default:
                        warnx("%s: invalid directive", start);
                        return 1;
                  }
                  *fmt++ = ch;
                  *fmt = nextch;
                  /* escape if a \c was encountered */
                  if (rval & 0x100)
                        return rval & ~0x100;
            }
      } while (gargv != argv && *gargv);

      return rval;
}

/* helper functions for conv_escape_str */

static void
/*ARGSUSED*/
b_count(int ch)
{
      b_length++;
}

/* Output one converted character for every 'x' in the 'format' */

static void
b_output(int ch)
{
      for (;;) {
            switch (*b_fmt++) {
            case 0:
                  b_fmt--;
                  return;
            case ' ':
                  putchar(' ');
                  break;
            default:
                  putchar(ch);
                  return;
            }
      }
}


/*
 * Print SysV echo(1) style escape string
 *    Halts processing string if a \c escape is encountered.
 */
static void
conv_escape_str(char *str, void (*do_putchar)(int))
{
      int value;
      int ch;
      char c;

      while ((ch = *str++) != '\0') {
            if (ch != '\\') {
                  do_putchar(ch);
                  continue;
            }

            ch = *str++;
            if (ch == 'c') {
                  /* \c as in SYSV echo - abort all processing.... */
                  rval |= 0x100;
                  break;
            }

            /*
             * %b string octal constants are not like those in C.
             * They start with a \0, and are followed by 0, 1, 2,
             * or 3 octal digits.
             */
            if (ch == '0') {
                  int octnum = 0, i;
                  for (i = 0; i < 3; i++) {
                        if (!isdigit((unsigned char)*str) || *str > '7')
                              break;
                        octnum = (octnum << 3) | (*str++ - '0');
                  }
                  do_putchar(octnum);
                  continue;
            }

            /* \[M][^|-]C as defined by vis(3) */
            if (ch == 'M' && *str == '-') {
                  do_putchar(0200 | str[1]);
                  str += 2;
                  continue;
            }
            if (ch == 'M' && *str == '^') {
                  str++;
                  value = 0200;
                  ch = '^';
            } else
                  value = 0;
            if (ch == '^') {
                  ch = *str++;
                  if (ch == '?')
                        value |= 0177;
                  else
                        value |= ch & 037;
                  do_putchar(value);
                  continue;
            }

            /* Finally test for sequences valid in the format string */
            str = conv_escape(str - 1, &c);
            do_putchar(c);
      }
}

/*
 * Print "standard" escape characters
 */
static char *
conv_escape(char *str, char *conv_ch)
{
      int value;
      int ch;
      char num_buf[4], *num_end;

      ch = *str++;

      switch (ch) {
      case '0': case '1': case '2': case '3':
      case '4': case '5': case '6': case '7':
            num_buf[0] = ch;
            ch = str[0];
            num_buf[1] = ch;
            num_buf[2] = ch ? str[1] : 0;
            num_buf[3] = 0;
            value = strtoul(num_buf, &num_end, 8);
            str += num_end  - (num_buf + 1);
            break;

      case 'x':
            /* Hexadecimal character constants are not required to be
               supported (by SuS v1) because there is no consistent
               way to detect the end of the constant.
               Supporting 2 byte constants is a compromise. */
            ch = str[0];
            num_buf[0] = ch;
            num_buf[1] = ch ? str[1] : 0;
            num_buf[2] = 0;
            value = strtoul(num_buf, &num_end, 16);
            str += num_end - num_buf;
            break;

      case '\\':  value = '\\';     break;      /* backslash */
      case '\'':  value = '\'';     break;      /* single quote */
      case '"':   value = '"';      break;      /* double quote */
      case 'a':   value = '\a';     break;      /* alert */
      case 'b':   value = '\b';     break;      /* backspace */
      case 'e':   value = ESCAPE;   break;      /* escape */
      case 'f':   value = '\f';     break;      /* form-feed */
      case 'n':   value = '\n';     break;      /* newline */
      case 'r':   value = '\r';     break;      /* carriage-return */
      case 't':   value = '\t';     break;      /* tab */
      case 'v':   value = '\v';     break;      /* vertical-tab */

      default:
            warnx("unknown escape sequence `\\%c'", ch);
            rval = 1;
            value = ch;
            break;
      }

      *conv_ch = value;
      return str;
}

/* expand a string so that everything is printable */

static char *
conv_expand(const char *str)
{
      static char *conv_str;
      static char no_memory[] = "<no memory>";
      char *cp;
      int ch;

      if (conv_str)
            free(conv_str);
      /* get a buffer that is definitely large enough.... */
      conv_str = malloc(4 * strlen(str) + 1);
      if (!conv_str)
            return no_memory;
      cp = conv_str;

      while ((ch = *(const unsigned char *)str++) != '\0') {
            switch (ch) {
            /* Use C escapes for expected control characters */
            case '\\':  ch = '\\';  break;      /* backslash */
            case '\'':  ch = '\'';  break;      /* single quote */
            case '"':   ch = '"';   break;      /* double quote */
            case '\a':  ch = 'a';   break;      /* alert */
            case '\b':  ch = 'b';   break;      /* backspace */
            case ESCAPE:      ch = 'e';   break;      /* escape */
            case '\f':  ch = 'f';   break;      /* form-feed */
            case '\n':  ch = 'n';   break;      /* newline */
            case '\r':  ch = 'r';   break;      /* carriage-return */
            case '\t':  ch = 't';   break;      /* tab */
            case '\v':  ch = 'v';   break;      /* vertical-tab */
            default:
                  /* Copy anything printable */
                  if (isprint(ch)) {
                        *cp++ = ch;
                        continue;
                  }
                  /* Use vis(3) encodings for the rest */
                  *cp++ = '\\';
                  if (ch & 0200) {
                        *cp++ = 'M';
                        ch &= ~0200;
                  }
                  if (ch == 0177) {
                        *cp++ = '^';
                        *cp++ = '?';
                        continue;
                  }
                  if (ch < 040) {
                        *cp++ = '^';
                        *cp++ = ch | 0100;
                        continue;
                  }
                  *cp++ = '-';
                  *cp++ = ch;
                  continue;
            }
            *cp++ = '\\';
            *cp++ = ch;
      }

      *cp = 0;
      return conv_str;
}

static char *
mklong(const char *str, int ch)
{
      static char copy[64];
      size_t len;

      len = strlen(str) + 2;
      if (len > sizeof copy) {
            warnx("format %s too complex\n", str);
            len = 4;
      }
      (void)memmove(copy, str, len - 3);
      copy[len - 3] = 'j';
      copy[len - 2] = ch;
      copy[len - 1] = '\0';
      return copy;
}

static int
getchr(void)
{
      if (!*gargv)
            return 0;
      return (int)**gargv++;
}

static char *
getstr(void)
{
      static char empty[] = "";
      if (!*gargv)
            return empty;
      return *gargv++;
}

static int
getwidth(void)
{
      long val;
      char *s, *ep;

      s = *gargv;
      if (!*gargv)
            return (0);
      gargv++;

      errno = 0;
      val = strtoul(s, &ep, 0);
      check_conversion(s, ep);

      /* Arbitrarily 'restrict' field widths to 1Mbyte */
      if (val < 0 || val > 1 << 20) {
            warnx("%s: invalid field width", s);
            return 0;
      }

      return val;
}

static intmax_t
getintmax(void)
{
      intmax_t val;
      char *cp, *ep;

      cp = *gargv;
      if (cp == NULL)
            return 0;
      gargv++;

      if (*cp == '\"' || *cp == '\'')
            return *(cp+1);

      errno = 0;
      val = strtoimax(cp, &ep, 0);
      check_conversion(cp, ep);
      return val;
}

static uintmax_t
getuintmax(void)
{
      uintmax_t val;
      char *cp, *ep;

      cp = *gargv;
      if (cp == NULL)
            return 0;
      gargv++;

      if (*cp == '\"' || *cp == '\'')
            return *(cp + 1);

      /* strtoumax won't error -ve values */
      while (isspace(*(unsigned char *)cp))
            cp++;
      if (*cp == '-') {
            warnx("%s: expected positive numeric value", cp);
            rval = 1;
            return 0;
      }

      errno = 0;
      val = strtoumax(cp, &ep, 0);
      check_conversion(cp, ep);
      return val;
}

static double
getdouble(void)
{
      double val;
      char *ep;

      if (!*gargv)
            return (0.0);

      if (**gargv == '\"' || **gargv == '\'')
            return (double) *((*gargv++)+1);

      errno = 0;
      val = strtod(*gargv, &ep);
      check_conversion(*gargv++, ep);
      return val;
}

static void
check_conversion(const char *s, const char *ep)
{
      if (*ep) {
            if (ep == s)
                  warnx("%s: expected numeric value", s);
            else
                  warnx("%s: not completely converted", s);
            rval = 1;
      } else if (errno == ERANGE) {
            warnx("%s: %s", s, strerror(ERANGE));
            rval = 1;
      }
}

static int
usage(FILE *pf)
{
      fprintf(pf, "usage: %s format [arg ...]\n"
                        "   or: %s --help\n"
                        "   or: %s --version\n",
                  g_progname, g_progname, g_progname);
      return 1;
}

Generated by  Doxygen 1.6.0   Back to index