On Jul 5, 9:02 pm, Tom Faulhaber <tomfaulha...@gmail.com> wrote:
> Parth,
>
> I've created a little wrapper as promised at:http://gist.github.com/141001.
>
> It gives you my-pprint:
>
> user> (binding [*print-base* 2] (my-pprint (range 10)))
> (0 1 10 11 100 101 110 111 1000 1001)
> nil
> user>
>
Thanks Tom. This works beautifully :)
Here is the example that earlier example in the thread:
user=> (binding [wrap-base/*print-base* 16] (wrap-base/my-pprint
(decode :b32 (test-ops 3))))
{:inst
{:prefix (),
:code (c7 45 f8 a 0 0 0),
:op :movl,
:args [{:type :Ev-mem, :arg {:reg :ebp, :disp -8}} a]},
:more ()}
nil
user=>
> While doing this, I realized to my horror that ~r doesn't do 0
> correctly for non-standard bases. I'll fix that soon.
>
> Also, I've started to implement *print-radix* and *print-base* for
> real in cl-format and the pretty printer, so those should be available
> soon.
>
Fantastic ... pprint just keeps getting better :)
Regards,
Parth
> Enjoy,
>
> Tom
>
> On Jul 3, 3:16 am, Parth <parth.malwan...@gmail.com> wrote:
>
> > On Jul 3, 11:25 am, Tom Faulhaber <tomfaulha...@gmail.com> wrote:
>
> > > Parth,
>
> > > I was thinking about this a little more today and I came up with a way
> > > to extend the pretty printer easily to support *print-radix* with a
> > > little wrapper. I'll try to get a chance to write it up for you
> > > tomorrow.
>
> > > Tom
>
> > Sounds perfect. Thanks very much :)
>
> > Regards,
> > Parth
>
> > > On Jul 2, 6:29 pm, Parth <parth.malwan...@gmail.com> wrote:
>
> > > > On Jul 3, 6:15 am, Parth <parth.malwan...@gmail.com> wrote:
>
> > > > > Tom, Chouser, Thanks for your responses.
>
> > > > > As of now I am doing the same thing as suggested.
> > > > > However, this tends be become painful the moment structures
> > > > > start to nest. For e.g. I am using Clojure to decode a bit
> > > > > of assembly and below is what I end up doing to see the
> > > > > values of interest in hex:
>
> > > > > user=> (decode :b32 (nth test-ops 3))
> > > > > {:inst {:prefix (), :code (199 69 248 10 0 0 0), :op :movl, :args
> > > > > [{:type :Ev-mem, :arg {:reg :ebp, :disp -8}} 10]}, :more ()}
> > > > > user=> (def r (decode :b32 (nth test-ops 3)))
> > > > > #'user/r
> > > > > user=> (map hex (get-in r [:inst :code]))
> > > > > ("c7" "45" "f8" "a" "0" "0" "0")
> > > > > user=> (hex (second (get-in r [:inst :args])))
> > > > > "a"
> > > > > user=>
>
> > > > > Basically, I need to extract each number seq or value
> > > > > individually and print it in hex for every instruction I
> > > > > decode and view.
>
> > > > > This isn't too much fun to do in the middle of a debug session :)
>
> > > > > Having something like *print-base* would be ideal IMHO
> > > > > would make scenarios like this really easy as one could
> > > > > simply do:
>
> > > > > user=> (set! *print-base* 16)
> > > > > user=> (decode :b32 (nth test-ops 3))
> > > > > {:inst {:prefix (), :code (c7 47 f8 a 0 0 0), :op :movl, :args
> > > > > [{:type :Ev-mem, :arg {:reg :ebp, :disp f8}} a]}, :more ()}
>
> > > > > In the absence of this I thought of writing a function
> > > > > that would take an arbitrary Clojure structure/coll and print
> > > > > it out in the manner like above. But then it won't
> > > > > be much different from pprint with radix support but without
> > > > > the pretty part.
>
> > > > > I suppose what I am hoping is that a feature request for
> > > > > *print-base* sort of a mechanism get considered
> > > > > for Clojure as it makes scenarios like the above very
> > > > > easy to deal with. Any chance of this being somewhere
> > > > > on the Clojue todo? :)
>
> > > > Rich,
>
> > > > If this is something you think would be a good addition
> > > > to Clojure I could give a shot at creating a patch for
> > > > this (with a CA of course). Please let me know.
>
> > > > I think rather than a generic radix support, if
> > > > we have hex, bin and octal supported, most uses
> > > > cases should be covered.
>
> > > > Regards,
> > > > Parth
>
> > > > > I will probably create a poor mans radix based print
> > > > > in the mean time for the this scenario. That should
> > > > > be an interesting exercise.
>
> > > > > Thanks,
> > > > > Parth
>
> > > > > On Jul 2, 10:58 pm, Chouser <chou...@gmail.com> wrote:
>
> > > > > > On Thu, Jul 2, 2009 at 4:51 AM, Parth
>
> > > > > > Malwankar<parth.malwan...@gmail.com> wrote:
>
> > > > > > > I frequently deal with hex and binary numbers.
> > > > > > > As of now when I need to view a list of numbers
> > > > > > > I just map a little hex function to it to translate it
> > > > > > > into a list of hex strings at the repl.
>
> > > > > > > Having something like *print-base* / *print-radix* [1] may be
> > > > > > > valuable in such a scenario
>
> > > > > > I don't think Java's built-in formatter is nearly as
> > > > > > flexible as those, but getting hex or octal strings is easy
> > > > > > enough:
>
> > > > > > user=> (format "%d" 255)
> > > > > > "255"
> > > > > > user=> (format "%o" 255)
> > > > > > "377"
> > > > > > user=> (format "%x" 255)
> > > > > > "ff"
> > > > > > user=> (format "%X" 255)
> > > > > > "FF"
>
> > > > > > --Chouser
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
