[[About:self:AboutPage.txt]] | [[Profile:http://iddy.jp/profile/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:http://raido.sakura.ne.jp/southly/xyzzy/site-lisp/]] | [[あんてな:http://i-know.jp/southly/listall]] | [[■:http://raido.sakura.ne.jp/southly/lisp/ni/view.lisp]] | [[buzz:http://www.google.com/profiles/southly#buzz]]

• やばいなぁ。emacsの設定にハマり始めた。
• 慣れたxyzzyの快適さに微妙に届かないのが気になるんだよなぁ。
• popup-listが恋しい...

いつかちゃんとまとめたい。

• 基本
• 関連する関数・マクロの定義は $XYZZY/lisp/foreign.l
• foreign パッケージで定義
• サンプルは $XYZZY/lisp/wip/ 以下
• データ型関連
• int -> c:int, double -> c:double, ...
• $XYZZY/lisp/foreign.l, $XYZZY/lisp/wip/winapi.l を参照
• ポインタ型は「(c:char *)」というようなリストの形で表現
• C の構造体は c:define-c-struct で定義
• C の関数を呼ぶ関連
• c:define-dll-entry で C 関数のインターフェースを作る
• c:define-dll-entry RETURN-TYPE NAME (&rest ARGS) DLL-NAME &optional EXPORT-NAME
• RETURN-TYPE 関数の戻り値
• NAME 関数名
• ARGS 関数の引数
• DLL-NAME DLLのパス
• EXPORT-NAME Cの関数名 (DLLでexportされているもの)
• データのやり取りは chunk を介する
• chunk を作るのは si:make-chunk, si:make-string-chunk
• lisp -> C : si:make-string-chunk, si:pack-int32, ...
• C -> lisp : si:unpack-string, si:unpack-int32, ...
• C から呼べる関数(callback関数)を作る関連
• c:defun-c-callable で作る
• c:defun-c-callable RETURN-TYPE NAME (&rest ARGS) &body BODY
• RETURN-TYPE 関数の戻り値の型
• NAME 関数名
• ARGS 関数の引数
• BODY 関数の定義
• データのやり取りは chunk を介する、ということで同上
• 注意点
• 下手をすると簡単に xyzzy が落ちることを頭に入れておく
• gc に注意する
• gc で回収されないオブジェクトを作らない
• C の関数が動いているときに chunk が gc されないように気をつける
• ポインタ型は全部「void *」とみなしても問題ない
• 「void *」は「unsigned long (32bit unsigned integer)」と等価として扱うこともできる
• xyzzy の未実装やバグにも注意
• その他、外部とのやり取り
• dde
• ole

とりあえずできた。REPL では動作確認できた。
要 cl-interpol。
SANO さんの情報がなかったらどうにか interpol-reader を使えないか、悩んでいたかも。サンクスです。
[[(ReadMore...) index.rb?1204642645.txt]]

さくらのサーバにインストールした clisp で asdf を使うための一連の作業をメモ。

clisp には asdf が付属していないのでソースを取得する。

$ cd $HOME/local/lisp
$ wget "http://cclan.cvs.sourceforge.net/*checkout*/cclan/asdf/asdf.lisp"
$ clisp -c asdf.lisp

ついでにコンパイルしておく。

ここからしばらく clisp での作業。
$HOME/local/lisp/ を lisp ファイル置き場にすることにしたので、ここをロードパスに追加する。

[1]> (push (merge-pathnames "local/lisp/" (user-homedir-pathname)) custom:*load-paths*)
(#P"/home/raido/local/lisp/" #P"./" "~/lisp/**/")

asdf.lisp をロード。

[2]> (load '#:asdf)
;; Loading file /home/raido/local/lisp/asdf.fas ...
;; Loaded file /home/raido/local/lisp/asdf.fas
T

asdf:*central-registry* にパスを追加。$HOME/local/lisp/systems/ にした。
ここに *.asd ファイルへのシンボリックリンクを置くようにする。

[3]> (push (merge-pathnames "local/lisp/systems/" (user-homedir-pathname)) asdf:*central-registry*)
(#P"/home/raido/local/lisp/systems/" *DEFAULT-PATHNAME-DEFAULTS*)

この状態で[[GUESS:http://lispuser.net/commonlisp/japanese.html#guess]]を使えるようにする。
ソースをダウンロードして、展開、シンボリックリンクを張る。

$ cd $HOME/local/src/lisp
$ wget http://lispuser.net/files/guess.tar.gz
$ tar xf guess.tar.gz
$ cd ../../lisp/systems/
$ ln -s $HOME/local/src/lisp/guess_0.1.0/guess.asd .

clisp でロード。初回はコンパイルした上でロードしてくれる。

[4]> (asdf:oos 'asdf:load-op :guess)
; loading system definition from /home/raido/local/lisp/systems/guess.asd into #<PACKAGE ASDF0>
;; Loading file /home/raido/local/lisp/systems/guess.asd ...
; registering #<SYSTEM :GUESS #x20538B31> as GUESS
;; Loaded file /home/raido/local/lisp/systems/guess.asd
;; Compiling file /home/raido/local/src/lisp/guess_0.1.0/guess.lisp ...
;; Wrote file /home/raido/local/src/lisp/guess_0.1.0/guess.fas
;; Loading file /home/raido/local/src/lisp/guess_0.1.0/guess.fas ...
;; Loaded file /home/raido/local/src/lisp/guess_0.1.0/guess.fas
0 errors, 0 warnings
NIL

以上。

clisp での作業は初期化ファイルにでも書いておく。clispの場合は $HOME/.clisprc 辺り。

(push (merge-pathnames "local/lisp/" (user-homedir-pathname)) custom:*load-paths*)
(load '#:asdf)
(push (merge-pathnames "local/lisp/systems/" (user-homedir-pathname)) asdf:*central-registry*)
(asdf:oos 'asdf:load-op :guess)

ロードするものが多くなって起動に時間がかかるようになったら、メモリイメージを保存して起動時にこっちを読み込むようにする。