#include "EXTERN.h"

#include "perl.h"

#include "XSUB.h"

MODULE = Sys::MemInfo PACKAGE = Sys::MemInfo

#include <stdio.h>

#include <unistd.h>

#include <sys/sysi86.h>

void

availkeys()

        PREINIT:

        PPCODE:

                XPUSHs(sv_2mortal(newSVpv(_totalmem, strlen(_totalmem))));

                XPUSHs(sv_2mortal(newSVpv(_freemem, strlen(_freemem))));

                XPUSHs(sv_2mortal(newSVpv(_totalswap, strlen(_totalswap))));

                XPUSHs(sv_2mortal(newSVpv(_freeswap, strlen(_freeswap))));

double

totalmem()

	PROTOTYPE: DISABLE

	CODE:

		const long long pages = sysconf (_SC_USEABLE_MEMORY);

		const long long pagesize = sysconf (_SC_PAGESIZE);

		RETVAL = (pages * pagesize);

	OUTPUT:

		RETVAL

double

freemem()

	PROTOTYPE: DISABLE

	CODE:

		const long pagesize = sysconf (_SC_PAGESIZE);

		long freepages = 0;

		long l1=0;

		long l2=0;

		double ret = 0;

		int kmem;

		if (getksym("mem_freepages", &l1, &l2) != -1) {

			if ((kmem = open("/dev/kmem", O_RDONLY)) != -1 && lseek(kmem, l1, SEEK_SET)  != -1 &&

				read(kmem, &freepages, sizeof(freepages)) == -1) {

				ret = (freepages * pagesize);

			}

			close(kmem);

		}

		RETVAL = ret;

	OUTPUT:

		RETVAL

double

freeswap()

	PROTOTYPE: DISABLE

	CODE:

		double ret = 0;

		RETVAL = ret;

	OUTPUT:

		RETVAL

double

totalswap()

	PROTOTYPE: DISABLE

	CODE:

		double ret = 0;

		RETVAL = ret;

	OUTPUT:

		RETVAL

# vim:et:ts=2:sts=2:sw=2