archie/prospero/app/cat.c
2024-05-27 16:13:40 +02:00

248 lines
5.3 KiB
C

/*
* Derived from Berkeley source code. Those parts are
* Copyright (c) 1989 The Regents of the University of California.
* All rights reserved.
*
* This code is derived from software contributed to Berkeley by
* Kevin Fall.
*
* Redistribution and use in source and binary forms are permitted
* provided that: (1) source distributions retain this entire copyright
* notice and comment, and (2) distributions including binaries display
* the following acknowledgement: ``This product includes software
* developed by the University of California, Berkeley and its contributors''
* in the documentation or other materials provided with the distribution
* and in all advertising materials mentioning features or use of this
* software. 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 ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/
#ifndef lint
char copyright[] =
"@(#) Copyright (c) 1989 The Regents of the University of California.\n\
All rights reserved.\n";
#endif /* not lint */
#ifndef lint
static char sccsid[] = "@(#)cat.c 5.11 (Berkeley) 5/31/90";
#endif /* not lint */
#include <sys/param.h>
#include <sys/stat.h>
#include <sys/file.h>
#include <stdio.h>
#include <ctype.h>
#include <errno.h>
#include <perrno.h> /* For unixerrstr */
#include <stdlib.h> /*For malloc*/
int bflag, eflag, nflag, sflag, tflag, vflag;
int rval;
char *filename;
main(argc, argv)
int argc;
char **argv;
{
extern int optind;
int ch;
while ((ch = getopt(argc, argv, "benstuv")) != EOF)
switch (ch) {
case 'b':
bflag = nflag = 1; /* -b implies -n */
break;
case 'e':
eflag = vflag = 1; /* -e implies -v */
break;
case 'n':
nflag = 1;
break;
case 's':
sflag = 1;
break;
case 't':
tflag = vflag = 1; /* -t implies -v */
break;
case 'u':
setbuf(stdout, (char *)NULL);
break;
case 'v':
vflag = 1;
break;
case '?':
(void)fprintf(stderr,
"usage: cat [-benstuv] [-] [file ...]\n");
exit(1);
}
argv += optind;
if (bflag || eflag || nflag || sflag || tflag || vflag)
cook_args(argv);
else
raw_args(argv);
exit(rval);
}
cook_args(argv)
char **argv;
{
register FILE *fp;
fp = stdin;
filename = "-";
do {
if (*argv) {
if (!strcmp(*argv, "-"))
fp = stdin;
else if (!(fp = fopen(*argv, "r"))) {
(void)fprintf(stderr,
"cat: %s: %s\n", *argv, unixerrstr());
rval = 1;
++argv;
continue;
}
filename = *argv++;
}
cook_buf(fp);
if (fp != stdin)
(void)fclose(fp);
} while (*argv);
}
cook_buf(fp)
register FILE *fp;
{
register int ch, gobble, line, prev;
line = gobble = 0;
for (prev = '\n'; (ch = getc(fp)) != EOF; prev = ch) {
if (prev == '\n') {
if (ch == '\n') {
if (sflag) {
if (!gobble && putchar(ch) == EOF)
break;
gobble = 1;
continue;
}
if (nflag && !bflag) {
(void)fprintf(stdout, "%6d\t", ++line);
if (ferror(stdout))
break;
}
} else if (nflag) {
(void)fprintf(stdout, "%6d\t", ++line);
if (ferror(stdout))
break;
}
}
gobble = 0;
if (ch == '\n') {
if (eflag)
if (putchar('$') == EOF)
break;
} else if (ch == '\t') {
if (tflag) {
if (putchar('^') == EOF || putchar('I') == EOF)
break;
continue;
}
} else if (vflag) {
/* isascii() is not provided in POSIX, so we just do it here. */
#ifndef isascii
#define isascii(c) ((unsigned)(c)<=0177)
#endif
if (!isascii(ch)) {
if (putchar('M') == EOF || putchar('-') == EOF)
break;
ch = toascii(ch);
}
if (iscntrl(ch)) {
if (putchar('^') == EOF ||
putchar(ch == '\177' ? '?' :
ch | 0100) == EOF)
break;
continue;
}
}
if (putchar(ch) == EOF)
break;
}
if (ferror(fp)) {
(void)fprintf(stderr, "cat: %s: read error\n", filename);
rval = 1;
}
if (ferror(stdout)) {
clearerr(stdout);
(void)fprintf(stderr, "cat: stdout: write error\n");
rval = 1;
}
}
raw_args(argv)
char **argv;
{
register int fd;
fd = fileno(stdin);
filename = "-";
do {
if (*argv) {
if (!strcmp(*argv, "-"))
fd = fileno(stdin);
else if ((fd = open(*argv, O_RDONLY, 0)) < 0) {
(void)fprintf(stderr, "cat: %s: %s\n",
*argv, unixerrstr());
rval = 1;
++argv;
continue;
}
filename = *argv++;
}
rval |= raw_cat(fd);
if (fd != fileno(stdin))
(void)close(fd);
} while (*argv);
}
raw_cat(fd)
register int fd;
{
register int nr, nw, off;
static int bsize;
static char *buf;
struct stat sbuf;
if (!buf) {
if (fstat(fileno(stdout), &sbuf)) {
(void)fprintf(stderr, "cat: %s: %s\n", filename,
unixerrstr());
return(1);
}
bsize = MAX(sbuf.st_blksize, 1024);
if (!(buf = malloc((u_int)bsize))) {
(void)fprintf(stderr, "cat: %s: no memory.\n",
filename);
return(1);
}
}
while ((nr = read(fd, buf, bsize)) > 0)
for (off = 0; off < nr;) {
if ((nw = write(fileno(stdout), buf + off, nr)) < 0) {
perror("cat: stdout");
return(1);
}
off += nw;
}
if (nr < 0) {
(void)fprintf(stderr, "cat: %s: %s\n", filename,
unixerrstr());
return(1);
}
return(0);
}