Feature #9770 ยป etc-uname.patch
| ext/etc/etc.c (working copy) | ||
|---|---|---|
|
#include <grp.h>
|
||
|
#endif
|
||
|
#ifdef HAVE_SYS_UTSNAME_H
|
||
|
#include <sys/utsname.h>
|
||
|
#endif
|
||
|
static VALUE sPasswd;
|
||
|
#ifdef HAVE_GETGRENT
|
||
|
static VALUE sGroup;
|
||
| ... | ... | |
|
return tmpdir;
|
||
|
}
|
||
|
#ifdef HAVE_UNAME
|
||
|
/*
|
||
|
* Returns the system information obtained by uname system call.
|
||
|
*
|
||
|
* The return value is a hash which has 5 keys at least:
|
||
|
* :sysname, :nodename, :release, :version, :machine
|
||
|
*
|
||
|
* Example:
|
||
|
*
|
||
|
* require 'etc'
|
||
|
* require 'pp'
|
||
|
*
|
||
|
* pp Etc.uname
|
||
|
* #=> {:sysname=>"Linux",
|
||
|
* # :nodename=>"boron",
|
||
|
* # :release=>"2.6.18-6-xen-686",
|
||
|
* # :version=>"#1 SMP Thu Nov 5 19:54:42 UTC 2009",
|
||
|
* # :machine=>"i686"}
|
||
|
*
|
||
|
*/
|
||
|
static VALUE
|
||
|
etc_uname(VALUE obj)
|
||
|
{
|
||
|
struct utsname u;
|
||
|
int ret;
|
||
|
VALUE result;
|
||
|
ret = uname(&u);
|
||
|
if (ret == -1)
|
||
|
rb_sys_fail("uname");
|
||
|
result = rb_hash_new();
|
||
|
rb_hash_aset(result, ID2SYM(rb_intern("sysname")), rb_str_new_cstr(u.sysname));
|
||
|
rb_hash_aset(result, ID2SYM(rb_intern("nodename")), rb_str_new_cstr(u.nodename));
|
||
|
rb_hash_aset(result, ID2SYM(rb_intern("release")), rb_str_new_cstr(u.release));
|
||
|
rb_hash_aset(result, ID2SYM(rb_intern("version")), rb_str_new_cstr(u.version));
|
||
|
rb_hash_aset(result, ID2SYM(rb_intern("machine")), rb_str_new_cstr(u.machine));
|
||
|
return result;
|
||
|
}
|
||
|
#else
|
||
|
#define etc_uname rb_f_notimplement
|
||
|
#endif
|
||
|
/*
|
||
|
* The Etc module provides access to information typically stored in
|
||
|
* files in the /etc directory on Unix systems.
|
||
| ... | ... | |
|
rb_define_module_function(mEtc, "getgrent", etc_getgrent, 0);
|
||
|
rb_define_module_function(mEtc, "sysconfdir", etc_sysconfdir, 0);
|
||
|
rb_define_module_function(mEtc, "systmpdir", etc_systmpdir, 0);
|
||
|
rb_define_module_function(mEtc, "uname", etc_uname, 0);
|
||
|
sPasswd = rb_struct_define_under(mEtc, "Passwd",
|
||
|
"name",
|
||
| ext/etc/extconf.rb (working copy) | ||
|---|---|---|
|
require 'mkmf'
|
||
|
headers = []
|
||
|
%w[sys/utsname.h].each {|h|
|
||
|
if have_header(h, headers)
|
||
|
headers << h
|
||
|
end
|
||
|
}
|
||
|
have_library("sun", "getpwnam") # NIS (== YP) interface for IRIX 4
|
||
|
have_func("uname((struct utsname *)NULL)", headers)
|
||
|
have_func("getlogin")
|
||
|
have_func("getpwent")
|
||
|
have_func("getgrent")
|
||
| test/etc/test_etc.rb (working copy) | ||
|---|---|---|
|
Etc.endgrent
|
||
|
assert_equal(a, b)
|
||
|
end
|
||
|
def test_uname
|
||
|
begin
|
||
|
uname = Etc.uname
|
||
|
rescue NotImplementedError
|
||
|
return
|
||
|
end
|
||
|
assert_kind_of(Hash, uname)
|
||
|
[:sysname, :nodename, :release, :version, :machine].each {|sym|
|
||
|
assert_operator(uname, :has_key?, sym)
|
||
|
assert_kind_of(String, uname[sym])
|
||
|
}
|
||
|
end
|
||
|
end
|
||