sysctl 0.0.1.alpha1

data/lib/new.rb

@@ -0,0 +1,19 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of sysctl.
+#
+# sysctl is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sysctl 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with sysctl. If not, see <http://www.gnu.org/licenses/>.
+#++
+

data/lib/sysctl.rb

@@ -0,0 +1,69 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of sysctl.
+#
+# sysctl is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sysctl 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with sysctl. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'sysctl/extensions'
+
+module Sysctl
+  extend FFI::Library
+  ffi_lib 'c'
+
+  attach_function :sysctl, [ :pointer, :size_t, :pointer, :pointer, :pointer, :size_t ], :int
+
+  class << self
+    alias __c_sysctl__ sysctl
+    private :__c_sysctl__
+  end
+
+  def self.sysctl (ctl)
+    mib = CTL_NAMES[ctl]
+    return unless mib
+
+    type = mib.type.is_a?(Symbol) ? FFI.find_type(mib.type) : mib.type
+
+    if type.is_a?(FFI::Type::Builtin) and type.name.downcase == :string
+      tvp = FFI::MemoryPointer.from_string("\0" * 8192)
+      tvs = FFI::MemoryPointer.new(:int).write_int(tvp.size)
+    else
+      tvp = FFI::MemoryPointer.new(type)
+      tvs = FFI::MemoryPointer.new(:int).write_int(type.size)
+    end
+
+    mip = FFI::MemoryPointer.new(:int, mib.mib.size).write_array_of_int(mib.mib)
+
+    raise Errno.const_get(Errno.constants[FFI.errno]) if __c_sysctl__(mip, mib.mib.size, tvp, tvs, nil, 0) != 0
+
+    tvp.typecast(type)
+  end
+end
+
+def sysctl (name)
+  Sysctl.sysctl(name)
+end
+
+module Kernel
+  def self.sysctl (name)
+    Sysctl.sysctl(name)
+  end
+end
+
+begin
+  require "sysctl/platform/#{RUBY_PLATFORM.split('-').last}"
+rescue LoadError
+  raise "Platform not supported."
+end

data/lib/sysctl/extensions.rb

@@ -0,0 +1,74 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of sysctl.
+#
+# sysctl is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sysctl 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with sysctl. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'ffi'
+require 'memoized'
+
+module FFI
+  module Library
+    def has_function? (sym, libraries=[])
+      if libraries.empty?
+        libraries << FFI::Library::LIBC
+      end
+
+      libraries.any? {|lib|
+        DynamicLibrary.new(lib, 0).find_function(sym.to_s) rescue nil
+      }
+    end
+
+    def attach_function! (*args, &block)
+      begin
+        attach_function(*args, &block)
+      rescue Exception => e
+        false
+      end
+    end
+  end
+
+  class Type::Builtin
+    memoize
+    def name
+      Type::Builtin.constants.find {|name|
+        Type::Builtin.const_get(name) == self
+      }
+    end
+  end
+
+  class Pointer
+    def typecast (type)
+      if type.is_a?(Symbol)
+        type = FFI.find_type(type)
+      end
+
+      if type.is_a?(Class) and type.ancestors.member?(FFI::Struct)
+        type.new(self)
+      elsif type.is_a?(Type::Builtin)
+        if type.name == :STRING
+          read_string
+        else
+          send "read_#{type.name.downcase}"
+        end
+      else
+        ArgumentError.new "You have to pass a Struct, a Builtin type or a Symbol"
+      end
+    end
+  end
+end
+
+FFI.find_type(:size_t) rescue FFI.typedef(:ulong, :size_t)

data/lib/sysctl/platform/darwin.rb

@@ -0,0 +1,20 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of sysctl.
+#
+# sysctl is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sysctl 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with sysctl. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'sysctl/tree_parser'

data/lib/sysctl/platform/freebsd.rb

@@ -0,0 +1,20 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of sysctl.
+#
+# sysctl is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sysctl 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with sysctl. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'sysctl/tree_parser'

data/lib/sysctl/platform/linux.rb

@@ -0,0 +1,20 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of sysctl.
+#
+# sysctl is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sysctl 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with sysctl. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'sysctl/tree_parser'

data/lib/sysctl/platform/openbsd.rb

