sys-proctable 0.7.6-powerpc-darwin

data/ext/extconf.rb

@@ -0,0 +1,98 @@
+#############################################################################
+# Installation script for sys-proctable.
+#
+# By running this file, it is assumed that you want a C extension, and not
+# a pure Ruby version.  If you want a pure Ruby version (and you're on a 
+# platform for which it's supported), run install.rb instead.
+#############################################################################
+require 'mkmf'
+require 'fileutils'
+
+c_file  = nil
+h_file  = nil
+tc_file = nil
+
+########################################################################
+# Ruby 1.8.3 and later mandates the use of rb_pid_t over pid_t because
+# some libraries define their own pid_t.  So, we check for that.
+########################################################################
+have_type('rb_pid_t', 'ruby.h')
+
+##########################################################################
+# Determine appropriate source files based on platform.  Also, check for
+# certain header files and/or libraries on some platforms.
+#
+# On FreeBSD a different source file is used if the /proc filesystem is
+# not found (kvm is used instead).  For OpenBSD or NetBSD, the kvm
+# interface is always used for now.
+##########################################################################
+case RUBY_PLATFORM
+   when /hpux/i
+      c_file  = 'hpux/hpux.c'
+      h_file  = 'hpux/hpux.h'
+      tc_file = 'tc_hpux'
+   when /freebsd/i
+      if File.exists?('/proc') && Dir['/proc/*'].length > 0
+         c_file  = 'freebsd/freebsd.c'
+         h_file  = 'freebsd/freebsd.h'
+         tc_file = 'tc_freebsd'
+      else
+         have_library('kvm')
+         have_struct_member('struct kinfo_proc', 'kp_proc', 'sys/user.h')
+         have_struct_member('struct kinfo_proc', 'kp_eproc', 'sys/user.h')
+         c_file  = 'bsd/bsd.c'
+         tc_file = 'tc_kvm_bsd.rb'
+      end
+   when /openbsd|netbsd/
+      have_library('kvm')
+      c_file  = 'bsd/bsd.c'
+      tc_file = 'tc_kvm_bsd.rb'
+   when /solaris|sunos/i
+      c_file  = 'sunos/sunos.c'
+      h_file  = 'sunos/sunos.h'
+      tc_file = 'tc_sunos'
+      have_header('procfs.h') # false means Solaris 2.5.x
+   when /linux/i
+      c_file  = 'linux/linux.c'
+      h_file  = 'linux/linux.h'
+      tc_file = 'tc_linux'
+   when /darwin/i
+      c_file = 'darwin/darwin.c'
+      tc_file = 'tc_darwin'
+   when /windows|win32|cygwin|mingw|dos/i
+      msg = 'Use the install_pure_ruby.rb script to install on MS Windows'
+      STDERR.puts msg
+      exit
+   else
+      puts 'This platform not currently supported.  Exiting...'
+      exit
+end
+
+#####################################################################
+# Move the 'windows.rb' file under 'lib/sys/' to '.orig' to prevent
+# mkmf from installing it during the 'make install' phase.
+#####################################################################
+if File.exists?('../lib/sys/windows.rb')
+   File.rename('../lib/sys/windows.rb', '../lib/sys/windows.orig')
+end
+
+###################
+# build ts_all.rb
+###################
+test_file = '../test/ts_all.rb'
+File.open(test_file, 'w'){ |fh|
+   fh.puts "require 'tc_all'"
+   fh.puts "require '#{tc_file}'"
+   fh.puts "require 'tc_top'"
+}
+
+########################################################################
+# Copy or link files to current directory for create_makefile to work.
+######################################################################## 
+File.delete('proctable.c') rescue nil
+File.delete(File.basename(h_file)) rescue nil
+
+FileUtils.cp(c_file, 'proctable.c')
+FileUtils.cp(h_file, File.basename(h_file)) if h_file
+
+create_makefile('sys/proctable')

data/ext/version.h

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

data/lib/sys/top.rb

@@ -0,0 +1,23 @@
+require "sys/proctable"
+module Sys
+   class Top
+      VERSION = "1.0.1"
+      WINDOWS = PLATFORM.match("mswin")
+
+      def self.top(num=10, field="pctcpu")
+         # Sort by pid on Windows by default
+         if WINDOWS && field == "pctcpu"
+            field = "pid"
+         end
+         
+         # Linux does not have a pctcpu field yet
+         if RUBY_PLATFORM =~ /linux/ && field == "pctcpu"
+            field = "pid"
+         end
+            
+         Sys::ProcTable.ps.sort{ |a,b|
+            b.send(field) <=> a.send(field)
+         }[0..num-1]
+      end
+   end
+end

data/test/tc_all.rb

@@ -0,0 +1,59 @@
+#######################################################################
+# 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

@@ -0,0 +1,45 @@
+############################################
+# 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

@@ -0,0 +1,49 @@
+##################################################
+# 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

@@ -0,0 +1,31 @@
+################################################################
+# 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 pctcpu 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

@@ -0,0 +1,45 @@
+##########################################
+# 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

@@ -0,0 +1,52 @@
+##################################################
+# 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

data/test/tc_top.rb

@@ -0,0 +1,26 @@
+##############################################################################
+# tc_top.rb
+#
+# Test suite for the sys-top package that is included with this distribution.
+##############################################################################
+require 'test/unit'
+require 'sys/top'
+include Sys
+
+class TC_Top < Test::Unit::TestCase
+   def test_version
+      assert_equal('1.0.1', Top::VERSION)
+   end
+
+   def test_top
+      assert_respond_to(Top,:top)
+      assert_nothing_raised{ Top.top }
+      assert_nothing_raised{ Top.top(5) }
+      assert_nothing_raised{ Top.top(5, 'cmdline') }
+      assert_raises(ArgumentError){ Top.top(1,'foo',2) }
+      assert_kind_of(Array, Top.top)
+      assert_equal(10, Top.top.length)
+      assert_equal(5, Top.top(5).length)
+      assert_kind_of(Struct::ProcTableStruct, Top.top.first)
+   end
+end