Subversion Repositories Kolibri OS

#define __lisperror_h__

#include "lispstring.h"

{

    KLispErrNone = 0,

    KLispErrInvalidArg        ,

    KLispErrWrongNumberOfArgs ,

    KLispErrNotList           ,

    KLispErrListNotLongEnough ,

    KLispErrInvalidStack      ,

    KQuitting                 ,

    KLispErrNotEnoughMemory   ,

    KInvalidToken             ,

    KLispErrInvalidExpression ,

    KLispErrUnprintableToken  ,

    KLispErrFileNotFound      ,

    KLispErrReadingFile       ,

    KLispErrCreatingUserFunction,

    KLispErrCreatingRule        ,

    KLispErrArityAlreadyDefined ,

    KLispErrCommentToEndOfFile  ,

    KLispErrNotString           ,

    KLispErrNotInteger          ,

    KLispErrParsingInput        ,

    KLispErrMaxRecurseDepthReached,

    KLispErrDefFileAlreadyChosen  ,

    KLispErrDivideByZero          ,

    KLispErrNotAnInFixOperator    ,

    KLispErrUser                  ,

    KLispErrIsNotInFix            ,

    KLispErrSecurityBreach        ,

    KLispErrLibraryNotFound       ,

    KLispErrUserInterrupt         ,

    KLispErrNonBooleanPredicateInPattern,

    KLispErrGenericFormat,

    KLispNrErrors

};

inline void Check(T hastobetrue, LispInt aError)

{

    if (!hastobetrue)

        LispThrow(aError);

}

#define DBG_printf printf

#define DBG_(xxx) xxx

#else

namespace{void inline noop(...) {}}

// could change 'noop' to 'sizeof' below, but we get 'left-hand operand of comma has no effect' from g++

#define DBG_printf while (0) noop

#define DBG_(xxx) /*xxx*/

#endif