factor/basis/prettyprint/config/config.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
t string-limit? set-global

: with-short-limits ( quot -- )
    H{
        { line-limit 1 }
        { length-limit 15 }
        { nesting-limit 2 }
        { string-limit? t }
        { boa-tuples? t }
        { c-object-pointers? f }
    } clone swap with-variables ; inline

: without-limits ( quot -- )
    H{
        { nesting-limit f }
        { length-limit f }
        { line-limit f }
        { string-limit? f }
        { c-object-pointers? f }
    } clone swap with-variables ; inline