* Menu
[[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]]
- Scrapbook : 1or0 パソコン初心者脱出-ファイル名を指定して実行
- Scrapbook : Secure Programming for Linux and Unix HOWTO
- 2006-09-20
- memo : iterationで最後だけ出力しない
- xyzzy lisp : walk-windowsの代わりに
- Scrapbook : 何のソフトを入れているとWindowsが重くなるのかリスト - GIGAZINE
- 2006-09-12
- Scrapbook : らくがき工房
- Scrapbook : cURL and libcurl
- 2006-09-11
- Scrapbook : Feed Validator for Atom and RSS
- Scrapbook : 使いながら覚えるGDB
- Scrapbook : Scheme によるプログラミング入門
- xyzzy topic :
- xyzzy lisp : へなちょこ補完その3
page 19 - << : 0 : 1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 : 35 : 36 : 37 : 38 : >>
* Scrapbook : 1or0 パソコン初心者脱出-ファイル名を指定して実行
* Scrapbook : Secure Programming for Linux and Unix HOWTO
linux.or.jp/JF/JFdocs/Secure-Programs-HOWTO/index.html
* 2006-09-20
で、移植の手順。
1. [[Emacs lisp 移植キット:xyzzy.html]]を使えるようにする。
2. 使えないもの(defgroup, font-lock関係, フレーム関係, etc)をコメントアウト
3. 文字の表現を書き直し(?a → #\a) 特に#\SPCとか
4. キーバインドの記述を書き直し(文字列 → 文字 or cons)
5. formatの引数を直す
6. 無い関数を記述 & 無い変数を代替の関数へ
7. 位置の調整(xyzzyは0 origin, emacsは1 origin)
8. functionとsymbol
9. その他こまごまとした修正
1. [[Emacs lisp 移植キット:xyzzy.html]]を使えるようにする。
2. 使えないもの(defgroup, font-lock関係, フレーム関係, etc)をコメントアウト
3. 文字の表現を書き直し(?a → #\a) 特に#\SPCとか
4. キーバインドの記述を書き直し(文字列 → 文字 or cons)
5. formatの引数を直す
6. 無い関数を記述 & 無い変数を代替の関数へ
7. 位置の調整(xyzzyは0 origin, emacsは1 origin)
8. functionとsymbol
9. その他こまごまとした修正
* memo : iterationで最後だけ出力しない
(format nil "~{~A~^ ~}" '(a b c)) =>"a b c"
* xyzzy lisp : walk-windowsの代わりに
(defun enum-windows (fn &optional minibuf) (save-excursion (save-window-excursion (do ((win (selected-window) (next-window win minibuf)) (cnt (count-windows minibuf) (1- cnt))) ((zerop cnt) nil) (set-window win) (let ((res (funcall fn win))) (if res (return res)))))))