Return to fileio.c CVS log

Up to [MW Coherent from dump] / coherent / g / usr / bin / me

coherent

/*
 * The routines in this file read and write ASCII files from the
 * disk.  All of the knowledge about files are here.  A better message
 * writing scheme should be used.
 */
#include	<stdio.h>
#include	"ed.h"
#include	<access.h>

FILE	*ffp;				/* File pointer, all functions.	*/

/*
 * Open a file for reading.
 */
ffropen(fn)
uchar	*fn;
{
	if ((ffp=fopen(fn, "r")) == NULL)
		if (access(fn, AEXISTS)) /* access returns 0 on success */
			return (FIOFNF); /* new file */
		else
			return (FIOERR); /* error */
	return (FIOSUC);
}

/*
 * Open a file for writing.
 * Return TRUE if all is well, and FALSE on error (cannot create).
 */
ffwopen(fn, w)
uchar	*fn, *w;
{
#if	VMS
	register int	fd;

	if ((fd=creat(fn, 0666, "rfm=var", "rat=cr")) < 0
	|| (ffp=fdopen(fd, w)) == NULL) {
#else
	if ((ffp=fopen(fn, w)) == NULL) {
#endif
		mlwrite("Cannot open file for writing");
		return (FIOERR);
	}
	return (FIOSUC);
}

/*
 * Close a file.
 * Should look at the status in all systems.
 */
ffclose()
{
#if	V7
	if (fclose(ffp) != FALSE) {
		mlwrite("Error closing file");
		return (FIOERR);
	}
	return (FIOSUC);
#endif
	fclose(ffp);
	return (FIOSUC);
}

/*
 * Write a line to the already opened file.  The "buf" points to the
 * buffer, and the "nbuf" is its length, less the free newline.
 * Return the status.
 * Check only at the newline.
 */
ffputline(buf, nbuf)
#ifdef	SLOW
register uchar	buf[];
#else
uchar	buf[];
#endif
{
	register int	i;

#ifdef	SLOW
	for (i=0; i<nbuf; ++i)
		putc(buf[i]&0xFF, ffp);
#else
	fwrite(buf, 1, nbuf, ffp);
#endif
	putc('\n', ffp);
	if (ferror(ffp) != FALSE) {
		mlwrite("Write I/O error");
		return (FIOERR);
	}
	return (FIOSUC);
}

/*
 * Read a line from a file and store the bytes in the supplied buffer.
 * The "nbuf" is the length of the buffer.  Complain about long lines
 * and lines at the end of the file that don't have a newline present.
 * Check for I/O errors too.  Return status.
 */
ffgetline(buf, nbuf)
register uchar	buf[];
{
	register int	c;
	register int	i;

	i = 0;
#ifdef	SLOW
	while ((c=getc(ffp))!=EOF && c!='\n') {
		if (i >= nbuf-1) {
			mlwrite("File has long line");
			buf[i] = 0;
			ungetc(c, ffp);
			return (FIOSUC);	/* Make long lines load	*/
		}
		buf[i++] = c;
	}
#else
	if (fgets(buf, nbuf, ffp) != NULL) {
		for (i=0; i<nbuf-1; i++) {
			if ((c = buf[i]) == '\n') {
				buf[i] = 0;
				goto lineread;
			}
		}
		mlwrite("File has long line");
		buf[i] = 0;
		return FIOSUC;
	} else
		c = EOF;
lineread:
#endif
	if (c == EOF) {
		if (ferror(ffp) != FALSE) {
			mlwrite("File read error");
			return (FIOERR);
		}
		if (i != 0) {
			mlwrite("File has funny line at EOF");
			buf[i]=0;		/* Make funny line show up. */
			return (FIOSUC);
		}
		return (FIOEOF);
	}
	buf[i] = 0;
	return (FIOSUC);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.