version 1.9, 2001/09/01 01:37:49 |
version 1.10, 2003/12/06 02:35:54 |
|
|
/*$OpenXM: OpenXM/src/kan96xx/plugin/cmo.c,v 1.8 2001/05/04 01:06:29 takayama Exp $*/ |
/*$OpenXM: OpenXM/src/kan96xx/plugin/cmo.c,v 1.9 2001/09/01 01:37:49 takayama Exp $*/ |
#include <stdio.h> |
#include <stdio.h> |
#include <string.h> |
#include <string.h> |
/* #include <netinet/in.h> */ |
/* #include <netinet/in.h> */ |
Line 659 void cmoObjectToCmo00(struct object ob) |
|
Line 659 void cmoObjectToCmo00(struct object ob) |
|
break; |
break; |
case SuniversalNumber: |
case SuniversalNumber: |
cmoOutGMPCoeff(ob.lc.universalNumber->val.bigp); |
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; |
break; |
case Sdouble: |
case Sdouble: |
if (sizeof(double) != 8) errorCmo("double is assumed to be 8 bytes."); |
if (sizeof(double) != 8) errorCmo("double is assumed to be 8 bytes."); |