/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License (the "License").
 * You may not use this file except in compliance with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */

/*
 * Copyright 2008 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#pragma ident   "%Z%%M% %I%     %E% SMI"

#include <sys/promif.h>
#include <sys/promimpl.h>

int
prom_fopen(ihandle_t fsih, char *path)
{
        cell_t ci[10];
        size_t len;

#ifdef PROM_32BIT_ADDRS
        char *opath = NULL;

        if ((uintptr_t)path > (uint32_t)-1) {
                opath = path;
                len = prom_strlen(opath) + 1; /* include terminating NUL */
                path = promplat_alloc(len);
                if (path == NULL)
                        return (0);
                (void) prom_strcpy(path, opath);
        }
#endif
        len = prom_strlen(path);

        promif_preprom();
        ci[0] = p1275_ptr2cell("call-method");  /* Service name */
        ci[1] = (cell_t)4;                      /* #argument cells */
        ci[2] = (cell_t)3;                      /* #result cells */
        ci[3] = p1275_ptr2cell("open-file");    /* Arg1: Method name */
        ci[4] = p1275_ihandle2cell(fsih);       /* Arg2: fs ihandle */
        ci[5] = p1275_uint2cell(len);           /* Arg3: Len */
        ci[6] = p1275_ptr2cell(path);           /* Arg4: Pathname */

        (void) p1275_cif_handler(&ci);

        promif_postprom();

#ifdef PROM_32BIT_ADDRS
        if (opath != NULL)
                promplat_free(path, len + 1);
#endif

        if (ci[7] != 0)                         /* Catch result */
                return (-1);

        if (ci[8] == 0)                         /* Res1: failed */
                return (-1);

        return (p1275_cell2int(ci[9]));         /* Res2: fd */
}

int
prom_volopen(ihandle_t fsih, char *path)
{
        cell_t ci[10];
        size_t len;

#ifdef PROM_32BIT_ADDRS
        char *opath = NULL;

        if ((uintptr_t)path > (uint32_t)-1) {
                opath = path;
                len = prom_strlen(opath) + 1; /* include terminating NUL */
                path = promplat_alloc(len);
                if (path == NULL)
                        return (0);
                (void) prom_strcpy(path, opath);
        }
#endif
        len = prom_strlen(path);

        promif_preprom();
        ci[0] = p1275_ptr2cell("call-method");  /* Service name */
        ci[1] = (cell_t)4;                      /* #argument cells */
        ci[2] = (cell_t)3;                      /* #result cells */
        ci[3] = p1275_ptr2cell("open-volume");  /* Arg1: Method name */
        ci[4] = p1275_ihandle2cell(fsih);       /* Arg2: fs ihandle */
        ci[5] = p1275_uint2cell(len);           /* Arg3: Len */
        ci[6] = p1275_ptr2cell(path);           /* Arg4: Pathname */

        (void) p1275_cif_handler(&ci);

        promif_postprom();

#ifdef PROM_32BIT_ADDRS
        if (opath != NULL)
                promplat_free(path, len + 1);
#endif

        if (ci[7] != 0)                         /* Catch result */
                return (-1);

        if (ci[8] == 0)                         /* Res1: failed */
                return (-1);

        return (p1275_cell2int(ci[9]));         /* Res2: fd */
}

int
prom_fseek(ihandle_t fsih, int fd, unsigned long long offset)
{
        cell_t ci[10];

        ci[0] = p1275_ptr2cell("call-method");  /* Service name */
        ci[1] = (cell_t)4;                      /* #argument cells */
        ci[2] = (cell_t)3;                      /* #result cells */
        ci[3] = p1275_ptr2cell("seek-file");    /* Arg1: Method name */
        ci[4] = p1275_ihandle2cell(fsih);       /* Arg2: fs ihandle */
        ci[5] = p1275_int2cell(fd);             /* Arg3: file desc */
        ci[6] = p1275_ull2cell_low(offset);     /* Arg4: Offset */

        promif_preprom();
        (void) p1275_cif_handler(&ci);
        promif_postprom();

        if (ci[7] != 0)                         /* Catch result */
                return (-1);

        if (ci[8] == 0)                         /* Res1: failed */
                return (-1);

        return (p1275_cell2int(ci[9]));         /* Res2: off */
}


