2011-08-31

16進ダンプ

公開日時
ラベル

REPLから使いたくなって書いた。

(defun hex-dump (seq &key (address-length 8) (address-offset 0))
(labels ((x->char (x)
(let ((c (code-char x)))
(if (and (standard-char-p c) (graphic-char-p c)) c #\.)))
(x->str (l)
(coerce (mapcar #'x->char l) 'string))
(print-header ()
(princ (make-string address-length :initial-element #\=))
(let ((l '#.(loop for n below 16 collect n)))
(format t "== ~{+~x ~}=================~%" l)))
(print-address (i)
(format t (format nil "~~~a,'0x : " address-length)
(+ address-offset i)))
(print-byte (b)
(format t "~2,'0x " b))
(print-text (l)
(format t "| ~a~%" (x->str l)))
(print-padding (n)
(princ (make-string (* n 3) :initial-element #\space)))
(reduce-fn (state byte)
(destructuring-bind (col row txt) state
(when (and (zerop col) (zerop (mod row 10)))
(print-header))
(when (zerop col)
(print-address (* row 16)))
(print-byte byte)
(when (= col 15)
(print-text (nreverse txt)))
(if (= col 15)
(list 0 (1+ row) nil)
(list (1+ col) row (cons byte txt))))))
(fresh-line)
(destructuring-bind (col row txt)
(reduce #'reduce-fn seq :initial-value (list 0 0 nil))
(declare (ignore row))
(unless (zerop col)
(print-padding (- 16 col))
(print-text (nreverse txt))))
(fresh-line)))
view raw gistfile1.lisp hosted with ❤ by GitHub

使い方は以下の通り。(unsigned-byte 8)を要素に持つシーケンスを扱える。十行ごとにヘッダが入り、アドレス表示部分は長さ（標準で8桁）とオフセットを指定できる。テキスト表示部分はstandard characterかつgraphicな文字だけ表示できる。

> (hex-dump (sb-ext:string-to-octets "string"))
========== +0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +A +B +C +D +E +F =================
00000000 : 73 74 72 69 6E 67                               | string
NIL
>

0 件のコメント:

コメントを投稿