From f0ba85e8bbdbf591efa5a3bbfc8281bc7e917a64 Mon Sep 17 00:00:00 2001 From: Doug MacEachern Date: Mon, 3 Sep 2007 00:19:26 +0000 Subject: [PATCH] refactored java/src/jni/generate.pl --- bindings/SigarWrapper.pm | 2115 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 2115 insertions(+) create mode 100644 bindings/SigarWrapper.pm diff --git a/bindings/SigarWrapper.pm b/bindings/SigarWrapper.pm new file mode 100644 index 00000000..6aa45a2b --- /dev/null +++ b/bindings/SigarWrapper.pm @@ -0,0 +1,2115 @@ +#extension source generator for all bindings +package SigarWrapper; + +use strict; +use Cwd; +use Exporter; +use File::Path; +use IO::File (); + +our @ISA = qw(Exporter); +our @EXPORT = qw(generate); + +my %platforms = ( + A => "AIX", + D => "Darwin", + F => "FreeBSD", + H => "HPUX", + L => "Linux", + S => "Solaris", + W => "Win32", +); + +my %has_name_arg = map { $_, 1 } qw(FileSystemUsage FileAttrs DirStat DirUsage + NetInterfaceConfig NetInterfaceStat); + +my %proc_no_arg = map { $_, 1 } qw(stat); + +my %get_not_impl = map { $_, 1 } qw(net_address net_route net_connection net_stat + who cpu_info file_system); #list funcs only + +sub supported_platforms { + my $p = shift; + return 'Undocumented' unless $p; + if ($p eq '*') { + return 'All'; + } + + my @platforms; + for (split //, $p) { + push @platforms, $platforms{$_}; + } + + return join ", ", @platforms; +} + +sub hash { + return unpack("%32C*", shift) % 65535; +} + +my $nfs_v2 = [ + { + name => 'getattr', type => 'Long', + }, + { + name => 'setattr', type => 'Long', + }, + { + name => 'root', type => 'Long', + }, + { + name => 'lookup', type => 'Long', + }, + { + name => 'readlink', type => 'Long', + }, + { + name => 'read', type => 'Long', + }, + { + name => 'writecache', type => 'Long', + }, + { + name => 'write', type => 'Long', + }, + { + name => 'create', type => 'Long', + }, + { + name => 'remove', type => 'Long', + }, + { + name => 'rename', type => 'Long', + }, + { + name => 'link', type => 'Long', + }, + { + name => 'symlink', type => 'Long', + }, + { + name => 'mkdir', type => 'Long', + }, + { + name => 'rmdir', type => 'Long', + }, + { + name => 'readdir', type => 'Long', + }, + { + name => 'fsstat', type => 'Long', + }, +]; + +my $nfs_v3 = [ + { + name => 'getattr', type => 'Long', + }, + { + name => 'setattr', type => 'Long', + }, + { + name => 'lookup', type => 'Long', + }, + { + name => 'access', type => 'Long', + }, + { + name => 'readlink', type => 'Long', + }, + { + name => 'read', type => 'Long', + }, + { + name => 'write', type => 'Long', + }, + { + name => 'create', type => 'Long', + }, + { + name => 'mkdir', type => 'Long', + }, + { + name => 'symlink', type => 'Long', + }, + { + name => 'mknod', type => 'Long', + }, + { + name => 'remove', type => 'Long', + }, + { + name => 'rmdir', type => 'Long', + }, + { + name => 'rename', type => 'Long', + }, + { + name => 'link', type => 'Long', + }, + { + name => 'readdir', type => 'Long', + }, + { + name => 'readdirplus', type => 'Long', + }, + { + name => 'fsstat', type => 'Long', + }, + { + name => 'fsinfo', type => 'Long', + }, + { + name => 'pathconf', type => 'Long', + }, + { + name => 'commit', type => 'Long', + }, +]; + +our %classes = ( + Mem => [ + { + name => 'total', type => 'Long', + desc => 'Total system memory', + plat => '*', + cmd => { + AIX => 'lsattr -El sys0 -a realmem', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'free', + Solaris => '', + Win32 => 'taskman', + }, + }, + { + name => 'ram', type => 'Long', + desc => 'System Random Access Memory (in MB)', + plat => '*', + cmd => { + AIX => 'lsattr -El sys0 -a realmem', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'cat /proc/mtrr | head -1', + Solaris => '', + Win32 => '', + }, + }, + { + name => 'used', type => 'Long', + desc => 'Total used system memory', + plat => '*', + cmd => { + AIX => '', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'free', + Solaris => '', + Win32 => 'taskman', + }, + }, + { + name => 'free', type => 'Long', + desc => 'Total free system memory (e.g. Linux plus cached)', + plat => '*', + cmd => { + AIX => '', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'free', + Solaris => '', + Win32 => 'taskman', + }, + }, + { + name => 'actual_used', type => 'Long', + desc => 'Actual total used system memory (e.g. Linux minus buffers)', + plat => '*', + cmd => { + AIX => '', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'free', + Solaris => '', + Win32 => 'taskman', + }, + }, + { + name => 'actual_free', type => 'Long', + desc => 'Actual total free system memory', + plat => '*', + cmd => { + AIX => '', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'free', + Solaris => '', + Win32 => 'taskman', + }, + }, + ], + Swap => [ + { + name => 'total', type => 'Long', + desc => 'Total system swap', + plat => '*', + cmd => { + AIX => 'lsps -s', + Darwin => 'sysctl vm.swapusage', + FreeBSD => '', + HPUX => '', + Linux => 'free', + Solaris => 'swap -s', + Win32 => '', + }, + }, + { + name => 'used', type => 'Long', + desc => 'Total used system swap', + plat => '*', + cmd => { + AIX => 'lsps -s', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'free', + Solaris => 'swap -s', + Win32 => '', + }, + }, + { + name => 'free', type => 'Long', + desc => 'Total free system swap', + plat => '*', + cmd => { + AIX => '', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'free', + Solaris => 'swap -s', + Win32 => '', + }, + }, + { + name => 'page_in', type => 'Long', + desc => 'Pages in', + plat => '*', + cmd => { + AIX => '', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'vmstat', + Solaris => 'vmstat', + Win32 => '', + }, + }, + { + name => 'page_out', type => 'Long', + desc => 'Pages out', + plat => '*', + cmd => { + AIX => '', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'vmstat', + Solaris => 'vmstat', + Win32 => '', + }, + }, + ], + Cpu => [ + { + name => 'user', type => 'Long', + desc => 'Total system cpu user time', + plat => '*' + }, + { + name => 'sys', type => 'Long', + desc => 'Total system cpu kernel time', + plat => '*' + }, + { + name => 'nice', type => 'Long', + desc => 'Total system cpu nice time', + plat => 'DFHL' + }, + { + name => 'idle', type => 'Long', + desc => 'Total system cpu idle time', + plat => '*' + }, + { + name => 'wait', type => 'Long', + desc => 'Total system cpu io wait time', + plat => 'ALHS' + }, + { + name => 'total', type => 'Long', + desc => 'Total system cpu time', + plat => '*' + }, + ], + CpuInfo => [ + { + name => 'vendor', type => 'String', + desc => 'CPU vendor id', + plat => 'AFLHSW' + }, + { + name => 'model', type => 'String', + desc => 'CPU model', + plat => 'AFLHSW' + }, + { + name => 'mhz', type => 'Int', + desc => 'CPU speed', + plat => 'AFHLSW' + }, + { + name => 'cache_size', type => 'Long', + desc => 'CPU cache size', + plat => 'AL' + }, + ], + Uptime => [ + { + name => 'uptime', type => 'Double', + desc => 'Time since machine started in seconds', + plat => '*' + }, + ], + ProcMem => [ + { + name => 'size', type => 'Long', + desc => 'Total process virtual memory', + plat => '*' + }, + { + name => 'resident', type => 'Long', + desc => 'Total process resident memory', + plat => '*' + }, + { + name => 'share', type => 'Long', + desc => 'Total process shared memory', + plat => 'AHLS' + }, + { + name => 'minor_faults', type => 'Long', + desc => 'non i/o page faults', + plat => 'AHLS' + }, + { + name => 'major_faults', type => 'Long', + desc => 'i/o page faults', + plat => 'AHLS' + }, + { + name => 'page_faults', type => 'Long', + desc => 'Total number of page faults', + plat => 'ADHLSW' + }, + ], + ProcCred => [ + { + name => 'uid', type => 'Long', + desc => 'Process user id', + plat => 'ADFHLS' + }, + { + name => 'gid', type => 'Long', + desc => 'Process group id', + plat => 'ADFHLS' + }, + { + name => 'euid', type => 'Long', + desc => 'Process effective user id', + plat => 'ADFHLS' + }, + { + name => 'egid', type => 'Long', + desc => 'Process effective group id', + plat => 'ADFHLS' + }, + ], + ProcCredName => [ + { + name => 'user', type => 'String', + desc => 'Process owner user name', + plat => '*' + }, + { + name => 'group', type => 'String', + desc => 'Process owner group name', + plat => '*' + }, + ], + ProcTime => [ + { + name => 'start_time', type => 'Long', + desc => 'Time process was started in seconds', + plat => '*' + }, + { + name => 'user', type => 'Long', + desc => 'Process cpu user time', + plat => '*' + }, + { + name => 'sys', type => 'Long', + desc => 'Process cpu kernel time', + plat => '*' + }, + { + name => 'total', type => 'Long', + desc => 'Process cpu time (sum of User and Sys)', + plat => '*' + }, + ], + ProcCpu => [ + { + name => 'percent', type => 'Double', + desc => 'Process cpu usage', + plat => '*' + }, + { + name => 'last_time', type => 'Long', + desc => '', + plat => '*' + }, + ], + ProcState => [ + { + name => 'state', type => 'Char', + desc => 'Process state (Running, Zombie, etc.)', + plat => '*' + }, + { + name => 'name', type => 'String', + desc => 'Name of the process program', + plat => '*' + }, + { + name => 'ppid', type => 'Long', + desc => 'Process parent process id', + plat => '*' + }, + { + name => 'tty', type => 'Int', + desc => 'Device number of rocess controling terminal', + plat => 'AHLS' + }, + { + name => 'nice', type => 'Int', + desc => 'Nice value of process', + plat => 'ADFHLS' + }, + { + name => 'priority', type => 'Int', + desc => 'Kernel scheduling priority of process', + plat => 'DFHLSW' + }, + { + name => 'threads', type => 'Long', + desc => 'Number of active threads', + plat => 'ADHLSW' + }, + { + name => 'processor', type => 'Int', + desc => 'Processor number last run on', + plat => 'AHLS' + }, + ], + ProcFd => [ + { + name => 'total', type => 'Long', + desc => 'Total number of open file descriptors', + plat => 'AHLSW' + }, + ], + ProcStat => [ + { + name => 'total', type => 'Long', + desc => 'Total number of processes', + plat => '*' + }, + { + name => 'idle', type => 'Long', + desc => 'Total number of processes in idle state', + plat => '*' + }, + { + name => 'running', type => 'Long', + desc => 'Total number of processes in run state', + plat => '*' + }, + { + name => 'sleeping', type => 'Long', + desc => 'Total number of processes in sleep state', + plat => '*' + }, + { + name => 'stopped', type => 'Long', + desc => 'Total number of processes in stop state', + plat => '*' + }, + { + name => 'zombie', type => 'Long', + desc => 'Total number of processes in zombie state', + plat => '*' + }, + ], + ProcExe => [ + { + name => 'name', type => 'String', + desc => 'Name of process executable', + plat => 'FLSW', + cmd => { + AIX => '', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'ls -l /proc/$$/exe', + Solaris => '', + Win32 => '', + }, + }, + { + name => 'cwd', type => 'String', + desc => 'Name of process current working directory', + plat => 'LSW', + cmd => { + AIX => '', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'ls -l /proc/$$/cwd', + Solaris => '', + Win32 => '', + }, + }, + ], + ThreadCpu => [ + { + name => 'user', type => 'Long', + desc => 'Thread cpu user time', + plat => 'AHLSW' + }, + { + name => 'sys', type => 'Long', + desc => 'Thread cpu kernel time', + plat => 'AHLSW' + }, + { + name => 'total', type => 'Long', + desc => 'Thread cpu time (sum of User and Sys)', + plat => 'AHLSW' + }, + ], + FileSystem => [ + { + name => 'dir_name', type => 'String', + desc => 'Directory name', + plat => '*' + }, + { + name => 'dev_name', type => 'String', + desc => 'Device name', + plat => '*' + }, + { + name => 'type_name', type => 'String', + desc => 'File system generic type name', + plat => '*' + }, + { + name => 'sys_type_name', type => 'String', + desc => 'File system os specific type name', + plat => '*' + }, + { + name => 'type', type => 'Int', + desc => 'File system type', + plat => '*' + }, + { + name => 'flags', type => 'Long', + desc => 'File system flags', + plat => '*' + }, + ], + FileSystemUsage => [ + { + name => 'total', type => 'Long', + desc => 'Total bytes of filesystem', + plat => '*' + }, + { + name => 'free', type => 'Long', + desc => 'Total free bytes on filesystem', + plat => '*' + }, + { + name => 'used', type => 'Long', + desc => 'Total used bytes on filesystem', + plat => '*' + }, + { + name => 'avail', type => 'Long', + desc => 'Total free bytes on filesystem available to caller', + plat => '*' + }, + { + name => 'files', type => 'Long', + desc => 'Total number of file nodes on the filesystem', + plat => 'ADFHLS' + }, + { + name => 'free_files', type => 'Long', + desc => 'Number of free file nodes on the filesystem', + plat => 'ADFHLS' + }, + { + name => 'disk_reads', type => 'Long', + desc => 'Number of physical disk reads', + plat => 'AFHLSW' + }, + { + name => 'disk_writes', type => 'Long', + desc => 'Number of physical disk writes', + plat => 'AFHLSW' + }, + { + name => 'disk_read_bytes', type => 'Long', + desc => 'Number of physical disk bytes read', + plat => '' + }, + { + name => 'disk_write_bytes', type => 'Long', + desc => 'Number of physical disk bytes written', + plat => '' + }, + { + name => 'disk_queue', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'use_percent', type => 'Double', + desc => 'Percent of disk used', + plat => '*' + }, + ], + FileAttrs => [ + { + name => 'permissions', type => 'Long', + }, + { + name => 'type', type => 'Int', + }, + { + name => 'uid', type => 'Long', + }, + { + name => 'gid', type => 'Long', + }, + { + name => 'inode', type => 'Long', + }, + { + name => 'device', type => 'Long', + }, + { + name => 'nlink', type => 'Long', + }, + { + name => 'size', type => 'Long', + }, + { + name => 'atime', type => 'Long', + }, + { + name => 'ctime', type => 'Long', + }, + { + name => 'mtime', type => 'Long', + }, + ], + DirStat => [ + { + name => 'total', type => 'Long', + }, + { + name => 'files', type => 'Long', + }, + { + name => 'subdirs', type => 'Long', + }, + { + name => 'symlinks', type => 'Long', + }, + { + name => 'chrdevs', type => 'Long', + }, + { + name => 'blkdevs', type => 'Long', + }, + { + name => 'sockets', type => 'Long', + }, + { + name => 'disk_usage', type => 'Long', + }, + ], + NetInfo => [ + { + name => 'default_gateway', type => 'String', + desc => '', + plat => '' + }, + { + name => 'host_name', type => 'String', + desc => '', + plat => '' + }, + { + name => 'domain_name', type => 'String', + desc => '', + plat => '' + }, + { + name => 'primary_dns', type => 'String', + desc => '', + plat => '' + }, + { + name => 'secondary_dns', type => 'String', + desc => '', + plat => '' + }, + ], + NetRoute => [ + { + name => 'destination', type => 'NetAddress', + desc => '', + plat => 'HLW' + }, + { + name => 'gateway', type => 'NetAddress', + desc => '', + plat => 'HLW' + }, + { + name => 'flags', type => 'Long', + desc => '', + plat => 'L' + }, + { + name => 'refcnt', type => 'Long', + desc => '', + plat => 'L' + }, + { + name => 'use', type => 'Long', + desc => '', + plat => 'L' + }, + { + name => 'metric', type => 'Long', + desc => '', + plat => 'L' + }, + { + name => 'mask', type => 'NetAddress', + desc => '', + plat => 'HL' + }, + { + name => 'mtu', type => 'Long', + desc => '', + plat => 'L' + }, + { + name => 'window', type => 'Long', + desc => '', + plat => 'L' + }, + { + name => 'irtt', type => 'Long', + desc => '', + plat => 'L' + }, + { + name => 'ifname', type => 'String', + desc => '', + plat => 'L' + }, + ], + NetInterfaceConfig => [ + { + name => 'name', type => 'String', + desc => '', + plat => '*' + }, + { + name => 'hwaddr', type => 'NetAddress', + desc => '', + plat => '*' + }, + { + name => 'type', type => 'String', + desc => '', + plat => '*' + }, + { + name => 'description', type => 'String', + desc => '', + plat => '*' + }, + { + name => 'address', type => 'NetAddress', + desc => '', + plat => '*' + }, + { + name => 'destination', type => 'NetAddress', + desc => '', + plat => '*' + }, + { + name => 'broadcast', type => 'NetAddress', + desc => '', + plat => '*' + }, + { + name => 'netmask', type => 'NetAddress', + desc => '', + plat => '*' + }, + { + name => 'flags', type => 'Long', + desc => '', + plat => '*' + }, + { + name => 'mtu', type => 'Long', + desc => '', + plat => 'DFL' + }, + { + name => 'metric', type => 'Long', + desc => '', + plat => 'DFL' + }, + ], + NetInterfaceStat => [ + { + name => 'rx_bytes', type => 'Long', + desc => '', + plat => '*' + }, + { + name => 'rx_packets', type => 'Long', + desc => '', + plat => '*' + }, + { + name => 'rx_errors', type => 'Long', + desc => '', + plat => '*' + }, + { + name => 'rx_dropped', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'rx_overruns', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'rx_frame', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'tx_bytes', type => 'Long', + desc => '', + plat => '*' + }, + { + name => 'tx_packets', type => 'Long', + desc => '', + plat => '*' + }, + { + name => 'tx_errors', type => 'Long', + desc => '*', + plat => '' + }, + { + name => 'tx_dropped', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'tx_overruns', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'tx_collisions', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'tx_carrier', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'speed', type => 'Long', + desc => '', + plat => '' + }, + ], + NetConnection => [ + { + name => 'local_port', type => 'Long', + desc => '', + plat => 'LFSW' + }, + { + name => 'local_address', type => 'NetAddress', + desc => '', + plat => 'LFSW' + }, + { + name => 'remote_port', type => 'Long', + desc => '', + plat => 'LFSW' + }, + { + name => 'remote_address', type => 'NetAddress', + desc => '', + plat => 'LFSW' + }, + { + name => 'type', type => 'Int', + desc => '', + plat => 'LFSW' + }, + { + name => 'state', type => 'Int', + desc => '', + plat => 'LFSW' + }, + { + name => 'send_queue', type => 'Long', + desc => '', + plat => 'LFS' + }, + { + name => 'receive_queue', type => 'Long', + desc => '', + plat => 'LFS' + }, + ], + #only for jfieldId cache/setters + NetStat => [ + { + name => 'tcp_inbound_total', type => 'Int', + }, + { + name => 'tcp_outbound_total', type => 'Int', + }, + { + name => 'all_inbound_total', type => 'Int', + }, + { + name => 'all_outbound_total', type => 'Int', + }, + ], + Tcp => [ + { + name => 'active_opens', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'passive_opens', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'attempt_fails', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'estab_resets', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'curr_estab', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'in_segs', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'out_segs', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'retrans_segs', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'in_errs', type => 'Long', + desc => '', + plat => '' + }, + { + name => 'out_rsts', type => 'Long', + desc => '', + plat => '' + }, + ], + NfsClientV2 => $nfs_v2, + NfsServerV2 => $nfs_v2, + NfsClientV3 => $nfs_v3, + NfsServerV3 => $nfs_v3, + ResourceLimit => [ + { + name => 'cpu_cur', + }, + { + name => 'cpu_max', + }, + { + name => 'file_size_cur', + }, + { + name => 'file_size_max', + }, + { + name => 'pipe_size_max', + }, + { + name => 'pipe_size_cur', + }, + { + name => 'data_cur', + }, + { + name => 'data_max', + }, + { + name => 'stack_cur', + }, + { + name => 'stack_max', + }, + { + name => 'core_cur', + }, + { + name => 'core_max', + }, + { + name => 'memory_cur', + }, + { + name => 'memory_max', + }, + { + name => 'processes_cur', + }, + { + name => 'processes_max', + }, + { + name => 'open_files_cur', + }, + { + name => 'open_files_max', + }, + { + name => 'virtual_memory_cur', + }, + { + name => 'virtual_memory_max', + }, + ], + SysInfo => [ + { + name => 'name', type => 'String', + desc => '', + plat => '*' + }, + { + name => 'version', type => 'String', + desc => '', + plat => '*' + }, + { + name => 'arch', type => 'String', + desc => '', + plat => '*' + }, + { + name => 'machine', type => 'String', + desc => '', + plat => '*' + }, + { + name => 'description', type => 'String', + desc => '', + plat => '*' + }, + { + name => 'patch_level', type => 'String', + desc => '', + plat => 'W' + }, + { + name => 'vendor', type => 'String', + desc => '', + plat => '*' + }, + { + name => 'vendor_version', type => 'String', + desc => '', + plat => '*' + }, + { + name => 'vendor_name', type => 'String', + desc => '', + plat => '*' + }, + { + name => 'vendor_code_name', type => 'String', + desc => '', + plat => '*' + }, + ], + Who => [ + { + name => 'user', type => 'String', + desc => '', + plat => '' + }, + { + name => 'device', type => 'String', + desc => '', + plat => '' + }, + { + name => 'host', type => 'String', + desc => '', + plat => '' + }, + { + name => 'time', type => 'Long', + desc => '', + plat => '' + }, + ], +); + +$classes{DirUsage} = $classes{DirStat}; + +my(%extends) = ( + ProcCpu => 'ProcTime', +); + +while (my($subclass, $superclass) = each %extends) { + push @{ $classes{$subclass} }, @{ $classes{$superclass} }; +} + +our %cmds = ( + Mem => { + AIX => 'top', + Darwin => 'top', + FreeBSD => 'top', + HPUX => 'top', + Linux => 'top', + Solaris => 'top', + Win32 => 'taskman', + }, + Swap => { + AIX => 'top', + Darwin => 'top', + FreeBSD => 'top', + HPUX => 'top', + Linux => 'top', + Solaris => 'top', + Win32 => 'taskman', + }, + Cpu => { + AIX => 'top', + Darwin => 'top', + FreeBSD => 'top', + HPUX => 'top', + Linux => 'top', + Solaris => 'top', + Win32 => 'taskman', + }, + CpuInfo => { + AIX => 'lsattr -El proc0', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'cat /proc/cpuinfo', + Solaris => 'psrinfo -v', + Win32 => '', + }, + Uptime => { + AIX => 'uptime', + Darwin => 'uptime', + FreeBSD => 'uptime', + HPUX => 'uptime', + Linux => 'uptime', + Solaris => 'uptime', + Win32 => '', + }, + ProcMem => { + AIX => 'top, ps', + Darwin => 'top, ps', + FreeBSD => 'top, ps', + HPUX => 'top, ps', + Linux => 'top, ps', + Solaris => 'top, ps', + Win32 => 'taskman', + }, + ProcCred => { + AIX => 'top, ps', + Darwin => 'top, ps', + FreeBSD => 'top, ps', + HPUX => 'top, ps', + Linux => 'top, ps', + Solaris => 'top, ps', + Win32 => 'taskman', + }, + ProcTime => { + AIX => 'top, ps', + Darwin => 'top, ps', + FreeBSD => 'top, ps', + HPUX => 'top, ps', + Linux => 'top, ps', + Solaris => 'top, ps', + Win32 => 'taskman', + }, + ProcState => { + AIX => 'top, ps', + Darwin => 'top, ps', + FreeBSD => 'top, ps', + HPUX => 'top, ps', + Linux => 'top, ps', + Solaris => 'top, ps', + Win32 => 'taskman', + }, + ProcFd => { + AIX => 'lsof', + Darwin => 'lsof', + FreeBSD => 'lsof', + HPUX => 'lsof', + Linux => 'lsof', + Solaris => 'lsof', + Win32 => '', + }, + ProcStat => { + AIX => 'top, ps', + Darwin => 'top, ps', + FreeBSD => 'top, ps', + HPUX => 'top, ps', + Linux => 'top, ps', + Solaris => 'top, ps', + Win32 => 'taskman', + }, + FileSystemUsage => { + AIX => 'df', + Darwin => 'df', + FreeBSD => 'df', + HPUX => 'df', + Linux => 'df', + Solaris => 'df', + Win32 => '', + }, + NetRoute => { + AIX => '', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'route -n', + Solaris => '', + Win32 => '', + }, + NetInterfaceConfig => { + AIX => '', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'ifconfig', + Solaris => 'ifconfig -a', + Win32 => '', + }, + NetInterfaceStat => { + AIX => '', + Darwin => '', + FreeBSD => '', + HPUX => '/usr/sbin/lanadmin -g mibstats 0, netstat -i', + Linux => 'ifconfig', + Solaris => '', + Win32 => '', + }, + NetConnection => { + AIX => '', + Darwin => '', + FreeBSD => '', + HPUX => '', + Linux => 'netstat', + Solaris => '', + Win32 => '', + }, + Tcp => { + Linux => 'cat /proc/net/snmp', + Solaris => 'netstat -s -P tcp', + }, +); + +sub warning_comment { + my $self = shift; + + return "WARNING: this file was generated by $0 +on $self->{timestamp}. +Any changes made here will be LOST."; +} + +sub c_warning_comment { + my $self = shift; + my $comment = $self->warning_comment; + $comment =~ s/^/ * /mg; + return < $dir, + mtime => $mtime, + ); + + my $package = __PACKAGE__ . "::$lang"; + eval "require $package"; + + unless (defined %{$package ."::"}) { + die "unsupported language: $lang"; + } + $@ = ''; + + my $wrapper = $package->new(%param); + unless ($wrapper->uptodate($wrapper->sources)) { + eval { + $wrapper->start(); + + my $mappings = $wrapper->get_mappings; + for my $func (@$mappings) { + $wrapper->generate_class($func); + } + + $wrapper->finish; + }; + } + die $@ if $@; + chdir $cwd; +} + +sub new { + my $class = shift; + return bless { + timestamp => scalar localtime, + @_ + }, $class; +} + +sub uptodate { + my $self = shift; + for my $file (@_) { + my $mtime = (stat $file)[9]; + if ($mtime > $self->{mtime}) { + print "$file up-to-date\n"; + } + else { + print "$file needs update\n"; + return 0; + } + } + return 1; +} + +my(%warning_comment) = map { $_ => \&c_warning_comment } qw(c h java); + +sub create { + my($self, $file) = @_; + my $handle = SigarWrapper::File->create($file); + if ($file =~ /\.(\w+)$/) { + my $comment = $warning_comment{$1}; + $handle->print($self->$comment()) if $comment; + } + return $self->{files}->{$file} = $handle; +} + +sub start { +} + +sub finish { + my $self = shift; + while (my($file, $handle) = each %{ $self->{files} }) { + next unless $handle->opened; + if ($handle->close) { + #print "closing $file\n"; + } + else { + warn "close($file): $!"; + } + } +} + +my @mappings; + +sub get_mappings { + if (@mappings != 0) { + return \@mappings; + } + + while (my($name, $fields) = each %classes) { + #example: FileSystemUsage -> file_system_usage + (my $cname = $name) =~ s/([a-z])([A-Z])/$1_$2/g; + $cname = lc $cname; + + my $func = { + name => $name, + cname => $cname, + }; + push @mappings, $func; + + if (($cname =~ /^proc_(\w+)/ and !$proc_no_arg{$1}) || + ($cname =~ /^thread_cpu/)) + { + $func->{num_args} = 1; + $func->{arg_type} = 'sigar_pid_t'; + $func->{arg} = 'pid'; + $func->{is_proc} = 1; + } + elsif ($has_name_arg{$name}) { + $func->{num_args} = 1; + $func->{arg_type} = 'const char *'; + $func->{arg} = 'name'; + } + else { + $func->{num_args} = 0; + } + + if ($get_not_impl{$cname}) { + $func->{has_get} = 0; + } + else { + $func->{has_get} = 1; + } + + my $sigar_prefix = $func->{sigar_prefix} = join '_', 'sigar', $cname; + + $func->{sigar_function} = join '_', $sigar_prefix, 'get'; + + $func->{sigar_type} = join '_', $sigar_prefix, 't'; + + $func->{fields} = $fields; + + for my $field (@$fields) { + $field->{type} ||= 'Long'; + } + } + + return \@mappings; +} + +package SigarWrapper::File; + +our @ISA = qw(IO::File); + +my $DEVNULL = '/dev/null'; +my $has_dev_null = -e $DEVNULL; + +sub println { + shift->print(@_, "\n"); +} + +sub create { + my($class, $file) = @_; + + my $handle = $class->SUPER::new($file || devnull(), "w") or die "open $file: $!"; + print "generating $file\n" if $file; + return $handle; +} + +sub devnull { + if ($has_dev_null) { + return $DEVNULL; + } + else { + return "./nul"; #win32 /dev/null equiv + } +} + +package SigarWrapper::Java; + +our @ISA = qw(SigarWrapper); + +my %field_types = ( + Long => "J", + Double => "D", + Int => "I", + Char => "C", + String => "Ljava/lang/String;", +); + +my %init = ( + String => 'null', +); + +my %type = ( + String => 'String', +); + +#alias +for my $j (\%field_types, \%init, \%type) { + $j->{'NetAddress'} = $j->{'String'}; +} + +#XXX kinda ugly having this here +#will consider moving elsewhere if there +#are more cases like this. +my %extra_code = ( + FileSystem => <<'EOF', + public static final int TYPE_UNKNOWN = 0; + public static final int TYPE_NONE = 1; + public static final int TYPE_LOCAL_DISK = 2; + public static final int TYPE_NETWORK = 3; + public static final int TYPE_RAM_DISK = 4; + public static final int TYPE_CDROM = 5; + public static final int TYPE_SWAP = 6; + + public String toString() { + return this.getDirName(); + } +EOF + NetConnection => <<'EOF', + public native String getTypeString(); + + public native static String getStateString(int state); + + public String getStateString() { + return getStateString(this.state); + } +EOF + Mem => <<'EOF', + public String toString() { + return + "Mem: " + + (this.total / 1024) + "K av, " + + (this.used / 1024) + "K used, " + + (this.free / 1024) + "K free"; + } +EOF + ResourceLimit => <<'EOF', + public static native long INFINITY(); +EOF + Swap => <<'EOF', + public String toString() { + return + "Swap: " + + (this.total / 1024) + "K av, " + + (this.used / 1024) + "K used, " + + (this.free / 1024) + "K free"; + } +EOF + ProcState => <<'EOF', + public static final char SLEEP = 'S'; + public static final char RUN = 'R'; + public static final char STOP = 'T'; + public static final char ZOMBIE = 'Z'; + public static final char IDLE = 'D'; +EOF + ProcMem => <<'EOF', + /** + * @deprecated + * @see #getResident() + */ + public long getRss() { return getResident(); } + /** + * @deprecated + * @see #getSize() + */ + public long getVsize() { return getSize(); } +EOF +); + +sub new { + my $class = shift; + my $self = $class->SUPER::new(@_); + $self->{jsrc} = 'org/hyperic/sigar'; + return $self; +} + +my $jni_file = 'javasigar_generated'; + +sub sources { + return map { "$jni_file.$_" } qw(c h); +} + +sub start { + my $self = shift; + $self->SUPER::start; + my $jsrc = $self->{jsrc}; + File::Path::mkpath([$jsrc], 0, 0755) unless -d $jsrc; + $self->{package} = 'org.hyperic.sigar'; + + $self->{cfh} = $self->create("$jni_file.c"); + my $hfh = $self->{hfh} = $self->create("$jni_file.h"); + + my %field_cache; + my $i = 0; + while (my($class, $fields) = each %SigarWrapper::classes) { + next if $field_cache{$class}++; + print $hfh "#define JSIGAR_FIELDS_\U$class $i\n"; + $i++; + my $n = 0; + for my $field (@$fields) { + my $name = $field->{name}; + print $hfh "# define JSIGAR_FIELDS_\U${class}_${name} $n\n"; + $n++; + } + print $hfh "# define JSIGAR_FIELDS_\U${class}_MAX $n\n"; + } + print $hfh "#define JSIGAR_FIELDS_MAX $i\n"; +} + +#using mega-method pattern here +sub generate_class { + my($self, $func) = @_; + + my $cfh = $self->{cfh}; + my $hfh = $self->{hfh}; + + my $class = $func->{name}; + my $cname = $func->{cname}; + + my $java_class = "$self->{package}.$class"; + (my $jni_prefix = "Java.$java_class") =~ s/\./_/g; + + my $args_proto = ""; + my $args = ""; + my $decl_string = ""; + my $get_string = ""; + my $release_string = ""; + + my $jname = lcfirst $class; + + if ($func->{num_args} == 1) { + $args = " $func->{arg}, "; + if ($func->{is_proc}) { + $args_proto = ", jlong pid"; + } + else { + $args_proto = ", jstring jname"; + $decl_string = "const char *name;"; + $get_string = "name = jname ? JENV->GetStringUTFChars(env, jname, 0) : NULL;"; + $release_string = "if (jname) JENV->ReleaseStringUTFChars(env, jname, name);"; + } + } + + my $nativefunc = join '_', $jni_prefix, 'gather'; + + my $proto = join "\n", + "JNIEXPORT void JNICALL $nativefunc", + "(JNIEnv *env, jobject obj, jobject sigar_obj$args_proto)"; + + my $jfh = $self->create_jfile($class); + + print $cfh <{has_get}; + +$proto; + +$proto +{ + $func->{sigar_type} s; + int status; + jclass cls = JENV->GetObjectClass(env, obj); + $decl_string + dSIGAR_VOID; + + $get_string + + status = $func->{sigar_function}(sigar,${args}&s); + + $release_string + + if (status != SIGAR_OK) { + sigar_throw_error(env, jsigar, status); + return; + } + +EOF + + my $jargs_proto = 'Sigar sigar'; + my $jargs = 'sigar'; + + if ($func->{is_proc}) { + $jargs_proto .= ', long pid'; + $jargs .= ", pid"; + } + elsif ($func->{num_args} == 1) { + $jargs_proto .= ', String name'; + $jargs .= ", name"; + } + + my $cache_field_ids = 1; + + my $uid = 0; + + for my $field (@{ $func->{fields} }) { + $uid += + SigarWrapper::hash($field->{type}) + + SigarWrapper::hash($field->{name}); + } + + print $jfh <{package}; + +import java.util.HashMap; +import java.util.Map; + +/** + * $class sigar class. + */ +public class $class implements java.io.Serializable { + + private static final long serialVersionUID = ${uid}L; + + public $class() { } + + public native void gather($jargs_proto) throws SigarException; + + /** + * This method is not intended to be called directly. + * use Sigar.get$class() instead. + * \@exception SigarException on failure. + * \@see $self->{package}.Sigar#get$class + */ + static $class fetch($jargs_proto) throws SigarException { + $class $jname = new $class(); + $jname.gather($jargs); + return $jname; + } + +EOF + + my(@copy, @tostring); + my $define = "JAVA_SIGAR_SET_FIELDS_\U$class"; + my @macro = ("\#define $define(cls, obj, s)"); + my $init_define = "JAVA_SIGAR_INIT_FIELDS_\U$class"; + my $field_class_ix = "JSIGAR_FIELDS_\U$class"; + my $field_class_ix = "JSIGAR_FIELDS_\U$class"; + my $field_class_max = $field_class_ix . '_MAX'; + my $field_class = "jsigar->fields[$field_class_ix]"; + + my @init_fields = ("#define $init_define(cls)", + " if (!$field_class) {", + " $field_class = ", + " malloc(sizeof(*$field_class));", + " $field_class->classref = ", + " (jclass)JENV->NewGlobalRef(env, cls);", + " $field_class->ids = ", + " malloc($field_class_max *", + " sizeof(*$field_class->ids));"); + + for my $field (@{ $func->{fields} }) { + my $type = $field->{type}; + my $name = $field->{name}; + my $member = $field->{member} || $name; + my $desc = $field->{desc} || $name; + (my $jname = $name) =~ s/_(\w)/\u$1/g; + my $sig = qq("$field_types{$type}"); + my $set = "JENV->Set${type}Field"; + + my $field_ix = $field_class_ix . "_\U$name"; + my $get_id = qq|JENV->GetFieldID(env, cls, "$jname", $sig)|; + my $id_cache = "$field_class->ids[$field_ix]"; + + my $id_lookup = $cache_field_ids ? + $id_cache : $get_id; + + push @init_fields, + " $id_cache = ", + " $get_id;"; + + push @macro, + qq| $set(env, obj, $id_lookup, s.$member);|; + + my $init = $init{$type} || '0'; + my $jtype = $type{$type} || lcfirst($type); + my $platforms = SigarWrapper::supported_platforms($field->{plat}); + + print $jfh " $jtype $jname = $init;\n\n"; + push @copy, " copy.$jname = this.$jname;\n"; + push @tostring, $jname; + + #documentation + print $jfh " /**\n"; + print $jfh " * Get the $desc.

