From 043f665274006e4f040e681e0a1aee4975cf30b5 Mon Sep 17 00:00:00 2001 From: nobu Date: Mon, 2 Feb 2009 07:33:08 +0000 Subject: * dir.c (dir_s_home): new method. [ruby-core:21454] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@21953 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- dir.c | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'dir.c') diff --git a/dir.c b/dir.c index f5e8cf72e8..f938fae721 100644 --- a/dir.c +++ b/dir.c @@ -1852,6 +1852,30 @@ file_s_fnmatch(int argc, VALUE *argv, VALUE obj) return Qfalse; } +VALUE rb_home_dir(const char *user, VALUE result); + +/* + * call-seq: + * Dir.home() => "/home/me" + * Dir.home("root") => "/root" + * + * Returns the home directory of the current user or the named user + * if given. + */ +static VALUE +dir_s_home(int argc, VALUE *argv, VALUE obj) +{ + VALUE user; + const char *u = 0; + + rb_scan_args(argc, argv, "01", &user); + if (!NIL_P(user)) { + SafeStringValue(user); + u = StringValueCStr(user); + } + return rb_home_dir(u, rb_str_new(0, 0)); +} + /* * Objects of class Dir are directory streams representing * directories in the underlying file system. They provide a variety of @@ -1895,6 +1919,7 @@ Init_Dir(void) rb_define_singleton_method(rb_cDir,"rmdir", dir_s_rmdir, 1); rb_define_singleton_method(rb_cDir,"delete", dir_s_rmdir, 1); rb_define_singleton_method(rb_cDir,"unlink", dir_s_rmdir, 1); + rb_define_singleton_method(rb_cDir,"home", dir_s_home, -1); rb_define_singleton_method(rb_cDir,"glob", dir_s_glob, -1); rb_define_singleton_method(rb_cDir,"[]", dir_s_aref, -1); -- cgit v1.2.3