47 lines
2.1 KiB
Plaintext
47 lines
2.1 KiB
Plaintext
|
IN: prettyprint
|
||
|
|
USING: help io kernel prettyprint prettyprint-internals words ;
|
||
|
|
|
||
|
|
HELP: with-pprint
|
||
|
|
{ $values { "quot" "a quotation" } }
|
||
|
|
{ $description "Sets up the prettyprinter and calls the quotation in a new scope. The quotation should add sections to the top-level block. When the quotation returns, the top-level block is printed to the default stream." } ;
|
||
|
|
|
||
|
|
HELP: pprint
|
||
|
|
{ $values { "obj" "an object" } }
|
||
|
|
{ $description "Prettyprints an object to the default stream. Output is influenced by many variables; see " { $link "prettyprint-variables" } "." } ;
|
||
|
|
|
||
|
|
HELP: .
|
||
|
|
{ $values { "obj" "an object" } }
|
||
|
|
{ $description "Prettyprints an object to the default stream with a trailing line break. Output is influenced by many variables; see " { $link "prettyprint-variables" } "." } ;
|
||
|
|
|
||
|
|
HELP: unparse
|
||
|
|
{ $values { "obj" "an object" } { "str" "Factor source string" } }
|
||
|
|
{ $description "Outputs a prettyprinted string representation of an object. Output is influenced by many variables; see " { $link "prettyprint-variables" } "." } ;
|
||
|
|
|
||
|
|
HELP: pprint-short
|
||
|
|
{ $values { "obj" "an object" } }
|
||
|
|
{ $description "Prettyprints an object to the default stream. This word rebinds printer control variables to enforce ``shorter'' output. See " { $link "prettyprint-variables" } "." } ;
|
||
|
|
|
||
|
|
HELP: short.
|
||
|
|
{ $values { "obj" "an object" } }
|
||
|
|
{ $description "Prettyprints an object to the default stream with a trailing line break. This word rebinds printer control variables to enforce ``shorter'' output." } ;
|
||
|
|
|
||
|
|
HELP: unparse-short
|
||
|
|
{ $values { "obj" "an object" } { "str" "Factor source string" } }
|
||
|
|
{ $description "Outputs a prettyprinted string representation of an object. This word rebinds printer control variables to enforce ``shorter'' output. See " { $link "prettyprint-variables" } "." } ;
|
||
|
|
|
||
|
|
HELP: .b
|
||
|
|
{ $values { "n" "an integer" } }
|
||
|
|
{ $description "Outputs an integer in binary." } ;
|
||
|
|
|
||
|
|
HELP: .o
|
||
|
|
{ $values { "n" "an integer" } }
|
||
|
|
{ $description "Outputs an integer in octal." } ;
|
||
|
|
|
||
|
|
HELP: .h
|
||
|
|
{ $values { "n" "an integer" } }
|
||
|
|
{ $description "Outputs an integer in hexadecimal." } ;
|
||
|
|
|
||
|
|
HELP: summary
|
||
|
|
{ $values { "object" "an object" } { "string" "a string" } }
|
||
|
|
{ $contract "Outputs a brief description of the object." } ;
|