* Menu
page 0 - << : 0 : >>
* 2008-03-23 :
- merge-tags のアーカイブが壊れているみたいです。
- cl-interpol を利用した decode-escape-sequence はちょっと失敗してる。無駄な interpolation が発生している。自前で作るか。
* Common Lisp : 文字列中のエスケープシーケンスを解釈する
とりあえずできた。REPL では動作確認できた。
要 cl-interpol。
SANO さんの情報がなかったらどうにか interpol-reader を使えないか、悩んでいたかも。サンクスです。
(ReadMore...)
要 cl-interpol。
SANO さんの情報がなかったらどうにか interpol-reader を使えないか、悩んでいたかも。サンクスです。
(ReadMore...)
* 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")
* editorパッケージのbuiltin関数
以下で調べて652個
(let ((count 0))
(do-symbols (sym (find-package "editor") (format t "~%count: ~d~%" count))
(when (and (not (find-symbol (symbol-name sym) "lisp"))
(fboundp sym)
(si:*builtin-function-p (symbol-function sym)))
(format t "~a~%" sym)
(incf count))))
(ReadMore...)* clispでcgi
URIのデコード・エンコードが一応完成。
感想メモ
・whileが無くてびっくり
・xyzzy lispとの微妙な差が気になる
・(alphanumericp #\あ) => T ってなんだよ!?
(ReadMore...)
感想メモ
・whileが無くてびっくり
・xyzzy lispとの微妙な差が気になる
・(alphanumericp #\あ) => T ってなんだよ!?
(ReadMore...)
* clispでcgi
必須のurl-encode&url-decodeの方法を探す。
clispの場合、このあたりが使えそう。
よしよしっと。
デコードは大変だな。
違う文字コードでエンコードされてやってきたらどうしたらいいんだろ。
(ReadMore...)
clispの場合、このあたりが使えそう。
- (EXT:CONVERT-STRING-FROM-BYTES vector encoding &KEY :START :END)
- (EXT:CONVERT-STRING-TO-BYTES string encoding &KEY :START :END)
(format nil "~{~A~}"
(map 'list
#'(lambda (x)
(format nil "%~2,'0x" x))
(ext:convert-string-to-bytes "あかさたな" charset:utf-8)))
=>"%E3%81%82%E3%81%8B%E3%81%95%E3%81%9F%E3%81%AA"
よしよしっと。
デコードは大変だな。
違う文字コードでエンコードされてやってきたらどうしたらいいんだろ。
(ReadMore...)
page 0 - << : 0 : >>
Source of Nothingness
NANRI
NANRI