2006-03-03
初めてのspam襲来。
どこかの検索に引っかかるようになったのかのう。
とりあえずspam対策開始。
----
彼はなぜそんなにprinttoにこだわるんだろう。
手元のPCにはプリンタドライバを入れてないから確かめられないんだよな。
ということでここにひっそり書くけど、オプションの表記から勘で、
xyzzycli.exe -p "%1" -p "%2" -p "%3" -p "%4"
とかでどうだろ?
[xyzzy:08512]でも大丈夫だと思うんだけどな。
2006-03-03 (Fri) 21:33:19
2006-03-03
初めてのspam襲来。
どこかの検索に引っかかるようになったのかのう。
とりあえずspam対策開始。
----
彼はなぜそんなにprinttoにこだわるんだろう。
手元のPCにはプリンタドライバを入れてないから確かめられないのだけど。
オプションの表記から勘で、
xyzzycli.exe -p "%1" -p "%2" -p "%3" -p "%4"
とかでどうだろ?
[xyzzy:08512]でも大丈夫だと思うんだけどな。
2006-03-03 (Fri) 21:21:08
2006-03-03
初めてのspam襲来。
どこかの検索に引っかかるようになったのかのう。
とりあえずspam対策開始。
2006-03-03 (Fri) 21:19:45
RandomNote について。
RandomNote について。
2006-03-03 (Fri) 18:14:16
RandomNote : Todo
- RSSも検索結果に
- 書き込まれたコメントをもう少し分かりやすく
- 時刻検索(並びは降順が欲しい)
- フレーズ検索
- その他なんかある?
→[[ChangeLog self:1141132537.txt]]
2006-03-03 (Fri) 12:33:25
-改行は改行として、空行は空行として扱われます。
-行の先頭が空白の場合、その行はそのまま表示されます。整形されません。
-URL(http://ninjinix.x0.com/rn/)はそのURLへのリンクになります。
-[''''''[ ]''''''] で囲まれた言葉は、その言葉を検索するリンクになります。
----
''ボールド''
'''イタリック'''
*大見出し
**中見出し
***小見出し
-箇条書き1
--箇条書き2
---箇条書き3
>引用1
>>引用2
>>>引用3
:用語:説明
,テーブル,テーブル,テーブル
,テーブル,テーブル,テーブル
,テーブル,テーブル,テーブル
----
↑水平線
>>
範囲引用
範囲引用
<<
>|
範囲未整形
範囲未整形
|<
[[検索キーワード]]
[[self:AboutPage.txt]] <- ページ直接指定
[[ここ http://ninjinix.x0.com/rn/]] <- 空白文字区切りで直接リンク指定
[[About self:AboutPage.txt]] <- 空白文字区切りでページ直接指定
''ボールド''
'''イタリック'''
*大見出し
**中見出し
***小見出し
-箇条書き1
--箇条書き2
---箇条書き3
>引用1
>>引用2
>>>引用3
:用語:説明
,テーブル,テーブル,テーブル
,テーブル,テーブル,テーブル
,テーブル,テーブル,テーブル
----
↑水平線
>>
範囲引用
範囲引用
<<
>|
範囲未整形
範囲未整形
|<
[[検索キーワード]]
[[self:AboutPage.txt]] <- ページ直接指定
[[ここ http://ninjinix.x0.com/rn/]] <- 空白文字区切りで直接リンク指定
[[About self:AboutPage.txt]] <- 空白文字区切りでページ直接指定
2006-03-03 (Fri) 12:30:22
RandomNote の [[Wiki記法]] - TextFormat
-改行は改行として、空行は空行として扱われます。
-行の先頭が空白の場合、その行はそのまま表示されます。整形されません。
-URL(http://ninjinix.x0.com/rn/)はそのURLへのリンクになります。
-[''''''[ ]''''''] で囲まれた言葉は、その言葉を検索するリンクになります。
----
''ボールド''
'''イタリック'''
*大見出し
**中見出し
***小見出し
-箇条書き1
--箇条書き2
---箇条書き3
>引用1
>>引用2
>>>引用3
:用語:説明
,テーブル,テーブル,テーブル
,テーブル,テーブル,テーブル
,テーブル,テーブル,テーブル
----
↑水平線
>>
範囲引用
範囲引用
<<
>|
範囲未整形
範囲未整形
|<
[[検索キーワード]]
[[self:AboutPage.txt]] <- ページ直接指定
[[ここ http://ninjinix.x0.com/rn/]] <- 空行区切りで直接リンク指定
''ボールド''
'''イタリック'''
*大見出し
**中見出し
***小見出し
-箇条書き1
--箇条書き2
---箇条書き3
>引用1
>>引用2
>>>引用3
:用語:説明
,テーブル,テーブル,テーブル
,テーブル,テーブル,テーブル
,テーブル,テーブル,テーブル
----
↑水平線
>>
範囲引用
範囲引用
<<
>|
範囲未整形
範囲未整形
|<
[[検索キーワード]]
[[self:AboutPage.txt]] <- ページ直接指定
[[ここ http://ninjinix.x0.com/rn/]] <- 空行区切りで直接リンク指定
2006-03-03 (Fri) 12:29:44
RandomNote について。
RandomNote について。
2006-03-03 (Fri) 09:44:47
Menu
[[About ?AboutPage.txt]] | [[オリジナル http://ninjinix.x0.com/rn/]]
2006-03-03 (Fri) 09:44:46
2006-03-03
clispにて大文字がうるさいな〜っていうことで、
(setf (readtable-case *readtable*) :preserve)
としてみた。
全定義は大文字でされているのね。
使えねー
(setf *print-case* :downcase)
とするかな〜(悩)
試しにdo-all-symbolsでシンボルを書き出してみたら、
この設定でも大文字で出力されるときがある。
何が違うんだろ?
2006-03-03 (Fri) 01:23:54
2006-03-03
clispにて大文字がうるさいな〜っていうことで、
(setf (readtable-case *readtable*) :preserve)
としてみた。
全定義は大文字でされているのね。
使えねー
(setf *print-case* :downcase)
とするかな〜(悩)
試しに全シンボルを書き出してみたら、
この設定でも大文字で出力されるときがある。
何が違うんだろ?
2006-03-03 (Fri) 01:17:45
RandomNote : Todo
- RSSも検索結果に
- 時刻検索(並びは降順が欲しい)
- フレーズ検索
- その他なんかある?
→[[ChangeLog self:1141132537.txt]]
2006-03-02 (Thu) 20:15:22
xyzzy lisp : めも
-filerの移動・コピー・削除辺りの非同期化
-telnetでclispと対話(sshが欲しいけど)
----
puttyと一緒に配布されているけど目立たない
plink.exeをバックエンドに…という野望はあります。
野望だけ。
2006-03-02 (Thu) 20:14:28
clispでcgi
URIのデコード・エンコードが一応完成。
感想メモ
・whileが無くてびっくり
・xyzzy lispとの微妙な差が気になる
・(alphanumericp #\あ) => T ってなんだよ!?
----
(defmacro while (test &body body)
`(do ()
((not ,test))
,@body))
(defun uri-unreserved-char-p (c)
(find c "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-._~"))
(defun uri-encode (str &optional (enc charset:utf-8))
(with-output-to-string (s)
(with-input-from-string (in str)
(let (c)
(while (setf c (read-char in nil))
(cond ((uri-unreserved-char-p c)
(format s "~C" c))
((char= c #\Space)
(format s "~C" #\+))
(t
(format s "~{~A~}"
(map 'list
#'(lambda (x)
(format nil "%~2,'0x" x))
(ext:convert-string-to-bytes (string c) enc))))))
)
)
))
(defun uri-decode (str &optional (enc charset:utf-8))
(let ((l nil) c c1 c2)
(with-input-from-string (in str)
(while (setq c (read-char in nil))
(if (char= c #\+) (setf c #\Space))
(cond ((char/= c #\%)
(dolist (x (coerce (ext:convert-string-to-bytes (string c) enc) 'list))
(push x l)))
(t
(and (setf c1 (read-char in nil))
(setf c2 (read-char in nil))
(push (parse-integer (format nil "~C~C" c1 c2) :radix 16) l))))))
(ext:convert-string-from-bytes (make-array (length l) :initial-contents (reverse l)) enc)))
----
(loop while 条件式
do 実行式)
なのでなくてもいいような
2006-03-02 (Thu) 20:09:30
clispでcgi
URIのデコード・エンコードが一応完成。
感想メモ
・whileが無くてびっくり
・xyzzy lispとの微妙な差が気になる
・(alphanumericp #\あ) => T ってなんだよ!?
----
(defmacro while (test &body body)
`(do ()
((not ,test))
,@body))
(defun uri-unreserved-char-p (c)
(find c "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-._~"))
(defun uri-encode (str &optional (enc charset:utf-8))
(with-output-to-string (s)
(with-input-from-string (in str)
(let (c)
(while (setf c (read-char in nil))
(cond ((uri-unreserved-char-p c)
(format s "~C" c))
((char= c #\Space)
(format s "~C" #\+))
(t
(format s "~{~A~}"
(map 'list
#'(lambda (x)
(format nil "%~2,'0x" x))
(ext:convert-string-to-bytes (string c) enc))))))
)
)
))
(defun uri-decode (str &optional (enc charset:utf-8))
(let ((l nil) c c1 c2)
(with-input-from-string (in str)
(while (setq c (read-char in nil))
(if (char= c #\+) (setf c #\Space))
(cond ((char/= c #\%)
(dolist (x (coerce (ext:convert-string-to-bytes (string c) enc) 'list))
(push x l)))
(t
(and (setf c1 (read-char in nil))
(setf c2 (read-char in nil))
(push (parse-integer (format nil "~C~C" c1 c2) :radix 16) l))))))
(ext:convert-string-from-bytes (make-array (length l) :initial-contents (reverse l)) enc)))
----
(loop while 条件式
do 実行式)
なのでなくてもいいような
2006-03-02 (Thu) 09:39:16