hyperic-sigar 1.7.0

data/bindings/ruby/examples/cpu_info.rb

@@ -0,0 +1,16 @@
+require 'rbsigar'
+
+sigar = Sigar.new
+
+infos = sigar.cpu_info_list
+
+num = infos.length
+
+puts num.to_s + " total CPUs.."
+
+infos.each do |info|
+    puts "Vendor........" + info.vendor
+    puts "Model........." + info.model
+    puts "Mhz..........." + info.mhz.to_s
+    puts "Cache size...." + info.cache_size.to_s
+end

data/bindings/ruby/examples/df.rb

@@ -0,0 +1,32 @@
+require 'rbsigar'
+
+def format_size(size)
+  return Sigar.format_size(size * 1024)
+end
+
+sigar = Sigar.new
+fslist = sigar.file_system_list
+
+puts "Filesystem\tSize\tUsed\tAvail\tUse%\tMounted on\tType\n"
+
+fslist.each do |fs|
+  dir_name = fs.dir_name
+  begin
+    usage = sigar.file_system_usage(dir_name)
+    total = usage.total
+    used = total - usage.free
+    avail = usage.avail
+    pct = usage.use_percent * 100
+  rescue Exception => e
+    #e.g. floppy or cdrom drive
+    used = avail = total = pct = 0;
+  end
+
+  puts fs.dev_name + "\t" +
+    format_size(total) + "\t" +
+    format_size(used) + "\t" +
+    format_size(avail) + "\t" +
+    (pct == 0.0 ? '-' : pct.to_s) + "\t" +
+    dir_name + "\t" + 
+    fs.sys_type_name + "/" + fs.type_name
+end

data/bindings/ruby/examples/free.rb

@@ -0,0 +1,19 @@
+require 'rbsigar'
+
+sigar = Sigar.new
+mem = sigar.mem
+swap = sigar.swap
+
+puts "\tTotal\tUsed\tFree"
+
+puts "Mem:    " +
+     (mem.total / 1024).to_s + "\t" +
+     (mem.used / 1024).to_s + "\t" +
+     (mem.free/ 1024).to_s
+
+puts "Swap:   " +
+     (swap.total / 1024).to_s + "\t" +
+     (swap.used / 1024).to_s + "\t" +
+     (swap.free/ 1024).to_s
+
+puts "RAM:    " + mem.ram.to_s + "MB";

data/bindings/ruby/examples/ifconfig.rb

@@ -0,0 +1,67 @@
+require 'rbsigar'
+
+sigar = Sigar.new
+iflist = sigar.net_interface_list
+
+iflist.each do |ifname|
+  ifconfig = sigar.net_interface_config(ifname)
+  flags = ifconfig.flags
+  encap = ifconfig.type
+
+  hwaddr = ifconfig.hwaddr
+  if hwaddr == Sigar::NULL_HWADDR
+    hwaddr = ""
+  else
+    hwaddr = " HWaddr " + hwaddr
+  end
+
+  puts ifname + "\t" + "Link encap:" + encap + hwaddr
+
+  if (flags & Sigar::IFF_POINTOPOINT) != 0
+    ptp = "  P-t-P:" + ifconfig.destination
+  else
+    ptp = ""
+  end
+
+  if (flags & Sigar::IFF_BROADCAST) != 0
+    bcast = "  Bcast:" + ifconfig.broadcast
+  else
+    bcast = ""
+  end
+
+  puts "\t" + "inet addr:" + ifconfig.address +
+    ptp + bcast + " Mask:" + ifconfig.netmask
+
+  puts "\t" +
+    Sigar.net_interface_flags_to_s(flags) +
+    " MTU:" + ifconfig.mtu.to_s +
+    " Metric:" + ifconfig.metric.to_s
+
+  ifstat = sigar.net_interface_stat(ifname)
+
+  puts "\t" +
+      "RX packets:" + ifstat.rx_packets.to_s +
+      " errors:" + ifstat.rx_errors.to_s +
+      " dropped:" + ifstat.rx_dropped.to_s +
+      " overruns:" + ifstat.rx_overruns.to_s +
+      " frame:" + ifstat.rx_frame.to_s
+
+  puts "\t" +
+      "TX packets:" + ifstat.tx_packets.to_s +
+      " errors:" + ifstat.tx_errors.to_s +
+      " dropped:" + ifstat.tx_dropped.to_s +
+      " overruns:" + ifstat.tx_overruns.to_s +
+      " carrier:" + ifstat.tx_carrier.to_s
+
+  puts "\t" + "collisions:" + ifstat.tx_collisions.to_s
+
+  rx_bytes = ifstat.rx_bytes
+  tx_bytes = ifstat.tx_bytes
+
+  print "\t" +
+    "RX bytes:" + rx_bytes.to_s +
+    " (" + Sigar.format_size(rx_bytes) + ")" +
+    "  " +
+    "TX bytes:" + tx_bytes.to_s +
+    " (" + Sigar.format_size(tx_bytes) + ")" + "\n";
+end

