spkghsh.hpp

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 !!! |
// +-------------------------------------------------------------------------+




#ifndef INTELIB_SPKGHSH_HPP_SENTRY
#define INTELIB_SPKGHSH_HPP_SENTRY

#include "../sexpress/iexcept.hpp"
#include "../sexpress/sexpress.hpp"
#include "../sexpress/gensref.hpp"
#include "../sexpress/shashtbl.hpp"
#include "sreader.hpp"

class SExpressionHashPackage;

class IntelibX_not_a_package : public IntelibX {
public:
    IntelibX_not_a_package(SReference a_param);
};

typedef GenericSReference<SExpressionHashPackage, IntelibX_not_a_package> 
SHashPackage;



class SExpressionHashPackage : public SExpressionHashTable,
                               public IntelibPackage
{
    SHashPackage parent; 
public:
    static IntelibTypeId TypeId;

    SExpressionHashPackage();
    SExpressionHashPackage(const SHashPackage& a_parent);
protected:
    ~SExpressionHashPackage();
    SExpressionHashPackage(const IntelibTypeId& tid);
    SExpressionHashPackage(const IntelibTypeId& tid,
                           const SHashPackage& a_parent);

public:
        

    bool Import(const SReference &symb, const char *symbname = 0, 
                bool safe = true);


    SReference Intern(const char *name); 


    SReference FindSymbol(const char *name);

private:
    virtual SReference MakeSymbol(const char *name);
 
protected:

    virtual SReference CreateNewSymbolObject(const char *name) const;

#if INTELIB_TEXT_REPRESENTATIONS == 1
    virtual SString TextRepresentation() const;
#endif
};

class IntelibX_package_conflict : public IntelibX {
public:
    IntelibX_package_conflict(SReference a_param);
};

#endif        // sentry

---