/
rgd045
/
tcllib
Обзор
Документация
Войти
/
rgd045
/
tcllib
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
modules/struct/queue/util.h
41 строка
910 B
Andreas Kupries
03 июл 2008, 21:47
03 июл 2008, 21:47
acd5af0
Код
Авторство
О чём код?
/* struct::queue - critcl - layer 0 declarations * API general utilities */ #ifndef _UTIL_H #define _UTIL_H 1 #include <tcl.h> /* Allocation macros for common situations. */ #define ALLOC(type) (type *) ckalloc (sizeof (type)) #define NALLOC(n,type) (type *) ckalloc ((n) * sizeof (type)) /* Assertions in general, and asserting the proper range of an array index. */ #undef QUEUE_DEBUG #define QUEUE_DEBUG 1 #ifdef QUEUE_DEBUG #define XSTR(x) #x #define STR(x) XSTR(x) #define RANGEOK(i,n) ((0 <= (i)) && (i < (n))) #define ASSERT(x,msg) if (!(x)) { Tcl_Panic (msg " (" #x "), in file " __FILE__ " @line " STR(__LINE__));} #define ASSERT_BOUNDS(i,n) ASSERT (RANGEOK(i,n),"array index out of bounds: " STR(i) " > " STR(n)) #else #define ASSERT(x,msg) #define ASSERT_BOUNDS(i,n) #endif #endif /* _UTIL_H */ /* * Local Variables: * mode: c * c-basic-offset: 4 * fill-column: 78 * End: */