sys-proctable 0.7.6-i586-linux

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 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

@@ -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

data/test/tc_windows.rb

@@ -0,0 +1,40 @@
+##################################################
+# tc_windows.rb
+#
+# Test suite for sys-proctable for MS Windows
+##################################################
+require 'sys/proctable'
+require 'test/unit'
+require 'test/tc_all'
+
+class TC_ProcTable_MSWindows < Test::Unit::TestCase
+   def setup
+      @fields = %w/
+         caption cmdline comm creation_class_name creation_date
+         cs_creation_class_name cs_name description executable_path
+         execution_state handle handle_count install_date kernel_mode_time
+         maximum_working_set_size minimum_working_set_size name
+         os_creation_class_name os_name other_operation_count
+         other_transfer_count page_faults page_file_usage
+         peak_virtual_size ppid peak_working_set_size priority
+         private_page_count pid quota_non_paged_pool_usage
+         quota_paged_pool_usage quota_peak_non_paged_pool_usage
+         quota_non_paged_pool_usage read_operation_count read_transfer_count
+         session_id termination_date thread_count user_mode_time virtual_size
+         windows_version working_set_size write_operation_count write_transfer_count
+      /
+      @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 teardown
+      @pt = nil
+      @fields = nil
+   end
+end

data/test/test_memleak.rb

@@ -0,0 +1,54 @@
+##########################################################
+# test_memleak.rb
+#
+# Test script to check for memory leaks.  For now, it is
+# only supported on Linux.
+##########################################################
+unless PLATFORM =~ /linux/i
+   puts "This program is currently only supported on Linux"
+   puts "Exiting program"
+   exit!
+end
+
+base = File.basename(Dir.pwd)
+if base == "test" || base =~ /^sys-proctable.*/
+   require "fileutils"
+   Dir.chdir("..") if base == "test"
+   $LOAD_PATH.unshift(Dir.pwd)
+   File.delete("sys/proctable.so") rescue nil
+   Dir.mkdir("sys") rescue nil
+   FileUtils.cp("ext/proctable.so", "sys")
+end
+
+
+require "sys/proctable"
+include Sys
+
+pid = Process.pid
+fd_file = "/proc/#{pid}/fd/*"
+
+initial_fd = 0 # initial number of file descriptors
+found = false
+
+puts "ProcTable VERSION: " + ProcTable::VERSION
+
+0.upto(50){ |n|
+   ProcTable.ps
+   if 0 == n
+      initial_fd = Dir[fd_file].length + 1 # one fd margin of error
+      puts "Initial file descriptors in use: #{initial_fd - 1}"
+   else
+      current_fd = Dir[fd_file].length
+      if current_fd > initial_fd
+         puts "Possible memory leak.  FD count now up to #{current_fd}"
+         found = true
+      end
+   end
+}
+
+if found
+   puts "You appear to have a file descriptor issue"
+   puts "After 50 iterations you had #{n} file descriptors open"
+else
+   puts "No apparent fd leaks"
+end 

metadata

@@ -0,0 +1,73 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.4
+specification_version: 1
+name: sys-proctable
+version: !ruby/object:Gem::Version 
+  version: 0.7.6
+date: 2007-07-11 00:00:00 -06:00
+summary: An interface for providing process table information
+require_paths: 
+- lib
+email: djberg96@gmail.com
+homepage: http://www.rubyforge.org/projects/sysutils
+rubyforge_project: sysutils
+description: An interface for providing process table information
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      version: 1.8.0
+  version: 
+platform: i586-linux
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- Daniel J. Berger
+files: 
+- doc/freebsd.txt
+- doc/top.txt
+- doc/solaris.txt
+- doc/windows.txt
+- doc/hpux.txt
+- doc/linux.txt
+- test/tc_linux.rb
+- test/tc_sunos.rb
+- test/tc_kvm_bsd.rb
+- test/tc_hpux.rb
+- test/tc_windows.rb
+- test/test_memleak.rb
+- test/tc_all.rb
+- test/tc_freebsd.rb
+- test/tc_top.rb
+- lib/sys/top.rb
+- CHANGES
+- README
+- MANIFEST
+- ext/linux/linux.c
+- ext/extconf.rb
+- ext/version.h
+- ext/linux/linux.h
+test_files: 
+- test/tc_linux.rb
+rdoc_options: []
+
+extra_rdoc_files: 
+- CHANGES
+- README
+- MANIFEST
+- doc/top.txt
+- doc/linux.txt
+- ext/linux/linux.c
+executables: []
+
+extensions: 
+- ext/extconf.rb
+requirements: []
+
+dependencies: []
+