home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / functions / hexlify-buffer.el < prev    next >
Encoding:
Text File  |  1992-11-25  |  1.8 KB  |  46 lines
  1. ; Newsgroups: gnu.emacs.sources
  2. ; Path: hal.com!decwrl!pacbell.com!iggy.GW.Vitalink.COM!cs.widener.edu!hela.iti.org!nigel.msen.com!emory!swrinde!cs.utexas.edu!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!cis.ohio-state.edu!fly.cnuce.cnr.it!pot
  3. ; From: pot@fly.cnuce.cnr.it (Francesco Potorti`)
  4. ; Subject: hexlify-buffer
  5. ; Organization: Source only  Discussion and requests in gnu.emacs.help.
  6. ; Date: Thu, 12 Nov 1992 12:10:00 GMT
  7. ; 
  8. ; This version of hexlify-buffer is twice as fast as the original one in
  9. ; hexl.el.
  10. ; 
  11. ; Anyone out there is able to make it better (it is always too S L  O   W)?
  12. ; 
  13.  
  14. ;; LCD Archive Entry:
  15. ;; hexlify-buffer|Francesco Potorti`|pot@cnuce.cnr.it|
  16. ;; Convert a binary buffer to hexl format.|
  17. ;; 92-11-12||~/functions/hexlify-buffer.el.Z|
  18.  
  19. (defun hexlify-buffer ()
  20.   "Convert a binary buffer to hexl format"
  21.   (interactive)
  22.   (goto-char (point-min))
  23.   (let (len
  24.     (address 0)
  25.     (chars "")
  26.     (print-chars
  27.      (vconcat
  28.       (mapcar 'char-to-string (make-string 32 ?.))
  29.       (mapcar 'char-to-string " !\"#$%&'()*+,-./0123456789:;<=>?@")
  30.       (mapcar 'char-to-string "ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`")
  31.       (mapcar 'char-to-string "abcdefghijklmnopqrstuvwxyz{|}~")
  32.       (mapcar 'char-to-string (make-string 128 ?.)))))
  33.     (while (not (eobp))
  34.       (setq len (min 16 (- (point-max) (point))))
  35.       (setq chars (buffer-substring (point) (+ (point) len)))
  36.       (delete-char len)
  37.       (insert (format "%08x:    " address)
  38.           (mapconcat '(lambda (arg) (format "%02x" arg)) chars ""))
  39.       (if (eobp) (insert-char ?  (* 2 (- 16 len))))
  40.       (backward-char 28)
  41.       (looking-at
  42.       "\\(....\\)\\(....\\)\\(....\\)\\(....\\)\\(....\\)\\(....\\)\\(....\\)")
  43.       (replace-match " \\1 \\2 \\3  \\4 \\5 \\6 \\7     '")
  44.       (insert (mapconcat '(lambda (c) (aref print-chars c)) chars "") "'\n")
  45.       (setq address (+ address 16)))))
  46.