OpenXM/src/ox_toolkit/cmo.c - diff

Return to cmo.c CVS log

Up to [local] / OpenXM / src / ox_toolkit

version 1.21, 2005/10/12 04:03:37

version 1.22, 2007/03/14 10:30:54

Line 1

/* -*- mode: C; coding: euc-japan -*- */

/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.20 2005/07/26 12:52:04 ohara Exp $ */

/* $OpenXM: OpenXM/src/ox_toolkit/cmo.c,v 1.21 2005/10/12 04:03:37 takayama Exp $ */

This module includes functions for sending/receiveng CMO's.

Line 245 cmo_zz* new_cmo_zz_size(int size)

return c;

}

cmo_qq* new_cmo_qq_noinit()

cmo_qq* new_cmo_qq()

{

cmo_qq* c = MALLOC(sizeof(cmo_qq));

c->tag = CMO_QQ;

c->num = c->den = NULL;

mpq_init(c->mpq);

return c;

}

cmo_qq* new_cmo_qq_set_mpq(mpq_ptr q)

{

cmo_qq* c = new_cmo_qq_noinit();

cmo_qq* c = new_cmo_qq();

c->num = new_cmo_zz_set_mpz(mpq_numref(q));

mpq_set(c->mpq, q);

c->den = new_cmo_zz_set_mpz(mpq_denref(q));

return c;

}

cmo_qq* new_cmo_qq_set_mpz(mpz_ptr num, mpz_ptr den)

{

cmo_qq* c = new_cmo_qq_noinit();

cmo_qq* c = new_cmo_qq();

c->num = new_cmo_zz_set_mpz(num);

mpq_set_num(c->mpq, num);

c->den = new_cmo_zz_set_mpz(den);

mpq_set_den(c->mpq, den);

return c;

}