repl, abridged output?

repl, abridged output?

[Daniel Llorens]

	
Hello,

When I work with large arrays or other large data structures on the command line, I have to be careful not to print them. Guile always prints these things in full, it takes forever and often I can't even C-c.

I've seen that there's a REPL command ,inspect that produces abridged output. Is it possible to have this as the default for printing to the REPL? Is there any way to configure this?

Thanks,

	Daniel

Re: repl, abridged output?

[Daniel Hartwig]

On 3 December 2012 20:39, Daniel Llorens <dll@bluewin.ch> wrote:
> I've seen that there's a REPL command ,inspect that produces
> abridged output. Is it possible to have this as the default for
> printing to the REPL? Is there any way to configure this?

scheme@(guile-user)> (eval '(set! repl-print
                              (lambda (repl val)
                                (if (not (eq? val *unspecified*))
                                    (begin
                                      (run-hook before-print-hook val)
                                      (format #t "~20@y" val)
                                      (newline)))))
                           (resolve-module '(system repl common)))
scheme@(guile-user)> (use-modules (srfi srfi-1))
scheme@(guile-user)> (iota 500)
$1 = (0 1 2 3 4 5 6 7 …)

Re: repl, abridged output?

[Daniel Llorens]

On Dec 4, 2012, at 02:43, Daniel Hartwig wrote:

> On 3 December 2012 20:39, Daniel Llorens <dll@bluewin.ch> wrote:
>> I've seen that there's a REPL command ,inspect that produces
>> abridged output. Is it possible to have this as the default for
>> printing to the REPL? Is there any way to configure this?
> 
> scheme@(guile-user)> (eval '(set! repl-print
>                              (lambda (repl val)
>                                (if (not (eq? val *unspecified*))
>                                    (begin
>                                      (run-hook before-print-hook val)
>                                      (format #t "~20ATy" val)
>                                      (newline)))))
>                           (resolve-module '(system repl common)))
> scheme@(guile-user)> (use-modules (srfi srfi-1))
> scheme@(guile-user)> (iota 500)
> $1 = (0 1 2 3 4 5 6 7 …)

Excellent, thank you.

For the benefit of the list, AT in the format string is the at character.

	Daniel

Re: repl, abridged output?

[Ludovic Courtès]

Hi!

Daniel Hartwig <mandyke@gmail.com> skribis:

> On 3 December 2012 20:39, Daniel Llorens <dll@bluewin.ch> wrote:
>> I've seen that there's a REPL command ,inspect that produces
>> abridged output. Is it possible to have this as the default for
>> printing to the REPL? Is there any way to configure this?
>
> scheme@(guile-user)> (eval '(set! repl-print
>                               (lambda (repl val)
>                                 (if (not (eq? val *unspecified*))
>                                     (begin
>                                       (run-hook before-print-hook val)
>                                       (format #t "~20@y" val)
>                                       (newline)))))
>                            (resolve-module '(system repl common)))
> scheme@(guile-user)> (use-modules (srfi srfi-1))
> scheme@(guile-user)> (iota 500)
> $1 = (0 1 2 3 4 5 6 7 …)

Indeed.  Perhaps there should be a standard, simple way to do that.
Would you like to propose a patch?  :-)

Ludo’.

Re: repl, abridged output?

[Nala Ginrut]

On Tue, 2012-12-04 at 13:59 +0100, Ludovic Courtès wrote:
> Hi!
> 
> Daniel Hartwig <mandyke@gmail.com> skribis:
> 
> > On 3 December 2012 20:39, Daniel Llorens <dll@bluewin.ch> wrote:
> >> I've seen that there's a REPL command ,inspect that produces
> >> abridged output. Is it possible to have this as the default for
> >> printing to the REPL? Is there any way to configure this?
> >
> > scheme@(guile-user)> (eval '(set! repl-print
> >                               (lambda (repl val)
> >                                 (if (not (eq? val *unspecified*))
> >                                     (begin
> >                                       (run-hook before-print-hook val)
> >                                       (format #t "~20@y" val)
> >                                       (newline)))))
> >                            (resolve-module '(system repl common)))
> > scheme@(guile-user)> (use-modules (srfi srfi-1))
> > scheme@(guile-user)> (iota 500)
> > $1 = (0 1 2 3 4 5 6 7 …)
> 
> Indeed.  Perhaps there should be a standard, simple way to do that.
> Would you like to propose a patch?  :-)
> 

Daniel has posted a patch for that, and it simplified my color-REPL
work. My patch will be based on his patch, then I don't have to patch
'pp' now.

Coming soon.

> Ludo’.
> 
>