sys-proctable 0.7.6 → 1.2.0

data/ext/sunos/sunos.h

@@ -1,177 +0,0 @@
-/*****************************************************************************
- * solaris.h
- *
- * Solaris specific header file.  Some things copy/pasted straight out
- * of Dan Urist's Proc::ProcessTable Perl module.
- *****************************************************************************/
-#include <stdio.h>
-#include <stdlib.h>
-#include <dirent.h>
-#include <sys/param.h>
-#include <sys/types.h>
-#include <sys/proc.h>
-#include <fcntl.h>
-#include <string.h>
-#include <unistd.h>
-#include <utmpx.h>
-
-/* This bit of magic was taken from a post by Stefan Teleman on the KDE
- * mailing list.  It allows us to build without having to disable largefile
- * support or explicitly build a 64 bit Ruby.
- */
-#if (!defined(_LP64)) && (_FILE_OFFSET_BITS - 0 == 64)
-#define PROCFS_FILE_OFFSET_BITS_HACK 1
-#undef _FILE_OFFSET_BITS
-#else
-#define PROCFS_FILE_OFFSET_BITS_HACK 0
-#endif
-
-#if defined(HAVE_PROCFS_H)
-#include <procfs.h>
-#else
-#include <sys/procfs.h>
-#endif
-
-#if (PROCFS_FILE_OFFSET_BITS_HACK - 0 == 1)
-#define _FILE_OFFSET_BITS 64
-#endif
-
-#ifndef CLK_TCK
-#define CLK_TCK sysconf(_SC_CLK_TCK)
-#endif
-
-#ifndef NAME_MAX
-#define NAME_MAX 255
-#endif
-
-/* Ruby 1.8.3 or later */
-#ifdef HAVE_TYPE_RB_PID_T
-#define pid_t rb_pid_t
-#endif
-
-#define COMM_MAX 64
-#define STATE_MAX 20
-#define WCHAN_MAX 64
-
-/* Function prototypes */
-static void getprusage(pid_t pid, prusage_t* pr_usage);
-
-/* Process state strings that we return */
-#define SLEEP  "sleep"
-#define WAIT   "wait"       
-#define RUN    "run"
-#define IDLE   "idle"
-#define ZOMBIE "zombie"
-#define STOP   "stop"
-#define ONPROC "onprocessor"
-
-/*
- * A simple static structure, mainly for use with the 'fields()' class method.
- * The fields here *should* be identical to the fields listed in the ps_struct.
- * The exception is the 'comm' field, which I added to give it a bit of
- * (foolish?) consistency with the other platforms.  I will try to make sure
- * that field is common to all platforms.
- */
-static char* fields[] = {
-   "flag",
-#ifdef HAVE_PROCFS_H
-   "nlwp",
-#endif
-   "pid",
-   "ppid",
-   "pgid",
-   "sid",
-   "uid",
-   "euid",
-   "gid",
-   "egid",
-   "priority",
-   "nice",
-   "ttydev",
-   "time",
-   "ctime",
-   "size",
-   "rss",
-   "wchan",
-   "pctcpu",
-   "pctmem",
-   "state",
-   "fname",
-   "cmdline",
-   "start",
-#ifdef HAVE_PROCFS_H
-   "processor",
-#endif
-   "comm",
-   "num_args",
-   "cmd_args",
-   "lwpid",
-   "count",
-   "tstamp",
-   "create",
-   "term",
-   "rtime",
-   "utime",
-   "stime",
-   "ttime",
-   "tftime",
-   "dftime",
-   "kftime",
-   "ltime",
-   "slptime",
-   "wtime",
-   "stoptime",
-   "minf",
-   "majf",
-   "nswap",
-   "inblk",
-   "oublk",
-   "msnd",
-   "mrcv",
-   "sigs",
-   "vctx",
-   "ictx",
-   "sysc",
-   "ioch"
-};
-
-/*
- * Private function for getting data out of the /proc/self/usage directory.
- * Based on Rich Teer's function in "Solaris Systems Programming", p.329
- * and p.332. 
- */
-#if defined(HAVE_PROCFS_H)
-static void getprusage(pid_t pid, prusage_t* pr_usage){
-   int fd;
-   char name[PATH_MAX];
-
-   snprintf(name, PATH_MAX, "/proc/%ld/usage", (long)pid);
-
-   if((fd = open(name, O_RDONLY)) == -1)
-      rb_sys_fail(0);
-
-   if(read(fd,pr_usage,sizeof(prusage_t)) == -1){
-      close(fd);
-      rb_sys_fail(0);
-   }
-
-   close(fd);
-}
-#else
-static void getprusage(pid_t pid, prusage_t* pr_usage){
-   int fd;
-   char name[PATH_MAX];
-
-   snprintf(name, PATH_MAX, "/proc/%ld", (long)pid);
-
-   if((fd = open(name, O_RDONLY)) == -1)
-      rb_sys_fail(0);
-
-   if(ioctl(fd,PIOCUSAGE,pr_usage) == -1){
-      close(fd);
-      rb_sys_fail(0);
-   }
-
-   close(fd);
-}
-#endif

