/*	copen.c	1.7	83/05/13	*/

#include <stdio.h>
#include "cpmio.h"
#include "cpmfio.h"

/*
 * Open cp/m file with the given file name and extension, return
 * file pointer. A null pointer is returned if the file could not
 * be opened. mode tells whether the file is to be read, written
 * or both.
 */

C_FILE *
	c_open(name, ext, mode)
	char *name, *ext;
{

	int	i, index, scnt;
	register C_FILE *fptr;
	char *malloc();

	if ((index = searchdir(name, ext)) == -1) {
		fnfound(name, ext);
		return (NULL);
	}
	/* test for legal mode */
	if (!(mode & RW)) {
		fprintf(stderr, "open: illegal mode - %d\n", mode);
		return (NULL);
	}
#ifdef DEBUG
	printf("directory index: %d\n", index); 
#endif
	for ((i = 0, fptr=c_iob); i < C_NFILE; i++,fptr++)
		if (!(fptr->c_flag)) 
			break;
	if (i == C_NFILE) {
		fprintf(stderr, "too many open files\n");
		return (NULL);
	}

/*
 * Free file descriptor slot found, initialize field, allocate
 * memory and read first block.
 */
	if ((fptr->c_buf = malloc(blksiz)) == NULL) {
		printf("c_open: no memory!\n");
		return (NULL);
	}
	fptr->c_extno = 0;
	fptr->c_base = fptr->c_buf;
	fptr->c_flag = mode;
	fptr->c_blk = 0;
	fptr->c_ext = index;
	fptr->c_dirp = dirbuf+index;
	fptr->c_seccnt = 0xff &(dirbuf+index)->blkcnt;
	scnt = (fptr->c_seccnt > blksiz/seclth) ? blksiz/seclth:fptr->c_seccnt;
#ifdef DEBUG
	printf("c_open: scnt=%d\n",scnt); 
#endif
	if (getblock(0xff &(int)fptr->c_dirp->pointers[0], fptr->c_buf, scnt)
								== EOF)
		return (NULL);
	fptr->c_cnt = seclth*scnt;
	fptr->c_seccnt -= scnt;
	return (fptr);
}

fnfound(name, ext)
	char name[], ext[];
{
	if (ext[0] == ' ') 
		ext[0] = '\0';
	if (name[0] == ' ') 
		name[0] = '\0';
	printf("file not found: %s %s\n", name, ext);
}