/*
* Copyright (c) 2003, 2011, Oracle and/or its affiliates. All rights reserved.
*
* U.S. Government Rights - Commercial software. Government users are subject
* to the Sun Microsystems, Inc. standard license agreement and applicable
* provisions of the FAR and its supplements.
*
*
* This distribution may include materials developed by third parties. Sun,
* Sun Microsystems, the Sun logo and Solaris are trademarks or registered
* trademarks of Sun Microsystems, Inc. in the U.S. and other countries.
*
*/


#if 0
#include <stdio.h>
#endif
#include <kstat.h>
#include <sys/types.h>
#include <sys/swap.h>
#include <vm/anon.h>
#include <unistd.h>
#include <string.h>

#define ONEMB 1048576

extern int first_time;
extern kstat_ctl_t	*kc;
extern void initialize_everything();

static ulong_t page_size = 0;

/*
 * Return value of named statistic for given kstat_named kstat.
 * Return 0 if named statistic is not in list.
 */
static u_longlong_t
kstat_named_value(kstat_t *ksp, char *name)
{
    kstat_named_t *knp;

    if (ksp == NULL)
	return (0);

    knp = kstat_data_lookup(ksp, name);
    if (knp != NULL) {
        switch (knp->data_type) {
        case KSTAT_DATA_UINT64:
               return (knp->value.ull);
        case KSTAT_DATA_UINT32:
        default:
               return (knp->value.ul);
        }
    } else {
	return (0);
    }
}

int
krgetmemusage (int *mem_avail, int *mem_inuse, int *mem_free)
{
    int         intfactor;

    if ((first_time) || (!kc))
	initialize_everything();

    if (page_size == 0)
	page_size = sysconf(_SC_PAGESIZE);

    /* do ops differently dependent on pagesize to avoid overflow
     * note that: pagesize & ONEMB will both be powers of 2 therefore
     * the bigger one will be exactly divisible by the smaller
     */
    if(page_size < ONEMB){
        intfactor = ONEMB/page_size;

/* The following line is commented out because the value returned is less 
than the actual number of pages in the machine. More research has got be 
done about what is the value that kstat returns 
        *mem_avail = kstat_named_value(ksp, "physmem") / intfactor; */

        *mem_avail = sysconf(_SC_PHYS_PAGES) / intfactor;
        *mem_free = sysconf(_SC_AVPHYS_PAGES) / intfactor;
        *mem_inuse = *mem_avail - *mem_free;
    }
    else{ /* page_size >= ONEMB */
        intfactor = page_size/ONEMB;
/*        *mem_avail = kstat_named_value(ksp, "physmem") * intfactor; */
        *mem_avail = sysconf(_SC_PHYS_PAGES) * intfactor;
        *mem_free = sysconf(_SC_AVPHYS_PAGES) * intfactor;
        *mem_inuse = *mem_avail - *mem_free;
    }
    return 0;
}


u_int convert_ticks_to_bytes(u_int input) {

        static float factor = -1;

        if (factor == -1)
                factor = (float)(sysconf(_SC_PAGESIZE))/1024;/* in KB */
        return (input*(u_int)factor);
}


int
krgetswapusage (int *swap_avail, int *swap_resv, int *swap_alloc, int *swap_used, int *swap_total)
{

        struct anoninfo ai;

        if (swapctl(SC_AINFO, &ai) == -1) {
                /* perror("Error in swapctl ..............."); */
                return (-1);
        }
	*swap_avail = convert_ticks_to_bytes(ai.ani_max - ai.ani_resv);
	*swap_resv  = convert_ticks_to_bytes(ai.ani_resv - ai.ani_max + ai.ani_free);
	*swap_alloc = convert_ticks_to_bytes(ai.ani_max - ai.ani_free);
	*swap_used  = convert_ticks_to_bytes(ai.ani_resv);
	*swap_total = (*swap_used) + (*swap_avail);
	return 0;
}

/*
 * returns information about the "kmem_cache" buffer of name
 * "cache_name".  If the last character is an asterisk, it
 * returns the sum of the statistics over all caches that
 * match.
 */
int
krgetkmemdetail (const char *cache_name, int *alloc, int *alloc_fail, int *buf_size, int *buf_avail, int *buf_total, int *buf_max)
{
    kstat_t *ksp;
    int length = 0;

    if ((first_time) || (!kc))
	initialize_everything();

    if (cache_name[strlen(cache_name) - 1] == '*')
	length = strlen(cache_name) - 1;
    else
	length = 256;

    *alloc = 0;
    *alloc_fail = 0;
    *buf_size = 0;
    *buf_avail = 0;
    *buf_total = 0;
    *buf_max = 0;

    for (ksp = kc->kc_chain; ksp != NULL; ksp = ksp->ks_next) {
	if (strcmp(ksp->ks_class, "kmem_cache") != 0)
	    continue;
	if (strncmp(ksp->ks_name, cache_name, length) != 0)
	    continue;
	if (kstat_read(kc, ksp, NULL) == -1)
	    return -1;
	*alloc += kstat_named_value(ksp, "alloc");
	*alloc_fail += kstat_named_value(ksp, "alloc_fail");
	*buf_size += kstat_named_value(ksp, "buf_size");
	*buf_avail += kstat_named_value(ksp, "buf_avail");
	*buf_total += kstat_named_value(ksp, "buf_total");
	*buf_max += kstat_named_value(ksp, "buf_max");
    }
    return 0;

}