gnu.kawa.lispexpr

Class LispPackage

java.lang.Object

java.util.AbstractMap<K,V>

gnu.kawa.util.AbstractHashTable<gnu.mapping.SymbolRef,java.lang.String,Symbol>

gnu.mapping.Namespace

gnu.kawa.lispexpr.LispPackage

All Implemented Interfaces:

HasNamedParts, java.io.Externalizable, java.io.Serializable, java.util.Map<java.lang.String,Symbol>

public class LispPackage
extends Namespace

Implement a Common Lisp "package" value.

See Also:

Serialized Form

Nested Class Summary

Nested classes/interfaces inherited from class java.util.AbstractMap

java.util.AbstractMap.SimpleEntry<K,V>, java.util.AbstractMap.SimpleImmutableEntry<K,V>

Nested classes/interfaces inherited from interface java.util.Map

java.util.Map.Entry<K,V>

Field Summary

Fields

Modifier and Type	Field and Description
static LispPackage	ClassNamespace
static LispPackage	CLNamespace
static ThreadLocation<LispPackage>	currentPackage Common Lisp *package* special.
Namespace	exported The set of exported symbols.
static LispPackage	KawaNamespace
static LispPackage	KeywordNamespace

Fields inherited from class gnu.mapping.Namespace

EmptyNamespace, nsTable, prefix, UNKNOWN_NAMESPACE

Fields inherited from class gnu.kawa.util.AbstractHashTable

DEFAULT_INITIAL_SIZE, mask, num_bindings, table

Constructor Summary

Constructors

Constructor and Description
LispPackage()

Method Summary

Modifier and Type	Method and Description
static void	addNickNames(LispPackage name, LList nicks)
LList	allExternalSymbols() The list of symbols exported from this package.
LList	allInternalSymbols() The list of symbols interned into this package.
LList	allSymbols(Namespace ns) The list of symbols managed by a given namespace.
static void	exportPkg(LList syms, LispPackage pkg) Export a list of symbols from a package, checking for conflicts.
static LispPackage	findPackage(java.lang.String name) Returns null if no package exists.
Values.Values2	findSymbol(java.lang.Object name)
LList	getShadowingSymbols()
static void	importPkg(LList syms, LispPackage pkg) Import a list of symbols into the internal table of a package.
static java.lang.Object	intern(java.lang.String name, LispPackage pkg)
boolean	isPresent(java.lang.String name)
static boolean	keywordp(java.lang.Object x)
Symbol	lookup(java.lang.String name, int hash, boolean create)
Symbol	lookupPresent(java.lang.String name, int hash, boolean intern)
static LispPackage	makeLispPackage(java.lang.Object name, LList nicks, LList used)
static LList	pkgUsedByList(LispPackage lp) Used for the CL PACKAGE-USED-BY-LIST function
static LList	pkgUsesList(LispPackage lp) Used for the CL PACKAGE-USE-LIST function.
void	setExportedNamespace(Namespace exp)
void	shadow(java.lang.String name) The core of the Common Lisp shadow function.
void	shadowingImport(Symbol symbol)
static void	signal(java.lang.String msg) Temporary stub until Kawa supports conditional restarts.
static java.lang.Object	symbolPackage(java.lang.Object x)
boolean	unintern(Symbol symbol)
static void	use(LispPackage importing, LispPackage imported)
static void	usePackages(LList importees, LispPackage importer)
static LispPackage	valueOf(java.lang.String name) Look up a given package in the Namespace map.
static Namespace	valueOfNoCreate(java.lang.String name)

Methods inherited from class gnu.mapping.Namespace

add, allocEntries, create, create, get, get, getDefault, getDefaultSymbol, getEntryHashCode, getEntryNext, getName, getPrefix, getSymbol, isConstant, isUnknownNamespace, lookup, lookupInternal, makeEntry, makeUnknownNamespace, readExternal, readResolve, remove, setEntryNext, setName, toString, valueOf, valueOf, valueOf, writeExternal

Methods inherited from class gnu.kawa.util.AbstractHashTable

clear, entrySet, get, getNode, getOrDefault, hash, hashToIndex, matches, matches, put, put, rehash, remove, size