@@ -0,0 +1,100 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of sysctl.
+#
+# sysctl is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sysctl 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with sysctl. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+require 'sysctl/tree_parser'
+
+module Sysctl
+  FFI.typedef(:uint32, :fixpt_t)
+
+  class LoadAVG < FFI::Struct
+    layout \
+      :ldavg, [:fixpt_t, 3],
+      :fscale, :long
+  end
+
+  CTL_NAMES = CTLRoot.new([
+    ['fs', 3, :node,
+      [
+        ['posix', nil, :node, [
+          ['setuid', 1]
+        ]]
+      ]
+    ],
+    ['hw', 6, :node,
+      [
+        ['machine', 1, :string],
+        ['model', 2, :string],
+        ['ncpu', 3],
+        ['byteorder', 4],
+        ['pagesize', 7],
+        ['disknames', 8, :string],
+        ['diskstats', 9, :struct],
+        ['diskcount', 10],
+        ['sensors', 11, :node],
+        ['cpuspeed', 12],
+        ['setperf', 13],
+        ['vendor', 14, :string],
+        ['product', 15, :string],
+        ['version', 16, :string],
+        ['serialno', 17, :string],
+        ['uuid', 18, :string],
+        ['physmem', 10],
+        ['usermem', 20],
+        ['ncpufound', 21]
+      ]
+    ],
+    ['user', 8, :node,
+      [
+        ['cs_path', 1, :string],
+        ['bc_base_max', 2],
+        ['bc_dim_max', 3],
+        ['bc_scale_max', 4],
+        ['bc_string_max', 5],
+        ['coll_weights_max', 6],
+        ['expr_nest_max', 7],
+        ['line_max', 8],
+        ['re_dup_max', 9],
+        ['posix2_version', 10],
+        ['posix2_c_bind', 11],
+        ['posix2_c_dev', 12],
+        ['posix2_char_term', 13],
+        ['posix2_fort_dev', 14],
+        ['posix2_fort_run', 15],
+        ['posix2_localedef', 16],
+        ['posix2_sw_dev', 17],
+        ['posix2_upe', 18],
+        ['stream_max', 19],
+        ['tzname_max', 20]
+      ]
+    ],
+    ['ddb', 9, :node,
+      [
+        ['radix', 1],
+        ['maxwidth', 2],
+        ['maxline', 3],
+        ['tabstop', 4],
+        ['panic', 5],
+        ['console', 6],
+        ['log', 7],
+        ['trigger', 8],
+        ['maxid', 9]
+      ]
+    ]
+  ])
+end

data/lib/sysctl/tree_parser.rb

@@ -0,0 +1,106 @@
+#--
+# Copyleft shura. [ shura1991@gmail.com ]
+#
+# This file is part of sysctl.
+#
+# sysctl is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# sysctl 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 Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with sysctl. If not, see <http://www.gnu.org/licenses/>.
+#++
+
+module Sysctl
+  class MIB < Struct.new(:mib, :type)
+    def initialize (mib, type=nil)
+      self.mib = mib
+      self.type = type
+    end
+
+    alias __set_type__ type=
+    def type= (type)
+      self.__set_type__(type || :int)
+    end
+
+    def << (mib)
+      self.mib << mib
+    end
+  end
+
+  class CTLRoot
+    def initialize (children=nil)
+      @children = {}
+
+      if children.is_a?(Array)
+        children.each {|child|
+          self << (child.is_a?(CTLNode) ? child : CTLNode.new(*child))
+        }
+      end
+    end
+
+    def << (node)
+      return unless node.is_a?(CTLNode)
+      @children[node.name] = node
+      self
+    end
+
+    def children
+      @children
+    end
+
+    def [] (name)
+      tree = name.downcase.split('.')
+
+      mib, * = tree.inject([MIB.new([]), self.children]) {|(mib, node), point|
+        node = node[point]
+        mib << node.value
+        mib.type = node.type
+        [mib, node]
+      }
+
+      mib.mib.compact!
+      mib
+    rescue
+      nil
+    end
+  end
+
+  class CTLNode
+    attr_reader :name, :value, :type
+
+    def initialize (name, value, type=:int, children=nil)
+      @name, @value, @type = name, value, type || :int
+
+      if type == :node
+        @children = {}
+
+        (class << self; self; end).send(:define_method, :<<) {|node|
+          return unless node.is_a?(CTLNode)
+          @children[node.name] = node
+          self
+        }
+
+        (class << self; self; end).send(:define_method, :children) {
+          @children.dup
+        }
+
+        (class << self; self; end).send(:define_method, :[]) {|name|
+          @children[name]
+        }
+
+        if children.is_a?(Array)
+          children.each {|child|
+            self << (child.is_a?(CTLNode) ? child : CTLNode.new(*child))
+          }
+        end
+    end
+    end
+  end
+end

metadata

@@ -0,0 +1,99 @@
+--- !ruby/object:Gem::Specification 
+name: sysctl
+version: !ruby/object:Gem::Version 
+  prerelease: true
+  segments: 
+  - 0
+  - 0
+  - 1
+  - alpha1
+  version: 0.0.1.alpha1
+platform: ruby
+authors: 
+- shura
+autorequire: 
+bindir: bin
+cert_chain: []
+
+date: 2011-06-08 00:00:00 +02:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: ffi
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: memoized
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        version: "0"
+  type: :runtime
+  version_requirements: *id002
+description: A wrapper around sysctl to make its use cool in OpenBSD too
+email: shura1991@gmail.com
+executables: []
+
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- lib/sysctl.rb
+- lib/sysctl/extensions.rb
+- lib/sysctl/platform/openbsd.rb
+- lib/sysctl/platform/darwin.rb
+- lib/sysctl/platform/linux.rb
+- lib/sysctl/platform/freebsd.rb
+- lib/sysctl/tree_parser.rb
+- lib/new.rb
+has_rdoc: true
+homepage: http://github.com/shurizzle/ruby-sysctl
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 1
+      - 3
+      - 1
+      version: 1.3.1
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: A wrapper around sysctl to make its use cool in OpenBSD too
+test_files: []
+