#ifndef typeIncluded
#include "type.h"
#endif

#define isBitset(t) (streq(t->components.atom.val.text, "bitset"))
#define isCard(t) (streq(t->components.atom.val.text, "cardinal"))
#define isFloat(t) (streq(t->components.atom.val.text, "float"))
#define isLongInt(t) (streq(t->components.atom.val.text, "longint"))
#define isLongReal(t) (streq(t->components.atom.val.text, "longreal"))
#define isPointer(t) (streq(t->components.atom.val.text, "pointer"))