data/ext/version.h

@@ -1,2 +0,0 @@
-/* version.h - stores the version number for all platforms (that use C) */
-#define SYS_PROCTABLE_VERSION "0.7.6"

data/test/tc_all.rb

@@ -1,59 +0,0 @@
-#######################################################################
-# tc_all.rb
-#
-# Test suite for methods common to all platforms. Generally speaking
-# you should run this test case using the 'rake test' task.
-#######################################################################
-require 'socket'
-require 'test/unit'
-require 'sys/proctable'
-include Sys
-
-class TC_ProcTable_All < Test::Unit::TestCase
-   def setup
-      @host = Socket.gethostname
-      @pid  = RUBY_PLATFORM.match('mswin') ? 0 : 1
-   end
-
-   def test_version
-      assert_equal('0.7.6', ProcTable::VERSION)
-   end
-
-   def test_fields
-      assert_respond_to(ProcTable, :fields)
-      assert_nothing_raised{ ProcTable.fields }
-      assert_kind_of(Array, ProcTable.fields)
-      assert_kind_of(String, ProcTable.fields.first)
-   end
-
-   def test_ps
-      assert_respond_to(ProcTable, :ps)
-      assert_nothing_raised{ ProcTable.ps }
-      assert_nothing_raised{ ProcTable.ps{} }
-   end
-
-   def test_ps_with_args
-      assert_nothing_raised{ ProcTable.ps(0) }
-      assert_nothing_raised{ ProcTable.ps(nil) }
-      assert_raises(TypeError){ ProcTable.ps('vim') }
-
-      if RUBY_PLATFORM.match('mswin')
-         assert_nothing_raised{ ProcTable.ps(0, @host) }
-         assert_raises(ArgumentError){ ProcTable.ps(0, @host, 1) }
-      else
-         assert_raises(ArgumentError){ ProcTable.ps(0, @host) }
-      end
-   end
-
-   def test_ps_return_values
-      assert_kind_of(Array, ProcTable.ps)
-      assert_kind_of(Struct::ProcTableStruct, ProcTable.ps(@pid))
-      assert_equal(nil, ProcTable.ps(999999999))
-      assert_equal(nil, ProcTable.ps{})
-   end
-   
-   def teardown
-      @host = nil
-      @pid  = nil
-   end
-end

data/test/tc_freebsd.rb

