OpenXM_contrib2/asir2000/lib/defs.h - diff

Return to defs.h CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / lib

Diff for /OpenXM_contrib2/asir2000/lib/defs.h between version 1.3 and 1.9

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

version 1.9, 2008/09/03 10:10:08

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.8 2004/06/30 08:36:06 ohara Exp $

/* some useful macros */

#define VOID -1

#define ZERO 0

#define NUM 1

#define POLY 2

Line 57

Line 58

#define VECT 5

#define MAT 6

#define STR 7

#define STRUCT 8

#define DPOLY 9

#define N_Q 0

#define N_R 1

Line 69

Line 72

#define V_PF 2

#define V_SR 3

#define isvoid(a) (type(a)==VOID)

#define isnum(a) (type(a)==NUM)

#define ispoly(a) (type(a)==POLY)

#define israt(a) (type(a)==RAT)

Line 76

Line 80

#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))==N_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 97

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

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

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>