ftp.nice.ch/pub/next/unix/text/rtf.N.bsd.tar.gz#/rtf-utilities/tools/gawk-2.14/atari/textrd.c

This is textrd.c in view mode; [Download] [Up]

/*
 * From gnulib Atari ST sources - with a fix for a bug causing
 * a premature EOF when only characters read are CR's.
 * Written by Eric R. Smith and placed in the public domain.
 * Fix - Michal Jaegermann, June 1991.
 */
#include <stdio.h>
#include <unistd.h>
int
_text_read(fd, buf, nbytes)
	int fd;
	char *buf;
	int nbytes;
{
	char *to, *from;
	int  r;
	do {
		r = read(fd, buf, nbytes);
		if (r <= 0)		/* if EOF or read error - return */
			return r;
		to = from = buf;
		do {
			if (*from == '\r')
				from++;
			else
				*to++ = *from++;
		} while (--r);
	} while (buf == to);	/* only '\r's? - try to read next nbytes */
	return (to - buf);
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.