data/bindings/ruby/examples/netstat.rb

@@ -0,0 +1,54 @@
+require 'rbsigar'
+require 'socket'
+
+#XXX this example is incomplete wrt:
+#../../java/src/org/hyperic/sigar/cmd/Netstat.java
+
+is_numeric = false
+flags = Sigar::NETCONN_CLIENT|Sigar::NETCONN_SERVER
+flags |= Sigar::NETCONN_TCP
+
+def format_port(sigar, proto, port, is_numeric)
+  if port == 0
+    return "*"
+  end
+  if !is_numeric
+    service = sigar.net_services_name(proto, port)
+    if service != nil
+      return service
+    end
+  end
+  port.to_s
+end
+
+def format_address(sigar, proto, ip, portnum, is_numeric)
+  port = format_port(sigar, proto, portnum, is_numeric)
+  address = ""
+  if ip == "0.0.0.0" || ip == "::"
+    address = "*"
+  elsif is_numeric
+    address = ip.to_s
+  else
+    begin
+      name = Socket.gethostbyname(ip)
+      address = name[0]
+    rescue SocketError
+      address = ip.to_s
+    end
+  end
+  return address + ":" + port
+end
+
+sigar = Sigar.new
+
+connections = sigar.net_connection_list(flags)
+puts "Proto\tLocal Address\tForeign Address\tState"
+
+connections.each do |conn|
+  proto = Sigar.net_connection_type_to_s(conn.type)
+  state = Sigar.net_connection_state_to_s(conn.state)
+  local = format_address(sigar, conn.type, conn.local_address, conn.local_port, is_numeric)
+  remote = format_address(sigar, conn.type, conn.remote_address, conn.remote_port, is_numeric)
+  puts proto + "\t" + local + "\t" + remote + "\t" + state
+end
+

data/bindings/ruby/examples/pargs.rb

@@ -0,0 +1,18 @@
+require 'rbsigar'
+
+def output(sigar, pid)
+  args = sigar.proc_args(pid)
+  exe = sigar.proc_exe(pid);
+  puts "exe=" + exe.name
+  puts "cwd=" + exe.cwd
+
+  args.each do |arg|
+    puts "   " + "=>" + arg + "<="
+  end
+end
+
+sigar = Sigar.new
+
+ARGV.each do |pid|
+  output(sigar, pid)
+end

data/bindings/ruby/examples/penv.rb

@@ -0,0 +1,14 @@
+require 'rbsigar'
+
+def output(sigar, pid)
+  env = sigar.proc_env(pid)
+  env.each do |key, val|
+    puts key + "=" + val
+  end
+end
+
+sigar = Sigar.new
+
+ARGV.each do |pid|
+  output(sigar, pid)
+end

data/bindings/ruby/examples/route.rb

@@ -0,0 +1,31 @@
+require 'rbsigar'
+
+def flags(flags)
+  f = ""
+  if (flags & Sigar::RTF_UP) != 0
+    f += "U"
+  end
+  if (flags & Sigar::RTF_GATEWAY) != 0
+    f += "G"
+  end
+  if (flags & Sigar::RTF_HOST) != 0
+    f += "H"
+  end
+  f
+end
+
+def gw(addr)
+  addr == "0.0.0.0" ? "*" : addr
+end
+def dest(addr)
+  addr == "0.0.0.0" ? "default" : addr
+end
+
+puts "Kernel IP routing table"
+fmt = "%-15s %-15s %-15s %-5s %-6s %-3s %-s\n"
+printf fmt, "Destination", "Gateway", "Genmask", "Flags", "Metric", "Ref", "Iface"
+
+Sigar.new.net_route_list.each do |route|
+  printf fmt, dest(route.destination), gw(route.gateway), route.mask,
+    flags(route.flags), route.metric.to_s, route.refcnt.to_s, route.ifname
+end

data/bindings/ruby/examples/who.rb

@@ -0,0 +1,13 @@
+require 'rbsigar'
+
+def format_time(who)
+  return Time.at(who.time).strftime("%b %e %H:%M")
+end
+
+sigar = Sigar.new
+
+whos = sigar.who_list
+
+whos.each do |who|
+  puts who.user + "\t" + who.device + "\t" + format_time(who) + who.host
+end