@@ -1,45 +0,0 @@
-############################################
-# tc_freebsd.rb
-#
-# Test suite for sys-proctable for FreeBSD.
-############################################
-require "sys/proctable"
-require "test/unit"
-require "test/tc_all"
-include Sys
-
-class TC_ProcTable_FreeBSD < Test::Unit::TestCase
-   def setup
-      @fields = %w/
-         comm pid ppid pgid sid tdev_maj tdev_min flags start
-         utime stime wchan euid ruid rgid egid groups cmdline
-      /
-      @pt = ProcTable.ps.first
-   end
-
-   def test_field_members
-      msg = "Struct members don't match expected fields"
-      assert_equal(@fields.length, @pt.length, "Bad length")
-      assert_equal(@fields, ProcTable.fields, "Bad fields")
-      assert_equal(@fields, @pt.members, msg)
-   end
-
-   def test_struct_member_types
-      @fields.each{ |f|
-         if %w/comm cmdline groups wchan flags/.include?(f)
-            assert_kind_of(String, @pt.send(f), "Bad #{f} type")
-         elsif %w/utime stime/.include?(f)
-            assert_kind_of(Float, @pt.send(f), "Bad #{f} type")
-         elsif %w/start/.include?(f)
-            assert_kind_of(Time, @pt.send(f), "Bad #{f} type")
-         else
-            assert_kind_of(Fixnum, @pt.send(f), "Bad #{f} type")
-         end
-      }
-   end
-
-   def teardown
-      @fields = nil
-      @pt = nil
-   end
-end

data/test/tc_hpux.rb

@@ -1,49 +0,0 @@
-##################################################
-# tc_hpux.rb
-#
-# Test case for sys-proctable for HP-UX.
-##################################################
-require "sys/proctable"
-require "test/unit"
-require "test/tc_all"
-include Sys
-
-class TC_ProcTable_HPUX < Test::Unit::TestCase
-   def setup
-      @fields = %w/
-         comm uid pid ppid dsize tsize ssize nice ttydev pgrp pri addr
-         cpu utime stime start flag stat wchan procnum cmd cmdline time
-         cpticks cptickstotal fss pctcpu rssize suid shmsize mmsize usize
-         iosize vtsize vdsize vssize vshmsize vmmsize vusize viosize
-         minorfaults majorfaults nswap nsignals msgrcv msgsnd maxrss
-         sid schedpolicy ticksleft euid egid gid sgid        
-      /
-      @pt = ProcTable.ps.first
-   end
-
-   def test_expected_fields
-      msg = "Struct members don't match expected fields"
-      assert_equal(@fields.length, @pt.length,"Bad length")
-      assert_equal(@fields, ProcTable.fields,"Bad fields")
-      assert_equal(@fields, @pt.members,msg)
-   end
-
-   def test_struct_member_types
-      @fields.each{ |f|
-         if %w/comm stat cmd cmdline ttydev/.include?(f)
-            assert_kind_of(String,@pt.send(f),"Bad #{f} type")
-         elsif %w/pctcpu/.include?(f)
-            assert_kind_of(Float,@pt.send(f),"Bad #{f} type")
-         elsif %w/start/.include(f)
-            assert_kind_of(Time,@pt.send(f),"Bad #{f} type")
-         else
-            assert_kind_of(Fixnum,@pt.send(f),"Bad #{f} type")
-         end
-      }
-   end
-
-   def teardown
-      @fields = nil
-      @pt = nil
-   end
-end

data/test/tc_kvm_bsd.rb

@@ -1,31 +0,0 @@
-################################################################
-# tc_kvm_bsd.rb
-#
-# Test suite for the BSD specific version of the kvm interface. 
-################################################################
-require "test/unit"
-require "sys/proctable"
-include Sys
-
-class TC_KVM_BSD < Test::Unit::TestCase
-   def setup
-      @fields = %w/
-         pid ppid pgid ruid rgid comm state pct_cpu cpu_num tty_num
-         tty_dev wchan time priority usr_priority nice cmdline start_time
-         max_rss ix_rss id_rss is_rss minflt maxflt nswap inblock oublock
-         msgsnd msgrcv nsignals nvcsw nivcsw user_time system_time
-      /
-      @pt = ProcTable.ps.first
-   end
-
-   def test_field_members
-      msg = "Struct members don't match expected fields"
-      assert_equal(@fields.length, @pt.length, "Bad number of fields")
-      assert_equal(@fields, ProcTable.fields, "Bad field members")
-      assert_equal(@fields, @pt.members, msg)
-   end
-
-   def teardown
-      @fields = nil
-   end
-end

