OpenXM/src/kan96xx/Kan/kanExport0.c - diff

Return to kanExport0.c CVS log

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

version 1.28, 2004/08/31 04:45:42

version 1.30, 2004/09/04 11:25:58

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.27 2004/08/28 07:28:54 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport0.c,v 1.29 2004/08/31 05:30:20 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 1212 struct object KdataConversion(obj,key)

return(NullObject);

}

/* cf. macro to_int */

/* cf. macro to_int32 */

struct object Kto_int(struct object ob) {

struct object Kto_int32(struct object ob) {

int n,i;

struct object otmp;

struct object rob;

Line 1222 struct object Kto_int(struct object ob) {

n = getoaSize(ob);

rob = newObjectArray(n);

for (i=0; i<n; i++) {

otmp = Kto_int(getoa(ob,i));

otmp = Kto_int32(getoa(ob,i));

putoa(rob,i,otmp);

}

return rob;

Line 1597 int KsetUpRing(ob1,ob2,ob3,ob4,ob5)

}

ob4 = Kto_int(ob4); /* order matrix */

ob4 = Kto_int32(ob4); /* order matrix */

oasize = getoaSize(ob4);

order = (int *)sGC_malloc(sizeof(int)*((2*n)*oasize+1));

if (order == (int *)NULL) errorKan1("%s\n","No memory.");

Line 2972 errorKan1(str,message)

if (ErrorMessageMode != 1) {

fprintf(stderr,"\nERROR(kanExport[0|1].c): ");

fprintf(stderr,str,message);

(void) traceShowStack(); traceClearStack();

}

/* fprintf(stderr,"Hello "); */

if (GotoP) {