Methods inherited from class java.util.AbstractMap

clone, containsKey, containsValue, equals, hashCode, isEmpty, keySet, putAll, values

Methods inherited from class java.lang.Object

finalize, getClass, notify, notifyAll, wait, wait, wait

Methods inherited from interface java.util.Map

compute, computeIfAbsent, computeIfPresent, forEach, merge, putIfAbsent, remove, replace, replace, replaceAll

Field Detail

exported

public Namespace exported

The set of exported symbols. This is one of the packages in importing.

CLNamespace

public static final LispPackage CLNamespace

KeywordNamespace

public static final LispPackage KeywordNamespace

KawaNamespace

public static final LispPackage KawaNamespace

ClassNamespace

public static final LispPackage ClassNamespace

currentPackage

public static ThreadLocation<LispPackage> currentPackage

Common Lisp *package* special.

Constructor Detail

LispPackage

public LispPackage()

Method Detail

setExportedNamespace

public void setExportedNamespace(Namespace exp)

getShadowingSymbols

public LList getShadowingSymbols()

pkgUsesList

public static LList pkgUsesList(LispPackage lp)

Used for the CL PACKAGE-USE-LIST function.

pkgUsedByList

public static LList pkgUsedByList(LispPackage lp)

Used for the CL PACKAGE-USED-BY-LIST function

addNickNames

public static void addNickNames(LispPackage name,
                                LList nicks)

usePackages

public static void usePackages(LList importees,
                               LispPackage importer)

makeLispPackage

public static LispPackage makeLispPackage(java.lang.Object name,
                                          LList nicks,
                                          LList used)

valueOf

public static LispPackage valueOf(java.lang.String name)

Look up a given package in the Namespace map. This method creates a new Lisp package in the namespace if it does not already exist.

Parameters:

name - The name of the package to look up.

Returns:

The LispPackage named by name or null if a Namespace is already named by name but is not a lisp package.

valueOfNoCreate

public static Namespace valueOfNoCreate(java.lang.String name)

findSymbol

public Values.Values2 findSymbol(java.lang.Object name)

exportPkg

public static void exportPkg(LList syms,
                             LispPackage pkg)

Export a list of symbols from a package, checking for conflicts.

Parameters:

syms - The list of symbols to export.

pkg - The package to export the symbols from.

importPkg

public static void importPkg(LList syms,
                             LispPackage pkg)

Import a list of symbols into the internal table of a package. This method checks for conflicts, and should in the future allow the user to shadow import any conflicts.

Parameters:

syms - the list of symbols to import.

pkg - the package to import into.

allSymbols

public LList allSymbols(Namespace ns)

The list of symbols managed by a given namespace.

Parameters:

ns - The namespace whose symbol table we query

Returns:

The list of symbols managed by the given namespace.

allExternalSymbols

public LList allExternalSymbols()

The list of symbols exported from this package.

Returns:

A list of the the exported symbols from the current package.

allInternalSymbols

public LList allInternalSymbols()

The list of symbols interned into this package.

Returns:

A list of the interned symbols in this package.

use

public static void use(LispPackage importing,
                       LispPackage imported)

lookup

public Symbol lookup(java.lang.String name,
                     int hash,
                     boolean create)

Overrides:

lookup in class Namespace

lookupPresent

public Symbol lookupPresent(java.lang.String name,
                            int hash,
                            boolean intern)

isPresent

public boolean isPresent(java.lang.String name)

unintern

public boolean unintern(Symbol symbol)

shadow

public void shadow(java.lang.String name)

The core of the Common Lisp shadow function.

shadowingImport

public void shadowingImport(Symbol symbol)

keywordp

public static boolean keywordp(java.lang.Object x)

symbolPackage

public static java.lang.Object symbolPackage(java.lang.Object x)

intern

public static java.lang.Object intern(java.lang.String name,
                                      LispPackage pkg)

findPackage

public static LispPackage findPackage(java.lang.String name)

Returns null if no package exists.

signal

public static void signal(java.lang.String msg)

Temporary stub until Kawa supports conditional restarts.