About | Profile | まとめ | オリジナル | xyzzy | あんてな | ■ | 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...)

さくらのサーバにインストールした 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を使えるようにする。
ソースをダウンロードして、展開、シンボリックリンクを張る。

$ 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)

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

• xyzzyオフのお知らせ→http://raido.sakura.ne.jp/southly/xyzzy/xyzzy-off5.png
• 2007-05-26 18:00 上野 です。その他、不明な点はNANRIまで。
• 前回参加者でmixi経由ではない人にはメールを送っておきたいものの、前回のメールが見つからない...orz
• bulbさんは確実っぽいのでメーります。
• KaMailV3へ移行した直後あたりの時期っぽいなぁ。何かへまをしたのかな?

• 「On Lisp」確保
• 赤塚さんのxyzzyの説明がなくなってるなぁ
• abbrev, インデント, コンパイルはいりそうな気がする
• 「変数の種類」という観点からの説明だから、個々の状況の説明まではしなかったんだよなぁ
• ダイナミックスコープってそういうものというか、環境を超える効果を持っているのがスペシャル変数というイメージですね＞「スペシャルであるかどうかということは環境の古いものから引き継ぐ」

; トップレベル
(setq x 1)
; 実験用関数
(defun f()
  x)
; lexicalな束縛
((lambda (x) (f)) 2)
=> 1
; (declare (special x)) によって、この環境ではxがスペシャル変数に昇格
((lambda (x) (declare (special x)) (f)) 2)
=> 2
; また新しい環境なので通常のlexicalな束縛
((lambda (x) (f)) 2)
=> 1

• こんな説明でどうでしょう
• この状況のポイントは「(declare (special ...))の効果は環境内のみの一時的なもの」という事だと思う。効果が環境内のみの一時的なものだからこそ(declare (special ...))は環境の頭の方と記述する場所が決まっていて、環境の途中で変化するなんてことがない。

(ReadMore...)

• patch/23 のポカは正直自分でもビックリ。
• 寝ぼけていたんじゃないかとorz... 精進します。

• セクションの件
• ライセンスという大仕事をした後なので、今の時期はあんまり大きくいじる気力がありません。
• ですけど、やりますということでしたら、相談くらいはのります。

　http://e8y.net/blog/2007/02/27/p142.html

• Repositoryの構成については相談しないといけないなと思っていました。
• 他人のパッチの取捨選択はしたいので、ユーザーごとに干渉しない方が都合がいいです。
• なので、以下のようにrootでユーザーごとのディレクトリを作る構成がいいかなと思っています。

root/
 ├original/
 │ └trunk/      亀井さんのオリジナルのソース
 ├nanri/
 │ ├trunk/      ユーザーごとのHEAD
 │ ├tags/
 │ └branches/
 └user/
  ...

• あとはコミットログを記述するときのポリシーとか情報交換の場所とかがいるかなと思います。このへんはまた後でご相談。

• この件でmixiの技術が信用に値しないことがはっきりしたので方針を変更。
• 「隠す必要が無い情報だけ載せる」から「載せる必要が無い情報は隠す」に。
• コミュニティの方は面倒なので放置。
• mixi日記はこのまま封印かな。
• mixiのコミュニティといえば中学コミュあったんだね。メンバー数 90人なら立派にコミュだし。
• タメっぽい人がちらほら見つかったけどワカンネ。
• 中学コミュは地元情報に直結するから入れないなぁ。
• 二次方程式の解の公式を忘れてた事に気付くorz...
• つーか二次方程式を解く必要に迫られるってのがちょっとへこむ。ったく、(以下略)

絞込み
(ReadMore...)

候補の絞込みしていなかったのを修正。
(ReadMore...)

C/C++とかJavaとかのメンバをdabbrevライクに補完。
てきとー
(ReadMore...)

キー操作でemacsのメニューにアクセス

<f10>           tmm-menubar

ついでなのでlisp-modeのキーバインド

C-x C-e         lisp-eval-last-sexp

C-c C-v         lisp-show-variable-documentation
C-c C-f         lisp-show-function-documentation
C-c C-d         lisp-describe-sym
C-c C-a         lisp-show-arglist
C-c C-k         lisp-compile-file
C-c C-l         lisp-load-file
C-c C-c         lisp-compile-defun
C-c C-r         lisp-eval-region
C-c C-e         lisp-eval-defun
C-c C-z         switch-to-lisp

ESC C-x         lisp-eval-defun
ESC C-q         indent-sexp

clispのarglistの表示はそっけなくて不便。
ほんとにarg0, arg1, ... なんて使ってるの?