--- title: Gaucheでスクリプトのあるディレクトリを取得する — (2) author: kazu634 date: 2010-11-13 url: /2010/11/13/_1618/ wordtwit_post_info: - 'O:8:"stdClass":13:{s:6:"manual";b:0;s:11:"tweet_times";i:1;s:5:"delay";i:0;s:7:"enabled";i:1;s:10:"separation";s:2:"60";s:7:"version";s:3:"3.7";s:14:"tweet_template";b:0;s:6:"status";i:2;s:6:"result";a:0:{}s:13:"tweet_counter";i:2;s:13:"tweet_log_ids";a:1:{i:0;i:5377;}s:9:"hash_tags";a:0:{}s:8:"accounts";a:1:{i:0;s:7:"kazu634";}}' categories: - gauche - Lisp ---

前回の記事に対して、shiroさんからの以下のコメントを頂きました:

(car argv) に渡ってくるのはコマンドラインに渡されたものですよ (ただし先頭の ‘~’ はシェルによって展開済み)。したがって

gosh ../foo.scm

などと起動されれば “../foo.scm” が来ます。

要は、スクリプトファイルの位置は、それが絶対パスであればそののも、それが相対パスであればカレントディレクトリからの相対パスになってるというだけなので、単純にスクリプトファイル名を絶対パス化してからdirnameを取ってやればいいんじゃないでしょうか。

なるほど!!というわけで、以下の関数を作成してみました。

;;; 引数としてスクリプトファイル名(つまり(car *argv*)です)
;;; を受け取り、スクリプトファイルが存在するディレクトリを
;;; 返す関数
(define (script-directory script-name)
(receive (path . rest)
(decompose-path script-name)
(if (absolute-path? path)
path
(string-append (current-directory)
"/"
path))))

これで上手く動いているようです。

Shiroさん、ありがとうございました。