OpenXM/src/kan96xx/plugin/cmo.c - diff

Return to cmo.c CVS log

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

version 1.8, 2001/05/04 01:06:29

version 1.11, 2004/03/08 08:24:42

Line 1

/*$OpenXM: OpenXM/src/kan96xx/plugin/cmo.c,v 1.7 2001/04/15 07:55:07 takayama Exp $*/

/*$OpenXM: OpenXM/src/kan96xx/plugin/cmo.c,v 1.10 2003/12/06 02:35:54 takayama Exp $*/

#include <stdio.h>

#include <string.h>

/* #include <netinet/in.h> */

Line 660 void cmoObjectToCmo00(struct object ob)

case SuniversalNumber:

cmoOutGMPCoeff(ob.lc.universalNumber->val.bigp);

break;

case SrationalFunction:

tmp[0] = htonl(CMO_RATIONAL);

cmoOutputToBuf(CMOPUT,tmp,sizeof(cmoint));

cmoObjectToCmo00(*(Knumerator(ob)));

cmoObjectToCmo00(*(Kdenominator(ob)));

break;

case Sdouble:

if (sizeof(double) != 8) errorCmo("double is assumed to be 8 bytes.");

cmoOutRawInt(CMO_64BIT_MACHINE_DOUBLE);

Line 1011 struct object cmoCmoToObject00(struct cmoBuffer *cb)

Line 1017 struct object cmoCmoToObject00(struct cmoBuffer *cb)

}else{

ob1 = getoa(rob,0);

if (ob1.tag != Sdollar) warningCmo("CMO_TREE : the first arg must be the node name by a string.");

ob2 = getoa(rob,1); /* content dictionary name. */

ob2 = getoa(rob,1); /* Attribute List */

if (ob2.tag != Sdollar) warningCmo("CMO_TREE : the second arg must be the node name by a string.");

if (ob2.tag != Sarray) warningCmo("CMO_TREE : the second arg must be a list of attributes.");

rob = KpoTree(rob);

}

break;

Line 1450 void *KSmathCapByStruct(void)

Line 1456 void *KSmathCapByStruct(void)

mathcap->sm[9] = SM_getsp;

mathcap->sm[10] = SM_dupErrors;

mathcap->sm[11] = SM_pushCMOtag;

mathcap->smSize = 12;

mathcap->sm[12] = SM_executeFunctionWithOptionalArgument;

mathcap->smSize = 13;

return((void *)mathcap);

}