[Mew-dist 1195] immv --link

[OKUNISHI Fujikazu]

OS/2 使いです。

> ;; `link' はどうなるのでしょう? (^o^;;

と申しておりましたが，im-40 でも複数のフォルダへの immv がだめでした。
DOS 系 OS では (hard|symbolic)-link という概念がないので当然 perl でも 
`link' がサポートされない (T_T) からです。

> [D:\]immv --src=+trash +.trash,+smp 24
> The Unsupported function link function is unimplemented at D:\MH\BIN\immv line 114.

これは単にコピーと同等の処理で問題ないと割り切って，File::Copy を使っ
てみたら動きました。(^_^;
win95p でも同じだろうと思います。
-------------- next part --------------
--- Config.pm.in.orig	Wed Jul 02 00:06:54 1997
+++ Config.pm.in	Sat Jul 05 02:35:50 1997
@@ -39,7 +39,7 @@
         aliases_file context_file
         address addresses_regex
 	unixp win95p wntp os2p
-	im_msg im_err im_warn im_die);
+	im_msg im_err im_warn im_die im_link);
 
 ##
 ## Constant
@@ -687,3 +687,12 @@
 	}
 	return $folder;
 }
+
+sub im_link { 
+  if (os2p()) {
+  eval 'use File::Copy';
+  return ©
+  } else {
+  return &link;
+  }
+ }
-------------- next part --------------
--- d:immv.in	Wed Jul 02 00:06:52 1997
+++ immv.in	Sat Jul 05 02:30:20 1997
@@ -24,7 +24,7 @@
 
 use IM::Config;
 use IM::Folder;
-
+#if (os2p()) { eval 'use File::Copy'; }
 ##
 ## Environments
 ##
@@ -109,10 +109,10 @@
 	}
 	if ($opt_link){
 	    $opt_noharm ? print "ln $src_path $dst_path\n" :
-		link($src_path, $dst_path) || die $@;      # XXX
+		im_link($src_path, $dst_path) || die $@;      # XXX
 	} elsif ($link_it){
 	    $opt_noharm ? print "ln $link_it $dst_path\n"  :
-		link($link_it, $dst_path) || die $@;       # XXX
+		im_link($link_it, $dst_path) || die $@;       # XXX
 	} else {
 	    $opt_noharm ? print "mv $src_path $dst_path\n" :
 		rename($src_path, $dst_path) || die $@;    # XXX
-------------- next part --------------
----
奥西藤和 / OKUNISHI Fujikazu
mailto:fuji0924 at example.com
Public Key: mailto:public-key-server at example.com /Subject:GET 0x1B8BF431
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/pgp-signature
サイズ:     369 バイト
説明:       無し
URL:        <http://www.mew.org/pipermail/mew-dist/attachments/19970705/e984893f/attachment.bin>