-static int
-printf_main(argc, argv)
- int argc;
- char *argv[];
-{
- static char *skip1, *skip2;
- int ch, end, fieldwidth, precision;
- char convch, nextch, *format, *fmt, *start;
-
- while ((ch = getopt(argc, argv, "")) != EOF)
- switch (ch) {
- case '?':
- default:
- usage();
- return (1);
- }
- argc -= optind;
- argv += optind;
-
- if (argc < 1) {
- usage();
- return (1);
- }
-
- /*
- * 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.
- */
- skip1 = "#-+ 0";
- skip2 = "*0123456789";
-
- escape(fmt = format = *argv); /* backslash interpretation */
- gargv = ++argv;
- for (;;) {
- end = 0;
- /* find next format specification */
-next: for (start = fmt;; ++fmt) {
- if (!*fmt) {
- /* avoid infinite loop */
- if (end == 1) {
- warnx("missing format character",
- NULL, NULL);
- return (1);
- }
- end = 1;
- if (fmt > start)
- (void)printf("%s", start);
- if (!*gargv)
- return (0);
- fmt = format;
- goto next;
- }
- /* %% prints a % */
- if (*fmt == '%') {
- if (*++fmt != '%')
- break;
- *fmt++ = '\0';
- (void)printf("%s", start);
- goto next;
- }
- }
-
- /* skip to field width */
- for (; strchr(skip1, *fmt); ++fmt);
- if (*fmt == '*') {
- if (getint(&fieldwidth))
- return (1);
- } else
- fieldwidth = 0;
-
- /* skip to possible '.', get following precision */
- for (; strchr(skip2, *fmt); ++fmt);
- if (*fmt == '.')
- ++fmt;
- if (*fmt == '*') {
- if (getint(&precision))
- return (1);
- } else
- precision = 0;
-
- /* skip to conversion char */
- for (; strchr(skip2, *fmt); ++fmt);
- if (!*fmt) {
- warnx("missing format character", NULL, NULL);
- return (1);
- }
-
- convch = *fmt;
- nextch = *++fmt;
- *fmt = '\0';
- switch(convch) {
- case 'c': {
- char p;
-
- p = getchr();
- PF(start, p);
- break;
- }
- case 's': {
- char *p;
-
- p = getstr();
- PF(start, p);
- break;
- }
- case 'b': { /* expand escapes in argument */
- char *p;
-
- p = getstr();
- escape(p);
- PF(start, p);
- break;
- }
- case 'q': { /* print with shell single quoting */
- char *p, *p2;
-
- p = getstr();
- p2 = single_quote(p);
- PF(start, p2);
- free(p2);
- break;
- }
- case 'd': case 'i': case 'o': case 'u': case 'x': case 'X': {
- long p;
- char *f;
-
- if ((f = mklong(start, convch)) == NULL)
- return (1);
- if (getlong(&p))
- return (1);
- PF(f, p);
- break;
- }
- case 'e': case 'E': case 'f': case 'g': case 'G': {
- double p;
-
- p = getdouble();
- PF(start, p);
- break;
- }
- default:
- warnx("illegal format character", NULL, NULL);
- return (1);
- }
- *fmt = nextch;
- }
- /* NOTREACHED */
-}
-
-static char *
-mklong(str, ch)
- char *str;
- int ch;
-{
- static char copy[64];
- int len;
-
- len = strlen(str) + 2;
- memmove(copy, str, len - 3);
- copy[len - 3] = 'l';
- copy[len - 2] = ch;
- copy[len - 1] = '\0';
- return (copy);
-}
-
-static void
-escape(fmt)
- register char *fmt;
-{
- register char *store;
- register int value, c;
-
- for (store = fmt; c = *fmt; ++fmt, ++store) {
- if (c != '\\') {
- *store = c;
- continue;
- }
- switch (*++fmt) {
- case '\0': /* EOS, user error */
- *store = '\\';
- *++store = '\0';
- return;
- case '\\': /* backslash */
- case '\'': /* single quote */
- *store = *fmt;
- break;
- case 'a': /* bell/alert */
- *store = '\7';
- break;
- case 'b': /* backspace */
- *store = '\b';
- break;
- case 'c':
- return;
- case 'e':
- case 'E':
- *store = '\033';
- break;
- case 'f': /* form-feed */
- *store = '\f';
- break;
- case 'n': /* newline */
- *store = '\n';
- break;
- case 'r': /* carriage-return */
- *store = '\r';
- break;
- case 't': /* horizontal tab */
- *store = '\t';
- break;
- case 'v': /* vertical tab */
- *store = '\13';
- break;
- /* octal constant */
- case '0': case '1': case '2': case '3':
- case '4': case '5': case '6': case '7':
- for (c = 3, value = 0;
- c-- && *fmt >= '0' && *fmt <= '7'; ++fmt) {
- value <<= 3;
- value += *fmt - '0';
- }
- --fmt;
- *store = value;
- break;
- default:
- *store = *fmt;
- break;
- }
- }
- *store = '\0';
-}
-
-static int
-getchr()
-{
- if (!*gargv)
- return ('\0');
- return ((int)**gargv++);
-}
-
-static char *
-getstr()
-{
- if (!*gargv)
- return ("");
- return (*gargv++);
-}
-
-static char *Number = "+-.0123456789";
-static int
-getint(ip)
- int *ip;
-{
- long val;
-
- if (getlong(&val))
- return (1);
- if (val > INT_MAX) {
- warnx("%s: %s", *gargv, strerror(ERANGE));
- return (1);
- }
- *ip = val;
- return (0);
-}
-
-static int
-getlong(lp)
- long *lp;
-{
- long val;
- char *ep;
-
- if (!*gargv) {
- *lp = 0;
- return (0);
- }
- if (strchr(Number, **gargv)) {
- errno = 0;
- val = strtol(*gargv, &ep, 0);
- if (*ep != '\0') {
- warnx("%s: illegal number", *gargv, NULL);
- return (1);
- }
- if (errno == ERANGE)
- if (val == LONG_MAX) {
- warnx("%s: %s", *gargv, strerror(ERANGE));
- return (1);
- }
- if (val == LONG_MIN) {
- warnx("%s: %s", *gargv, strerror(ERANGE));
- return (1);
- }
-
- *lp = val;
- ++gargv;
- return (0);
- }
- *lp = (long)asciicode();
- return (0);
-}
-
-static double
-getdouble()
-{
- if (!*gargv)
- return ((double)0);
- if (strchr(Number, **gargv))
- return (atof(*gargv++));
- return ((double)asciicode());
-}
-
-static int
-asciicode()
-{
- register int ch;
-
- ch = **gargv;
- if (ch == '\'' || ch == '"')
- ch = (*gargv)[1];
- ++gargv;
- return (ch);
-}
-
-static void
-usage()
-{
- (void)fprintf(stderr, "usage: print [-Rnprs] [-u unit] [-f format] [arg ...]\n");
-}