int
prom_fread(ihandle_t fsih, int fd, caddr_t buf, size_t len)
{
        cell_t ci[10];
#ifdef PROM_32BIT_ADDRS
        caddr_t obuf = NULL;

        if ((uintptr_t)buf > (uint32_t)-1) {
                obuf = buf;
                buf = promplat_alloc(len);
                if (buf == NULL)
                        return (-1);
        }
#endif

        promif_preprom();

        ci[0] = p1275_ptr2cell("call-method");  /* Service name */
        ci[1] = (cell_t)5;                      /* #argument cells */
        ci[2] = (cell_t)2;                      /* #result cells */
        ci[3] = p1275_ptr2cell("read-file");    /* Arg1: Method name */
        ci[4] = p1275_ihandle2cell(fsih);       /* Arg2: fs ihandle */
        ci[5] = p1275_int2cell(fd);             /* Arg3: file desc */
        ci[6] = p1275_uint2cell(len);           /* Arg4: buffer length */
        ci[7] = p1275_ptr2cell(buf);            /* Arg5: buffer address */

        (void) p1275_cif_handler(&ci);

        promif_postprom();

#ifdef PROM_32BIT_ADDRS
        if (obuf != NULL) {
                promplat_bcopy(buf, obuf, len);
                promplat_free(buf, len);
        }
#endif

        if (ci[8] != 0)                         /* Catch result */
                return (-1);

        return (p1275_cell2int(ci[9]));         /* Res2: actual length */
}

int
prom_fsize(ihandle_t fsih, int fd, size_t *size)
{
        cell_t ci[8];

        promif_preprom();

        ci[0] = p1275_ptr2cell("call-method");  /* Service name */
        ci[1] = (cell_t)3;                      /* #argument cells */
        ci[2] = (cell_t)2;                      /* #result cells */
        ci[3] = p1275_ptr2cell("size-file");    /* Arg1: Method name */
        ci[4] = p1275_ihandle2cell(fsih);       /* Arg2: fs ihandle */
        ci[5] = p1275_int2cell(fd);             /* Arg3: file desc */

        (void) p1275_cif_handler(&ci);

        promif_postprom();

        if (ci[6] != 0)                         /* Catch result */
                return (-1);

        *size = p1275_cell2uint(ci[7]);         /* Res2: size */
        return (0);
}


int
prom_compinfo(ihandle_t fsih, int fd, int *iscmp, size_t *fsize, size_t *bsize)
{
        cell_t ci[10];

        promif_preprom();

        ci[0] = p1275_ptr2cell("call-method");  /* Service name */
        ci[1] = (cell_t)3;                      /* #argument cells */
        ci[2] = (cell_t)4;                      /* #result cells */
        ci[3] = p1275_ptr2cell("cinfo-file");   /* Arg1: Method name */
        ci[4] = p1275_ihandle2cell(fsih);       /* Arg2: fs ihandle */
        ci[5] = p1275_int2cell(fd);             /* Arg3: file desc */

        (void) p1275_cif_handler(&ci);

        promif_postprom();

        if (ci[6] != 0)                         /* Catch result */
                return (-1);

        *iscmp = p1275_cell2int(ci[7]);         /* Res2: iscmp */
        *fsize = p1275_cell2uint(ci[8]);        /* Res3: fsize */
        *bsize = p1275_cell2uint(ci[9]);        /* Res4: bsize */
        return (0);
}

void
prom_fclose(ihandle_t fsih, int fd)
{
        cell_t ci[7];

        ci[0] = p1275_ptr2cell("call-method");  /* Service name */
        ci[1] = (cell_t)3;                      /* #argument cells */
        ci[2] = (cell_t)1;                      /* #result cells */
        ci[3] = p1275_ptr2cell("close-file");   /* Arg1: Method name */
        ci[4] = p1275_ihandle2cell(fsih);       /* Arg2: fs ihandle */
        ci[5] = p1275_int2cell(fd);             /* Arg3: file desc */

        promif_preprom();
        (void) p1275_cif_handler(&ci);
        promif_postprom();

}