shelarcy
shela****@capel*****
2004年 12月 1日 (水) 00:18:35 JST
On Tue, 30 Nov 2004 02:51:05 -1000 (HST), Shiro Kawai <shiro****@lava*****> wrote: > ところで(software-type)がMS-DOSの場合、library-vicinityが > 固定になってますね。そこはどうされてますか。 > configure時に決めるのはWindowsにそぐわないと思うし、ランタイムに > 何か情報がとれればそれが良いと思います。 あー、デフォルトでいいと思って考えてなかったですね。 とりあえず、こんな形でどうでしょう？ Windows User が普通突っ込むとしたら Gauche のあるディレクトリかな？ というわけで決めうちですが、ライブラリを普段手動で置くところとして share\\gauche\\site\\lib もサポートしておいた方が良いかもしれませ んね。 --- C:\develop\Gauche-mingw-dist\Gauche-mingw-0.8.2\share\gauche\0.8.2\lib\slib.scm.1~ Tue Nov 30 22:39:00 2004 +++ C:\develop\Gauche-mingw-dist\Gauche-mingw-0.8.2\share\gauche\0.8.2\lib\slib.scm Tue Nov 30 23:51:52 2004 @@ -56,7 +56,9 @@ (case (software-type) ((UNIX) "/usr/share/slib/") ((VMS) "lib$scheme:") - ((MS-DOS) "C:\\SLIB\\") + ((MS-DOS) (let ((gauche-directory (string-scan (car *load-path*) "share" 'before))) + (cond ((file-exists? "C:\\SLIB") "C:\\SLIB\\") + ((file-exists? (string-append gauche-directory "SLIB")) (string-append gauche-directory "SLIB\\"))))) (else ""))))) (lambda () library-path))) -- shelarcy <shelarcy capella.freemail.ne.jp> http://page.freett.com/shelarcy/
