OpenXM_contrib2/asir2000/engine/nd.h - diff

Return to nd.h CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.11, 2004/10/06 12:09:19

version 1.12, 2004/12/04 09:39:27

Line 1

/* $OpenXM$ */

/* $OpenXM: OpenXM_contrib2/asir2000/engine/nd.h,v 1.11 2004/10/06 12:09:19 noro Exp $ */

#include "ca.h"

#include "parse.h"

#include "ox.h"

Line 48 typedef union oNDC {

int m;

Q z;

P p;

DAlg a;

} *NDC;

/* monomial; linked list rep. */

Line 134 extern int *current_weyl_weight_vector;

Line 135 extern int *current_weyl_weight_vector;

#define HCM(d) ((d)->body->c.m)

#define HCQ(d) ((d)->body->c.z)

#define HCP(d) ((d)->body->c.p)

#define CM(a) ((a)->c.m)

#define HCA(d) ((d)->body->c.a)

#define CQ(a) ((a)->c.z)

#define CM(x) ((x)->c.m)

#define CP(a) ((a)->c.p)

#define CQ(x) ((x)->c.z)

#define DL(a) ((a)->dl)

#define CP(x) ((x)->c.p)

#define SG(a) ((a)->sugar)

#define CA(x) ((x)->c.a)

#define LEN(a) ((a)->len)

#define DL(x) ((x)->dl)

#define LCM(a) ((a)->lcm)

#define SG(x) ((x)->sugar)

#define LEN(x) ((x)->len)

#define LCM(x) ((x)->lcm)

#define GET_EXP(d,a) (((d)[nd_epos[a].i]>>nd_epos[a].s)&nd_mask0)

#define GET_EXP_MASK(d,a,m) ((((d)[nd_epos[a].i]&(m)[nd_epos[a].i])>>nd_epos[a].s)&nd_mask0)

#define PUT_EXP(r,a,e) ((r)[nd_epos[a].i] |= ((e)<<nd_epos[a].s))