/* fileio.c	(MicroEmacs) */


/*
 * 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"

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

#ifdef	RSX
char	tmpbuf[82];

#define	fgetc	getc
#define ferror	ferr
#endif

/*
 * Open	a file for reading.
 */
ffropen(fn)
char	*fn;
{
	if ((ffp=fopen(fn, "r")) == NULL)
		return (FIOFNF);
	return (FIOSUC);
}

/*
 * Open	a file for writing. Return TRUE	if all is well,	and FALSE on error
 * (cannot create).
 */
ffwopen(fn)
char	*fn;
{
#ifdef	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()
{
#ifdef	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)
char	buf[];
{
	register int	i;

#ifdef RSX
	for(i=0; i<81 && i<nbuf; i++)
		tmpbuf[i] = buf[i];

	tmpbuf[i] = NULL;
	fputss(tmpbuf, ffp);

	if (ferr(ffp)) {
#else
	for (i = 0; i <	nbuf; ++i)
		fputc(buf[i]&0xFF, ffp);

	fputc('\n', ffp);
	if (ferror(ffp)) {
#endif
		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 char	buf[];
{
	register int	c;
	register int	i;

	i = 0;

	while ((c = fgetc(ffp))	!= EOF && c != '\n') {
		if (i >= nbuf-1) {
			mlwrite("File has long line");
			return (FIOERR);
		}
		buf[i++] = c;
	}

	if (c == EOF) {
		if (ferror(ffp)) {
			mlwrite("File read error");
			return (FIOERR);
		}

		if (i != 0) {
			mlwrite("File has funny line at EOF");
			return (FIOERR);
		}
		return (FIOEOF);
	}

	buf[i] = 0;
	return (FIOSUC);
}