/* $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 #include #include #include 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