lpackage.cpp

Go to the documentation of this file.

// +-------------------------------------------------------------------------+
// |               I__n__t__e__L__i__b           0.6.10 development          |
// | Copyright (c) Andrey Vikt. Stolyarov <crocodil_AT_croco.net> 2000-2007. |
// |                                                                         |
// | This is free software. The library part is available under              |
// |                               GNU LESSER GENERAL PUBLIC LICENSE v.2.1.  |
// | GNU LGPL v2.1 is found in docs/gnu_gpl2.txt,  or at  http://www.gnu.org |
// |     Please see also docs/readme.txt and visit http://www.intelib.org    |
// |                                                                         |
// | !!! THERE IS NO WARRANTY OF ANY KIND, NEITHER EXPRESSED NOR IMPLIED !!! |
// +-------------------------------------------------------------------------+




#include <string.h>
#include <ctype.h>

#include "lsymbol.hpp"

#include "lpackage.hpp"

// LExpressionPackage

IntelibTypeId
LExpressionPackage::TypeId(&SExpressionHashPackage::TypeId);

LExpressionPackage::LExpressionPackage()
    : SExpressionHashPackage(TypeId)
{}

LExpressionPackage::LExpressionPackage(const LPackage& par)
    : SExpressionHashPackage(TypeId, par)
{}

LExpressionPackage::~LExpressionPackage()
{}

SReference LExpressionPackage::CreateNewSymbolObject(const char *nm) const
{
    return SReference(new LExpressionSymbol(nm));
}

// LExpressionPackageIntelib

LExpressionPackageIntelib::LExpressionPackageIntelib()
    : LExpressionPackage()
{
    Import(TheLibraryProvidedSymbols.Quote);
    Import(TheLibraryProvidedSymbols.Function);
    Import(TheLibraryProvidedSymbols.Lambda);
    Import(TheLibraryProvidedSymbols.SymT);
    Import(TheLibraryProvidedSymbols.SymNil);
}

---