version 1.8, 2004/06/30 08:36:06 |
version 1.9, 2008/09/03 10:10:08 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/lib/defs.h,v 1.7 2004/06/27 13:49:40 ohara Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/lib/defs.h,v 1.8 2004/06/30 08:36:06 ohara Exp $ |
*/ |
*/ |
/* some useful macros */ |
/* some useful macros */ |
|
|
|
|
#define isstruct(A) (type(A)==STRUCT) |
#define isstruct(A) (type(A)==STRUCT) |
#define isdpoly(a) (type(a)==DPOLY) |
#define isdpoly(a) (type(a)==DPOLY) |
|
|
#define isnum_int(a) ((a)==0 || (type((a))==NUM && ntype((a))==O_Q && dn((a))==1)) |
#define isnum_int(a) ((a)==0 || (type((a))==NUM && ntype((a))==N_Q && dn((a))==1)) |
|
|
#define FIRST(L) (car(L)) |
#define FIRST(L) (car(L)) |
#define SECOND(L) (car(cdr(L))) |
#define SECOND(L) (car(cdr(L))) |