From 88431b74fcb16e92e67ec3d3abf205793b255772 Mon Sep 17 00:00:00 2001
From: akr <akr@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 1 Aug 2010 20:35:33 +0000
Subject: [PATCH] * ext/pathname/pathname.c (path_realdirpath):
 Pathname#realdirpath   translated from pathname.rb.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@28831 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog                    |  5 +++++
 ext/pathname/lib/pathname.rb | 10 ----------
 ext/pathname/pathname.c      | 16 ++++++++++++++++
 3 files changed, 21 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0e755578d4..43fc95ba80 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Mon Aug  2 05:34:48 2010  Tanaka Akira  <akr@fsij.org>
+
+	* ext/pathname/pathname.c (path_realdirpath): Pathname#realdirpath
+	  translated from pathname.rb.
+
 Sun Aug  1 23:04:49 2010  Tanaka Akira  <akr@fsij.org>
 
 	* lib/pp.rb: describe superclasses explicitly.
diff --git a/ext/pathname/lib/pathname.rb b/ext/pathname/lib/pathname.rb
index 760277e640..a89b740638 100644
--- a/ext/pathname/lib/pathname.rb
+++ b/ext/pathname/lib/pathname.rb
@@ -179,16 +179,6 @@ class Pathname
   end
   private :cleanpath_conservative
 
-  #
-  # Returns the real (absolute) pathname of +self+ in the actual filesystem.
-  # The real pathname doesn't contain symlinks or useless dots.
-  #
-  # The last component of the real pathname can be nonexistent.
-  #
-  def realdirpath(basedir=nil)
-    self.class.new(File.realdirpath(@path, basedir))
-  end
-
   # #parent returns the parent directory.
   #
   # This is same as <tt>self + '..'</tt>.
diff --git a/ext/pathname/pathname.c b/ext/pathname/pathname.c
index 273ecee07c..d4fd502674 100644
--- a/ext/pathname/pathname.c
+++ b/ext/pathname/pathname.c
@@ -215,6 +215,21 @@ path_realpath(int argc, VALUE *argv, VALUE self)
     return rb_class_new_instance(1, &str, rb_obj_class(self));
 }
 
+/*
+ * Returns the real (absolute) pathname of +self+ in the actual filesystem.
+ * The real pathname doesn't contain symlinks or useless dots.
+ * 
+ * The last component of the real pathname can be nonexistent.
+ */
+static VALUE
+path_realdirpath(int argc, VALUE *argv, VALUE self)
+{
+    VALUE basedir, str;
+    rb_scan_args(argc, argv, "01", &basedir);
+    str = rb_funcall(rb_cFile, rb_intern("realdirpath"), 2, get_strpath(self), basedir);
+    return rb_class_new_instance(1, &str, rb_obj_class(self));
+}
+
 /*
  * == Pathname
  *
@@ -414,4 +429,5 @@ Init_pathname()
     rb_define_method(rb_cPathname, "sub", path_sub, -1);
     rb_define_method(rb_cPathname, "sub_ext", path_sub_ext, 1);
     rb_define_method(rb_cPathname, "realpath", path_realpath, -1);
+    rb_define_method(rb_cPathname, "realdirpath", path_realdirpath, -1);
 }