data/bindings/ruby/extconf.rb

@@ -0,0 +1,110 @@
+require 'mkmf'
+require 'rbconfig'
+
+extension_name = 'rbsigar'
+
+print 'Ruby platform=' + RUBY_PLATFORM + "\n"
+
+case RUBY_PLATFORM
+when /darwin/
+  os = 'darwin'
+  sdks = Dir.glob('/Developer/SDKs/MacOSX10.*.sdk').sort.reverse
+  if sdks.length == 0
+    print "Xcode Developer Tools not installed\n"
+    print "Download from http://developer.apple.com/technology/xcode.html\n"
+    exit 1
+  else
+    print "Available SDKs...\n(*) " + sdks.join("\n    ") + "\n"
+    sdk = sdks[0]
+  end
+  if File.file?("/usr/include/libproc.h")
+    $CPPFLAGS += ' -DDARWIN_HAS_LIBPROC_H'
+  end
+  $CPPFLAGS += ' -DDARWIN -I/Developer/Headers/FlatCarbon -isysroot ' + sdk
+  $LDFLAGS += ' -Wl,-syslibroot,' + sdk + ' -framework CoreServices -framework IOKit'
+when /bsd/
+  os = 'darwin'
+  have_library("kvm")
+when /mswin|mingw|cygwin|bccwin/
+  os = 'win32'
+  require 'ftools'
+  $CPPFLAGS += ' -DWIN32'
+  is_win32 = true
+  have_library("kernel32")
+  have_library("user32")
+  have_library("advapi32")
+  have_library("ws2_32")
+  have_library("netapi32")
+  have_library("shell32")
+  have_library("pdh")
+  have_library("version")
+when /linux/
+  os = 'linux'
+when /solaris|sun/
+  os = 'solaris'
+  have_library("nsl")
+  have_library("socket")
+  have_library("kstat")
+when /hpux/
+  os = 'hpux'
+  #XXX have_libary no workie on hpux?
+  $LDFLAGS += ' -lnsl -lnm'
+when /aix/
+  os = 'aix'
+  have_library("odm")
+  have_library("cfg")
+  have_library("perfstat")
+else
+  os = RUBY_PLATFORM
+end
+
+osdir = "../../src/os/#{os}"
+$CPPFLAGS += ' -I../../include' + ' -I' + osdir
+$CPPFLAGS += ' -U_FILE_OFFSET_BITS' unless is_win32
+
+if RUBY_VERSION > '1.8.4'
+  $CPPFLAGS += ' -DRB_HAS_RE_ERROR'
+end
+if RUBY_VERSION >= '1.9.0'
+  $CPPFLAGS += ' -DRB_RUBY_19'
+end
+
+#incase of nfs shared dir...
+unless is_win32
+  if File.exist?('Makefile')
+    cmd = 'make distclean'
+    print cmd + "\n"
+    system(cmd)
+  end
+  Dir["./*.c"].each do |file|
+    if File.lstat(file).symlink?
+      print "unlink #{file}\n"
+      File.delete(file)
+    end
+  end
+end
+
+system('perl -Mlib=.. -MSigarWrapper -e generate Ruby .')
+libname = extension_name + '.' + CONFIG['DLEXT']
+system('perl -Mlib=.. -MSigarBuild -e version_file ' +
+       'ARCHNAME=' + RUBY_PLATFORM + ' ' +
+       'ARCHLIB=' + libname + ' ' +
+       'BINNAME=' + libname)
+
+$distcleanfiles = ['rbsigar_generated.rx','sigar_version.c']
+#XXX seems mkmf forces basename on srcs
+#XXX should be linking against libsigar anyhow
+(Dir["../../src/*.c"] + Dir["#{osdir}/*.c"]).each do |file|
+  cf = File.basename(file)
+  print file + ' -> ' + cf + "\n"
+  if is_win32
+    File.copy(file, cf)
+  else
+    File.symlink(file, cf) unless File.file?(cf)
+  end
+  $distcleanfiles.push(cf)
+end
+
+dir_config(extension_name)
+
+create_makefile(extension_name)

data/bindings/ruby/rbsigar.c

