mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 12:20:26 +02:00
(Pretty Printing): Add new keyword options, break example to avoid long line.
This commit is contained in:
parent
a07b5c18cb
commit
385dbc8b9c
1 changed files with 19 additions and 2 deletions
|
@ -21,7 +21,8 @@ how @code{pretty-print} will format the output, see the following:
|
||||||
|
|
||||||
@lisp
|
@lisp
|
||||||
(pretty-print '(define (foo) (lambda (x)
|
(pretty-print '(define (foo) (lambda (x)
|
||||||
(cond ((zero? x) #t) ((negative? x) -x) (else (if (= x 1) 2 (* x x x)))))))
|
(cond ((zero? x) #t) ((negative? x) -x) (else
|
||||||
|
(if (= x 1) 2 (* x x x)))))))
|
||||||
@print{}
|
@print{}
|
||||||
(define (foo)
|
(define (foo)
|
||||||
(lambda (x)
|
(lambda (x)
|
||||||
|
@ -30,10 +31,26 @@ how @code{pretty-print} will format the output, see the following:
|
||||||
(else (if (= x 1) 2 (* x x x))))))
|
(else (if (= x 1) 2 (* x x x))))))
|
||||||
@end lisp
|
@end lisp
|
||||||
|
|
||||||
@deffn {Scheme Procedure} pretty-print obj [port]
|
@deffn {Scheme Procedure} pretty-print obj [port] [keyword-options]
|
||||||
Print the textual representation of the Scheme object @var{obj} to
|
Print the textual representation of the Scheme object @var{obj} to
|
||||||
@var{port}. @var{port} defaults to the current output port, if not
|
@var{port}. @var{port} defaults to the current output port, if not
|
||||||
given.
|
given.
|
||||||
|
|
||||||
|
The further @var{keyword-options} are keywords and parameters as
|
||||||
|
follows,
|
||||||
|
|
||||||
|
@table @asis
|
||||||
|
@item @nicode{#:display?} @var{flag}
|
||||||
|
If @var{flag} is true then print using @code{display}. The default is
|
||||||
|
@code{#f} which means use @code{write} style. (@pxref{Writing})
|
||||||
|
|
||||||
|
@item @nicode{#:per-line-prefix} @var{string}
|
||||||
|
Print the given @var{string} as a prefix on each line. The default is
|
||||||
|
no prefix.
|
||||||
|
|
||||||
|
@item @nicode{#:width} @var{columns}
|
||||||
|
Print within the given @var{columns}. The default is 79.
|
||||||
|
@end table
|
||||||
@end deffn
|
@end deffn
|
||||||
|
|
||||||
Beware: Since @code{pretty-print} uses it's own write procedure, it's
|
Beware: Since @code{pretty-print} uses it's own write procedure, it's
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue