OpenXM_contrib2/asir2000/lib/defs.h - diff

Return to defs.h CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / lib

version 1.4, 2003/10/14 02:02:26

version 1.8, 2004/06/30 08:36:06

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.3 2000/08/22 05:04:21 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/lib/defs.h,v 1.7 2004/06/27 13:49:40 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))==O_Q && dn((a))==1))

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

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