iexcept.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_IEXCEPT_HPP_SENTRY
#define INTELIB_IEXCEPT_HPP_SENTRY

#include "sexpress.hpp"


class IntelibX {

     const char *descr; 

     SReference param;  


     SReference stack;  
public:

     IntelibX(const char *a_descr);

     IntelibX(const char *a_descr, SReference a_param);

     IntelibX(const IntelibX& other);
     ~IntelibX(); 

     void AddStack(SReference r);

     const char *Description() const { return descr; }
     const SReference &Parameter() const { return param; }
     const SReference &Stack() const { return stack; }
};



class IntelibX_wrong_expression_type : public IntelibX {
public:
    IntelibX_wrong_expression_type(const SReference &a_param);
};

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

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

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

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

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

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

class IntelibX_unexpected_unbound_value : public IntelibX {
public:
    IntelibX_unexpected_unbound_value();
};

class IntelibX_not_implemented : public IntelibX {
public:
    IntelibX_not_implemented();
};


class IntelibX_bug : public IntelibX {
public:
    IntelibX_bug();
};



#if INTELIB_RUNTIME_CHECKS == 1

# define INTELIB_ASSERT(condition, exception) \
        do { if(!(condition)) throw exception; } while(0)
#else

# define INTELIB_ASSERT(condition, exception) 
#endif

#endif // sentry

---