File: [local] / OpenXM / src / kan96xx / Kan / check.c (download)
Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:02 1999 UTC (24 years, 11 months ago) by maekawa
Branch: OpenXM
CVS Tags: ALPHA Changes since 1.1: +0 -0
lines
o import OpenXM sources
|
/* work7/check.c 1996, 3/19 */
/* should move to SSkan/Kan/check.c */
#include <stdio.h>
#define N0 4
struct ring {
int dummy;
};
struct exps {
int x;
int D;
};
struct monomial {
struct ring *ringp;
struct exps e[N0];
};
/* --------------------------------------- */
struct monom {
struct ring *ringp;
int ee[N0*2];
};
main() {
int i;
struct monomial *mp;
if (sizeof(struct monomial) != sizeof(struct monom)) {
fprintf(stderr,"Error: monomial != monom \n");
}
mp = (struct monomial *)malloc(sizeof(struct monomial));
for (i=0; i<N0; i++) {
mp->e[i].x = i;
mp->e[i].D = -i;
}
for (i=0; i<N0*2; i++) {
printf(" %d ",((struct monom *)mp)->ee[i]);
}
printf("\n\n");
for (i=0; i<N0*2; i++) {
((struct monom *)mp)->ee[i] = -i;
}
for (i=0; i<N0; i++) {
printf(" %d ",mp->e[i].x);
printf(" %d ",mp->e[i].D);
}
printf("\n\n");
}