bughz
/
sigar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(SIGAR-199) add arp_list Perl binding

This commit is contained in:
Doug MacEachern 2010-01-18 17:19:50 -08:00
parent 9777e53988
commit 3693661516
3 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bindings/perl/Makefile.PL
View File

@ -41,7 +41,7 @@ SigarWrapper::generate(Perl => '.');
my $ccname = $Config{ccname}; my $ccname = $Config{ccname};
my $define = { my $define = {
gcc => '-Wall -Werror', gcc => '-Wall',
cc_r => '-qhalt=w', cc_r => '-qhalt=w',
}->{$ccname} || ''; }->{$ccname} || '';

26
bindings/perl/Sigar.xs
View File

@ -52,6 +52,7 @@ typedef sigar_disk_usage_t * Sigar__DiskUsage;
typedef sigar_proc_stat_t * Sigar__ProcStat; typedef sigar_proc_stat_t * Sigar__ProcStat;
typedef sigar_net_route_t * Sigar__NetRoute; typedef sigar_net_route_t * Sigar__NetRoute;
typedef sigar_net_interface_stat_t * Sigar__NetInterfaceStat; typedef sigar_net_interface_stat_t * Sigar__NetInterfaceStat;
typedef sigar_arp_t * Sigar__Arp;
typedef sigar_who_t * Sigar__Who; typedef sigar_who_t * Sigar__Who;
typedef sigar_thread_cpu_t * Sigar__ThreadCpu; typedef sigar_thread_cpu_t * Sigar__ThreadCpu;
typedef sigar_resource_limit_t * Sigar__ResourceLimit; typedef sigar_resource_limit_t * Sigar__ResourceLimit;
@ -509,3 +510,28 @@ net_connection_list(sigar, flags)
OUTPUT: OUTPUT:
RETVAL RETVAL
SV *
arp_list(sigar)
Sigar sigar
PREINIT:
sigar_arp_list_t arp_list;
int status;
CODE:
status = sigar_arp_list_get(sigar, &arp_list);
if (status != SIGAR_OK) {
SIGAR_CROAK(sigar, "arp_list");
}
RETVAL = convert_2svav((char *)&arp_list.data[0],
arp_list.number,
sizeof(*arp_list.data),
"Sigar::Arp");
sigar_arp_list_destroy(sigar, &arp_list);
OUTPUT:
RETVAL

1
bindings/perl/typemap
View File

@ -29,6 +29,7 @@ Sigar::DiskUsage T_PTROBJ
Sigar::ProcStat T_PTROBJ Sigar::ProcStat T_PTROBJ
Sigar::NetRoute T_PTROBJ Sigar::NetRoute T_PTROBJ
Sigar::NetInterfaceStat T_PTROBJ Sigar::NetInterfaceStat T_PTROBJ
Sigar::Arp T_PTROBJ
Sigar::Who T_PTROBJ Sigar::Who T_PTROBJ
Sigar::ThreadCpu T_PTROBJ Sigar::ThreadCpu T_PTROBJ
Sigar::ResourceLimit T_PTROBJ Sigar::ResourceLimit T_PTROBJ