Skip to content

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
xd.lsp - 16進ダンプツール (hexdump -C風味)
#!/usr/bin/newlisp
;; Hex dump tool
;; Usage: newlisp xd.lsp < FILENAME
(constant 'stdin 0)
(define-macro (loop)
(let ((return throw))
(catch (while true
(map eval (args))))))
(setq offset 0)
(loop
(or (read stdin s 16) (return 'eof))
;; ADDRESS
(print (format "%08X " offset))
;; HEXDUMP
(print (format (dup "%02X " (length s))
(unpack (dup "b" (length s)) s))
(dup " " (- 16 (length s))))
;; CHARACTER
(print " |" (replace "[^[:print:]]" s "." 0) "|\n")
(++ offset (length s)))
(exit)
@kosh04
Owner

read関数が指定したバイト数より小さい場合でも入力を受けつけるのがちょっと気になる…。

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.