44 lines
935 B
Factor
44 lines
935 B
Factor
! Copyright (C) 2003, 2010 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel namespaces ;
|
|
IN: prettyprint.config
|
|
|
|
! Configuration
|
|
SYMBOL: tab-size
|
|
SYMBOL: margin
|
|
SYMBOL: nesting-limit
|
|
SYMBOL: length-limit
|
|
SYMBOL: line-limit
|
|
SYMBOL: number-base
|
|
SYMBOL: string-limit?
|
|
SYMBOL: boa-tuples?
|
|
SYMBOL: c-object-pointers?
|
|
|
|
4 tab-size set-global
|
|
64 margin set-global
|
|
15 nesting-limit set-global
|
|
100 length-limit set-global
|
|
10 number-base set-global
|
|
string-limit? on
|
|
|
|
: with-short-limits ( quot -- )
|
|
[
|
|
1 line-limit set
|
|
15 length-limit set
|
|
2 nesting-limit set
|
|
string-limit? on
|
|
boa-tuples? on
|
|
c-object-pointers? off
|
|
call
|
|
] with-scope ; inline
|
|
|
|
: without-limits ( quot -- )
|
|
[
|
|
nesting-limit off
|
|
length-limit off
|
|
line-limit off
|
|
string-limit? off
|
|
c-object-pointers? off
|
|
call
|
|
] with-scope ; inline
|