[[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]]

• universalchardet の C ライブラリを xyzzy から利用できるようにするライブラリを作りました。
• http://raido.sakura.ne.jp/southly/xyzzy/site-lisp/uchardet-20080121.lzh
• C のライブラリはこちら→void.in/wiki/Universalchardet
• 自動判定が外れて困った覚えはあまりないんですが、困っている人が結構いるみたいなのでさらしておきます。
• と言いつつ DLL を配布しているところがないので、使える人は限られるだろうなぁ。
• 同梱しないといけないんだろうけど、トリプルライセンスのバイナリ配布の条件がよく分からず。
• ソースも丸ごと同梱すれば良さそうだけど、使わないファイルを渡すのもなぁ、ということで保留中。

• 帰省から戻ってきました。
• 遅ればせながら、あけましておめでとうございます。
• いろいろと開始。

案の定、昔入れたSubversionが動かなくなっていたので、以下のページを参考にインストールしなおしてみた。

空繰再繰 - Subversionをさくらインターネットにインストール
subversion1

何とかうまくいった模様。

mkdir -p $HOME/local/src
cd local/src/
wget http://jaist.dl.sourceforge.net/sourceforge/swig/swig-1.3.33.tar.gz
tar xf swig-1.3.33.tar.gz 
cd swig-1.3.33
which python
./configure --prefix=$HOME/local --with-python=/usr/local/bin/python
make
make install
cd ..
wget http://ftp.riken.jp/net/apache/apr/apr-1.2.12.tar.gz
tar xf apr-1.2.12.tar.gz 
cd apr-1.2.12
./configure --prefix=$HOME/local --disable-static
make
make install
cd ..
wget http://ftp.riken.jp/net/apache/apr/apr-util-1.2.12.tar.gz
tar xf apr-util-1.2.12.tar.gz 
cd apr-util-1.2.12
./configure --prefix=$HOME/local --with-apr=$HOME/local --disable-static
make
make install
cd ..
wget http://subversion.tigris.org/downloads/subversion-1.4.6.tar.bz2
wget http://subversion.tigris.org/downloads/subversion-deps-1.4.6.tar.bz2
tar xf subversion-1.4.6.tar.bz2 
tar xf subversion-deps-1.4.6.tar.bz2 
cd subversion-1.4.6
which apr-1-config
./configure --prefix=$HOME/local --without-brekelay-db --with-swig=$HOME/local/bin/swig --with-apr=$HOME/local/bin/apr-1-config -with-apr-util=$HOME/local/bin/apu-1-config --disable-static
make
make install

• [[fixdap に xyzzy のプロジェクトを作った - *Trace Output*:xyzzy]]ということなので参加してみた。→xyzzy/
• revert-buffer-normalの件

• off会でちょっと出ていたDBの件。
• [[SQLite:http://www.sqlite.org/]]辺りがちょうど良いんじゃなかろうか。
• exeもあるから簡単なことならexe経由でできそう。
• ただ、fileを突っ込んだりしたいだろうし専用のexeなりDLLなり作ったほうが良さそう。
• デフォルトのDLLでどの辺までできるか、試してみよう。
• ところで、xyzzyからCの可変長引数の関数を呼ぶってできるんだっけ。
• sqlite3_mprintfが使えると、エスケープを考えずにすみそうで楽なんだけど。
• まぁ、sqlite3_prepareとかsqlite3_bind_xxxで間に合うっちゃ間に合うか。
• All-In-Oneはちょっと依存関係とか調べたら100超えてしまったんで、やっぱりもうちょっと削って分かる範囲でやる予定。

なるほど。

(*do-completion "quit" :list nil '("quit-recursive-edit" "quit-and-back" "quit-char" "quit" "quit"))
=>:not-unique
=>("quit" "quit" "quit-char" "quit-and-back" "quit-recursive-edit")
=>nil

こうなることを考えると do-completion-internal で対応するのがよさそう。

そして、めも。

If it is accessible as an internal symbol via use-package, it is first imported into package, then exported. (The symbol is then present in the package whether or not package continues to use the package through which the symbol was originally inherited.)

CLHS: Function EXPORT: export.html

[[*do-completionで重複が現れる:http://white.s151.xrea.com/wiki/index.php?script%2Fac-mode%2Fcomment]]という件に今頃気づいたのですが、lispパッケージとeditorパッケージの両方でexportされているからこのような結果になる模様。
どの段階で対処するのがいいのかな。

• class または struct の名前。無しの場合もあり。
• 制御文字「^V」「^F」「^S」
• 「^V」変数名
• 「^F」関数名
• 「^S」クラスまたは構造体名
• 名前
• 制御文字「^_」
• ファイル名
• 制御文字「^_」
• 位置
• 制御文字「^A」
• 関数の場合は引数

以上で一行という感じっぽい。

http://support.sakura.ad.jp/page/news/20071122-003.news
OSがバージョンアップするそうだから、ビルドしなおさないといけないな。

• clisp
• svn

svnは念のためdumpしとくかな。

たかだか3つの関数のためにemacs.lに依存するのはもったいないと思ったので、てきとーに実装してみました。
GPLなんですしemacs.lからもってくるのもありかと。
マイナーモードにする関数はed::toggle-modeを使いましょう。それでelisp::prefix-numeric-valueは不要になります。

• elisp::count-lines
• elisp::expand-file-name
• elisp::prefix-numeric-value

(defun count-line(beg end)
  (if (eql beg end)
      0
    (1+ (- (save-excursion
             (goto-char end)
             (when (eql (preceding-char) #\LFD) (backward-char))
             (current-line-number))
           (save-excursion
             (goto-char beg)
             (current-line-number))))))

(defun expand-file-name (file &optional (dir (default-directory)))
  (merge-pathnames file dir))

[[(ReadMore...) index.rb?1196394719.txt]]

http://raido.sakura.ne.jp/southly/xyzzy/site-lisp/lyrical-mode.lzh

[[リリカル☆Lisp　ver1.1公開:http://blog.bugyo.tk/lyrical/2007/11/lispver11.html]]参照。

やっつけ仕事ですみません (^^;
lisp-modeの流用なのでインデントがまずいなーって感じです。後で何とかしておきます。→何とかしました。2007-11-15

やっていることは
・エディットコントロールを見つける。
・SET_TEXTでS式を貼り付ける。
・VK_RETURNを送る。
・5秒後(*lyrical-interval*)にWM_LBUTTONUPを送る。
というだけです。
フリーモードで使うことしか考えていなかったので、もしかすると4つ目が邪魔になる場合があるかもです。