Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4680 right-hear 1 
 
2 
#define __errors_h__
3 

        

        

           
           
           4
           
 

        

        

           
           
           5
           
#define CHK_ARG(_pred,_argnr)           {if (!(_pred))                              CheckArgType(_argnr,aArguments, aEnvironment,KLispErrInvalidArg);}

        

        

           
           
           6
           
#define CHK_ARG_CORE(_pred,_argnr)      {if (!(_pred))                              CheckArgType(_argnr,ARGUMENT(0),aEnvironment,KLispErrInvalidArg);}

        

        

           
           
           7
           
#define CHK_ISLIST(_pred,_argnr)        {if (!InternalIsList(_pred))                     CheckArgType(_argnr,aArguments, aEnvironment,KLispErrNotList);}

        

        

           
           
           8
           
#define CHK_ISLIST_CORE(_pred,_argnr)   {if (!InternalIsList(_pred))                     CheckArgType(_argnr,ARGUMENT(0),aEnvironment,KLispErrNotList);}

        

        

           
           
           9
           
#define CHK_ISSTRING(_pred,_argnr)      {if (!InternalIsString((_pred)->String())) CheckArgType(_argnr,aArguments, aEnvironment,KLispErrNotString);}

        

        

           
           
           10
           
#define CHK_ISSTRING_CORE(_pred,_argnr) {if (!InternalIsString((_pred)->String())) CheckArgType(_argnr,ARGUMENT(0),aEnvironment,KLispErrNotString);}

        

        

           
           
           11
           

        

        

           
           
           12
           
 

        

        

           
           
           13
           
#define TESTARGS(_n)  CheckNrArgs(_n,aArguments,aEnvironment)

        

        

           
           
           14
           

        

        

           
           
           15
           
 

        

        

           
           
           16
           
void CheckFuncGeneric(LispInt aError,LispEnvironment& aEnvironment);

        

        

           
           
           17
           
#define CHK(_pred,_err)      {if (!(_pred)) CheckFuncGeneric(_err,aArguments, aEnvironment);}

        

        

           
           
           18
           
#define CHK_CORE(_pred,_err) {if (!(_pred)) CheckFuncGeneric(_err,ARGUMENT(0),aEnvironment);}

        

        

           
           
           19
           
#define CHK2(_pred,_err)     {if (!(_pred)) CheckFuncGeneric(_err,aEnvironment);}

        

        

           
           
           20
           

        

        

           
           
           21
           
 

        

        

           
           
           22
           
void RaiseError(char* str,...);

        

        

           
           
           23
           

        

        

           
           
           24
           
 

        

        

           
           
           25
           
#define TESTARGS(_n)  \

        

        

           
           
           26
           
    { \

        

        

           
           
           27
           
      LispInt nrArguments = InternalListLength(aArguments);  \

        

        

           
           
           28
           
      Check(nrArguments == _n,KLispErrWrongNumberOfArgs); \

        

        

           
           
           29
           
    }

        

        

           
           
           30
           
*/

        

        

           
           
           31
           

        

        

           
           
           32
           
 

        

        

           
           
           33