/*
 * 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 2002 Sun Microsystems, Inc. All rights reserved.
 * Use is subject to license terms.
 */

#include <stdlib.h>
#include <unistd.h>
#include <errno.h>
#include <sys/types.h>
#include <sys/mman.h>
#include "libproc.h"
#include "Pcontrol.h"
#include "Putil.h"


int
pr_meminfo(struct ps_prochandle *Pr, const uint64_t *addrs,
	int addr_count, const uint_t *info, int info_count,
	uint64_t *outdata, uint_t *validity)
{


	int error;
	sysret_t rval;
	argdes_t argd[7];
	argdes_t *adp = &argd[0];
	struct meminfo m;
#ifdef _LP64
	struct meminfo32 m32;
	int model;
#endif
	int retval = -1;
	uintptr_t inaddr, infoaddr, outaddr, validityaddr;
	size_t outarraysize, infoarraysize;
	size_t inarraysize, validityarraysize;
	size_t totalsize;
	char *totalmap = MAP_FAILED;

	inarraysize = addr_count * sizeof (uint64_t);
	outarraysize = sizeof (uint64_t) * addr_count * info_count;
	infoarraysize = info_count * sizeof (uint_t);
	validityarraysize = sizeof (uint_t) * addr_count;


	totalsize = inarraysize + outarraysize + infoarraysize +
		validityarraysize;

	if ((totalmap  = pr_zmap(Pr, 0, totalsize, PROT_READ | PROT_WRITE,
		MAP_PRIVATE)) == MAP_FAILED) {
		dprintf("pr_meminfo: mmap failed\n");
		goto out;
	}

	inaddr = (uintptr_t)totalmap;

	outaddr = inaddr + inarraysize;

	infoaddr = outaddr + outarraysize;

	validityaddr = infoaddr + infoarraysize;

	if (Pwrite(Pr, addrs, inarraysize, inaddr) != inarraysize) {
		dprintf("pr_meminfo: Pwrite inaddr failed \n");
		goto out;
	}

	if (Pwrite(Pr, info, infoarraysize, infoaddr) !=
	    infoarraysize) {
		dprintf("pr_meminfo: Pwrite info failed \n");
		goto out;
	}

#ifdef _LP64
	model = Pr->status.pr_dmodel;
	if (model == PR_MODEL_ILP32) {
		m32.mi_info_count = info_count;
		m32.mi_inaddr = (caddr32_t)inaddr;
		m32.mi_outdata = (caddr32_t)outaddr;
		m32.mi_info_req = (caddr32_t)infoaddr;
		m32.mi_validity = (caddr32_t)validityaddr;
	} else
#endif
	{
		m.mi_info_count = info_count;
		m.mi_inaddr = (uint64_t *)inaddr;
		m.mi_outdata = (uint64_t *)outaddr;
		m.mi_info_req = (uint_t *)infoaddr;
		m.mi_validity = (uint_t *)validityaddr;
	}


	/*
	 * initial command
	 */

	adp->arg_value = MISYS_MEMINFO;
	adp->arg_object = NULL;
	adp->arg_type = AT_BYVAL;
	adp->arg_inout = AI_INPUT;
	adp->arg_size = 0;
	adp++;

	/*
	 * length of input address vector
	 */

	adp->arg_value = addr_count;
	adp->arg_object = NULL;
	adp->arg_type = AT_BYVAL;
	adp->arg_inout = AI_INPUT;
	adp->arg_size = 0;
	adp++;

	/*
	 * information wanted vector
	 */

	adp->arg_value = 0;
#ifdef _LP64
	if (model == PR_MODEL_ILP32) {
		adp->arg_object = &m32;
		adp->arg_size = sizeof (struct meminfo32);
	} else
#endif
	{
		adp->arg_object = &m;
		adp->arg_size = sizeof (struct meminfo);
	}
	adp->arg_type = AT_BYREF;
	adp->arg_inout = AI_INPUT;


	error = Psyscall(Pr,  &rval, SYS_meminfosys, 3, &argd[0]);

	if (error) {
		errno = (error > 0) ? error: ENOSYS;
		goto out;
	}

	/* syscall was successful, copy out the data */

	if ((Pread(Pr, outdata, outarraysize, outaddr)) != outarraysize) {
		dprintf("pr_meminfo: Pread of outarray failed\n");
		goto out;
	}

	if (Pread(Pr, validity, validityarraysize, validityaddr)
	    != validityarraysize) {
		dprintf("pr_meminfo: Pread of validity array failed\n");
		goto out;
	}

	retval = rval.sys_rval1;

out:

	if (totalmap != MAP_FAILED &&
	    pr_munmap(Pr, totalmap, totalsize) == -1) {
			dprintf("pr_meminfo: munmap failed\n");
			retval = -1;
		}

	return (retval);

}