Summary
Prettyprinter formatting and layout logic

Metadata

Authors:

Slava Pestov

Words

Tuple classes

Class	Superclass	Slots
block	section	sections
colon	block
flow	block
inset	block	narrow?
line-break	section	type
pprinter	tuple	last-newline line-count indent
section	tuple	start end start-group? end-group? style overhang
text-section	section	string

Generic words

Word	Stack effect
indent-section?	( section -- ? )
long-section	( section -- )
newline-after?	( section -- ? )
section-fits?	( section -- ? )
short-section	( section -- )
short-section?	( section -- ? )
unindent-first-line?	( section -- ? )
vocabulary-name	( obj -- string )

Symbol words

hard

next

position

pprinter-in

pprinter-stack

pprinter-use

prev

recursion-check

soft

Ordinary words

Word	Stack effect
(<block)	( block -- )
(record-vocab)	( vocab -- )
<block	( -- )
<block>	( style -- block )
<colon	( -- )
<colon>	( -- block )
<flow	( -- )
<flow>	( -- block )
<fresh-line	( section -- )
<indent	( section -- )
<inset	( narrow? -- )
<inset>	( narrow? -- block )
<line-break>	( type -- section )
<long-section	( section -- )
<object	( obj -- )
<pprinter>	( -- pprinter )
<text>	( string style -- text )
?break-group	( seq -- )
add-line-break	( type -- )
add-section	( section -- )
advance	( section -- )
block>	( -- )
break-group?	( seq -- ? )
chop-break	( seq -- seq )
do-break	( break -- )
do-indent	( -- )
do-pprint	( block -- )
empty-block?	( block -- ? )
end-group	( -- )
error-in-pprint	( obj -- )
fresh-line	( n -- )
fresh-line>	( section -- )
group-flow	( seq -- newseq )
indent+	( section n -- )
indent>	( section -- )
last-section	( -- section )
line-limit?	( -- ? )
long-section>	( section -- )
make-pprint	( obj quot manifest? -- block manifest/f )
new-block	( class -- block )
new-section	( length class -- section )
pprint-section	( section -- )
pprint-sections	( block advancer -- )
pprinter-block	( -- block )
pprinter-manifest	( -- manifest )
record-vocab	( word -- )
save-end-position	( block -- )
split-after	( section -- )
split-before	( section -- )
split-groups	( ? -- )
start-group	( -- )
styled-text	( string style -- )
text	( string -- )
text-fits?	( len -- ? )
unless-empty-block	( block quot: ( block -- ) -- )
with-pprint	( obj quot -- )

Class predicate words

Word	Stack effect
block?	( object -- ? )
colon?	( object -- ? )
flow?	( object -- ? )
inset?	( object -- ? )
line-break?	( object -- ? )
pprinter?	( object -- ? )
section?	( object -- ? )
text-section?	( object -- ? )

Files


Metadata files