[ruby-dev:22237] File#link in environments without link()

Siena. です。

OS/2 with EMX で test_fileutils.rb を実行して気付いたのですが、
File#link を呼んだ時に次の例外が上がります。

/fileutils/test_fileutils.rb:35:in `link': 
No such file or directory - linktmp or linktest (Errno::ENOENT)
	from ./fileutils/test_fileutils.rb:35
(後略)

OS/2 with EMX では link() が存在せず、現在は missing/os2.c で
{ return -1; } で仮実装されているのが原因だと分かりました。

file.c を見ると、rb_file_s_link() では無条件に link() を呼ぶのに対し、
rb_file_s_symlink() では HAVE_SYMLINK で存在を確認しています。
そこで、File#link もこれに合わせるように変更してみました。

手元でのビルドではテストまで通りましたが、変更はこれだけで十分でしょうか。


Index: ruby/configure.in
===================================================================
RCS file: /src/ruby/configure.in,v
retrieving revision 1.204
diff -u -p -2 -r1.204 configure.in
--- ruby/configure.in	11 Dec 2003 02:39:57 -0000	1.204
+++ ruby/configure.in	11 Dec 2003 16:28:53 -0000
@@ -385,5 +385,5 @@ AC_REPLACE_FUNCS(dup2 memmove mkdir strc
 		 isinf isnan finite hypot acosh erf)
 AC_CHECK_FUNCS(fmod killpg wait4 waitpid syscall chroot fsync getcwd\
-	      truncate chsize times utimes fcntl lockf lstat symlink readlink\
+	      truncate chsize times utimes fcntl lockf lstat link symlink readlink\
 	      setitimer setruid seteuid setreuid setresuid setproctitle\
 	      setrgid setegid setregid setresgid issetugid pause lchown lchmod\
Index: ruby/file.c
===================================================================
RCS file: /src/ruby/file.c,v
retrieving revision 1.165
diff -u -p -2 -r1.165 file.c
--- ruby/file.c	11 Dec 2003 02:39:57 -0000	1.165
+++ ruby/file.c	11 Dec 2003 16:29:00 -0000
@@ -1258,4 +1258,5 @@ rb_file_s_link(klass, from, to)
     VALUE klass, from, to;
 {
+#ifdef HAVE_LINK
     SafeStringValue(from);
     SafeStringValue(to);
@@ -1265,4 +1266,8 @@ rb_file_s_link(klass, from, to)
     }
     return INT2FIX(0);
+#else
+    rb_notimplement();
+    return Qnil;		/* not reached */
+#endif
 }
 
Index: ruby/missing/os2.c
===================================================================
RCS file: /src/ruby/missing/os2.c,v
retrieving revision 1.3
diff -u -p -2 -r1.3 os2.c
--- ruby/missing/os2.c	6 Mar 2001 08:17:18 -0000	1.3
+++ ruby/missing/os2.c	11 Dec 2003 16:29:08 -0000
@@ -17,5 +17,5 @@ chown(char *path, int owner, int group)
 	return 0;
 }
-
+#if 0
 int
 link(char *from, char *to)
@@ -23,4 +23,28 @@ link(char *from, char *to)
 	return -1;
 }
+#endif
+
 
 typedef char* CHARP;


---
Siena. <mailto:[e-mail]>