* Menu
[[About:self:AboutPage.txt]] | [[Profile:file/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:lisp/]] | [[あんてな:listall]] | [[■:lisp]] | [[buzz:files/southly#buzz]]
- 2007-05-09
- 2007-04-30
- 2007-04-26
- xyzzy topic : xyzzy - WikiWikiFun
- lisp : 値渡し?参照渡し?
- xyzzy lisp : シャッフル
- xyzzy lisp : ミニバッファの入力にエスケープシーケンス
- xyzzy topic : attribute, M -- Masahiro Ohba's Bryce Gallery
- xyzzy topic : 継続にっき - dabbrev-highlightもどき on xyzzy , RSS feed
- 2007-03-29 (昼)
- 2007-03-29
- 2007-03-27
- xyzzy : ちょっとしたTips(?)
- xyzzy : 変数の種類
- 2007-03-14
page 6 - << : 0 : 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : >>
* 2007-05-09
* 2007-04-30
- やっぱバイナリエディタ欲しいってことでhexl移植しました。
- 70502.lzh (←バグっていたので修正した)
- [[山本さん:xyzzy/index.html]]のは持ってないので、どのくらい違うかはよく分かりません。(持ってたらわざわざ移植しませんし)
- 編集関係・保存関係は自信が無いので気をつけて使ってください。
- あと、つぶした方が良さそうなキーバインドとかも教えてください。
- hexl.exeはVC8でコンパイルしたせいかmeadowのものよりえらくでかいです。気になる人はmeadowのものを使ってください。
- なんとなくxyzzyならhexl.exe無しでもできそうな気がします。根性のある人は挑戦してみてください。
- 今回は文字と整数が同一視される部分が面倒だった。
- chunkについて理解を深めた。
- undo-boundaryの動作がいまいちワカンネ。
* 2007-04-26
- [[前:sakura.ne.jp/southly/rn/index.rb?1174689340.txt]]にも書いているけど、スペシャル変数は「ダイナミックスコープ」だから「あらゆる環境を超えて一意の値」となっているだけの話。
- グローバル環境に登録されたレキシカルスコープの変数ときちんと区別していないから、混乱するってだけの話ではないのかな。
- gprofで関数単位のプロファイルがうまくできないorz
- templateが絡むとどう指定するんだろ?
* xyzzy topic : xyzzy - WikiWikiFun
* lisp : 値渡し?参照渡し?
関数一般についてはこの辺りが参考になります。
Schemeの話ですけど基本的に一緒。
Schemeの話ですけど基本的に一緒。
* xyzzy lisp : シャッフル
(defun nswap (l x y) (rotatef (car (nthcdr x l)) (car (nthcdr y l))) l) (defun nshuffle (l) (do ((i (length l) (1- i))) ((>= 1 i)) (setq l (nswap l (1- i) (random i)))) l)元のデータを直接いじっていくほうが分かりやすくないッスか?
ってことでこんな。
nswapは関数にする必要は無いけど意味が分かりやすいように。
* xyzzy lisp : ミニバッファの入力にエスケープシーケンス
interactive指定子を作っちゃえば楽に置き換えられるんじゃね?
ってことで、こんな。
ってことで、こんな。
(in-package "editor") (defun interactive-read-string-with-escape-sequence (prompt default history title) (list (decode-escape-sequence (read-string prompt :default default :history history) nil))) (pushnew '(#\w . interactive-read-string-with-escape-sequence) *interactive-specifier-alist* :test #'equal) (defun interactive-read-regexp-with-escape-sequence (prompt default history title) (list (decode-escape-sequence (read-string prompt :default default :history history) t))) (pushnew '(#\W . interactive-read-regexp-with-escape-sequence) *interactive-specifier-alist* :test #'equal) ;; こんな感じで使う ;; 文字列 (defun search-forward-wes (pattern &optional noerror) (interactive "wSearch forward: " :default0 *last-search-string* :history0 'search) (search-command pattern nil nil (interactive-p) noerror)) ;; 正規表現 (defun re-search-forward-wes (regexp &optional noerror) (interactive "WRe-search forward: " :default0 *last-search-regexp* :history0 'search) (search-command regexp nil t (interactive-p) noerror)) (export '(search-forward-wes re-search-forward-wes)) (in-package "user")