AIX-Perfstat

 view release on metacpan or  search on metacpan

cpu/cpu_xs  view on Meta::CPAN

#

PROTOTYPES: ENABLE

#include "cpu.h"

perfstat_cpu_total_t*
cpu_total()
CODE:
	RETVAL = cpu_total_impl();
OUTPUT:
	RETVAL
CLEANUP:
	safefree(RETVAL);


int
cpu_count()
CODE:
	RETVAL = cpu_count_impl();
OUTPUT:
	RETVAL


my_cpu_t*
cpu(desired_number = 1, name = "")
	int	desired_number;
	char*	name;
PREINIT:
	perfstat_id_t cpu_name;
	int update_name = 0;

cpu/cpu_xs  view on Meta::CPAN

	RETVAL = cpu_impl(desired_number, name, update_name);
	if (RETVAL == NULL)
	{
		 XSRETURN_UNDEF;
	}
	if ((items == 2) && (!SvREADONLY((SV*)ST(1))))
	{
		 sv_setpv((SV*)ST(1), name);
		 SvSETMAGIC(ST(1));
	}
OUTPUT:
	RETVAL
CLEANUP:
	safefree(RETVAL->data);
	safefree(RETVAL);

disk/disk_xs  view on Meta::CPAN

PROTOTYPES: ENABLE

#include "disk.h"


perfstat_disk_total_t*
disk_total()
CODE:
	 RETVAL = disk_total_impl();
OUTPUT:
	RETVAL
CLEANUP:
	safefree(RETVAL);


int
disk_count()
CODE:
	RETVAL = disk_count_impl();
OUTPUT:
	RETVAL

my_disk_t*
disk(desired_number = 1, name = "")
	int desired_number;
	char* name;
PREINIT:
	perfstat_id_t disk_name;
	int update_name = 0;
CODE:

disk/disk_xs  view on Meta::CPAN

	RETVAL = disk_impl(desired_number, name, update_name);
	if (RETVAL == NULL)
	{
		 XSRETURN_UNDEF;
	}
	if ((items == 2) && (!SvREADONLY((SV*)ST(1))))
	{
		 sv_setpv((SV*)ST(1), name);
		 SvSETMAGIC(ST(1));
	}
OUTPUT:
	RETVAL
CLEANUP:
	safefree(RETVAL->data);
	safefree(RETVAL);

memory/memory_xs  view on Meta::CPAN

	if (RETVAL == NULL)
	{
		warn("getmemory_total: unable to malloc");
		XSRETURN_UNDEF;
	}
	if (perfstat_memory_total(NULL, RETVAL, sizeof(perfstat_memory_total_t), 1) == -1)
	{
		warn("getmemory_total: failed");
		XSRETURN_UNDEF;
	}
OUTPUT:
	RETVAL
CLEANUP:
	safefree(RETVAL);

netinterface/netinterface_xs  view on Meta::CPAN

PROTOTYPES: ENABLE

#include "netinterface.h"


perfstat_netinterface_total_t*
netinterface_total()
CODE:
	RETVAL = netinterface_total_impl();
OUTPUT:
	RETVAL
CLEANUP:
	safefree(RETVAL);


int
netinterface_count()
CODE:
	RETVAL = netinterface_count_impl();
OUTPUT:
	RETVAL


my_netinterface_t*
netinterface(desired_number = 1, name = "")
	int	desired_number;
	char*	name;
PREINIT:
	perfstat_id_t netinterface_name;
	int update_name = 0;

netinterface/netinterface_xs  view on Meta::CPAN

	RETVAL = netinterface_impl(desired_number, name, update_name);
	if (RETVAL == NULL)
	{
		 XSRETURN_UNDEF;
	}
	if ((items == 2) && (!SvREADONLY((SV*)ST(1))))
	{
		 sv_setpv((SV*)ST(1), name);
		 SvSETMAGIC(ST(1));
	}
OUTPUT:
	RETVAL
CLEANUP:
	safefree(RETVAL->data);
	safefree(RETVAL);

ppport.h  view on Meta::CPAN

PTR2UV|5.006000||p
PTR2ul|5.007001||p
PTRV|5.006000||p
PUSHMARK|||
PUSHi|||
PUSHmortal|5.009002||p
PUSHn|||
PUSHp|||
PUSHs|||
PUSHu|5.004000||p
PUTBACK|||
PerlIO_clearerr||5.007003|
PerlIO_close||5.007003|
PerlIO_eof||5.007003|
PerlIO_error||5.007003|
PerlIO_fileno||5.007003|
PerlIO_fill||5.007003|
PerlIO_flush||5.007003|
PerlIO_get_base||5.007003|
PerlIO_get_bufsiz||5.007003|
PerlIO_get_cnt||5.007003|

ppport.h  view on Meta::CPAN

{
    dSP;
    SV* sv = newSVpv(p, 0);

    PUSHMARK(sp);
    eval_sv(sv, G_SCALAR);
    SvREFCNT_dec(sv);

    SPAGAIN;
    sv = POPs;
    PUTBACK;

    if (croak_on_error && SvTRUE(GvSV(errgv)))
	croak(SvPVx(GvSV(errgv), na));

    return sv;
}

#endif
#endif
#ifndef newRV_inc