Return to defs.h CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / lib

Annotation of OpenXM_contrib2/asir2000/lib/defs.h, Revision 1.1.1.1

1.1       noro        1: /* $OpenXM: OpenXM/src/asir99/lib/defs.h,v 1.1.1.1 1999/11/10 08:12:30 noro Exp $ */
                      2: /* some useful macros */
                      3:
                      4: #define ZERO 0
                      5: #define NUM 1
                      6: #define POLY 2
                      7: #define RAT 3
                      8: #define LIST 4
                      9: #define VECT 5
                     10: #define MAT 6
                     11: #define STR 7
                     12:
                     13: #define N_Q 0
                     14: #define N_R 1
                     15: #define N_A 2
                     16: #define N_B 3
                     17: #define N_C 4
                     18:
                     19: #define V_IND 0
                     20: #define V_UC 1
                     21: #define V_PF 2
                     22: #define V_SR 3
                     23:
                     24: #define isnum(a) (type(a)==NUM)
                     25: #define ispoly(a) (type(a)==POLY)
                     26: #define israt(a) (type(a)==RAT)
                     27: #define islist(a) (type(a)==LIST)
                     28: #define isvect(a) (type(a)==VECT)
                     29: #define ismat(a) (type(a)==MAT)
                     30: #define isstr(a) (type(a)==STR)
                     31:
                     32: #define FIRST(L) (car(L))
                     33: #define SECOND(L) (car(cdr(L)))
                     34: #define THIRD(L) (car(cdr(cdr(L))))
                     35: #define FOURTH(L) (car(cdr(cdr(cdr(L)))))
                     36:
                     37: #define DEG(a) deg(a,var(a))
                     38: #define LCOEF(a) coef(a,deg(a,var(a)))
                     39: #define LTERM(a) coef(a,deg(a,var(a)))*var(a)^deg(a,var(a))
                     40: #define TT(a) car(car(a))
                     41: #define TS(a) car(cdr(car(a)))
                     42:
                     43: #define MAX(a,b) ((a)>(b)?(a):(b))