Mercurial > lasercutter

     1 ;;; hexdump.clj -- part of the pretty printer for Clojure

     2 

     3 ;; by Tom Faulhaber

     4 ;; April 3, 2009

     5 

     6 ;   Copyright (c) Tom Faulhaber, Dec 2008. All rights reserved.

     7 ;   The use and distribution terms for this software are covered by the

     8 ;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)

     9 ;   which can be found in the file epl-v10.html at the root of this distribution.

    10 ;   By using this software in any fashion, you are agreeing to be bound by

    11 ;   the terms of this license.

    12 ;   You must not remove this notice, or any other, from this software.

    13 

    14 ;; This example is a classic hexdump program written using cl-format.

    15 

    16 ;; For some local color, it was written in Dulles Airport while waiting for a flight

    17 ;; home to San Francisco.

    18 

    19 (ns clojure.contrib.pprint.examples.hexdump

    20   (:use clojure.contrib.pprint

    21         clojure.contrib.pprint.utilities)

    22   (:gen-class (:main true)))

    23 

    24 (def *buffer-length* 1024)

    25 

    26 (defn zip-array [base-offset arr]

    27   (let [grouped (partition 16 arr)]

    28     (first (map-passing-context

    29             (fn [line offset]

    30               [[offset 

    31                 (map #(if (neg? %) (+ % 256) %) line)

    32                 (- 16 (count line))

    33                 (map #(if (<= 32 % 126) (char %) \.) line)]

    34                (+ 16 offset)])

    35             base-offset grouped))))

    36 

    37 

    38 (defn hexdump 

    39   ([in-stream] (hexdump in-stream true 0))

    40   ([in-stream out-stream] (hexdump [in-stream out-stream 0]))

    41   ([in-stream out-stream offset] 

    42      (let [buf (make-array Byte/TYPE *buffer-length*)]

    43        (loop [offset offset

    44               count (.read in-stream buf)]

    45          (if (neg? count)

    46            nil

    47            (let [bytes (take count buf)

    48                  zipped (zip-array offset bytes)]

    49              (cl-format out-stream 

    50                         "~:{~8,'0X: ~2{~8@{~#[   ~:;~2,'0X ~]~}  ~}~v@{   ~}~2{~8@{~A~} ~}~%~}" 

    51                         zipped) 

    52              (recur (+ offset *buffer-length*) (.read in-stream buf))))))))

    53 

    54 (defn hexdump-file 

    55   ([file-name] (hexdump-file file-name true))

    56   ([file-name stream] 

    57      (with-open [s (java.io.FileInputStream. file-name)] 

    58        (hexdump s))))

    59 

    60 ;; I don't quite understand how to invoke main funcs w/o AOT yet

    61 (defn -main [& args]

    62   (hexdump-file (first args)))

    63
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 21 Aug 2010 06:25:44 -0400
parents
children