@@ -0,0 +1,628 @@
+/*
+ * Copyright (C) [2004, 2005, 2006], Hyperic, Inc.
+ * This file is part of SIGAR.
+ * 
+ * SIGAR is free software; you can redistribute it and/or modify
+ * it under the terms version 2 of the GNU General Public License as
+ * published by the Free Software Foundation. This program is distributed
+ * in the hope that it will be useful, but WITHOUT ANY WARRANTY; without
+ * even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+ * PARTICULAR PURPOSE. See the GNU General Public License for more
+ * details.
+ * 
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
+ * USA.
+ */
+
+#include <ruby.h>
+#ifdef RB_RUBY_19
+#include <ruby/re.h>
+#else
+#include <re.h>
+#endif
+
+#include <errno.h>
+#include "sigar.h"
+#include "sigar_fileinfo.h"
+#include "sigar_format.h"
+#include "sigar_ptql.h"
+
+#define RB_SIGAR_RAISE(msg) rb_raise(rb_eArgError, "%s", msg)
+#define RB_SIGAR_CROAK RB_SIGAR_RAISE(sigar_strerror(sigar, status))
+#define OBJ2PID(pid) rb_sigar_pid_get(sigar, pid)
+
+#ifndef RSTRING_PTR
+#define RSTRING_PTR(s) RSTRING(s)->ptr
+#endif
+
+#ifndef RSTRING_LEN
+#define RSTRING_LEN(s) RSTRING(s)->len
+#endif
+
+#ifdef RB_HAS_RE_ERROR
+#  define RB_REGEX_ERROR rb_eRegexpError
+#else
+#  define RB_REGEX_ERROR rb_eArgError
+#endif
+
+static sigar_t *rb_sigar_get(VALUE obj)
+{
+    sigar_t *sigar;
+    Data_Get_Struct(obj, sigar_t, sigar);
+    return sigar;
+}
+
+static int rbsigar_ptql_re_impl(void *data,
+                                char *haystack, char *needle)
+{
+#ifdef RB_RUBY_19
+    /* XXX no more regex.h */
+    return 0;
+#else
+    struct re_pattern_buffer *regex;
+    int len = strlen(haystack);
+    int retval;
+    const char *err;
+
+    regex = ALLOC(struct re_pattern_buffer);
+    MEMZERO((char *)regex, struct re_pattern_buffer, 1);
+    /* XXX cache */
+    if ((err = re_compile_pattern(needle, strlen(needle), regex))) {
+        re_free_pattern(regex);
+        rb_raise(RB_REGEX_ERROR, "%s", err);
+        return 0;
+    }
+
+    retval = re_match(regex, haystack, len, 0, NULL);
+    re_free_pattern(regex);
+    return retval > 0;
+#endif
+}
+
+#define sigar_isdigit(c) \
+    (isdigit(((unsigned char)(c))))
+
+static sigar_pid_t rb_sigar_pid_get(sigar_t *sigar, VALUE obj)
+{
+    if (TYPE(obj) == T_STRING) {
+        char *pid = StringValuePtr(obj);
+
+        if (sigar_isdigit(*pid)) {
+            obj = rb_str2inum(obj, 10);
+            /* fallthru */
+        }
+        else if ((RSTRING_LEN(obj) == 2) &&
+                 (*pid == '$') && (*(pid + 1) == '$'))
+        {
+            return sigar_pid_get(sigar);
+        }
+        else {
+            /* XXX cache queries */
+            sigar_ptql_query_t *query;
+            sigar_ptql_error_t error;
+            int status =
+                sigar_ptql_query_create(&query, (char *)pid, &error);
+
+            if (status == SIGAR_OK) {
+                sigar_pid_t qpid;
+
+                sigar_ptql_re_impl_set(sigar, NULL, rbsigar_ptql_re_impl);
+                status = sigar_ptql_query_find_process(sigar, query, &qpid);
+                sigar_ptql_re_impl_set(sigar, NULL, NULL);
+                sigar_ptql_query_destroy(query);
+                if (status == SIGAR_OK) {
+                    return qpid;
+                }
+                else {
+                    RB_SIGAR_RAISE(sigar_strerror(sigar, status));
+                }
+            }
+            else {
+                RB_SIGAR_RAISE(error.message);
+            }
+        }
+    }
+    return NUM2UINT(obj);
+}
+
+static void rb_sigar_free(void *obj)
+{
+    free(obj);
+}
+
+static void rb_sigar_close(void *obj)
+{
+    sigar_close((sigar_t *)obj);
+}
+
+static VALUE rb_sigar_new(VALUE module)
+{
+    sigar_t *sigar;
+    sigar_open(&sigar);
+    return Data_Wrap_Struct(module, 0, rb_sigar_close, sigar);
+}
+
+static VALUE rb_sigar_format_size(VALUE rclass, VALUE size)
+{
+    char buffer[56];
+    return rb_str_new2(sigar_format_size(NUM2LL(size), buffer));
+}
+
+static VALUE rb_sigar_net_interface_flags_to_s(VALUE rclass, VALUE flags)
+{
+    char buffer[1024];
+    return rb_str_new2(sigar_net_interface_flags_to_string(NUM2LL(flags), buffer));
+}
+
+static VALUE rb_sigar_net_connection_type_to_s(VALUE rclass, VALUE type)
+{
+    return rb_str_new2(sigar_net_connection_type_get(NUM2INT(type)));
+}
+
+static VALUE rb_sigar_net_connection_state_to_s(VALUE rclass, VALUE state)
+{
+    return rb_str_new2(sigar_net_connection_state_get(NUM2INT(state)));
+}
+
+static VALUE rb_sigar_net_address_to_string(sigar_net_address_t *address)
+{
+    char addr_str[SIGAR_INET6_ADDRSTRLEN];
+    sigar_net_address_to_string(NULL, address, addr_str);
+    return rb_str_new2(addr_str);
+}
+
+#define rb_sigar_net_address_to_s(a) rb_sigar_net_address_to_string(&a) 
+
+static VALUE rb_sigar_new_list(char *data, unsigned long number,
+                               int size, VALUE rclass)
+{
+    unsigned long i;
+    VALUE av = rb_ary_new2(number);
+
+    for (i=0; i<number; i++, data += size) {
+        void *ent = malloc(size);
+
+        memcpy(ent, data, size);
+        rb_ary_push(av, Data_Wrap_Struct(rclass, 0, free, ent));
+    }
+
+    return av;
+}
+
+static VALUE rb_sigar_new_strlist(char **data, unsigned long number)
+{
+    unsigned long i;
+    VALUE av = rb_ary_new2(number);
+
+    for (i=0; i<number; i++) {
+        rb_ary_push(av, rb_str_new2(data[i]));
+    }
+
+    return av;
+}
+
+static VALUE rb_sigar_new_intlist(int *data, int number)
+{
+    int i;
+    VALUE av = rb_ary_new2(number);
+
+    for (i=0; i<number; i++) {
+        rb_ary_push(av, rb_int2inum(data[i]));
+    }
+
+    return av;
+}
+
+static VALUE rb_sigar_net_interface_list(VALUE obj)
+{
+    int status;
+    sigar_t *sigar = rb_sigar_get(obj);
+    sigar_net_interface_list_t iflist;
+    VALUE RETVAL;
+
+    status = sigar_net_interface_list_get(sigar, &iflist);
+    if (status != SIGAR_OK) {
+        RB_SIGAR_CROAK;
+    }
+
+    RETVAL = rb_sigar_new_strlist(iflist.data, iflist.number);
+
+    sigar_net_interface_list_destroy(sigar, &iflist);
+
+    return RETVAL;
+}
+
+static int rb_sigar_str2net_address(VALUE bytes, sigar_net_address_t *address)
+{
+    long len = RSTRING_LEN(bytes);
+
+    switch (len) {
+      case 4:
+        address->family = SIGAR_AF_INET;
+        break;
+      case 4*4:
+        address->family = SIGAR_AF_INET6;
+        break;
+      default:
+        return EINVAL;
+    }
+
+    memcpy(RSTRING_PTR(bytes), &address->addr.in6, len);
+
+    return SIGAR_OK;
+}
+
+static VALUE rb_cSigarNetStat;
+
+static VALUE rb_sigar_net_stat_get(VALUE obj, VALUE flags, VALUE bytes, int port)
+{
+    int status;
+    int has_port = (port != -1);
+    sigar_t *sigar = rb_sigar_get(obj);
+    sigar_net_stat_t *RETVAL = malloc(sizeof(*RETVAL));
+    sigar_net_address_t address;
+
+    if (has_port) {
+        status = rb_sigar_str2net_address(bytes, &address);
+        if (status == SIGAR_OK) {
+            status = sigar_net_stat_port_get(sigar, RETVAL, NUM2INT(flags),
+                                             &address, port);
+        }
+    }
+    else {
+        status = sigar_net_stat_get(sigar, RETVAL, NUM2INT(flags));
+    }
+
+    if (status != SIGAR_OK) {
+        free(RETVAL);
+        RB_SIGAR_CROAK;
+    }
+
+    return Data_Wrap_Struct(rb_cSigarNetStat, 0, rb_sigar_free, RETVAL);
+}
+
+static VALUE rb_sigar_net_stat(VALUE obj, VALUE flags)
+{
+    return rb_sigar_net_stat_get(obj, flags, Qnil, -1);
+}
+
+static VALUE rb_sigar_net_stat_port(VALUE obj, VALUE flags, VALUE address, VALUE port)
+{
+    return rb_sigar_net_stat_get(obj, flags, address, NUM2INT(port));
+}
+
+static VALUE rb_sigar_NetStat_tcp_states(VALUE self)
+{
+    sigar_net_stat_t *net_stat;
+
+    Data_Get_Struct(self, sigar_net_stat_t, net_stat);
+
+    return rb_sigar_new_intlist(&net_stat->tcp_states[0], SIGAR_TCP_UNKNOWN);
+}
+
+static VALUE rb_cSigarNetConnection;
+
+static VALUE rb_sigar_net_connection_list(VALUE obj, VALUE flags)
+{
+    int status;
+    unsigned int i;
+    sigar_t *sigar = rb_sigar_get(obj);
+    sigar_net_connection_list_t connlist;
+    VALUE RETVAL;
+
+    status = sigar_net_connection_list_get(sigar, &connlist, NUM2UINT(flags));
+
+    if (status != SIGAR_OK) {
+        RB_SIGAR_CROAK;
+    }
+
+    RETVAL = rb_sigar_new_list((char *)&connlist.data[0],
+                               connlist.number,
+                               sizeof(*connlist.data),
+                               rb_cSigarNetConnection);
+
+    sigar_net_connection_list_destroy(sigar, &connlist);
+
+    return RETVAL;
+}
+
+static VALUE rb_sigar_net_services_name(VALUE obj, VALUE protocol, VALUE port)
+{
+    sigar_t *sigar = rb_sigar_get(obj);
+    char *name;
+
+    if ((name = sigar_net_services_name_get(sigar, NUM2UINT(protocol), NUM2UINT(port)))) {
+        return rb_str_new2(name);
+    }
+    else {
+        return Qnil;
+    }
+}
+
+static VALUE rb_cSigarCpuInfo;
+
+static VALUE rb_sigar_cpu_info_list(VALUE obj)
+{
+    int status;
+    sigar_t *sigar = rb_sigar_get(obj);
+    sigar_cpu_info_list_t cpu_infos;
+    VALUE RETVAL;
+
+    status = sigar_cpu_info_list_get(sigar, &cpu_infos);
+    if (status != SIGAR_OK) {
+        RB_SIGAR_CROAK;
+    }
+
+    RETVAL = rb_sigar_new_list((char *)&cpu_infos.data[0],
+                               cpu_infos.number,
+                               sizeof(*cpu_infos.data),
+                               rb_cSigarCpuInfo);
+
+    sigar_cpu_info_list_destroy(sigar, &cpu_infos);
+
+    return RETVAL;
+}
+
+static VALUE rb_cSigarCpuPerc;
+
+static VALUE rb_cSigarFileSystem;
+
+static VALUE rb_sigar_file_system_list(VALUE obj)
+{
+    int status;
+    sigar_t *sigar = rb_sigar_get(obj);
+    sigar_file_system_list_t fslist;
+    VALUE RETVAL;
+
+    status = sigar_file_system_list_get(sigar, &fslist);
+    if (status != SIGAR_OK) {
+        RB_SIGAR_CROAK;
+    }
+
+    RETVAL = rb_sigar_new_list((char *)&fslist.data[0],
+                               fslist.number,
+                               sizeof(*fslist.data),
+                               rb_cSigarFileSystem);
+
+    sigar_file_system_list_destroy(sigar, &fslist);
+
+    return RETVAL;
+}
+
+static VALUE rb_cSigarWho;
+
+static VALUE rb_sigar_who_list(VALUE obj)
+{
+    int status;
+    sigar_t *sigar = rb_sigar_get(obj);
+    sigar_who_list_t list;
+    VALUE RETVAL;
+
+    status = sigar_who_list_get(sigar, &list);
+    if (status != SIGAR_OK) {
+        RB_SIGAR_CROAK;
+    }
+
+    RETVAL = rb_sigar_new_list((char *)&list.data[0],
+                               list.number,
+                               sizeof(*list.data),
+                               rb_cSigarWho);
+
+    sigar_who_list_destroy(sigar, &list);
+
+    return RETVAL;
+}
+
+static VALUE rb_cSigarNetRoute;
+
+static VALUE rb_sigar_net_route_list(VALUE obj)
+{
+    int status;
+    sigar_t *sigar = rb_sigar_get(obj);
+    sigar_net_route_list_t list;
+    VALUE RETVAL;
+
+    status = sigar_net_route_list_get(sigar, &list);
+    if (status != SIGAR_OK) {
+        RB_SIGAR_CROAK;
+    }
+
+    RETVAL = rb_sigar_new_list((char *)&list.data[0],
+                               list.number,
+                               sizeof(*list.data),
+                               rb_cSigarNetRoute);
+
+    sigar_net_route_list_destroy(sigar, &list);
+
+    return RETVAL;
+}
+
+static VALUE rb_sigar_proc_list(int argc, VALUE *argv, VALUE obj)
+{
+    int status;
+    sigar_t *sigar = rb_sigar_get(obj);
+    sigar_proc_list_t list;
+    VALUE RETVAL;
+    VALUE vptql;
+
+    rb_scan_args(argc, argv, "01", &vptql);
+    if (NIL_P(vptql)) {
+        status = sigar_proc_list_get(sigar, &list);
+
+        if (status != SIGAR_OK) {
+            RB_SIGAR_CROAK;
+        }
+    }
+    else {
+        sigar_ptql_query_t *query;
+        sigar_ptql_error_t error;
+        char *ptql = StringValuePtr(vptql);
+
+        status = sigar_ptql_query_create(&query, ptql, &error);
+
+        if (status != SIGAR_OK) {
+            RB_SIGAR_RAISE(error.message);
+        }
+        sigar_ptql_re_impl_set(sigar, NULL, rbsigar_ptql_re_impl);
+        status = sigar_ptql_query_find(sigar, query, &list);
+        sigar_ptql_re_impl_set(sigar, NULL, NULL);
+        sigar_ptql_query_destroy(query);
+        if (status != SIGAR_OK) {
+            RB_SIGAR_RAISE(sigar_strerror(sigar, status));
+        }
+    }
+
+    RETVAL = rb_sigar_new_intlist(&list.data[0],
+                                  list.number);
+
+    sigar_proc_list_destroy(sigar, &list);
+
+    return RETVAL;
+}
+
+static VALUE rb_sigar_proc_args(VALUE obj, VALUE pid)
+{
+    int status;
+    sigar_t *sigar = rb_sigar_get(obj);
+    sigar_proc_args_t args;
+    VALUE RETVAL;
+
+    status = sigar_proc_args_get(sigar, OBJ2PID(pid), &args);
+
+    if (status != SIGAR_OK) {
+        RB_SIGAR_CROAK;
+    }
+
+    RETVAL = rb_sigar_new_strlist(args.data, args.number);
+
+    sigar_proc_args_destroy(sigar, &args);
+
+    return RETVAL;
+}
+
+static int rb_sigar_env_getall(void *data,
+                               const char *key, int klen,
+                               char *val, int vlen)
+{
+    rb_hash_aset(*((VALUE*)data),
+                 rb_str_new(key, klen),
+                 rb_str_new(val, vlen));
+    return SIGAR_OK;
+}
+
+static VALUE rb_sigar_proc_env(VALUE obj, VALUE pid)
+{
+    int status;
+    sigar_t *sigar = rb_sigar_get(obj);
+    sigar_proc_env_t procenv;
+    VALUE RETVAL = rb_hash_new();
+
+    procenv.type = SIGAR_PROC_ENV_ALL;
+    procenv.env_getter = rb_sigar_env_getall;
+    procenv.data = &RETVAL;
+
+    status = sigar_proc_env_get(sigar, OBJ2PID(pid), &procenv);
+    if (status != SIGAR_OK) {
+        RB_SIGAR_CROAK;
+    }
+
+    return RETVAL;
+}
+
+#include "./rbsigar_generated.rx"
+
+#define RB_SIGAR_CONST_INT(name) \
+    rb_define_const(rclass, #name, INT2FIX(SIGAR_##name))
+
+#define RB_SIGAR_DEFINE_CONST_STR(name, value) \
+    rb_define_const(rclass, name, rb_obj_freeze(rb_str_new2(value)))
+
+#define RB_SIGAR_CONST_STR(name) \
+    rb_define_const(rclass, #name, rb_obj_freeze(rb_str_new2(SIGAR_##name)))
+
+static void Init_rbsigar_constants(VALUE rclass)
+{
+    RB_SIGAR_CONST_INT(IFF_UP);
+    RB_SIGAR_CONST_INT(IFF_BROADCAST);
+    RB_SIGAR_CONST_INT(IFF_DEBUG);
+    RB_SIGAR_CONST_INT(IFF_LOOPBACK);
+    RB_SIGAR_CONST_INT(IFF_POINTOPOINT);
+    RB_SIGAR_CONST_INT(IFF_NOTRAILERS);
+    RB_SIGAR_CONST_INT(IFF_RUNNING);
+    RB_SIGAR_CONST_INT(IFF_NOARP);
+    RB_SIGAR_CONST_INT(IFF_PROMISC);
+    RB_SIGAR_CONST_INT(IFF_ALLMULTI);
+    RB_SIGAR_CONST_INT(IFF_MULTICAST);
+
+    RB_SIGAR_CONST_INT(NETCONN_CLIENT);
+    RB_SIGAR_CONST_INT(NETCONN_SERVER);
+    RB_SIGAR_CONST_INT(NETCONN_TCP);
+    RB_SIGAR_CONST_INT(NETCONN_UDP);
+    RB_SIGAR_CONST_INT(NETCONN_RAW);
+    RB_SIGAR_CONST_INT(NETCONN_UNIX);
+
+    RB_SIGAR_CONST_INT(TCP_ESTABLISHED);
+    RB_SIGAR_CONST_INT(TCP_SYN_SENT);
+    RB_SIGAR_CONST_INT(TCP_SYN_RECV);
+    RB_SIGAR_CONST_INT(TCP_FIN_WAIT1);
+    RB_SIGAR_CONST_INT(TCP_FIN_WAIT2);
+    RB_SIGAR_CONST_INT(TCP_TIME_WAIT);
+    RB_SIGAR_CONST_INT(TCP_CLOSE);
+    RB_SIGAR_CONST_INT(TCP_CLOSE_WAIT);
+    RB_SIGAR_CONST_INT(TCP_LAST_ACK);
+    RB_SIGAR_CONST_INT(TCP_LISTEN);
+    RB_SIGAR_CONST_INT(TCP_CLOSING);
+    RB_SIGAR_CONST_INT(TCP_IDLE);
+    RB_SIGAR_CONST_INT(TCP_BOUND);
+    RB_SIGAR_CONST_INT(TCP_UNKNOWN);
+
+    RB_SIGAR_CONST_INT(RTF_UP);
+    RB_SIGAR_CONST_INT(RTF_GATEWAY);
+    RB_SIGAR_CONST_INT(RTF_HOST);
+
+    RB_SIGAR_CONST_STR(NULL_HWADDR);
+}
+
+static void Init_rbsigar_version(VALUE rclass)
+{
+    sigar_version_t *sv = sigar_version_get();
+    RB_SIGAR_DEFINE_CONST_STR("BUILD_DATE", sv->build_date);
+    RB_SIGAR_DEFINE_CONST_STR("SCM_REVISION", sv->scm_revision);
+    RB_SIGAR_DEFINE_CONST_STR("VERSION", sv->version);
+}
+
+void Init_rbsigar(void)
+{
+    VALUE rclass = rb_define_class("Sigar", rb_cObject);
+
+    rb_define_method(rclass, "cpu_info_list", rb_sigar_cpu_info_list, 0);
+    rb_define_method(rclass, "file_system_list", rb_sigar_file_system_list, 0);
+    rb_define_method(rclass, "net_connection_list", rb_sigar_net_connection_list, 1);
+    rb_define_method(rclass, "net_interface_list", rb_sigar_net_interface_list, 0);
+    rb_define_method(rclass, "net_services_name", rb_sigar_net_services_name, 2);
+    rb_define_method(rclass, "net_stat", rb_sigar_net_stat, 1);
+    rb_define_method(rclass, "net_stat_port", rb_sigar_net_stat_port, 3);
+    rb_define_method(rclass, "net_route_list", rb_sigar_net_route_list, 0);
+    rb_define_method(rclass, "who_list", rb_sigar_who_list, 0);
+    rb_define_method(rclass, "proc_list", rb_sigar_proc_list, -1);
+    rb_define_method(rclass, "proc_args", rb_sigar_proc_args, 1);
+    rb_define_method(rclass, "proc_env", rb_sigar_proc_env, 1);
+
+    rb_define_singleton_method(rclass, "new", rb_sigar_new, 0);
+    rb_define_singleton_method(rclass, "format_size", rb_sigar_format_size, 1);
+    rb_define_singleton_method(rclass, "net_interface_flags_to_s",
+                               rb_sigar_net_interface_flags_to_s, 1);
+    rb_define_singleton_method(rclass, "net_connection_type_to_s",
+                               rb_sigar_net_connection_type_to_s, 1);
+    rb_define_singleton_method(rclass, "net_connection_state_to_s",
+                               rb_sigar_net_connection_state_to_s, 1);
+
+    Init_rbsigar_constants(rclass);
+    Init_rbsigar_version(rclass);
+
+    /* generated */
+    rb_sigar_define_module_methods(rclass);
+    rb_define_method(rb_cSigarNetStat, "tcp_states", rb_sigar_NetStat_tcp_states, 0);
+}