@@@ 1160454264.txt @@@
Scrapbook : naoya_t:ポール・グレアムのエッセイと和訳一覧
http://www.shiro.dreamhost.com/scheme/wiliki/wiliki.cgi?naoya_t%3a%e3%83%9d%e3%83%bc%e3%83%ab%e3%83%bb%e3%82%b0%e3%83%ac%e3%82%a2%e3%83%a0%e3%81%ae%e3%82%a8%e3%83%83%e3%82%bb%e3%82%a4%e3%81%a8%e5%92%8c%e8%a8%b3%e4%b8%80%e8%a6%a7
2006-10-10 (Tue) 15:42:29
@@@ 1160098723.txt @@@
Scrapbook : Google Code Search
http://www.google.com/codesearch
[[xyzzy:http://www.google.com/codesearch?q=show:ulfI7QTNxgQ:NMfVLjilfSk&sa=N&ct=rdl&cs_p=http://www.jsdlab.co.jp/~kamei/(T%255ET)/src-0.2.2.234.tar.bz2&cs_f=/xyzzy]]もあった。
2006-10-07 (Sat) 17:29:52
@@@ 1160098723.txt @@@
Scrapbook : Google Code Search
http://www.google.com/codesearch
2006-10-06 (Fri) 18:15:20
@@@ 1152849021.txt @@@
xyzzy lisp : format ~&
-現在の桁が0になるように改行を出力(すでに0ならなにもしない)
-パラメータは最大1つ
--Nが与えられたら通常の動作1回、その後 (N-1) 個の改行を出力
(format nil "~&")
""
(format nil "xyzzy~&")
"xyzzy
"
(format nil "~2&")
"
"
(format nil "xyzzy~3&")
"xyzzy
"
2006-10-04 (Wed) 01:06:02
@@@ 1152849021.txt @@@
xyzzy lisp : format ~&
-現在の桁が0になるように改行を出力(すでに0ならなにもしない)
-パラメータは最大1つ
--Nが与えられたら通常の動作1回、その後 N-1 つ改行を出力
(format nil "~&")
""
(format nil "xyzzy~&")
"xyzzy
"
(format nil "~2&")
"
"
(format nil "xyzzy~3&")
"xyzzy
"
2006-10-04 (Wed) 01:01:32
@@@ 1159501711.txt @@@
xyzzy lisp : format ~[
- 条件にしたがって候補から選択して出力
- ~] で範囲を終了
- ~; で候補の区切り
- ~:; でデフォルトの指定
- "[" 整数値によって選択
- ":[" 真偽値により二者択一
- "@[" non-nilのときのみ出力
-パラメータは"["のときのみ1つ
--引数の数値よりも優先
(format nil "~[zero~;one~;two~:;many~]" 1)
"one"
(format nil "~[zero~;one~;two~:;many~]" 10)
"many"
(format nil "~1[zero~;one~;two~:;many~]" 10)
"one"
(format nil "~:[false~;true~]" nil)
"false"
(format nil "~:[false~;true~]" 'true)
"true"
(format nil "~@[~A~]" nil)
""
(format nil "~@[~A~]" 'true)
"true"
; こういうこともできるらしい
(format nil "~#[zero~;one~;two~:;many~]" 10 10)
"two"
2006-10-03 (Tue) 23:50:09
@@@ 1159881790.txt @@@
emacsの文字表現
http://snmsts.orz.hm/~sana/wiki/index.php?%C6%FC%B5%AD%A4%C3%A4%DD%A4%AF%2F2006-10-03#k3406f46
すげー同感ッス。
bs.elの移植のとき
「? 」となっているところを見て何故に「?」が単独で?
としばらく考え込みました。
2006-10-03 (Tue) 22:24:22
@@@ 1159761655.txt @@@
「入門Common Lisp〜関数型4つの特徴とλ計算」感想
http://book.mycom.co.jp/book/4-8399-2081-8/4-8399-2081-8.shtml
-関数型プログラミング言語の入門であってCommon Lispの入門ではない。
-マクロ、関数の引数(&optionalとか&keyとか)、スペシャル変数辺りの解説が無いのはCommon Lispの解説書としてありえない。
-そもそもwhile(p.70)なんてCLtL2には無いし。
-用語や関数の登場とその説明のタイミングが不親切。
-function(#')を説明していないものだから全体的にコードがelispっぽい。
-xyzzyとの差である大文字小文字の区別に言及していないのもダメ。
-lisp-modeにならない拡張子で保存させているところもダメ。
-「8. λ計算」が本題で7章までは全部前置きという印象。
2006-10-02 (Mon) 22:11:01
@@@ 1159761655.txt @@@
「入門Common Lisp〜関数型4つの特徴とλ計算」感想
http://book.mycom.co.jp/book/4-8399-2081-8/4-8399-2081-8.shtml
-関数型プログラミング言語の入門であってCommon Lispの入門ではない。
-マクロ、関数の引数、スペシャル変数辺りの解説が無いのはCommon Lispの解説書としてありえない。
-そもそもwhile(p.70)なんてCLtL2には無いし。
-function(#')を説明していないものだから全体的にコードがelispっぽい。
-xyzzyとの差である大文字小文字の区別に言及していないのもダメ。
-lisp-modeにならない拡張子で保存させているところもダメ。
-「8. λ計算」が本題で7章までは全部前置きという印象。
2006-10-02 (Mon) 22:06:14
@@@ 1159761655.txt @@@
「入門Common Lisp〜関数型4つの特徴とλ計算」感想
http://book.mycom.co.jp/book/4-8399-2081-8/4-8399-2081-8.shtml
-関数型プログラミング言語の入門であってCommon Lispの入門ではない。
-マクロ、関数の引数、スペシャル変数辺りの解説が無いのはCommon Lispの解説書としてありえない。
-そもそもwhileなんてCLtL2には無いし。
-function(#')を説明していないものだから全体的にコードがelispっぽい。
-xyzzyとの差である大文字小文字の区別に言及していないのもダメ。
-lisp-modeにならない拡張子で保存させているところもダメ。
-「8. λ計算」が本題で7章までは全部前置きという印象。
2006-10-02 (Mon) 13:01:38
@@@ 1159501711.txt @@@
xyzzy lisp : format ~[
- 条件指示
- ~] で範囲を終了
- ~; で候補の区切り
- ~:; でデフォルトの指定
- "[" 整数値によって選択
- ":[" 真偽値により二者択一
- "@[" non-nilのときのみ出力
-パラメータは"["のときのみ1つ
--引数の数値よりも優先
(format nil "~[zero~;one~;two~:;many~]" 1)
"one"
(format nil "~[zero~;one~;two~:;many~]" 10)
"many"
(format nil "~1[zero~;one~;two~:;many~]" 10)
"one"
(format nil "~:[false~;true~]" nil)
"false"
(format nil "~:[false~;true~]" 'true)
"true"
(format nil "~@[~A~]" nil)
""
(format nil "~@[~A~]" 'true)
"true"
; こういうこともできるらしい
(format nil "~#[zero~;one~;two~:;many~]" 10 10)
"two"
2006-09-29 (Fri) 12:49:45
@@@ 1159328961.txt @@@
xyzzy lisp : format ~(
- 大文字・小文字の変換をして出力
- ~) で範囲を終了
- "~(" すべて小文字
- "~:(" 単語の先頭の一文字のみ大文字で後は小文字
- "~@(" 先頭の一文字のみ大文字で後は小文字
- "~:@(" すべて大文字
-パラメータは無し
(format nil "~(~A~)" "hoGe fUga")
"hoge fuga"
(format nil "~:(~A~)" "hoGe fUga")
"Hoge Fuga"
(format nil "~@(~A~)" "hoGe fUga")
"Hoge fuga"
(format nil "~:@(~A~)" "hoGe fUga")
"HOGE FUGA"
2006-09-28 (Thu) 12:20:27
@@@ 1159117033.txt @@@
xyzzy lisp : reopen-file
まだ試していない。
(defun reopen-file (filename &optional encoding nomsg)
(interactive "fReopen file: \n0zEncoding: " :title0 "Reopen file")
(let ((*expected-fileio-encoding* (or encoding *expected-fileio-encoding*)))
(declare (special *expected-fileio-encoding*))
(when buffer-read-only
(error "書き込み禁止バッファです"))
(setq filename (namestring filename))
(when (special-file-p filename)
(error "~aはデバイスファイルです" filename))
(when (file-directory-p filename)
(error "~aはディレクトリです" filename))
(unless (and (valid-path-p filename)
(file-exist-p filename))
(error "~a\nファイルまたはディレクトリが見つかりません" filename))
(when (and (need-buffer-save-p (selected-buffer))
(not (no-or-yes-p "バッファが変更されています。変更内容を破棄しますか?")))
(return-from read-file nil))
(save-restriction
(widen)
(delete-region 0 (buffer-size))
(or nomsg
(message "Reading file..."))
(multiple-value-bind (nlines noerror)
(insert-file-contents filename t)
(unless noerror
(warn "~a\nメモリが足りなくてすべて読み込めませんでした" filename)
(set-buffer-truncated-p t))
(or nomsg
(message "~d行読み込みました" nlines))
nlines)
)))
(defun revert-buffer-reopen ()
(let ((opoint (point)))
(or (file-visited-p)
(error "ファイル名がありません。"))
(when (let ((buffer-read-only nil))
(declare (special buffer-read-only))
(let* ((filename (get-buffer-file-name))
(nlines (reopen-file filename)))
(find-file-lock-file)
(find-file-notice filename nlines nil))
buffer-read-only)
(setq buffer-read-only t))
(goto-char opoint)))
(setq-default revert-buffer-function #'revert-buffer-reopen)
2006-09-25 (Mon) 12:29:05
@@@ 1159117033.txt @@@
xyzzy lisp : reopen-file
(defun reopen-file (filename &optional encoding nomsg)
(interactive "fReopen file: \n0zEncoding: " :title0 "Reopen file")
(let ((*expected-fileio-encoding* (or encoding *expected-fileio-encoding*)))
(declare (special *expected-fileio-encoding*))
(when buffer-read-only
(error "書き込み禁止バッファです"))
(setq filename (namestring filename))
(when (special-file-p filename)
(error "~aはデバイスファイルです" filename))
(when (file-directory-p filename)
(error "~aはディレクトリです" filename))
(unless (and (valid-path-p filename)
(file-exist-p filename))
(error "~a\nファイルまたはディレクトリが見つかりません" filename))
(when (and (need-buffer-save-p (selected-buffer))
(not (no-or-yes-p "バッファが変更されています。変更内容を破棄しますか?")))
(return-from read-file nil))
(save-restriction
(widen)
(delete-region 0 (buffer-size))
(or nomsg
(message "Reading file..."))
(multiple-value-bind (nlines noerror)
(insert-file-contents filename t)
(unless noerror
(warn "~a\nメモリが足りなくてすべて読み込めませんでした" filename)
(set-buffer-truncated-p t))
(or nomsg
(message "~d行読み込みました" nlines))
nlines)
)))
(defun revert-buffer-reopen ()
(let ((opoint (point)))
(or (file-visited-p)
(error "ファイル名がありません。"))
(when (let ((buffer-read-only nil))
(declare (special buffer-read-only))
(let* ((filename (get-buffer-file-name))
(nlines (reopen-file filename)))
(find-file-lock-file)
(find-file-notice filename nlines nil))
buffer-read-only)
(setq buffer-read-only t))
(goto-char opoint)))
(setq-default revert-buffer-function #'revert-buffer-reopen)
2006-09-25 (Mon) 01:57:42
@@@ 1158684505.txt @@@
xyzzy lisp : Buffer selection
http://www.geekware.de/software/emacs/#bs
の移植をしてみました。
http://raido.sakura.ne.jp/southly/xyzzy/site-lisp/bs-20060920.lzh
元の動作は知らないのですが、八割程度は動いているような気がします。
気が向いたときにでもNetInstaller用のパッケージにします。
2006-09-21 (Thu) 03:20:14