\n"; + print $jfh " * Supported Platforms: $platforms.\n"; + print $jfh " *

\n"; + if (my $cmd = ($field->{cmd} || $SigarWrapper::cmds{$class})) { + print $jfh " * System equivalent commands:

    \n"; + for my $p (sort keys %$cmd) { + print $jfh " *
  • $p: $cmd->{$p}
    \n"; + } + print $jfh " *
\n"; + } + print $jfh " * \@return $desc\n"; + print $jfh " */\n"; + + print $jfh " public $jtype get\u$jname() { return $jname; }\n"; + } + + print $jfh "\n void copyTo($class copy) {\n", @copy, " }\n"; + + my $code = $extra_code{$class}; + if ($code) { + print $jfh $code; + } + + my $num_fields = @tostring; + print $jfh "\n public Map toMap() {\n"; + print $jfh " Map map = new HashMap();\n"; + for (my $i=0; $i<$num_fields; $i++) { + my $jfield = $tostring[$i]; + my $sfield = "str${jfield}"; + print $jfh " String $sfield = \n"; + print $jfh " String.valueOf(this.$jfield);\n"; + print $jfh qq{ if (!"-1".equals($sfield))\n}; + print $jfh qq{ map.put("\u$jfield", $sfield);\n}; + } + print $jfh " return map;\n"; + print $jfh " }\n"; + + if (!$code or $code !~ /toString/) { + print $jfh "\n public String toString() {\n"; + print $jfh " return toMap().toString();\n"; + print $jfh " }\n"; + } + + push @init_fields, " }"; + + if ($cache_field_ids) { + print $hfh join(' \\' . "\n", @init_fields), "\n\n"; + print $cfh "\n\n $init_define(cls);\n\n" if $func->{has_get}; + } + else { + print $hfh "#define $init_define(cls)\n"; + } + + print $hfh join(' \\' . "\n", @macro), "\n\n"; + print $cfh "\n\n $define(cls, obj, s);" if $func->{has_get}; + + print $cfh "\n}\n" if $func->{has_get}; + print $jfh "\n}\n"; + + close $jfh; +} + +sub finish { + my $self = shift; + $self->SUPER::finish; +} + +sub create_jfile { + my($self, $name) = @_; + my $jsrc = $self->{jsrc}; + my $jfile = "$jsrc/$name.java"; + if (-e "../../src/$jsrc/$name.java") { + print "skipping $jfile\n"; + #dont generate .java if already exists + $jfile = undef; + } + return $self->create($jfile); +} + +package SigarWrapper::Perl; + +our @ISA = qw(SigarWrapper); + +my %field_types = ( + Long => "sigar_uint64_t", + Double => "double", + Int => "IV", + Char => "char", + String => "char *", + NetAddress => "Sigar::NetAddress", +); + +my $xs_file = 'Sigar_generated.xs'; + +sub sources { + return $xs_file; +} + +sub start { + my $self = shift; + $self->SUPER::start; + $self->{xfh} = $self->create($xs_file); +} + +sub generate_class { + my($self, $func) = @_; + + my $fh = $self->{xfh}; + my $class = $func->{name}; + my $cname = $func->{cname}; + my $perl_class = "Sigar::$class"; + my $proto = 'VALUE obj'; + my $args = 'sigar'; + + if ($func->{num_args} == 1) { + $args .= ", $func->{arg}"; + } + + print $fh "\nMODULE = Sigar PACKAGE = Sigar PREFIX = sigar_\n\n"; + + print $fh <{has_get}; +$perl_class +$cname($args) + Sigar sigar +EOF + if ($func->{arg}) { + print $fh " $func->{arg_type} $func->{arg}\n" if $func->{has_get}; + } + + print $fh <{has_get}; + + PREINIT: + int status; + + CODE: + RETVAL = safemalloc(sizeof(*RETVAL)); + if ((status = $func->{sigar_function}($args, RETVAL)) != SIGAR_OK) { + SIGAR_CROAK(sigar, "$cname"); + } + + OUTPUT: + RETVAL +EOF + + print $fh <{fields} }) { + my $name = $field->{name}; + my $type = $field_types{ $field->{type} }; + + print $fh <$name; + + OUTPUT: + RETVAL + +EOF + } +} + +sub finish { + my $self = shift; + $self->SUPER::finish; +} + +#XXX not currently supporting netware +package SigarWrapper::Netware; + +our @ISA = qw(SigarWrapper); + +sub start { + my $self = shift; + $self->SUPER::start; + $self->{dfh} = $self->create('javasigar_generated.def'); +} + +sub finish { + my $self = shift; + my $fh = $self->{dfh}; + for my $func (@{ $self->{nativefunc} }) { + #$fh->println($nativefunc) if $impl; + } + my $jsigar = "../../src/jni/javasigar.c"; + my(%alias) = (x => 'Sigar'); + open JSIGAR, $jsigar or die "open $jsigar: $!"; + while () { + next unless /SIGAR_JNI([a-z]?)\(([A-Za-z_]+)\)/; + my $class = ""; + if ($1) { + $class = $alias{$1} . "_"; + } + $fh->println("Java_org_hyperic_sigar_$class$2"); + } + close JSIGAR; + + $self->SUPER::finish; +} + +1; +__END__