NetBSD-5.0.2/sys/arch/acorn32/stand/lib/riscosfile.c

/*	$NetBSD: riscosfile.c,v 1.4 2006/01/25 18:28:25 christos Exp $	*/

/*-
 * Copyright (c) 2001 Ben Harris
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. The name of the author may not be used to endorse or promote products
 *    derived from this software without specific prior written permission.
 * 
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include <lib/libsa/stand.h>
#include <riscoscalls.h>
#include <riscosfile.h>
#include <sys/stat.h>

struct riscosfile {
	int file;
};

int
riscos_open(const char *path, struct open_file *f)
{
	struct riscosfile *rf;
	os_error *error;
	int flags;

	rf = (struct riscosfile *) alloc(sizeof(*rf));
	if (!rf)
		return -1;

	switch (f->f_flags & (F_READ | F_WRITE)) {
	case F_READ:
		flags = OSFind_Openin;
		break;
	case F_WRITE:
		flags = OSFind_Openout;
		break;
	case F_READ | F_WRITE:
		flags = OSFind_Openup;
		break;
	default:
		/* Erm... */
		return EINVAL;
	}

	error = xosfind_open(flags | osfind_ERROR_IF_DIR |
	    osfind_ERROR_IF_ABSENT, path, NULL, &rf->file);
	if (error) {
		dealloc(rf, sizeof(*rf));
		return riscos_errno(error);
	}
	f->f_fsdata = rf;
	return 0;
}

#ifndef LIBSA_NO_FS_CLOSE
int
riscos_close(struct open_file *f)
{
	struct riscosfile *rf;
	struct os_error *error;
	int err = 0;

	rf = f->f_fsdata;

	error = xosfind_close(rf->file);
	if (error)
		err = riscos_errno(error);
	dealloc(rf, sizeof(*rf));
	return err;
}
#endif

int
riscos_read(struct open_file *f, void *buf, size_t size, size_t *residp)
{
	struct riscosfile *rf;
	int resid;
	os_error *error;

	rf = f->f_fsdata;

#ifndef LIBSA_NO_TWIDDLE
	twiddle();
#endif
	error = xosgbpb_read(rf->file, buf, size, &resid);
	*residp = resid;
	if (error)
		return riscos_errno(error);
	return 0;
}

#ifndef LIBSA_NO_FS_WRITE
int
riscos_write(struct open_file *f, void *buf, size_t size, size_t *residp)
{
	struct riscosfile *rf;
	int resid;
	os_error *error;

	rf = f->f_fsdata;

#ifndef LIBSA_NO_TWIDDLE
	twiddle();
#endif
	error = xosgbpb_write(rf->file, buf, size, &resid);
	*residp = resid;
	if (error)
		return riscos_errno(error);
	return 0;
}
#endif

int
riscos_stat(struct open_file *f, struct stat *sb)
{
	struct riscosfile *rf;
	os_error *error;
	int extent;

	rf = f->f_fsdata;

	error = xosargs_read_ext(rf->file, &extent);
	if (error)
		return riscos_errno(error);

	sb->st_mode = S_IFREG | 0444;
	sb->st_nlink = 1;
	sb->st_uid = 0;
	sb->st_gid = 0;
	sb->st_size = extent;
	return 0;
}

#ifndef LIBSA_NO_FS_SEEK
off_t
riscos_seek(struct open_file *f, off_t offset, int where)
{
	struct riscosfile *rf;
	int base, result;
	os_error *error;

	rf = f->f_fsdata;

	switch (where) {
	case SEEK_SET:
		base = 0;
		break;
	case SEEK_CUR:
		error = xosargs_read_ptr(rf->file, &base);
		if (error)
			goto err;
		break;
	case SEEK_END:
		error = xosargs_read_ext(rf->file, &base);
		if (error)
			goto err;
		break;
	default:
		errno = EOFFSET;
		return -1;
	}
	offset = base + offset;
	error = xosargs_set_ptr(rf->file, offset);
	if (error)
		goto err;
	error = xosargs_read_ptr(rf->file, &result);
	if (error)
		goto err;
	return result;

err:
	errno = riscos_errno(error);
	return -1;
}
#endif