sambuc/retrobsd
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial Import from SVN

Browse Source
This commit is contained in:
Matt Jenkins
2014-04-09 14:27:18 +01:00
parent 8976e834c4
commit 895f96d2f7
3153 changed files with 748589 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
src/cmd/printf/Makefile Normal file
View File

@@ -0,0 +1,42 @@
#
# Public Domain. 1995/05/02 - Steven Schultz
#
TOPSRC = $(shell cd ../../..; pwd)
include $(TOPSRC)/target.mk
CFLAGS += -Werror -DNOFPU
SRCS = printf.c
OBJS = printf.o
MAN = printf.0
MANSRC = printf.1
all: printf ${MAN}
printf: ${OBJS}
${CC} ${LDFLAGS} -o printf.elf ${OBJS} ${LIBS}
${OBJDUMP} -S printf.elf > printf.dis
${SIZE} printf.elf
${ELF2AOUT} printf.elf $@ && rm printf.elf
${MAN}: ${MANSRC}
${MANROFF} ${MANSRC} > ${MAN}
clean:
rm -f *.o *.elf ${MAN} printf *.elf *.dis tags *~
depend: ${SRCS}
mkdep ${CFLAGS} ${SRCS}
install: all
cp ${MAN} ${DESTDIR}/share/man/cat1/
install printf ${DESTDIR}/bin/printf
lint: ${SRCS}
lint -hax ${SRCS}
tags: ${SRCS}
ctags ${SRCS}
# DO NOT DELETE THIS LINE -- mkdep uses it.
# DO NOT PUT ANYTHING AFTER THIS LINE, IT WILL GO AWAY.

294
src/cmd/printf/printf.1 Normal file
View File