data/test/tc_linux.rb

@@ -1,45 +0,0 @@
-##########################################
-# tc_linux.rb
-#
-# Test suite for sys-proctable for Linux.
-##########################################
-require "sys/proctable"
-require "test/unit"
-require "test/tc_all"
-
-class TC_ProcTable_Linux < Test::Unit::TestCase
-
-   def setup
-      @fields = %w/
-         cmdline cwd exe pid name uid euid gid egid comm state ppid pgrp
-         session tty_num tpgid flags minflt cminflt majflt cmajflt utime
-         stime cutime cstime priority nice itrealvalue starttime vsize
-         rss rlim startcode endcode startstack kstkesp kstkeip signal blocked          
-         sigignore sigcatch wchan nswap cnswap exit_signal processor environ        
-      /
-      @pt = ProcTable.ps.first
-   end
-
-   def test_field_members
-      msg = "Struct members don't match expected fields"
-      assert_equal(@fields.length, @pt.length, "Bad length")
-      assert_equal(@fields, ProcTable.fields, "Bad fields")
-      assert_equal(@fields, @pt.members,msg)
-   end
-
-   def test_struct_member_types
-      @fields.each{ |f|
-         if %w/cmdline cwd exe name comm state/.include?(f)
-            assert_kind_of(String,@pt.send(f),"Bad #{f} type")
-         elsif f == "environ"
-            assert_kind_of(Hash,@pt.environ,"Bad environ type")
-         else
-            assert_kind_of(Integer,@pt.send(f),"Bad #{f} type")
-         end
-      }
-   end
-
-   def teardown
-      @pt = nil
-   end
-end

data/test/tc_sunos.rb

@@ -1,52 +0,0 @@
-##################################################
-# tc_sunos.rb
-#
-# Test suite for sys-proctable for SunOS/Solaris.
-##################################################
-require "sys/proctable"
-require "test/unit"
-require "test/tc_all"
-include Sys
-
-class TC_ProcTable_SunOS < Test::Unit::TestCase
-   def setup
-      @fields = %w/
-         flag nlwp pid ppid pgid sid uid euid gid egid priority
-         nice ttydev time ctime size rss wchan pctcpu pctmem
-         state fname cmdline start processor comm num_args
-         cmd_args lwpid count tstamp create term rtime utime
-         stime ttime tftime dftime kftime ltime slptime wtime
-         stoptime minf majf nswap inblk oublk msnd mrcv sigs
-         vctx ictx sysc ioch
-      /
-      @pt = ProcTable.ps.first
-   end
-
-   def test_field_members
-      msg = "Struct members don't match expected fields"
-      assert_equal(@fields.length, @pt.length, "Bad number of fields")
-      assert_equal(@fields, ProcTable.fields, "Bad field members")
-      assert_equal(@fields, @pt.members, msg)
-   end
-
-   def test_struct_member_types
-      @fields.each{ |f|
-         if %w/comm state fname cmdline/.include?(f)
-            assert_kind_of(String,@pt.send(f),"Bad #{f} type")
-         elsif %w/pctcpu pctmem/.include?(f)
-            assert_kind_of(Float,@pt.send(f),"Bad #{f} type")
-         elsif %w/cmd_args/.include?(f)
-            assert_kind_of(Array,@pt.send(f),"Bad #{f} type")
-         elsif %w/start/.include?(f)
-            assert_kind_of(Time,@pt.send(f),"Bad #{f} type")
-         else
-            assert_kind_of(Fixnum,@pt.send(f),"Bad #{f} type")
-         end
-      }
-   end
-
-   def teardown
-      @pt = nil
-      @fields = nil
-   end
-end