xyzzy lisp : めも
-filerの移動・コピー・削除辺りの非同期化
-telnetでclispと対話(sshが欲しいけど)
2006-03-02 (Thu) 00:54:39
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)))
2006-03-02 (Thu) 00:51:22
Scrapbook : Google グループ : comp.lang.lisp
URI Escape/Unescape Library?
http://groups.google.co.jp/group/comp.lang.lisp/browse_thread/thread/d252a7d7e34ad7c9/b882f1a826bf7875
URIエンコーディングについて。
マルチバイト文字を使わない人たちなんだろうけど、参考まで。
2006-03-02 (Thu) 00:39:59
xyzzy lisp : めも
-filerの移動・コピー・削除辺りの非同期化
-telnetでclispと対話
2006-03-02 (Thu) 00:25:14
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 (setq c1 (read-char in nil))
(setq 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)))
2006-03-01 (Wed) 23:34:31
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 (setq 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 (setq c1 (read-char in nil))
(setq 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)))
2006-03-01 (Wed) 23:33:55
Firefox search plugin
# Mozilla/Fireox The Lisp Dictionary http://lispdoc.com/
# 2006-03-01
#
<search
name="lispdoc"
description="The Lisp Dictionary"
method="GET"
action="http://lispdoc.com/"
queryEncoding="Shift_JIS"
queryCharset="Shift_JIS"
sourceTextEncoding = "1"
>
<input name="q" user>
<input name="search" value="Basic search">
<INTERPRET
browserResultType = "result"
charset = "Shift_JIS"
>
</search>
文字コードとかてきとー
2006-03-01 (Wed) 21:05:36
Firefox search plagin
# Mozilla/Fireox The Lisp Dictionary http://lispdoc.com/
# 2006-03-01
#
<search
name="lispdoc"
description="The Lisp Dictionary"
method="GET"
action="http://lispdoc.com/"
queryEncoding="Shift_JIS"
queryCharset="Shift_JIS"
sourceTextEncoding = "1"
>
<input name="q" user>
<input name="search" value="Basic search">
<INTERPRET
browserResultType = "result"
charset = "Shift_JIS"
>
</search>
文字コードとかてきとー
2006-03-01 (Wed) 21:05:28
# Mozilla/Fireox The Lisp Dictionary http://lispdoc.com/
# 2006-03-01
#
<search
name="lispdoc"
description="The Lisp Dictionary"
method="GET"
action="http://lispdoc.com/"
queryEncoding="Shift_JIS"
queryCharset="Shift_JIS"
sourceTextEncoding = "1"
>
<input name="q" user>
<input name="search" value="Basic search">
<INTERPRET
browserResultType = "result"
charset = "Shift_JIS"
>
</search>
文字コードとかてきとー
2006-03-01 (Wed) 21:05:08
# Mozilla/Fireox The Lisp Dictionary http://lispdoc.com/
# 2006-03-01
#
<search
name="lispdoc"
description="The Lisp Dictionary"
method="GET"
action="http://lispdoc.com/"
queryEncoding="Shift_JIS"
queryCharset="Shift_JIS"
sourceTextEncoding = "1"
>
<input name="q" user>
<input name="search" value="Basic search">
<INTERPRET
browserResultType = "result"
charset = "Shift_JIS"
>
</search>
文字コードとかてきとー
2006-03-01 (Wed) 21:02:39
Scrapbook : Google グループ : comp.lang.lisp
http://groups.google.co.jp/group/comp.lang.lisp/browse_thread/thread/d252a7d7e34ad7c9/b882f1a826bf7875
URIエンコーディングについて。
マルチバイト文字を使わない人たちなんだろうけど、参考まで。
2006-03-01 (Wed) 20:36:27
RandomNote : ChangeLog
→[[Todo self:1140534666.txt]]
-特定leafへのリンクに別名をつける
-こまごまとしたこと
-コメント欄 (飾り)
-RSS周り (RSS auto-discovery & HTTP応答ヘッダ)
-NOT検索 (へなちょこ)
-ブックマーク
上が最近
2006-02-28 (Tue) 22:33:54
RandomNote : Todo
- RSSも検索結果に
- 時刻検索(並びは降順が欲しい)
- フレーズ検索
- その他なんかある?
→[[ChangeLog self:1141132537.txt]]
2006-02-28 (Tue) 22:32:45
RandomNote : Todo
→[[ChangeLog self:1141132537.txt]]
- RSSも検索結果に
- 時刻検索(並びは降順が欲しい)
- フレーズ検索
- その他なんかある?
2006-02-28 (Tue) 22:32:37
RandomNote : Todo
→[[ChangeLog self:1141132537.txt]]
- RSSも検索結果に
- 時刻検索(並びは降順が欲しい)
- フレーズ検索
- その他なんかある?
2006-02-28 (Tue) 22:18:05