@@ -0,0 +1,294 @@
.\" Copyright (c) 1989, 1990, 1993
.\" The Regents of the University of California. All rights reserved.
.\"
.\" This code is derived from software contributed to Berkeley by
.\" the Institute of Electrical and Electronics Engineers, Inc.
.\"
.\" 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.
.\"
.\" @(#)printf.1 8.1.1 (2.11BSD) 1995/05/02
.\"
.TH PRINTF 1 "May 2, 1995"
.UC 4
.SH NAME
printf \- formatted output
.SH SYNOPSIS
.B printf format [ arguments ... ]
.SH DESCRIPTION
.B Printf
formats and prints its arguments, after the first, under control
of the
.IR format .
The
.I format
is a character string which contains three types of objects: plain characters,
which are simply copied to standard output, character escape sequences which
are converted and copied to the standard output, and format specifications,
each of which causes printing of the next successive
.IR argument .
.PP
The
.I arguments
after the first are treated as strings if the corresponding format is
either
.B c
or
.BR s ;
otherwise it is evaluated as a C constant, with the following extensions:
.TP
.B \(bu
A leading plus or minus sign is allowed.
.TP
.B \(bu
If the leading character is a single or double quote, or not a digit,
plus, or minus sign, the value is the ASCII code of the next character.
.PP
The format string is reused as often as necessary to satisfy the
.IR arguments .
Any extra format specifications are evaluated with zero or the null
string.
.PP
Character escape sequences are in backslash notation as defined in the
draft proposed
ANSI C
Standard
X3J11.
The characters and their meanings
are as follows:
.br
.po +0.5i
.TP 10
.B \ea
Write a <bell> character.
.TP 10
.B \eb
Write a <backspace> character.
.TP 10
.B \ef
Write a <form-feed> character.
.TP 10
.B \en
Write a <new-line> character.
.TP 10
.B \er
Write a <carriage return> character.
.TP 10
.B \et
Write a <tab> character.
.TP 10
.B \ev
Write a <vertical tab> character.
.TP 10
.B \e\'
Write a <single quote> character.
.TP 10
.B \e\e
Write a backslash character.
.TP 10
.B \e\fInum\fP
Write an 8-bit character whose
ASCII
value is the 1-, 2-, or 3-digit
octal number
.IR num .
.br
.po -0.5i
.PP
Each format specification is introduced by the percent character
(``%'').
The remainder of the format specification includes,
in the following order:
.sp
"Zero or more of the following flags:"
.sp
.po +0.5i
.TP 10
.B #
A `#' character
specifying that the value should be printed in an ``alternate form''.
For
.BR c ,
.BR d ,
and
.BR s ,
formats, this option has no effect. For the
.B o
formats the precision of the number is increased to force the first
character of the output string to a zero. For the
.B x
(\fBX\fP)
format, a non-zero result has the string
0x
(0X)
prepended to it. For
.BR e ,
.BR E ,
.BR f ,
.BR g ,
and
.BR G ,
formats, the result will always contain a decimal point, even if no
digits follow the point (normally, a decimal point only appears in the
results of those formats if a digit follows the decimal point). For
.B g
and
.B G
formats, trailing zeros are not removed from the result as they
would otherwise be;
.TP 10
.B \-
A minus sign `\-' which specifies
.I left adjustment
of the output in the indicated field;
.TP 10
.B +
A `+' character specifying that there should always be
a sign placed before the number when using signed formats.
.TP 10
.B \` \'
A space specifying that a blank should be left before a positive number
for a signed format. A `+' overrides a space if both are used;
.TP 10
.B 0
A zero `0' character indicating that zero-padding should be used
rather than blank-padding. A `\-' overrides a `0' if both are used;
.po -0.5i
.TP
Field Width:
An optional digit string specifying a
.IR "field width" ;
if the output string has fewer characters than the field width it will
be blank-padded on the left (or right, if the left-adjustment indicator
has been given) to make up the field width (note that a leading zero
is a flag, but an embedded zero is part of a field width);
.TP
Precision:
An optional period,
\fB\.\fP,
followed by an optional digit string giving a
.I precision
which specifies the number of digits to appear after the decimal point,
for
.B e
and
.B f
formats, or the maximum number of characters to be printed
from a string; if the digit string is missing, the precision is treated
as zero;
.TP
Format:
.br
A character which indicates the type of format to use (one of
.BR diouxXfwEgGcs ).
.PP
A field width or precision may be
.B *
instead of a digit string.
In this case an
.I argument
supplies the field width or precision.
.PP
The format characters and their meanings are:
.TP 10
.B diouXx
The
.I argument
is printed as a signed decimal (d or i), unsigned decimal, unsigned octal,
or unsigned hexadecimal (X or x), respectively.
.TP 10
.B f
The
.I argument
is printed in the style `[\-]ddd.ddd' where the number of d's
after the decimal point is equal to the precision specification for
the argument.
If the precision is missing, 6 digits are given; if the precision
is explicitly 0, no digits and no decimal point are printed.
.TP 10
.B eE
The
.I argument
is printed in the style
.B e
\.`[-]d.ddd Ns \(+-dd\'
where there
is one digit before the decimal point and the number after is equal to
the precision specification for the argument; when the precision is
missing, 6 digits are produced.
An upper-case E is used for an `E' format.
.TP 10
.B gG
The
.I argument
is printed in style
.B f
or in style
.B e
(\fBE\fP)
whichever gives full precision in minimum space.
.TP 10
.B c
The first character of
.I argument
is printed.
.TP 10
.B s
Characters from the string
.I argument
are printed until the end is reached or until the number of characters
indicated by the precision specification is reached; however if the
precision is 0 or missing, all characters in the string are printed.
.TP 10
.B %
Print a \`%\'; no argument is used.
.PP
In no case does a non-existent or small field width cause truncation of
a field; padding takes place only if the specified field width exceeds
the actual width.
.SH RETURN VALUES
.B Printf
exits 0 on success, 1 on failure.
.SH SEE ALSO
.IR printf (3)
.SH HISTORY
The
.B printf
command appeared in
.BR 4.3\-Reno .
It is modeled
after the standard library function,
.BR printf (3).
.SH BUGS
Since the floating point numbers are translated from
ASCII
to floating-point and
then back again, floating-point precision may be lost.
.PP
ANSI
hexadecimal character constants were deliberately not provided.

386
src/cmd/printf/printf.c Normal file
View File

@@ -0,0 +1,386 @@
/*
* 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. 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 <stdio.h>
#include <string.h>
#include <strings.h>
#include <errno.h>
#include <sys/types.h>
#define PF(f, func) { \
if (fieldwidth) \
if (precision) \
(void)printf(f, fieldwidth, precision, func); \
else \
(void)printf(f, fieldwidth, func); \
else if (precision) \
(void)printf(f, precision, func); \
else \
(void)printf(f, func); \
}
static char **gargv;
static int asciicode();
static void escape();
static int getchr();
static int getint();
static int getlong();
static char *getstr();
static char *mklong();
static void usage();
#ifndef NOFPU
static double getdouble();
#endif
int
#ifdef BUILTIN
progprintf(argc, argv)
#else
main(argc, argv)
#endif
int argc;
char *argv[];
{
extern int optind;
static char *skip1, *skip2;
int ch, end, fieldwidth, precision;
char convch, nextch, *format, *start;
register char *fmt;
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 '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;
}
#ifndef NOFPU
case 'e': case 'E': case 'f': case 'g': case 'G': {
double p;
p = getdouble();
PF(start, p);
break;
}
#endif
default:
warnx("illegal format character", NULL, NULL);
return (1);
}
*fmt = nextch;
}
/* NOTREACHED */
}
static char *
mklong(str, ch)
register char *str;
int ch;
{
static char copy[64];
register int len;
if (ch == 'X') /* XXX */
ch = 'x';
len = strlen(str) + 2;
bcopy(str, copy, 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;
int 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 '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 > 65535) {
warnx("%s: %s", *gargv, strerror(ERANGE));
return (1);
}
*ip = val;
return (0);
}
static int
getlong(lp)
register 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 == 2147483647L) {
warnx("%s: %s", *gargv, strerror(ERANGE));
return (1);
}
if (val == (-2147483647L-1)) {
warnx("%s: %s", *gargv, strerror(ERANGE));
return (1);
}
*lp = val;
++gargv;
return (0);
}
*lp = (long)asciicode();
return (0);
}
#ifndef NOFPU
static double
getdouble()
{
if (!*gargv)
return ((double)0);
if (strchr(Number, **gargv))
return (atof(*gargv++));
return ((double)asciicode());
}
#endif
static int
asciicode()
{
register int ch;
ch = **gargv;
if (ch == '\'' || ch == '"')
ch = (*gargv)[1];
++gargv;
return (ch);
}
static void
usage()
{
(void)fprintf(stderr, "usage: printf format [arg ...]\n");
}