Return to check.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

Annotation of OpenXM/src/kan96xx/Kan/check.c, Revision 1.1

1.1     ! maekawa     1: /*  work7/check.c  1996, 3/19 */
        !             2: /*   should move to SSkan/Kan/check.c */
        !             3: #include <stdio.h>
        !             4: #define N0 4
        !             5: struct ring {
        !             6:   int dummy;
        !             7: };
        !             8:
        !             9: struct exps {
        !            10:   int x;
        !            11:   int D;
        !            12: };
        !            13:
        !            14: struct monomial {
        !            15:   struct ring *ringp;
        !            16:   struct exps e[N0];
        !            17: };
        !            18:
        !            19: /* --------------------------------------- */
        !            20: struct monom {
        !            21:   struct ring *ringp;
        !            22:   int ee[N0*2];
        !            23: };
        !            24:
        !            25: main() {
        !            26:   int i;
        !            27:   struct monomial *mp;
        !            28:   if (sizeof(struct monomial) != sizeof(struct monom)) {
        !            29:     fprintf(stderr,"Error: monomial != monom \n");
        !            30:   }
        !            31:
        !            32:   mp = (struct monomial *)malloc(sizeof(struct monomial));
        !            33:   for (i=0; i<N0; i++) {
        !            34:     mp->e[i].x = i;
        !            35:     mp->e[i].D = -i;
        !            36:   }
        !            37:   for (i=0; i<N0*2; i++) {
        !            38:     printf(" %d ",((struct monom *)mp)->ee[i]);
        !            39:   }
        !            40:   printf("\n\n");
        !            41:   for (i=0; i<N0*2; i++) {
        !            42:     ((struct monom *)mp)->ee[i] = -i;
        !            43:   }
        !            44:   for (i=0; i<N0; i++) {
        !            45:     printf(" %d ",mp->e[i].x);
        !            46:     printf(" %d ",mp->e[i].D);
        !            47:   }
        !            48:   printf("\n\n");
        !            49: }
        !            50:
        !            51:
        !            52:
        !            53:
        !            54: