/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (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 2005 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

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

/*
 * Stuff for mucking about with properties
 *
 * XXX: There is no distinction between intefer and non-integer properties
 * XXX: and no functions included for decoding properties.  As is, this
 * XXX: file is suitable for a big-endian machine, since properties are
 * XXX: encoded using an XDR-like property encoding mechanism, which is
 * XXX: big-endian native ordering.  To fix this, you need to add type-
 * XXX: sensitive decoding mechanisms and have the consumer of the data
 * XXX: decode the data, since only the consumer can claim to know the
 * XXX: the type of the data. (It can't be done automatically.)
 */

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

static void prom_setprop_null(void);


/*
 * prom_setprop_{enter,exit} are set to plat_setprop_{enter,exit} on
 * platforms which require access to the seeproms to be serialized.
 * Otherwise these default to null functions.  These functions must be
 * called before promif_preprom, since it can sleep and change CPU's,
 * thereby failing the assert in promif_postprom().
 */
void (*prom_setprop_enter)(void) = prom_setprop_null;
void (*prom_setprop_exit)(void) = prom_setprop_null;

int
prom_asr_export_len()
{
        cell_t ci[4];

        ci[0] = p1275_ptr2cell("SUNW,asr-export-len");  /* Service name */
        ci[1] = (cell_t)0;                      /* #argument cells */
        ci[2] = (cell_t)1;                      /* #return cells */
        ci[3] = (cell_t)-1;                     /* Res1: Prime result */

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

        return (p1275_cell2int(ci[3]));         /* Res1: buf length */
}

int
prom_asr_list_keys_len()
{
        cell_t ci[4];

        ci[0] = p1275_ptr2cell("SUNW,asr-list-keys-len");
        ci[1] = (cell_t)0;                      /* #argument cells */
        ci[2] = (cell_t)1;                      /* #return cells */
        ci[3] = (cell_t)-1;                     /* Res1: Prime result */

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

        return (p1275_cell2int(ci[3]));         /* Res1: buf length */
}

int
prom_asr_export(caddr_t value)
{
        int rv;
        cell_t ci[5];

        ci[0] = p1275_ptr2cell("SUNW,asr-export");      /* Service name */
        ci[1] = (cell_t)1;                      /* #argument cells */
        ci[2] = (cell_t)1;                      /* #return cells */
        ci[3] = p1275_ptr2cell(value);          /* Arg1: buffer address */
        ci[4] = -1;                             /* Res1: buf len */

        promif_preprom();
        rv = p1275_cif_handler(&ci);
        promif_postprom();

        if (rv != 0)
                return (-1);
        return (p1275_cell2int(ci[4]));         /* Res1: buf length */
}

int
prom_asr_list_keys(caddr_t value)
{
        int rv;
        cell_t ci[5];

        ci[0] = p1275_ptr2cell("SUNW,asr-list-keys");   /* Service name */
        ci[1] = (cell_t)1;                      /* #argument cells */
        ci[2] = (cell_t)1;                      /* #return cells */
        ci[3] = p1275_ptr2cell(value);          /* Arg1: buffer address */
        ci[4] = -1;                             /* Res1: buf len */

        promif_preprom();
        rv = p1275_cif_handler(&ci);
        promif_postprom();

        if (rv != 0)
                return (-1);
        return (p1275_cell2int(ci[4]));         /* Res1: buf length */
}

int
prom_asr_disable(char *keystr, int keystr_len,
    char *reason, int reason_len)
{
        int rv;
        cell_t ci[5];

        ci[0] = p1275_ptr2cell("SUNW,asr-disable");     /* Service name */
        ci[1] = (cell_t)4;                      /* #argument cells */
        ci[2] = (cell_t)0;                      /* #return cells */
        ci[3] = p1275_ptr2cell(keystr);         /* Arg1: key address */
        ci[3] = p1275_int2cell(keystr_len);     /* Arg2: key len */
        ci[3] = p1275_ptr2cell(reason);         /* Arg1: reason address */
        ci[3] = p1275_int2cell(reason_len);     /* Arg2: reason len */

        promif_preprom();
        rv = p1275_cif_handler(&ci);
        promif_postprom();

        return (rv);
}

int
prom_asr_enable(char *keystr, int keystr_len)
{
        int rv;
        cell_t ci[5];

        ci[0] = p1275_ptr2cell("SUNW,asr-enable");      /* Service name */
        ci[1] = (cell_t)2;                      /* #argument cells */
        ci[2] = (cell_t)0;                      /* #return cells */
        ci[3] = p1275_ptr2cell(keystr);         /* Arg1: key address */
        ci[3] = p1275_int2cell(keystr_len);     /* Arg2: key len */

        promif_preprom();
        rv = p1275_cif_handler(&ci);
        promif_postprom();

        return (rv);
}

static void
prom_setprop_null(void)
{
}

int
prom_getproplen(pnode_t nodeid, caddr_t name)
{
        cell_t ci[6];

        ci[0] = p1275_ptr2cell("getproplen");   /* Service name */
        ci[1] = (cell_t)2;                      /* #argument cells */
        ci[2] = (cell_t)1;                      /* #return cells */
        ci[3] = p1275_phandle2cell((phandle_t)nodeid);  /* Arg1: package */
        ci[4] = p1275_ptr2cell(name);           /* Arg2: Property name */
        ci[5] = (cell_t)-1;                     /* Res1: Prime result */

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

        return (p1275_cell2int(ci[5]));         /* Res1: Property length */
}


int
prom_getprop(pnode_t nodeid, caddr_t name, caddr_t value)
{
        int len, rv;
        cell_t ci[8];

        /*
         * This function assumes the buffer is large enough to
         * hold the result, so in 1275 mode, we pass in the length
         * of the property as the length of the buffer, since we
         * have no way of knowing the size of the buffer. Pre-1275
         * OpenBoot(tm) PROMs did not have a bounded getprop.
         *
         * Note that we ignore the "length" result of the service.
         */

        if ((len = prom_getproplen(nodeid, name)) <= 0)
                return (len);

        ci[0] = p1275_ptr2cell("getprop");      /* Service name */
        ci[1] = (cell_t)4;                      /* #argument cells */
        ci[2] = (cell_t)0;                      /* #result cells */
        ci[3] = p1275_phandle2cell((phandle_t)nodeid);  /* Arg1: package */
        ci[4] = p1275_ptr2cell(name);           /* Arg2: property name */
        ci[5] = p1275_ptr2cell(value);          /* Arg3: buffer address */
        ci[6] = len;                            /* Arg4: buf len (assumed) */

        promif_preprom();
        rv = p1275_cif_handler(&ci);
        promif_postprom();

        if (rv != 0)
                return (-1);
        return (len);                           /* Return known length */
}

int
prom_bounded_getprop(pnode_t nodeid, caddr_t name, caddr_t value, int len)
{
        cell_t ci[8];

        ci[0] = p1275_ptr2cell("getprop");      /* Service name */
        ci[1] = (cell_t)4;                      /* #argument cells */
        ci[2] = (cell_t)1;                      /* #result cells */
        ci[3] = p1275_phandle2cell((phandle_t)nodeid); /* Arg1: package */
        ci[4] = p1275_ptr2cell(name);           /* Arg2: property name */
        ci[5] = p1275_ptr2cell(value);          /* Arg3: buffer address */
        ci[6] = p1275_int2cell(len);            /* Arg4: buffer length */
        ci[7] = (cell_t)-1;                     /* Res1: Prime result */

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

        return (p1275_cell2int(ci[7]));         /* Res1: Returned length */
}

caddr_t
prom_nextprop(pnode_t nodeid, caddr_t previous, caddr_t next)
{
        cell_t ci[7];

        (void) prom_strcpy(next, "");   /* Prime result, in case call fails */

        ci[0] = p1275_ptr2cell("nextprop");     /* Service name */
        ci[1] = (cell_t)3;                      /* #argument cells */
        ci[2] = (cell_t)0;                      /* #result cells */
        ci[3] = p1275_phandle2cell((phandle_t)nodeid); /* Arg1: phandle */
        ci[4] = p1275_ptr2cell(previous);       /* Arg2: addr of prev name */
        ci[5] = p1275_ptr2cell(next);           /* Arg3: addr of 32 byte buf */

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

        return (next);
}

int
prom_setprop(pnode_t nodeid, caddr_t name, caddr_t value, int len)
{
        cell_t ci[8];
#ifdef PROM_32BIT_ADDRS
        caddr_t ovalue = NULL;

        if ((uintptr_t)value > (uint32_t)-1) {
                ovalue = value;
                value = promplat_alloc(len);
                if (value == NULL) {
                        return (-1);
                }
                promplat_bcopy(ovalue, value, len);
        }
#endif

        prom_setprop_enter();

        promif_preprom();

        ci[0] = p1275_ptr2cell("setprop");      /* Service name */
        ci[1] = (cell_t)4;                      /* #argument cells */
        ci[2] = (cell_t)1;                      /* #result cells */
        ci[3] = p1275_phandle2cell((phandle_t)nodeid);  /* Arg1: phandle */
        ci[4] = p1275_ptr2cell(name);           /* Arg2: property name */
        ci[5] = p1275_ptr2cell(value);          /* Arg3: New value ptr */
        ci[6] = p1275_int2cell(len);            /* Arg4: New value len */
        ci[7] = (cell_t)-1;                     /* Res1: Prime result */

        (void) p1275_cif_handler(&ci);

        promif_postprom();

        prom_setprop_exit();

#ifdef PROM_32BIT_ADDRS
        if (ovalue != NULL)
                promplat_free(value, len);
#endif

        return (p1275_cell2int(ci[7]));         /* Res1: Actual new size */
}

/*
 * prom_decode_composite_string:
 *
 * Returns successive strings in a composite string property.
 * A composite string property is a buffer containing one or more
 * NULL terminated strings contained within the length of the buffer.
 *
 * Always call with the base address and length of the property buffer.
 * On the first call, call with prev == 0, call successively
 * with prev == to the last value returned from this function
 * until the routine returns zero which means no more string values.
 */
char *
prom_decode_composite_string(void *buf, size_t buflen, char *prev)
{
        if ((buf == 0) || (buflen == 0) || ((int)buflen == -1))
                return ((char *)0);

        if (prev == 0)
                return ((char *)buf);

        prev += prom_strlen(prev) + 1;
        if (prev >= ((char *)buf + buflen))
                return ((char *)0);
        return (prev);
}