lispform.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_LISPFORM_HPP_SENTRY
#define INTELIB_LISPFORM_HPP_SENTRY

#include "../sexpress/sexpress.hpp"
#include "../sexpress/iexcept.hpp"

class IntelibContinuation;


class SExpressionFunction : public SExpression {
protected:
    int min_param, max_param;
public:
    static IntelibTypeId TypeId;
    SExpressionFunction(int min, int max)
        : SExpression(TypeId), min_param(min), max_param(max) {}
protected:
    SExpressionFunction(const IntelibTypeId& id, int min, int max)
        : SExpression(id), min_param(min), max_param(max) {}
    virtual ~SExpressionFunction() {}
public:
    void Apply(int paramc, const SReference *paramv,
               IntelibContinuation &cont) const;
protected:
    virtual void DoApply(int paramc,
                         const SReference *paramv,
                         IntelibContinuation &cont) const = 0;
};


class SExpressionForm : public SExpression {
public:
    static IntelibTypeId TypeId;
    SExpressionForm() : SExpression(TypeId) {}
protected:
    SExpressionForm(const IntelibTypeId& id) : SExpression(id) {}
    virtual ~SExpressionForm() {}

public:
    virtual void Call(const SReference &formtail,
                      IntelibContinuation &cont) const = 0;
};

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

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

#endif

---