gnu.kawa.functions

Class DisplayFormat

java.lang.Object

java.text.Format

gnu.lists.AbstractFormat

gnu.kawa.functions.DisplayFormat

All Implemented Interfaces:

java.io.Serializable, java.lang.Cloneable

Direct Known Subclasses:

Print

public class DisplayFormat
extends AbstractFormat

Handle formatted output for Lisp-like languages.

See Also:

Serialized Form

Nested Class Summary

Nested classes/interfaces inherited from class java.text.Format

java.text.Format.Field

Field Summary

Fields

Modifier and Type	Field and Description
boolean	checkSharing This field is set true by Scheme when it creates a shared write format
static ThreadLocation	outBase Fluid parameter to specify default output base for printing rationals.
static ThreadLocation	outRadix True if we should print a radix indicator when printing rationals.

Constructor Summary

Constructors

Constructor and Description
DisplayFormat(boolean readable, char language) Create a new instance.

Method Summary

Methods

Modifier and Type	Method and Description
static DisplayFormat	getCommonLispFormat(boolean readable)
static DisplayFormat	getEmacsLispFormat(boolean readable)
boolean	getReadableOutput()
static DisplayFormat	getSchemeFormat(boolean readable)
void	write(int v, Consumer out)
void	writeBoolean(boolean v, Consumer out)
void	writeList(LList value, OutPort out) Format a list.
void	writeObject(java.lang.Object obj, Consumer out)
void	writeObjectRaw(java.lang.Object obj, Consumer out)

Methods inherited from class gnu.lists.AbstractFormat

endAttribute, endElement, format, format, parseObject, startAttribute, startElement, write, writeInt, writeLong, writeObject, writeObject

Methods inherited from class java.text.Format

clone, format, formatToCharacterIterator, parseObject

Methods inherited from class java.lang.Object

equals, finalize, getClass, hashCode, notify, notifyAll, toString, wait, wait, wait

Field Detail

outBase

public static final ThreadLocation outBase

Fluid parameter to specify default output base for printing rationals.

outRadix

public static final ThreadLocation outRadix

True if we should print a radix indicator when printing rationals. The default is no; otherwise we follow Common Lisp conventions.

checkSharing

public boolean checkSharing

This field is set true by Scheme when it creates a shared write format

Constructor Detail

DisplayFormat

public DisplayFormat(boolean readable,
             char language)

Create a new instance.

Parameters:

readable - if output should be formatted so it could be read back in again, for example strings shoudl be quoted.

language - the programming language style to use, where 'S' is Scheme, 'C' is Common Lisp, and 'E' is Emacs Lisp.

Method Detail

getEmacsLispFormat

public static DisplayFormat getEmacsLispFormat(boolean readable)

getCommonLispFormat

public static DisplayFormat getCommonLispFormat(boolean readable)

getSchemeFormat

public static DisplayFormat getSchemeFormat(boolean readable)

getReadableOutput

public boolean getReadableOutput()

writeBoolean

public void writeBoolean(boolean v,
                Consumer out)

Overrides:

writeBoolean in class AbstractFormat

write

public void write(int v,
         Consumer out)

Overrides:

write in class AbstractFormat

writeList

public void writeList(LList value,
             OutPort out)

Format a list. Try to find shared structures in a list. To accomplish this, each subobject is hashed to the idhash, which is used later to determine whether we've seen a subobject before. There is an added complication when you consider cases like this: '((b . #1=(a . z)) 3) It is not known in advance that the printer will have to emit an extra ')' after the '(a . z) pair. Every time we CDR further into the list, we push a position marker onto a stack. Once we've examined the tail of this sublist, we pop all the posn markers off and tell the pretty printer that it might have to emit an extra ')' if the corresponding posn marker becomes active.

Parameters:

value - The list on which the method CDR's, termination occurs when this becomes a non-pair or the empty list

out - The output port that is responsible for the pretty printing

writeObject

public void writeObject(java.lang.Object obj,
               Consumer out)

Specified by:

writeObject in class AbstractFormat

writeObjectRaw

public void writeObjectRaw(java.lang.Object obj,
                  Consumer out)