OpenXM_contrib2/asir2000/lib/defs.h - diff

Return to defs.h CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / lib

version 1.3, 2000/08/22 05:04:21

version 1.7, 2004/06/27 13:49:40

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/lib/defs.h,v 1.2 2000/08/21 08:31:41 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/lib/defs.h,v 1.6 2004/06/22 16:11:08 ohara Exp $

/* some useful macros */

Line 57

#define VECT 5

#define MAT 6

#define STR 7

#define STRUCT 8

#define DPOLY 9

#define N_Q 0

#define N_R 1

Line 76

Line 78

#define isvect(a) (type(a)==VECT)

#define ismat(a) (type(a)==MAT)

#define isstr(a) (type(a)==STR)

#define isstruct(A) (type(A)==STRUCT)

#define isdpoly(a) (type(a)==DPOLY)

#define isnum_int(a) ((a)==0 || (type((a))==NUM && ntype((a))==O_Q && dn((a))==1))

#define FIRST(L) (car(L))

#define SECOND(L) (car(cdr(L)))

#define THIRD(L) (car(cdr(cdr(L))))

Line 89

Line 95

#define TS(a) car(cdr(car(a)))

#define MAX(a,b) ((a)>(b)?(a):(b))

#define MIN(a,b) ((a)>(b)?(b):(a))