version 1.4, 2003/10/14 02:02:26 |
version 1.6, 2004/06/22 16:11: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.3 2000/08/22 05:04:21 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/lib/defs.h,v 1.5 2003/12/15 16:37:59 ohara Exp $ |
*/ |
*/ |
/* some useful macros */ |
/* some useful macros */ |
|
|
|
|
#define VECT 5 |
#define VECT 5 |
#define MAT 6 |
#define MAT 6 |
#define STR 7 |
#define STR 7 |
|
#define STRUCT 8 |
|
#define DPOLY 9 |
|
|
#define N_Q 0 |
#define N_Q 0 |
#define N_R 1 |
#define N_R 1 |
|
|
#define isvect(a) (type(a)==VECT) |
#define isvect(a) (type(a)==VECT) |
#define ismat(a) (type(a)==MAT) |
#define ismat(a) (type(a)==MAT) |
#define isstr(a) (type(a)==STR) |
#define isstr(a) (type(a)==STR) |
|
#define isstruct(A) (type(A)==STRUCT) |
|
#define isdpoly(a) (type(a)==DPOLY) |
|
|
|
#define isnum_int(a) (type((a))==NUM && ntype((a))==O_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))) |